Belajar Visual Basic : Struktur Program Visual Basic

Pada  pertemuan  pertama  kita  sudah  belajar mengenai  pengenalan Visual Basic 6.0. Sekarang kita coba untuk membuat Struktur Program pada Visual Basic 6.0.

Sebelum kalian membuat programnya, saya sarankan kalian Download programnya dulu disini untuk program Biodata dan disini untuk program Warna. Jadi kalo ada yang salah kalian bisa koreksi dari program yang sudah saya buat. Tapi ingat kalian harus bikin dari ulang, jangan pake program yang sudah saya buat, agar kalian bisa mengerti.

2.1. Pengenalan Form

 

  

  Logika program:

1.  Pada  saat klk tombol input, kursor berada di Nim dan dapat menginput data baru
2.  Tombol keluar digunakan keluar dari program

Listing Program :

Private Sub Cexit_Click()

Unload Me

End Sub

Private Sub Cinput_Click()

tnim.SetFocus

tnim.Text = ""

tnama.Text = ""

talamat.Text = ""

tkelas.Text = ""

tno.Text = ""

opria.Value = False

owanita.Value = False

End Sub

Note : 

1.Bila ingin menghilangkan tulisan yang tampil pada TEXT BOX, maka bisa menggunakan sintaks berikut ini : NameTextBox.text = “”
2. Bila ingin menghilangkan tanda hitam pada OPTION BUTTON, maka bisa menggunakan sintaks berikut ini : NameOption.value=false

2.2 Pengenalan Warna Pada Teks

Ketentuan Soal:
1.  Pada saat form di jalankan tampilan background berwarna hitam kemudian untuk
textbox dengan pengaturan warna &HFFFF80
2.  Menu  Pilihan  digunakan  untuk  memodifikasi  bentuk  tulisan  di  dalam textbox
(gunakan coding program untuk merubah)
3.  Button Bersih digunakan untuk membersihkan tampilan
4.  Button  keluar  digunakan  untuk  keluar  dari  proram  tanpa  menggunakan pesan

Listing Program :

Private Sub Form_Activate()
Form1.BackColor = vbBlack
txthasil.BackColor = &HFFFF80
End Sub

Private Sub OptKuning_Click()
txthasil.ForeColor = vbYellow
End Sub

Private Sub OptBiru_Click()
txthasil.ForeColor = vbBlue
End Sub

Private Sub OptMerah_Click()
txthasil.ForeColor = vbRed
End Sub
Private Sub Optbold_Click()
txthasil.FontBold = True
txthasil.FontUnderline = False
txthasil.FontItalic = False
End Sub

Private Sub Optitalic_Click()
txthasil.FontItalic = True
txthasil.FontBold = False
txthasil.FontUnderline = False
End Sub

Private Sub Optunderline_Click()
txthasil.FontUnderline = True
txthasil.FontBold = False
txthasil.FontItalic = False
End Sub

Private Sub cmdbersih_Click()
txthasil = “”
txthasil.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Semoga program kalian bisa running dengan bagus yah ^_^