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
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
Private Sub
Cmd_keluar_Click()
Unload Me
End Sub
0 comments:
Post a Comment