STRUKTUR PEMROGRAMAN VB

STRUKTUR PEMROGRAMAN 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.



Pengenalan Form

Buat tampilan Form dibawah ini:


Logika Program :

1. Pada saat form di jalankan background ungu kemudian nim dan nama di
input dan tampil warna tulisan merah dan biru dan background berwarna
kuning pada textbox tersebut (perubahan dilakukan melalui properties)
Tombol lihat berfungsi untuk melihat hasil dari tampilan yang diinput

2. Tombol lihat berfungsi untuk melihat hasil dari tampilan yang diinput

Penyelesaiannya

Private Sub cmdkeluar_Click()
p = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub
Private Sub cmdlihat_Click()
MsgBox "Nim anda adalah " + txtnim.Text
MsgBox "Nama anda adalah " + txtnama.Text
End Sub

Pengenalan Warna Pada Teks

Penjelasan Formnya:

• Pada saat form di jalankan tampilan background berwarna hitam kemudian

• untuk textbox dengan pengaturan warna &HFFFF80

• Menu Pilihan digunakan untuk memodifikasi bentuk tulisan di dalam textbox (gunakan coding program untuk merubah)

Button Bersih digunakan untuk membersihkan tampilan

• Button keluar digunakan untuk keluar dari proram tanpa menggunakan

pesan

Private Sub Form_Activate()
Form2.BackColor = vbBlack
txthasil.BackColor = &HFFFF80
End Sub
Private Sub Optyellow_Click()
txthasil.ForeColor = vbYel ow
End Sub
Private Sub Optblue_Click()
txthasil.ForeColor = vbBlue
End Sub
Private Sub Optred_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