Fungsi Operator Menggunakan Microsoft Visual Basic 6.0
Asslamu’alaikum wr. wb.
Bagaimana kabarnya? Semoga sehat selalu, dan
yang lagu kurang sehat semoga cepat sehat agar bisa melakukan aktifitasnya
dengan baik aamiin. Pada kesempatan kali ini kami akan sharing tentang cara
membuat Fungsi Operator Menggunakan Microsoft Visual Basic 6.0. nah
mengapa kok membuat fungsi operator? Jadi, fungsi ini adalah salah satu dasar
untuk nanti anda membuat program yang lebih besar misalnya anda mau membuat
program kasir pasti anda akan menemukan pertambahan, pengurangan, perkalian,
dll. Itulah sebabnya kami mau sharing Fungsi Operator Menggunakan Microsoft Visual
Basic 6.0 agar nanti anda nggak bingung. Gimana udah ngerti?, oke
langsung terjun aja. Disini kami tidak akan menjelaskan secara spesifik tentang
komponen dalam VB6.0 jadi diharapkan anda sudah mengerti.
Yang pertama buka vb anda, buatlah satu form
dan buat desain seperti berikut:
Berikut keterangannya:
1. Komponen
Label
Objek
|
Caption
|
Label1
|
Fungsi Operator
|
Label2
|
Nilai 1
|
Label3
|
Nilai 2
|
Label4
|
Hasil
|
Label5
|
Nilai
|
2.
Komponen TextBox
Objek
|
Name
|
Text
|
Text1
|
Tnilai1
|
Kosongkan
|
Text2
|
Tnilai2
|
Kosongkan
|
Text3
|
Thasil
|
Kosongkan
|
3.
Komponen Frame
Objek
|
Caption
|
Frame1
|
Data
|
Frame2
|
Operator Logika
|
Frame3
|
Operator Aritmatika
|
Frame4
|
Operator Relasi
|
4.
Komponen ComboBox
Objek
|
Name
|
List
|
Combo1
|
Combo1
|
True
False
|
5.
Komponen CommandButton
Objek
|
Name
|
Caption
|
Command1
|
cmdtambah
|
+
|
Command2
|
cmdkurang
|
-
|
Command3
|
cmdkali
|
x
|
Command4
|
cmdbagi
|
/
|
Command5
|
cmdmod
|
Mod
|
Command6
|
cmdciv
|
Div
|
Command7
|
cmd1
|
=
|
Command8
|
cmd2
|
<
|
Command9
|
cmd3
|
>
|
Command10
|
cmd4
|
<=
|
Command11
|
cmd5
|
=>
|
Command12
|
cmd6
|
<>
|
Command13
|
cmdand
|
And
|
Command14
|
cmdor
|
Or
|
Command15
|
cmdlagi
|
Lagi
|
Command16
|
cmdkeluar
|
Keluar
|
Command17
|
cmdnot
|
Not
|
Capek ya? Wkwkwk begitulah kalau meu jadi
programmer itu butuh ketelitian. Kalau sudah membuat desainnya berdasarkan
diatas anda bisa Copy listing dibawah ini, kalau bisa sih jangan Copas biar
melatih jari untuk mengetik.
Private Sub
cmd1_Click()
Thasil =
Val(Tnilai1.Text) = Val(Tnilai2.Text)
End Sub
Private Sub
cmd2_Click()
Thasil =
Val(Tnilai1.Text) < Val(Tnilai2.Text)
End Sub
Private Sub
cmd3_Click()
Thasil =
Val(Tnilai1.Text) > Val(Tnilai2.Text)
End Sub
Private Sub
cmd4_Click()
Thasil =
Val(Tnilai1.Text) <= Val(Tnilai2.Text)
End Sub
Private Sub
cmd5_Click()
Thasil =
Val(Tnilai1.Text) >= Val(Tnilai2.Text)
End Sub
Private Sub
cmd6_Click()
Thasil =
Val(Tnilai1.Text) <> Val(Tnilai2.Text)
End Sub
Private Sub
cmdand_Click()
If Tnilai1 =
"true" And Tnilai2 = "true" Then
Thasil =
"true"
ElseIf Tnilai1
= "true" And Tnilai2 = "false" Then
Thasil =
"false"
ElseIf Tnilai1
= "true" And Tnilai2 = "false" Then
Thasil =
"false"
ElseIf Tnilai1
= "false" And Tnilai2 = "true" Then
Thasil =
"false"
Else
Thasil =
"false"
End If
End Sub
Private Sub
cmdbagi_Click()
Thasil =
Val(Tnilai1.Text) / Val(Tnilai2.Text)
End Sub
Private Sub
cmdkali_Click()
Thasil =
Val(Tnilai1.Text) * Val(Tnilai2.Text)
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub
cmdkurang_Click()
Thasil =
Val(Tnilai1.Text) - Val(Tnilai2.Text)
End Sub
Private Sub
cmdlagi_Click()
Tnilai1.SetFocus
Tnilai1.Text =
""
Tnilai2.Text =
""
Thasil.Text =
""
txtnot =
""
End Sub
Private Sub
cmdmod_Click()
Thasil =
Val(Tnilai1.Text) Mod Val(Tnilai2.Text)
End Sub
Private Sub
Cmdnnot_Click()
If cmbnot =
True Then
txtnot = Not
True
Else
txtnot = False
End If
End Sub
Private Sub
cmdor_Click()
If Tnilai1 =
"true" Or Tnilai2 = "true" Then
Thasil = True
ElseIf Tnilai1
= "true" Or Tnilai2 = "false" Then
Thasil = True
ElseIf Tnilai1
= "false" Or Tnilai2 = "true" Then
Thasil = True
Else
Thasil =
"false"
End If
End Sub
Private Sub
cmdtambah_Click()
Thasil =
Val(Tnilai1.Text) + Val(Tnilai2.Text)
End Sub
Selesai sudah, silahkan coba run programnya atau anda bisa menekan
tombol F5. Atau masih bingung? Kalau masih bingung silahkan anda boleh download
project nya dibawah ini.
Terimakasih atas perhatian dan kunjungannya mohon maaf apabila ada
kekurangan.
Wassalamu’alaikum wr. Wb.
0 komentar: