Oke langsung saja kali ini saya akan membagikan cara membuat calculator sederhana pada visual basic 2008, sebelum kita mulai tutorial cara membuat calculator ini saya ingin membahas mengenai postingan yang dulu.
dulu kita pernah
membuat program perhitungan sederhana, intinya sama saja tapi kali ini saya akan menambahkan dan mengenalkan tentang module, variabel, dan tipe data.
Modul digunakan untuk membuat suatu listing yang sekiranya dipakai berkali-kali jadi kita hanya mengetikkan satu kali listing saja dan tempat asli listing itu berada tinggal mengisi perbedaan antar listing saja, untuk contohnya dapat dilihat pada tutorial berikut.
Variabel digunakan sebagai tempat menyimpan suatu data pada suatu karakter, dalam Vb.Net pendeklarasian dilakukan dengan
Dim a,b
As Double penjelasannya yaitu a,b adalah variabel dan Double sebagai tipe datanya.
Tipe data sendiri yaitu suatu penentu data tersebut termasuk apa, misal char untuk carakter dan integer untuk bilangan bulat dan seterusnya. oke langsung saja kita mulai tutorialnya pertama kalian buat project dan beri nama calculator
Kemudian buat tampilan seperti dibawah ini dengan menggunakan beberapa object
Untuk keterangannya silahkan lihat di tabel dibawah ini
| Object |
Properties |
| Button |
Text diubah seperti pada gambar sedangkan Name sama juga cukup ditambah huruf B di depannya, khusus untuk operator aritmatika dan titik ditulis biasa Contoh Bkali untuk button kali dan seterusnya |
| Label |
Text diganti seesuai dengan gambar sedangkan Name sama dengan Text tinggal ditambah dengan huruf L didepannya, khusus untuk label yang Text nya | Name nya diganti Laritmatika |
| RichTextBox |
Tidak perlu Dirubah |
| TextBox |
Tidak Perlu Dirubah |
| DateTimePicker |
Tidak Perlu Dirubah |
| Timer |
Tidak Perlu Dirubah |
Setelah itu kita membuat modul dengan cara masuk ke Solution Explorer kemudian klik kanan pada calculator>Add>Module... hingga muncul tampilan seperti pada saat awal buat project langsung saja tekan enter.
Kemudian masukan listing berikut
Module Module1
Public Sub angka(ByVal Button As Button, ByVal no As Integer, ByVal Laritmatika As Label, ByVal RichTextBox1 As RichTextBox, ByVal RichTextBox2 As RichTextBox)
If Laritmatika.Text = "|" Then
RichTextBox1.Text = RichTextBox1.Text + "" & no & ""
Else
RichTextBox2.Text = RichTextBox2.Text + "" & no & ""
End If
End Sub
End Module
Setelah itu kita masukkan listing pada formnya, klik dua kali pada form yang akan ditambahkan listing lalu masukan listing berikut
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btambah.Click
Laritmatika.Text = "+"
RichTextBox2.Focus()
End Sub
Private Sub Bkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkurang.Click
Laritmatika.Text = "-"
RichTextBox2.Focus()
End Sub
Private Sub Bkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkali.Click
Laritmatika.Text = "*"
RichTextBox2.Focus()
End Sub
Private Sub Bbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bbagi.Click
Laritmatika.Text = "/"
RichTextBox2.Focus()
End Sub
Private Sub Bhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhitung.Click
Dim a, b As Double
a = RichTextBox1.Text
b = RichTextBox2.Text
If Laritmatika.Text = "+" Then
TextBox1.Text = a + b
ElseIf Laritmatika.Text = "-" Then
TextBox1.Text = a - b
ElseIf Laritmatika.Text = "*" Then
TextBox1.Text = a * b
ElseIf Laritmatika.Text = "/" Then
TextBox1.Text = a / b
End If
End Sub
Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
angka(B1, 1, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click
angka(B2, 2, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click
angka(B3, 3, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click
angka(B4, 4, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
angka(B5, 5, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
angka(B6, 6, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click
angka(B7, 7, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B8.Click
angka(B8, 8, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B9.Click
angka(B9, 9, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub B0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B0.Click
angka(B0, 0, Laritmatika, RichTextBox1, RichTextBox2)
End Sub
Private Sub Btitik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btitik.Click
If Laritmatika.Text = "" Then
RichTextBox1.Text = RichTextBox1.Text + "."
Else
RichTextBox2.Text = RichTextBox2.Text + "."
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
DateTimePicker1.Value = DateAndTime.Now
Lwaktu.Text = DateTimePicker1.Value
End Sub
Private Sub LMinimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LMinimize.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub Lclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lclose.Click
Me.Close()
End Sub
End Class
aplikasi calculator sudah jadi dan siap digunakan, kunjungi juga postingan yang lainnya.
Tidak ada komentar:
Posting Komentar