[Tutor] membuat fungsi operator

[genta]

asalmualikum Wr.Wb ....salam

newbie yg ini ijin membuat thread lgi ne lngsung aja dah jngan bancak bekicot

pertama kita atur dulu properties nya

ini memakai

Code:

6 label
4 frame
1 combobox
3 textbox
16 commandbutton

Quote:text1
name = txt nil 1
================================================
text 2
name = txt nil 2
================================================
text3
name = txthasil

Code:

commandbutton1
caption = +
name   = cmdtambah
==============================================

commandbutton2
caption = -
name   = cmdkurang
==============================================

commandbutton3
caption = X
name   = cmdkali
==============================================

commandbutton4
caption = /
name   = cmdbagi
==============================================

commandbutton5
caption = mod
name   = cmdmod
==============================================

commandbutton6
caption =  =
name   = cmd1
==============================================

commandbutton7
caption = <
name   = cmd2
==============================================

commandbutton8
caption = >
name   = cmd3
==============================================

commandbutton9
caption = <=
name   = cmd4
==============================================

commandbutton10
caption = =>
name   = cmd5
==============================================

commandbutton11
caption = <>
name   = cmd6
==============================================

commandbutton12
caption = not
name   = cmdnot
==============================================

commmandbutton13
caption = and
name   = cmdand
==============================================

commandbutton14
caption = or
name   = cmdor
==============================================

commandbutton15
caption = ulangi
name = ulang
==============================================

commandbutton16
caption = keluar
name   = cmdkeluar
==============================================

[code]
combobox1
list = true
        false

kurang lebihy akan jadi seperti ini

Spoiler:

dan sekarng masukan kodingy

Code:

Private Sub cmd1_Click()
txthasil = Val(txtnil1.Text) = Val(txtnil2.Text)
End Sub

Private Sub cmd2_Click()
txthasil = Val(txtnil1.Text) < Val(txtnil2.Text)
End Sub

Private Sub cmd3_Click()
txthasil = Val(txtnil1.Text) > Val(txtnil2.Text)
End Sub

Private Sub cmd4_Click()
txthasil = Val(txtnil1.Text) >= Val(txtnil2.Text)
End Sub

Private Sub cmd5_Click()
txthasil = Val(txtnil1.Text) >= Val(txtnil2.Text)
End Sub

Private Sub cmd6_Click()
txthasil = Val(txtnil1.Text) <> Val(txtnil2.Text)
End Sub

Private Sub cmdand_Click()
If txtnil1 = "true" And txtnil2 = "true" Then
    txthasil = "true"
ElseIf txtnil1 = "true" And txtnil2 = "false" Then
    txthasil = "false"
ElseIf txtnil1 = "true" And txtnil2 = "false" Then
    txthasil = "false"
ElseIf txtnil1 = "false" And txtnil2 = "false" Then
    txthasil = "false"
ElseIf txtnil1 = "false" And txtnil2 = "true" Then
    txthasil = "false"
Else
    txthasil = "false"
End If
End Sub

Private Sub cmdbagi_Click()
txthasil = Val(txtnil1.Text) / Val(txtnil2.Text)
End Sub
Private Sub cmdkali_Click()
txthasil = Val(txtnil1.Text) * Val(txtnil2.Text)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdkurang_Click()
txthasil = Val(txtnil1.Text) - Val(txtnil2.Text)
End Sub

Private Sub cmdkeluar_Click()
txtnil1.Text = ""
txtnil2.Text = ""
txthasil = ""
txtnot = ""
txtnil1.SetFocus
End Sub

Private Sub cmdmod_Click()
txthasil = Val(txtnil1.Text) Mod Val(txtnil2.Text)
End Sub

Private Sub cmdnot_Click()
If cmdnot = True Then
txtnot = Not True
Else
txtnol = Not False
End If
End Sub

Private Sub cmdor_Click()
If txtnil1 = "true" Or txtnil2 = "true" Then
    txthasil = "true"
ElseIf txtnil1 = "true" Or txtnil2 = "false" Then
    txthasil = "true"
ElseIf txtnil1 = "false" Or txtnil2 = "true" Then
    txthasil = "true"
Else
    txthasil = "false"
End If
End Sub

Private Sub cmdtambah_Click()
txthasil = Val(txtnil1.Text) + Val(txtnil2.Text)
End Sub

Private Sub txtnil1_Change()
txtnil2.SetFocus
End Sub

cukup sekian untuk kali ini apabaila repost atau nggk berbobot sma sekali tinggal di apus aja

wasalmualikum wr.wb

[74jTeZ]

dah gw duga, genta bukan newbie..
ane izin comod..

[genta]

(06-25-2012 04:33 PM)74jTeZ Wrote:  dah gw duga, genta bukan newbie..
ane izin comod..

ini aja dapet dr modul om buka ciptaan ane tp ane edit2 dikit lah ............. om

[hitheir]

ViBi Ya

[genta]

(06-25-2012 04:44 PM)hitheir Wrote:  ViBi Ya

ia om

[Heraclez]

om Genta

[genta]

(06-25-2012 08:27 PM)Heraclez Wrote:  om Genta

knapa om ...........

[AnonymousOpsID]

Visual Basic. Good Sharing

Tingkatkan masta..

[!and]

mantep om genta
*biarpun ane gak ngerti maksut programnya

[genta]

(06-26-2012 12:37 AM)AnonymousOpsID Wrote:  Visual Basic. Good Sharing

Tingkatkan masta..

ane ini newbie om .....om yg om

---

(06-26-2012 03:36 AM)!and Wrote:  mantep om genta
*biarpun ane gak ngerti maksut programnya

kurang lebih hampir sama dengan penggunaan kalkulator om