Contoh kumpulan program visual basic 6.0 sederhana

Pada postingan kali ini ane akan bagiin beberapa program di visual basic 6.0 lengkap dengan kodingnya, dan ane bakal bagiin nya secara gratis alias Cuma suma, jadi buat sobat yang lagi ngerjain project kampus ataupun belajar membuat program dengan visual basic 6.0, ane rasa sobat gak salah lagi pilih postingan ane sebagai bahan percontohannya.

Nah supaya gak ribet dan gak muter muter lagi langsung aja ni ane kasih programnya dan silahkan disimak secara seksama ya sobb. Selamat menyimak, dan silahkan copy sesuka anda.hehe

1.       Program latihan menggunakan label dan textbox

pertama kita klik label pada toolbar dan drag atau tarik ke form yang telah tersedia.

kedua klik text box yang terdapat pada kolom toolbar dan drag atau tarik kedalam form juga

atur letak label dan form sesuai keinginan kita.

Ulangi langkah diatas untuk memasukan label dan text boxt berikutnya,

perlu diketahui untuk mengosongkan text pada textbox klik textbox yang hendak kita kosongkan lalu pada properti window cari text  dan hilangkan tulisan text 1 yang ada disana.

2.       Membuat tulisan berwarna dan tulisan miring dan tebal

Keterangan:

1 buah form

2 buah label

1 buah textbox

1 buah frame

2 buah option button

2 buah checkbox

Dan 1 buah command button

Codingnya:

Private Sub Check1_Click()

Label2.FontItalic = Check1.Value

End Sub

Private Sub Check2_Click()

Label2.FontBold = Check2.Value

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Option1_Click()

Label2.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Text1_Change()

Label2.Caption = Text1.Text

End Sub

3.       membuat tulisan berjalan program vb 6

Keterangan:

1 buah form

1 buah label

1 buah timer

Codingnya:

Private Sub Timer1_Timer()

If Label1.Left > -4000 Then

Label1.Left = Label1.Left - 15

ElseIf Label1.Left <= -4000 Then

Label1.Left = 1000

End If

End Sub

Setelah memasukan kode tersebut jangn lupa untuk mengganti interval pada property timer nya dengan angka 10, karena jika tidak maka tulisan itu tidak akan berjalan.

4.       Program penghitung luas persegi panjang

Keterangan:

1 buah form

1 buah shape

6 buah label

3 buah textbox

1 buah command button

Codingnya:

Private Sub Command1_Click()

luas.Text = panjang.Text * lebar.Text

End Sub

Private Sub lebar_Change()

Label5.Caption = lebar.Text

End Sub

Private Sub luas_Change()

Label6.Caption = luas.Text

End Sub

Private Sub panjang_Change()

Label4.Caption = panjang.Text

End Sub

5.        

Tweet

Sign up here with your email address to receive updates from this blog in your inbox.