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
0 comments:
Post a Comment