Blog untuk berbagi ilmu komputer

Thursday, May 22, 2014

Modul Praktikum 1



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_latihan1.Frm 
    • Project             : P_Latihan1.VBP 


  • Desain Form Seperti tampilan ini



  


  • Atur properties-nya seperti tabel berikut


Komponen
Properties
Value
Form1
Caption
Operasi Aritmatika
Label1
Caption
Nilai A
Label2
Caption
Nilai B
Label3
Caption
Hasil
Frame1
Caption
Kontrol
Text1
Name
Text
Txt_NilaiA
“Kosong”
Text2
Name
Text
Txt_NilaiB
“Kosong”
Text3
Name
Text
Txt_Hasil
“Kosong”
Command1
Name
Caption
Cmd_tambah
+
Command2
Name
Caption
Cmd_kurang
-
Command3
Name
Caption
Cmd_kali
*
Command4
Name
Caption
Cmd_bagipch
/
Command5
Name
Caption
Cmd_bagiblt
\
Command6
Name
Caption
Cmd_pangkat
^
Command7
Name
Caption
Cmd_mod
mod
Command8
Name
Caption
Cmd_keluar
Close
  • Doubleclick pada cmd_bagiblt dan ketikkan program berikut :

Private Sub Cmd_bagiblt_Click()
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA \ nilaiB
Txt_Hasil = hasil
End Sub

Doubleclick pada cmd_bagipch dan ketikkan program berikut :

Private Sub Cmd_bagipch_Click()
Dim NilaiA As Double
Dim nilaiB As Double
Dim hasil As Double
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA / nilaiB
Txt_Hasil = hasil
End Sub

Doubleclick pada cmd_keluar dan ketikkan program berikut :

Private Sub Cmd_Keluar_Click()
Unload Me
End Sub

Doubleclick pada cmd_kurang dan ketikkan program berikut :

Private Sub Cmd_Kurang_Click()
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA - nilaiB
Txt_Hasil = hasil
End Sub

Doubleclick pada cmd_mod dan ketikkan program berikut :

Private Sub Cmd_Mod_Click()
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA Mod nilaiB
Txt_Hasil = hasil
End Sub

Doubleclick pada cmd_pangkat dan ketikkan program berikut :

Private Sub Cmd_pangkat_Click()
Dim NilaiA As Double
Dim nilaiB As Double
Dim hasil As Double
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA ^ nilaiB
Txt_Hasil = hasil
End Sub

Doubleclick pada cmd_tambah dan ketikkan program berikut :

Private Sub Cmd_tambah_Click()
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA + nilaiB
Txt_Hasil = hasil
End Sub

Doubleclick pada cmd_kali dan ketikkan program berikut :

Private Sub Cmd_Kali_Click()
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA * nilaiB
Txt_Hasil = hasil
End Sub
Share:

0 comments:

Post a Comment

Blogger templates