Belajar ViBi

 Kawan-kawan, contoh berikut merupakan contoh program sederhana dari visual basic, contoh penggunaan fungsi if....then dan case....

Membuat program menentukan kelulusan.

 Langkah – langkah :

1.    Jalankan IDE Visual Basic sama seperti yg telah dipelajari.

2.    Pilihlah tipe Project standar EXE, jika dialog untuk memilih project tidak muncul Pilih New project dari menu File, maka Visual Basic akan menampilkan sebuah form kosong dengan caption Form1.

3.    Simpanlah project yang baru dibuat untuk keamanan dari kehilangan data.Untuk menyimpan pilih save As Project pada Menu File. Pada saat project tersebut disimpan ada 2 macam file yaitu

File Project (*.vbp) beri nama Contoh9_1.vbp

File form1  (*.Frm) beri nama Contoh9_1.frm

4.    Selanjutnya letakkan kontrol-kontrol seperti pada gambar dibawah ini:

 

5.Gantilah properti dari masing-masing kontrol sebagai berikut:

Control	Properti	Setting Value
Form	Name	Penilaian
	Caption	Form 1
Label	Name	Label 1
	Caption	penilaian
Label	Name	Label 2
	Caption	nilai
Label	Name	Label 3
	Caption	keterangan
Textbox	Name	ednilai
	text	<kosong>
Textbox	Name	edket
	Text	<kosong>
Command Button	Name	Command1
	Caption	proses

6.ketikkan program berikut ini:

Private Sub Command1_Click()

If ednilai.Text <= 50 Then

    edket.Text = "Tidak Lulus"

Else

    edket.Text = "Lulus"

End If

End Sub

Atau

Private Sub Command1_Click()

Select Case ednilai.Text

Case Is <= 50

    edket.Text = "Tidak Lulus"

Case Else

    edket.Text = "Lulus"

End Select

End Sub