Posts tagged ‘visual basic’

VB .NET – Menghubungkan Visual Basic 2008 dengan MYSQL local server


Untuk dapat membuat koneksi antara Visual Basic 2008 dengan database MYSQL pada local server kita, maka kita harus menambahkan konektor SQL. Bagaimana caranya? Ikuti langkah-langkah berikut:

  1. Anda dapat mendownload MYSQL Connector disini.  Setelah berhasil mendownload, install sampai selesai.
  2. Dari Menu Project pilih Add Reference. Kemudian pilih Browse dan cari lokasi file MySql.Data.dll. Biasanya pada directory: C:\Program Files (x86)\MySQL\MySQL Connector Net 8.0.13\Assemblies\v4.5.2
  3. Selanjutnya tinggal membuat coding sebagai berikut:

Buat sebuah file class:

Imports MySql.Data.MySqlClient
Public Class connection
    Private strCon As String = "server=localhost;user id=root;database=cipd"
    Private da As New MySqlDataAdapter
    Private cmd As New MySqlCommand
    Private dt As New DataTable
    Private Function myCon() As MySqlConnection
        Return New MySqlConnection(strCon)
    End Function
    Private conn As MySqlConnection = myCon()
    Property con() As MySqlConnection
        Get
            Return conn
        End Get
        Set(ByVal value As MySqlConnection)
            conn = value
        End Set
    End Property
    Public Sub reload(ByVal sql As String, ByVal dtg As Object)
        With cmd
            .Connection = con
            .CommandText = sql
        End With
        da = New MySqlDataAdapter(sql, con)
        da.Fill(dt)
        dtg.DataSource = dt
    End Sub
End Class

Selanjutnya pada form, coding seperti berikut:

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim Mycon As connection = New connection
    Dim stud As student = New student
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Mycon.con.Open()
            If Mycon.con.State = ConnectionState.Open Then
                MsgBox("connected")
                Mycon.reload("SELECT * FROM tani", DataGridView1)
            Else
                MsgBox("not connected")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Mycon.con.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

 

Referensi:

http://www.uwidigital.com/2016/05/cara-menghubungkan-koneksi-vb-net-dengan-mysql-database/

http://ekasolusi.blogspot.com/2015/06/mengkoneksikan-vbnet-2008-dengan.html

File digunakan:

MySql.Data.dll

Download File

Program Database Siswa Dengan VB


Databases siswa adalah salahs atu komponen penunjang sistem administrasi yang selayaknya setiap sekolah memiliki untuk menunjang proses administrasi. Database sekolah, dapat dikembangkan lebih lanjut untuk layanan berbasis IT untuk kemajuan sistem informasi pada sebuah sekolah. Untuk sebuah sekolah yang memiliki jumlah siswa yang banyak, maka kebutuhan akan adanya database siswa adalah sebuah keharusan. Dengan menggunakan program aplikasi yang sudah familiar, Visual Basic 6 dapat dibuat sendiri program aplikasi Database Siswa.

Pada bagian Ini kita dapat membuat sebuah database siswa secara sederhana. Database ini hanya terdiri dari:

db siswa acces

  • NIS = sebagai Primary Key

  • Nama Siswa

  • Jenis Kelamin

  • Nomer HP

selain data di atas, nantinya pembaca dapat menambahkan sesuai dengan kebutuhan. Disini dibuat sederhana agar lebih mudah dimengerti dan lebih mudah dimodifikasi sendiri.

  1. Menambahkan Data

add data

  • Isikan data secara lengkap

  • Klik tombol Tambah

  1. Mencari Data

cari data

  • Isikan nomor NIS

  • Tekan Enter

  1. Mengedit Data
  • Cari data

  • Klik tombol Edit

edit

  • Edit data seperlunya, kecuali NIS

  • Klik tombol Update

update

  1. Menghapus Data
  • Cari Data

  • Klik tombol Hapus

hapus

Demikian program sederhana Database Absensi Dengan Visual Basic 6.

Download Source Code (Menyusul).

Mencari Posisi Sebuah Karakter/String Dengan VB


