Trial-Coding
Trial-Coding : Baiklah trial-coding akan menjelaskan program kalkultor sederhana.Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.Pertama-tama,aktifkan program visual basic 6.0 melalui tombol start,setelah terbuka program visual basic maka ambil file dan ambil new project setelah itu pilih standar exe lalu tekan open.Setelah form terbuka maka buatlah kalkulator sederhana minimal seperti yang saya buat di bawah ini:
Sebelum mengatur object-object program kita kenalin dulu nama-nama yang berada di jendela properties yang untuk merubah nama-nama object seperti di bawah ini:
Setelah mengenali jendela properties, maka kita contohkan program kalkulator sederhana yang saya bikin.Langsung saja kita rubah object-object di jendela properties:
Nama-nama objek
|
Properties
|
Value
|
Form1
|
Caption
Starupposition
|
Klakulator Sederhana
2-CenterScreen
|
Text 1-3
|
text
|
-
|
Command 1-10 dan 16-19
|
Caption
Style
|
X,/,+,-,\,&,^,MOD,>,<,<>,>=,<=,=,exit,off,on,reset
Graphcal
|
Label1
|
Caption
|
kalkulator
|
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua.
setting properties seperti diatas, maka codingnya seperti berikut:setting properties seperti diatas, maka codingnya seperti berikut:
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
hasil = a + b
Text3 = hasil
End Sub
Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
hasil = a - b
Text3 = hasil
End Sub
Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
hasil = a * b
Text3 = hasil
End Sub
Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
If b = 0 Then
MsgBox "Tak Hingga", vbInformation, "Jawaban"
Text1 = ""
Text2 = ""
Text1.SetFocus
Else
hasil = a / b
End If
Text3 = hasil
End Sub
Private Sub Command10_Click()
a = Val(Text1)
b = Val(Text2)
hasil = (a <> b)
Text3.Text = Format(hasil, "True/False")
End Sub
Private Sub Command11_Click()
Unload Me
MsgBox " Are You Sure"
End Sub
Private Sub Command12_Click()
Menu.Show
Unload Me
End Sub
Private Sub Command13_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Command15.Enabled = False
Command16.Enabled = False
Command17.Enabled = False
Command18.Enabled = False
Command19.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Command14_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command15.Enabled = True
Command16.Enabled = True
Command17.Enabled = True
Command18.Enabled = True
Command19.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Command15_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub
Private Sub Command16_Click()
a = Val(Text1)
b = Val(Text2)
hasil = a ^ b
Text3 = hasil
End Sub
Private Sub Command17_Click()
a = Val(Text1)
b = Val(Text2)
hasil = a \ b
Text3 = hasil
End Sub
Private Sub Command18_Click()
a = Val(Text1)
b = Val(Text2)
hasil = a & b
Text3 = hasil
End Sub
Private Sub Command19_Click()
a = Val(Text1)
b = Val(Text2)
hasil = a Mod b
Text3 = hasil
End Sub
Private Sub Command20_Click()
a = Val(Text1)
b = Val(Text2)
a = IIf(Text1.Text = "True", -1, 0)
b = IIf(Text2.Text = "True", -1, 0)
hasil = (a Or b)
Text3.Text = Format(hasil, "True/False")
End Sub
Private Sub Command5_Click()
a = Val(Text1)
b = Val(Text2)
hasil = (a > b)
Text3.Text = Format(hasil, "True/False")
End Sub
Private Sub Command6_Click()
a = Val(Text1)
b = Val(Text2)
hasil = (a < b)
Text3.Text = Format(hasil, "True/False")
End Sub
Private Sub Command7_Click()
a = Val(Text1)
b = Val(Text2)
hasil = (a = b)
Text3.Text = Format(hasil, "True/False")
End Sub
Private Sub Command8_Click()
a = Val(Text1)
b = Val(Text2)
hasil = (a >= b)
Text3.Text = Format(hasil, "True/False")
End Sub
Private Sub Command9_Click()
a = Val(Text1)
b = Val(Text2)
hasil = (a <= b)
Text3.Text = Format(hasil, "True/False")
End Sub
Nah akhirnya selesai juga cara membuat program calculator sederhana silahkan di run programnya semoga berhasil ,trial-coding undur diri dulu semoga artikel ini bermaanfaat untuk sahabat trial-coding semua. - See more at: http://trial-coding.blogspot.com/2013/02/program-calculator-sederhana-di-vb-6.html#sthash.7E0mVI2H.dpuf
Nah akhirnya selesai juga cara membuat program calculator sederhana silahkan di run programnya semoga berhasil ,trial-coding undur diri dulu semoga artikel ini bermaanfaat untuk sahabat trial-coding semua.