Welcome back to my blog arybyan
Beranda
VB6

Visual Basic 6 - Fungsi Operator

1 min read

Visual Basic 6 - Fungsi Operator 






Listing Code :

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

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

Private Sub cmdkurang_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 cmdbagi_Click()
txthasil = Val(txtnil1.Text) / Val(txtnil2.Text)
End Sub

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

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 cmdkeluar_Click()
Dim a As String
a = MsgBox("Yakin arep minggat ??? ", vbQuestion + vbOKCancel, "Piye Son ?")
If a = vbOK Then
End
End If
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 = "true" Then
txthasil = "false"
Else
txthasil = "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 cmdNot_Click()
If cmbnot = True Then
txtnot = Not True
Else
txtnot = Not False
End If
End Sub

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


Anda mungkin menyukai postingan ini

  • Kalkulator Sederhana Visual Basic 6
    Visual Basic 6 - Fungsi Operator  Listing Code : Private Sub Command1_Click() Text4.Text = Val(Text2.Text) + Val(Text3.Text) End Sub Private Sub Command2_Click() Te…
  • Kalkulator Model klasik VB6
    Kalkulator Model klasik VB6   Desain awal Buatlah ketentuan seperti ini :    Text1.Text  Name = Text1 Command1 Name    = Cmd_0 Cap…
  • GHOZALI COURSE
    Membuat form input pendaftaran " GHOZALI COURSE " Program ghozali course vb6 Logika Program : 1. Prosedur aktif, non aktif, bersih 2. Saat dijalankan tampil tanggal secar…
  • Visual Basic 6 - Fungsi Operator
    Visual Basic 6 - Fungsi Operator  Listing Code : Private Sub cmddiv_Click()txthasil = Val(txtnil1.Text) & Val(txtnil2.Text)End SubPrivate Sub cmdtambah_Click…
  • CAFE OF YUNFA
    Membuat form Kasir CAFE OF YUNFA Dengan VB6 Listing Code nya : Private Sub Form_Load() cmbmenu.AddItem ("Sarapan Pagi") cmbmenu.AddItem ("Makan Siang") cmbpaket.AddItem ("Pake…

Posting Komentar