Belajar ViBi

Membuat program untuk penilaian

Langkah – langkah :

1.  Jalankan IDE Visual Basic seperti yg telah dipelajari.

2.  Pilihlah tipe Project standar EXE, jika dialog untuk memilih project tidak muncul maka 

     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

      Private Sub Command1_Click()

      If ednilai.Text <= 49 Then

            edket.Text = "E"

      ElseIf ednilai.Text <= 59 Then

           edket.Text = "D"

      ElseIf ednilai.Text <= 74 Then

           edket.Text = "C"

       ElseIf ednilai.Text <= 84 Then

           edket.Text = "B"

       ElseIf ednilai.Text <= 100 Then

           edket.Text = "A"

       Else

           edket.Text = "Anda salah memasukkan niali"

      End If

End Sub

Atau:

Private Sub Command1_Click()

Select Case ednilai.Text

       Case Is <= 100

              edket.Text = "A"

      Case 75 To 84

             edket.Text = "B"

      Case 60 To 74

              edket.Text = "C"

     Case 50 To 59

              edket.Text = "D"

     Case Else

            edket.Text = "E"

    End Select

End Sub