Untuk mengetahui posisi sebuah karakter pada sebuah string, menggunakan Visual Basic 6, kita dapat menggunakan syntax:

Public Shared Function InStr(_
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As CompareMethod _
) As Integer
' -or-
Public Shared Function InStr(_
   ByVal Start As Integer, _
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod _
) As Integer

Parameter:

– Start= nilai posisi awal pencarian, jika tidak diberikan maka akan dimulai dari awal string. optional

– String1= String dimana karakter yang akan dicari. harus ada.

– String2= String/karakter yang akan dicari. harus ada.

– Compare= metode yang digunakan. Binary atau Text.

Contoh:

'String tujuan pencarian.
Dim SearchString As String = "XXpXXpXXPXXP"
'karakter yang akan dicari "p".
Dim SearchChar As String = "P"

Dim TestPos As Integer
' Pencarian dengan metode Text, dimulai dari posisi 4. akan didapatkan 6
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)

' Pencarian dengan metode binary, dimulai dari posisi 1. didapatkan 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)

' Jika opsi pencarian tidak ditentukan, akan didapatkan 9.
' Jika metode pencarian ditentukan Text, akan didapatkan 3
TestPos = InStr(SearchString, SearchChar)' Didapatkan 0
TestPos = InStr(1, SearchString, "W")

Demikian, semoga bermanfaat.

Sumber: http://msdn.microsoft.com/en-us/library/8460tsh1%28v=vs.80%29.aspx

Progressbar Dengan Visual Basic


bar 1

Progressbar biasanya dibutuhkan untuk memvisualisasikan sebuah data dengan range yang sudah diketahui. Progressbar dapat dengan mudah dijumpai pada beberapa aplikasi. Di windows sendiri bisa dijumpai saat kita memindah file dari sebuah directory ke directory lainnya.

Salah satu kegunaan progressbar adalah memberikan aspek psikologis kepada user tentang suatu proses yang sedang berlangsung. Dengan adanya progress bar, user bisa mengetahui berapa lama suatu proses telah berlangsung dan berapa waktu yang dibutuhkan selanjutnya.

bar 2

Selain itu, progressbar juga dapat digunakan untuk menampilkan suatu data pengukuran. Misalnya disini dicontohkan untuk menampilkan suatu nilai RPM. Dengan ditampilkan pada sebuah progressbar, user dengan mudah akan dapat mengetahui berapa persen (%) nilai aktual dibandingkan nilai maksimum yang ada.

Progressbar ini dapat dibuat dengan memanfaatkan komponen sebuah Shape yang nilai properties Width dapat dibuat sebagai variabelnya.

[sourcecode]

Function ShapeBar(ProgressBarValue As Integer, ProgressBarName As Shape)
ProgressBarName.Width = ProgressBarValue * 10 ' Write here the value for one percent
If ProgressBarName.Width > 9975 Then
ProgressBarName.Width = 9975
End If
End Function

[/sourcecode]Kemudian untuk membuat sebuah simulasi, ditambahkan komponen HScroll1 dengan nilai maksimum ditentukan sesuai keinginan. Kemudian pada fungsi Private Sub HScroll1_Change() ditambahkan code:


Private Sub HScroll1_Change()
MyFunctionProgressBar = ShapeBar(HScroll1.Value * 10, BarRPM)
End Sub

Berikut adalah beberapa contoh hasilnya.

bar 3

bar 2

bar 4

bar 5

bar 6

Source code.

Demikian, semoga bermanfaat.

Membuat Grafik Dinamik Pada Visual Basic 6


grafik

Pada artikel sebelumnya telah dibahas tentang bagaimanakah membuat grafik pada visual basic, maka pada posting ini adalah membahas lebih lanjut bagaimana membuat sebuah grafik.

Perbedaan yang akan disampaikan pada tulisan ini diantaranya adalah: bagaimana membuat sebuah grafik dapat menampilkan data secara kontinyu. Data dapat ditampilkan terus menerus, ketika grafik telah menyentuh titik maksimum sumbu Y maka secara otomatis grafik akan ditampilkan mulai dari sumbu Y=0.

