Salah satu contoh program pada Visual Basic

berikut ini alah satu contoh pembuatan program pada Visual Basic.

Langkah-langkahnya adalah :

1. Buka program micrososoft Visual Basic 6.0

2. Buat Label Nama, NPM, dan Kelas serta TextBox nya untuk masing-masing label.

3. Buat Frame dengan Judul "Warna Text"

4. Isi Frame tersebut dengan Option Button berisi : RED, BLUE, GREEN, YELLOW, WHITE

5. Buat Command Button untuk : OK, CLEAR, EXIT

Dan buat kode pada Code Properties :

Private Sub Command1_Click() (memasukan kode pada option button 1)

Label4.Caption = Text1.Text (menjalankan keterangan hasil di Label 4 dari Text1)

Label5.Caption = Text2.Text (menjalankan keterangan hasil di Label 5 dari Text2)

Label6.Caption = Text3.Text (menjalankan keterangan hasil di Label 6 dari Text3)

End Sub (mengakhiri program command button 1)

Private Sub Command2_Click() (memasukan kode pada option button 2)

Text1.Text = " " (text1 berisi kosong)

Label4.Caption = " " (label4 berisi kosong)

Text2.Text = " " (text2 berisi kosong)

Label5.Caption = " " (label5 berisi kosong)

Text3.Text = " " (text3 berisi kosong)

Label6.Caption = " " (label6 berisi kosong)

End Sub (mengakhiri program command button 2)

Private Sub Command3_Click() (memasukan kode pada option button 3)

End (berisi perintah “end”)

End Sub (mengakhiri program command button 3)

End SubPrivate Sub Option1_Click() (memasukan kode pada option button 1)

Label4.ForeColor = vbRed (menjalankan hasil yang didapat untuk label 4 berwarna merah)

Label5.ForeColor = vbRed (menjalankan hasil yang didapat untuk label 5 berwarna merah)

Label6.ForeColor = vbRed (menjalankan hasil yang didapat untuk label 6 berwarna merah)

End Sub (mengakhiri program option button)

Private Sub Option2_Click() (memasukan kode pada option button 2)

Label4.ForeColor = vbBlue (menjalankan hasil yang didapat untuk label 4 berwarna biru)

Label5.ForeColor = vbBlue (menjalankan hasil yang didapat untuk label 5 berwarna biru)

Label6.ForeColor = vbBlue (menjalankan hasil yang didapat untuk label 6 berwarna biru)

End Sub (mengakhiri program option button)

Private Sub Option3_Click() (memasukan kode pada option button 3)

Label4.ForeColor = vbGreen (menjalankan hasil yang didapat untuk label 4 berwarna hijau)

Label5.ForeColor = vbGreen (menjalankan hasil yang didapat untuk label 5 berwarna hijau)

Label6.ForeColor = vbGreen (menjalankan hasil yang didapat untuk label 6 berwarna hijau)

End Sub (mengakhiri program option button)

Private Sub Option4_Click() (memasukan kode pada option button 4)

Label4.ForeColor = vbYellow (menjalankan hasil yang didapat untuk label 4 berwarna kuning)

Label5.ForeColor = vbYellow (menjalankan hasil yang didapat untuk label 5 berwarna kuning)

Label6.ForeColor = vbYellow (menjalankan hasil yang didapat untuk label 6 berwarna kuning)

End Sub (mengakhiri program pada option button)

Private Sub Option5_Click() (memasukan kode pada option button 5)

Label4.ForeColor = vbWhite (menjalankan hasil yang didapat untuk label 4 berwarna putih)

Label5.ForeColor = vbWhite (menjalankan hasil yang didapat untuk label 5 berwarna putih)

Label6.ForeColor = vbWhite (menjalankan hasil yang didapat untuk label 6 berwarna putih)

End Sub

Setelah selesai program dapat dijalankan dengan menekan tombol F5 pada keyboard atau pilihan Run pada Menu Bar.