Cara Membuat Aplikasi Kalkulator
CARA
MEMBUAT APLIKASI KALKULATOR SEDERHANA YANG MUDAH DAN GAMPANG
Visual basic adalah salah satu
bahasa pemrograman komputer. Bahasa pemrograman adalah perintah-perintah yang
dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Bahasa pemrograman.
Visual basic yang dikembangankan oleh Microsoft sejak tahun 1991, merupakan
pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner's
All=purpose Syimbolic Instruction Code) yang dikembangkan pada era 1950-an.
Visual basic merupakan salah satu Development Toll yaitu alat bantu untuk
membuat berbagai macam program komputer, khususnya yang menggunakan
sistem operasi Windows.
Langkah-langkah membuat program :
1.
Buka atau Open Microsorft visual basic
2.
Membuat
project baru dengan cara : pilih standar.exe -> pilih open
3.
Begini
tampilan project barunya
4.
Membuat desain
form untuk kalkulatornya sesuai yang diinginkan.
5.
Masukkan
coding pada setiap Command.
Coding untuk aplikasi KALKULATOR SEDERHANA
Dim op As String
Dim num1 As Integer
Dim num2 As Integer
Private Sub Command_Click(Index
As Integer)
num1 = Text1.Text
Text1.Text = ""
op = "+"
End Sub
Private Sub Command0_Click(Index
As Integer)
Text1.Text = Text1.Text & 0
End Sub
Private Sub Command1_Click(Index
As Integer)
Text1.Text = Text1.Text & 1
End Sub
Private Sub Command11_Click(Index
As Integer)
num1 = Text1.Text
Text1.Text = ""
op = "-"
End Sub
Private Sub Command12_Click(Index
As Integer)
num1 = Text1.Text
Text1.Text = ""
op = "*"
End Sub
Private Sub Command13_Click(Index
As Integer)
num1 = Text1.Text
Text1.Text = ""
op = "/"
End Sub
Private Sub Command14_Click(Index
As Integer)
Text1.Text = ""
End Sub
Private Sub Command15_Click(Index
As Integer)
num2 = Text1.Text
If op = "+" Then
Text1.Text = num1 + num2
ElseIf op = "-" Then
Text1.Text = num1 = num2
ElseIf op = "*" Then
Text1.Text = num1 * num2
ElseIf op = "/" Then
Text1.Text = num1 / num2
End If
End Sub
Private Sub Command2_Click(Index
As Integer)
Text1.Text = Text1.Text & 2
End Sub
Private Sub Command3_Click(Index
As Integer)
Text1.Text = Text1.Text & 3
End Sub
Private Sub Command4_Click(Index
As Integer)
Text1.Text = Text1.Text & 4
End Sub
Private Sub Command5_Click(Index
As Integer)
Text1.Text = Text1.Text & 5
End Sub
Private Sub Command6_Click(Index
As Integer)
Text1.Text = Text1.Text & 6
End Sub
Private Sub Command7_Click(Index
As Integer)
Text1.Text = Text1.Text & 7
End Sub
Private Sub Command8_Click(Index
As Integer)
Text1.Text = Text1.Text & 8
End Sub
Private Sub Command9_Click(Index
As Integer)
Text1.Text = Text1.Text & 9
End Sub
6.
Kemudian klik tombol star pada toolbar atau tekan F5 pada keyboard untuk menjalankan program kalkulator sederhana ini yang sudah kita
buat.
7.
Dan beginilah program
setelah dijalankan.
Komentar
Posting Komentar