Hal ini sangat membantu ketika data yang ditampilkan sangat banyak dan membutuhkan waktu yang relatif lama. Jika pada posting sebelumnya grafik ketika sudah mencapai sumbu Y maksimum, grafik akan berhenti.

[baca selengkapnya disini]

Menulis Source Code Pada WordPress


Jika pada posting saya sebelumnya masih ada tampilan yang kurang enak dilihat, yaitu pada bagian source code maka insya Alloh pada posting berikutnya itu tidak akan ada lagi. Ini karena sebelumnya saya belum mengetahui bagaimana cara untuk menuliskan source code pada wordpress.

Tulisan ini saya buat dengan merujuk pada beberapa posting blogger dan khususnya pada sumber utamanya yaitu wordpress.

Kesulitan untuk menuliskan source secara langsung karena memang wordpress tidak mengijinkannya. Namun disisi lain, wordpress memberikan fasilitas untuk menuliskan source code pada sebuah posting.

Untuk menuliskan source code kita bisa mengikuti bentuk seperti berikut:

[ sourcecode language=”java” ]
Tuliskan source code disini
[ /sourcecode ]

sebagai contoh adalah:


CD.ShowOpen
 Me.Caption = CD.FileName
 Picture1.Picture = LoadPicture(CD.FileName)

Sesuai rujukan yang ada pada wordpress, fitur diatas mendukung untuk berbagai syntax bahasa pemrograman, yaitu:

  • ctionscript3
  • bash
  • clojure
  • coldfusion
  • cpp
  • csharp
  • css
  • delphi
  • erlang
  • fsharp
  • diff
  • groovy
  • html
  • javascript
  • java
  • javafx
  • matlab (keywords only)
  • objc
  • perl
  • php
  • text
  • powershell
  • python
  • r
  • ruby
  • scala
  • sql
  • vb
  • xml

Demikian, semoga bermanfaat.

Rohmadi

Sumber: http://en.support.wordpress.com/code/posting-source-code/

Source code Tabungan Sekolah


Karena banyaknya permintaan source code tabungan, berbagi maka pada sesi ini saya upload source code tabungan yang telah saya tampilkan pada posting sebelumnya.

Bagi pengunjung yang memiliki masukan dan saran, kami sangat terbuka untuk menampungnya.

Demikian, semogar bermanfaat.

Rohmadi

Source code.

Bermain Grafik Dengan Visual Basic 6


vb6logoDalam Visual Basic 6, kita disediakan beberapa fitur untuk dapat bermain dengan grafik. Fitur tersebut diantaranya adalah membuat garis, membuat lingkaran, mendapatkan komposisi warna pada koordinat tertentu dan sebagainya.

Agar kita bisa menggunakan fungsi-fungsi tersebut, kita harus menggunakan prosedur Activate atau Paint. Sedangkan toolbox sudah menyediakan 2 buah kontrol untuk membuat grafik pada form. Yaitu Line dan Shape. Dengan kontrol Shape kita dapat membuat lingkaran, segitiga dan lain-lain.

Pada posting berikutnya, insya Alloh akan diberikan contoh-contoh bagaimana menggunakan kontrol-kontrol tersebut.

1. Line

2. Cicle

3. Fill Color

4. Draw Width

5. PSET

6. CurrentX dan CurrentY

7. Move

Demikian, semoga bermanfaat.

— Rohmadi —-

Mengatur Setting Port Serial Pada Visual Basic


Untuk menjawab beberapa pertanyaan yang sudah saya terima, disini saya akan mencoba menjelaskan langkah-langkah untuk mengatur setting antara hardware dan software.

Peralatan yang disiapkan=

a. Device USB to Serial dan driver

b. Visuak basic

Setelah siap, makal langkah berikutnya adalah:

1. Memastikan bahwa USB to Serial terpasang dan terdeteksi oleh komputer/laptop

untuk memastikan ini, maka Anda harus memasang driver sesuai dengan chip yang digunakan dengan benar. Selanjutnya untuk mengetahui apakah device sudah terpasang dengan benar dan dikenali oleh komputer/laptop, cek dengan langkah membuka pada Windows (disini dicontohkan pada Windows XP).

device manager awal

