Tugas Ke-1 (Operator)

Gambar : Program Fungsi Operator 

 Listingnya:

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 = "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 CmdLagi_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 cmbnot = True Then
txtnot = Not True
Else
txtnot = 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

First Times

Selamat datang dan terima kasih telah melihat blog ku. Blog ini berisi cerita keseharianku sebagai mahasiswi dan apapun tentang diriku...

Dan aku akan sangat berterima kasih kamu semua bersedia memberikan komentar, saran ataupun kritikan...

Ok! Silahkan menikmati blog ku...

Salam...