Blog untuk berbagi ilmu komputer

Thursday, May 22, 2014

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












Share:

0 comments:

Post a Comment

Blogger templates