Start –> My Computer –> (klik kanan), pilih Manage –> Pilih Device Manager, selanjutnya jika device sudah dikenali maka akan muncul tampilan berikut:

deteksi serial port

2.Pada visual basic, kita tambahkan komponen serial dengan menekan Ctrl + T, kemudian pilih Microsoft Comm Control 6.0, klik Apply kemudian Close.

tambah komponen serial pada VB

3. Berikutnya akan muncul icon seperti berikut pada group komponen di sebelah kiri

komponen serial VB

4. Drag icon MSComm ke bagian desain form.

drag komponen serial vb

5. Cek nomer port serial yang terdeteksi pada hardware berikut

port number hardware

6. Isikan nomer serial pada CommPort Properties, sama dengan nomer port serial yang terdeteksi pada hardware, isikan angka 9 seperti port hardware

setting CommPort

7. Kemudian atur nilai Settings yang menunjukkan Baudrate, parity, panjang bit data dan stop/start bit

Setting VB

Demikian, sehingga setting port serial pada VB dapat dilakukan dan siap digunakan untuk komunikasi serial dengan perangkat lain.

Demian semoga bermanfaat.

Menampilkan Webcam Pada Visual Basic 6.0


webcamWebcam merupakan salah satu fitur multimedia yang sangat mudah ditemui pada sebuah komputer khususnya sebuah laptop. Selain termasuk device bawaan dari sebuah laptop, webcam juga dapat dijual secara terpisah. Jika sebuah komputer dipasang sebuah webcam, maka sebuah komputer juga dapat menampilkan video dari webcam.

Sebagai salah satu device pendukung aplikasi web, biasanya webcam cenderung memiliki resolusi lebih rendah dibandingkan device camera yang tidak diperuntukkan untuk aplikasi web. Hal ini menjadi salah satu pertimbangan untuk mendapatkan layanan camera berbasis web yang tidak mengurangi kecepatan dan membutuhkan bandwidth yang besar.

Pada tulisan ini akan diberikan sebuah contoh program menggunakan Visual Basic 6 untuk menampilkan webcam pada program. Pertama kali untuk dapat menampilkan webcam pada VB, Anda harus menginstall software driver dari device webcam yang akan digunakan. Setelah proses installasi sukses, maka baru dapat digunakan untuk menampilkan webcam pada VB.

Anda dapat menggunakan template VB yang sudah kami sertakan disini.

tampilan form webcam

Langkah untuk membuat program Menampilkan Webcam pada VB adalah sebagai berikut, dengan menggunakan template di atas.

1. Mendeklarasikan variabel pada awal program


'DEKLARASI WEBCAM
 '========================================================================
 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private mCapHwnd As Long

Private Const HUBUNG As Long = 1034
 Private Const PUTUS As Long = 1035
 Private Const AMBIL_FRAME As Long = 1084
 Private Const COPY As Long = 1054

2. Membuat fungsi untuk menghubungkan VB dengan driver webcam

Sub Kamera_Mulai()
 mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)
 DoEvents
 SendMessage mCapHwnd, HUBUNG, 0, 0
 End Sub

3. Membuat fungsi untuk memutus koneksi VB dengan driver webcam

Sub Kamera_Berhenti()
 DoEvents: SendMessage mCapHwnd, PUTUS, 0, 0</p>
End Sub

4. Memulai menampilkan video webcam pada program

Private Sub Timer1_Timer()
 SendMessage mCapHwnd, AMBIL_FRAME, 0, 0
 SendMessage mCapHwnd, COPY, 0, 0
 Picture1.Picture = Clipboard.GetData
 Clipboard.Clear
 End Sub
Private Sub btnMulai_Click()
 Kamera_Mulai
Label3.Visible = False
 End Sub

5. Memutus video

Private Sub cmdStop_Click()
 Kamera_Berhenti
Label3.Visible = True
 End Sub

6. Menutup Aplikasi

Private Sub cmdClose_Click()
 Unload Me
 End Sub

untuk mendapatkan contoh lengkap silakan unduh disini.

Demikian semoga bermanfaat.

— Rohmadi —

%d blogger menyukai ini: