MEMBUAT PROGRAM DENGAN VISUAL BASIC 6.0

Pada postingan kali ini,saya akan membahas mengenai sedikit pembuatan program dasar di bahasa pemrograman Visual Basic 6.0.Selamat membaca !

Pertama-tama kita membuat program untuk mencetak "Hello World" ke layar.

1.Buka Visual Basic 6.0
2.Open Standard.Exe
3.Mulai Membuat Program
4.Masukkan 1 command button,kemudian klik 2 kali pada command button,dan tuliskan script berikut :

Private Sub Command1_Click()
    MsgBox "Hello World !"
End Sub

5.Tekan F5 atau pilih perintah run,tekan tombol command,dan hasilnya jika anda menekan tombol,akan muncul message box berbunyi "Hello World!"


Berikutnya kita akan membuat program kalkulator

1.Seperti biasa buka visual basic 6.0 dan open standard.exe
2.Masukkan 3 Label,3 TextBox dan 5 Command Button dan ubah masing-masing caption(caption ada pada sebelah kanan bawah di bagian properties)

3.Kemudian ubah name pada textbox,dan command button yang mudah anda ingat untuk digunakan sebagai scripting.(Boleh juga tidak diubah).

4.Saya hanya mengubah nama-nama command button (button + namanya btntambah,button - namanya btnkurang,button x namanya btnkali dan button / namanya btnbagi),sedangkan untuk textbox tetap dengan text1,text2 dan text3.

5.Kemudian tuliskan coding sebagai berikut pada masing-masing button (klik dua kali pada masing-masing button)

Private Sub btntambah_Click()

    Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub btnkurang_Click()

    Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub btnkali_Click()

    Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub btnbagi_Click()

    Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

PENJELASAN CODING

Pada btntambah,coding yang dimaksudkan adalah apabila anda mengklik tombol +,maka textbox(text3) akan menjumlahkan dua bilangan yang ada pada textbox 1 dan textbox 2,begitu pula dengan kurang kali dan bagi.(Val artinya mengkonversikan apa yang ada di dalam textbox menjadi bilangan aritmetika/bilangan yang bisa dihitung)

6.Kemudian untuk tambahan agar program menjadi lebih baik,ketikkan script berikut

Private Sub Form_Load()

    Text1.Enabled = True

    Text2.Enabled = True

    Text3.Enabled = False

    

End Sub

Private Sub btnclear_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    

    Text1.SetFocus

End Sub

Private Sub Text1_Change()

    If Not IsNumeric(Text1.Text) Then

    Text1.Text = ""

    End If

End Sub

Private Sub Text2_Change()

    If Not IsNumeric(Text2.Text) Then

    Text2.Text = ""

    End If

End Sub

PENJELASAN CODING

Untuk di bagian formload maksudnya adalah apabila anda menjalankan program anda maka textbox1 dan 2 menjadi aktif(dapat diketik/klik) sedangkan textbox 3 tidak dapat diketik/klik)

Untuk di bagian btnclear maksudnya adalah apabila anda mengklik tombol clear,maka textbox 1,2 dan 3 akan langsung dikosongkan.

Untuk bagian text1_change dan text2_change maksudnya jika anda mengetikkan huruf ataupun yang lainnya (yang bukan angka) maka di textbox 1 dan 2 tidak akan terisi apa-apa.

Sekian cara pembuatan program dasar dengan bahasa pemrograman visual basic 6.0.Semoga ilmu yang dibagikan bermanfaat !

HASIL AKHIR PROGRAM KALKULATOR

Selamat !Anda telah membuat kalkulator sederhana !Silakan mencoba menambah,kurang,kali dan bagi dengan berbagai bilangan !