Modul Praktikum 2

PRAKTIKUM 2

Langkah Kerja

• Click Start > Program > Microsoft Visual Studio > Microsoft Visual Basic 6.0
• Click Standard Exe dan click Open
• Simpan latihan ini dengan nama

• Form                : Frm_latihan2.Frm
• Project             : P_Latihan2.VBP

• Desain Form Seperti tampilan ini

• Atur properties-nya seperti tabel berikut :

Komponen	Properties	Value
Form1	Caption	Pengambilan Keputusan
Label1	Caption	Masukkan Nilai Angka
Label2	Caption	Nilai Hurufnya
Frame1	Caption	Kontrol
Text1	Name Text	Txt_Angka “Kosong”
Text2	Name Text	Txt_Huruf “Kosong”
Command1	Name Caption	Cmd_If If ... Then
Command2	Name Caption	Cmd_Case Select ... Case
Command3	Name Caption	Cmd_bersih Bersihkan
Command4	Name Caption	Cmd_keluar Keluar

• Doubleclick pada cmd_case dan ketikkan kode program

Private Sub Cmd_case_Click()

Dim nilai_angka As Byte

Dim nilai_huruf As String

nilai_angka = Val(Txt_Angka.Text)

Select Case nilai_angka

Case Is >= 85

    nilai_huruf = "A"

Case Is >= 70

    nilai_huruf = "B"

Case Is >= 55

    nilai_huruf = "C"

Case Is >= 35

    nilai_huruf = "D"

Case Is < 35

    nilai_huruf = "E"

End Select

Txt_Huruf.Text = nilai_huruf

End Sub

Doubleclick pada cmd_bersih dan ketikkan kode program

Private Sub Cmd_bersih_Click()

Txt_Angka.Text = ""

Txt_Huruf.Text = ""

Txt_Angka.SetFocus

End Sub

Doubleclick pada cmd_If dan ketikkan kode program

Private Sub Cmd_If_Click()

Dim nilai_angka As Byte

Dim nilai_huruf As String

nilai_angka = Val(Txt_Angka.Text)

If nilai_angka >= 85 Then

   nilai_huruf = "A"

ElseIf nilai_angka >= 70 Then

   nilai_huruf = "B"

ElseIf nilai_angka >= 55 Then

   nilai_huruf = "C"

ElseIf nilai_angka >= 35 Then

   nilai_huruf = "D"

ElseIf nilai_angka < 35 Then

   nilai_huruf = "E"

End If

Txt_Huruf.Text = nilai_huruf

End Sub

Doubleclick pada cmd_keluar dan ketikkan kode program

Private Sub Cmd_keluar_Click()

Unload Me

End Sub