Program Calculator Pada Visual Basic - Hallo sahabat Dev-Create, Pada Artikel yang anda baca kali ini dengan judul Program Calculator Pada Visual Basic, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan
Artikel program,
Artikel visual basic, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.
Judul : Program Calculator Pada Visual Basic
link : Program Calculator Pada Visual Basic
Designlah form program calculator pada visual basic terlebih dahulu
Untuk penamaan komponen lihat tabel di bawah ini :
Textbox1 --> Angka
command button 1 --> btn1
command button 2 --> btn2
command button 3 --> btn3
command button 4 --> btn4
command button 5 --> btn5
command button 6 --> btn6
command button 7 --> btn7
command button 8 --> btn8
command button 9 --> btn9
command button 0 --> btn0
command button + --> btnTambah
command button = --> btnHasil
command button - --> btnKurang
command button +/- --> btnMinus
command button X --> btnKali
command button / --> btnBagi
command button C --> btnC
command button Backspace --> btnback
Adapun listing program calculator pada visual basic dapat dilihat berikut ini :
Dim OPnya As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim bil As String
Function Proseskan(op As String)
Dim xhasil As Double
Select Case op
Case "+": xhasil = a + b
Case "-": xhasil = a - b
Case "/": xhasil = a / b
Case "*": xhasil = a * b
End Select
Proseskan = xhasil
End Function
Private Sub btn1_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "1"
Else
bil = "1"
End If
Angka = bil
End Sub
Private Sub btn2_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "2"
Else
bil = "2"
End If
Angka = bil
End Sub
Private Sub btn3_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "3"
Else
bil = "3"
End If
Angka = bil
End Sub
Private Sub btn4_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "4"
Else
bil = "4"
End If
Angka = bil
End Sub
Private Sub btn5_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "5"
Else
bil = "5"
End If
Angka = bil
End Sub
Private Sub btn6_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "6"
Else
bil = "6"
End If
Angka = bil
End Sub
Private Sub btn7_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "7"
Else
bil = "7"
End If
Angka = bil
End Sub
Private Sub btn8_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "8"
Else
bil = "8"
End If
Angka = bil
End Sub
Private Sub btn9_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "9"
Else
bil = "9"
End If
Angka = bil
End Sub
Private Sub btn0_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "0"
Else
bil = "0"
End If
Angka = bil
End Sub
Private Sub btnback_Click()
Dim jml As Byte
jml = Len(bil)
If jml > 0 Then
bil = Left(bil, jml - 1)
Angka = bil
End If
End Sub
Private Sub btnbagi_Click()
If bil <> "" Then
OPnya = "/"
If a = 0 Then
a = CCur(bil)
Else
b = CCur(bil)
a = Proseskan("/")
End If
bil = ""
End If
End Sub
Private Sub btnC_Click()
a = 0
b = 0
c = 0
bil = ""
OPnya = ""
Angka = "0"
End Sub
Private Sub btnhasil_Click()
b = CCur(bil)
Angka = Proseskan(OPnya)
bil = "0"
a = 0
b = 0
End Sub
Private Sub btnkali_Click()
If bil <> "" Then
OPnya = "*"
If a = 0 Then
a = CCur(bil)
Else
b = CCur(bil)
a = Proseskan("*")
End If
bil = ""
End If
End Sub
Private Sub btnkoma_Click()
If bil <> "" Then
bil = bil + ","
Else
bil = "0"
End If
Angka = bil
End Sub
Private Sub btnkurang_Click()
If bil <> "" Then
OPnya = "-"
If a = 0 Then
a = CCur(bil)
Else
b = CCur(bil)
a = Proseskan("-")
End If
bil = ""
End If
End Sub
Private Sub btnminus_Click()
bil = CCur(bil) * -1
Angka = bil
End Sub
Private Sub btntambah_Click() If bil <> "" Then
OPnya = "+"
If a = 0 Then
a = CCur(bil)
Else
b = CCur(bil)
a = Proseskan("+")
End If
bil = ""
End If
End Sub
Private Sub Form_Load()
operatornya = ""
bil = ""
a = 0
b = 0
c = 0
Angka = "0"
End Sub
ok ! bagaimana mudah bukan?
Sumber
Anda sekarang membaca artikel Program Calculator Pada Visual Basic dengan alamat link https://dev-create.blogspot.com/2016/05/program-calculator-pada-visual-basic.html
Judul : Program Calculator Pada Visual Basic
link : Program Calculator Pada Visual Basic
Program Calculator Pada Visual Basic
Begitu mudahnya membuat program Calculator pada Visual Basic. Mau tahu programnya, lihat saja perintah di bawah ini :Designlah form program calculator pada visual basic terlebih dahulu
Untuk penamaan komponen lihat tabel di bawah ini :
Textbox1 --> Angka
command button 1 --> btn1
command button 2 --> btn2
command button 3 --> btn3
command button 4 --> btn4
command button 5 --> btn5
command button 6 --> btn6
command button 7 --> btn7
command button 8 --> btn8
command button 9 --> btn9
command button 0 --> btn0
command button + --> btnTambah
command button = --> btnHasil
command button - --> btnKurang
command button +/- --> btnMinus
command button X --> btnKali
command button / --> btnBagi
command button C --> btnC
command button Backspace --> btnback
Adapun listing program calculator pada visual basic dapat dilihat berikut ini :
Dim OPnya As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim bil As String
Function Proseskan(op As String)
Dim xhasil As Double
Select Case op
Case "+": xhasil = a + b
Case "-": xhasil = a - b
Case "/": xhasil = a / b
Case "*": xhasil = a * b
End Select
Proseskan = xhasil
End Function
Private Sub btn1_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "1"
Else
bil = "1"
End If
Angka = bil
End Sub
Private Sub btn2_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "2"
Else
bil = "2"
End If
Angka = bil
End Sub
Private Sub btn3_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "3"
Else
bil = "3"
End If
Angka = bil
End Sub
Private Sub btn4_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "4"
Else
bil = "4"
End If
Angka = bil
End Sub
Private Sub btn5_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "5"
Else
bil = "5"
End If
Angka = bil
End Sub
Private Sub btn6_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "6"
Else
bil = "6"
End If
Angka = bil
End Sub
Private Sub btn7_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "7"
Else
bil = "7"
End If
Angka = bil
End Sub
Private Sub btn8_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "8"
Else
bil = "8"
End If
Angka = bil
End Sub
Private Sub btn9_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "9"
Else
bil = "9"
End If
Angka = bil
End Sub
Private Sub btn0_Click()
If bil <> "0" Or OPnya = "" Then
bil = bil + "0"
Else
bil = "0"
End If
Angka = bil
End Sub
Private Sub btnback_Click()
Dim jml As Byte
jml = Len(bil)
If jml > 0 Then
bil = Left(bil, jml - 1)
Angka = bil
End If
End Sub
Private Sub btnbagi_Click()
If bil <> "" Then
OPnya = "/"
If a = 0 Then
a = CCur(bil)
Else
b = CCur(bil)
a = Proseskan("/")
End If
bil = ""
End If
End Sub
Private Sub btnC_Click()
a = 0
b = 0
c = 0
bil = ""
OPnya = ""
Angka = "0"
End Sub
Private Sub btnhasil_Click()
b = CCur(bil)
Angka = Proseskan(OPnya)
bil = "0"
a = 0
b = 0
End Sub
Private Sub btnkali_Click()
If bil <> "" Then
OPnya = "*"
If a = 0 Then
a = CCur(bil)
Else
b = CCur(bil)
a = Proseskan("*")
End If
bil = ""
End If
End Sub
Private Sub btnkoma_Click()
If bil <> "" Then
bil = bil + ","
Else
bil = "0"
End If
Angka = bil
End Sub
Private Sub btnkurang_Click()
If bil <> "" Then
OPnya = "-"
If a = 0 Then
a = CCur(bil)
Else
b = CCur(bil)
a = Proseskan("-")
End If
bil = ""
End If
End Sub
Private Sub btnminus_Click()
bil = CCur(bil) * -1
Angka = bil
End Sub
Private Sub btntambah_Click() If bil <> "" Then
OPnya = "+"
If a = 0 Then
a = CCur(bil)
Else
b = CCur(bil)
a = Proseskan("+")
End If
bil = ""
End If
End Sub
Private Sub Form_Load()
operatornya = ""
bil = ""
a = 0
b = 0
c = 0
Angka = "0"
End Sub
ok ! bagaimana mudah bukan?
Sumber
Demikianlah Artikel Program Calculator Pada Visual Basic
Sekianlah artikel Program Calculator Pada Visual Basic kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.
Anda sekarang membaca artikel Program Calculator Pada Visual Basic dengan alamat link https://dev-create.blogspot.com/2016/05/program-calculator-pada-visual-basic.html