Postingan
| Nama Komponen | Properties | Value |
| Form1 | Text | Kalkulator |
| TextBox1 | Text | Kosong |
| Button1 | Text | 1 |
| Button2 | Text | 2 |
| Button3 | Text | 3 |
| Button4 | Text | 4 |
| Button5 | Text | 5 |
| Button6 | Text | 6 |
| Button7 | Text | 7 |
| Button8 | Text | 8 |
| Button9 | Text | 9 |
| Button10 | Text | 0 |
| Button11 | Text | . |
| Button12 | Text | = |
| Button13 | Text | + |
| Button14 | Text | - |
| Button15 | Text | * |
| Button16 | Text | / |
| Button17 | Text | Pi |
| Button18 | Text | Riset |
1. Buka VB.net Anda è File è New èProject è Visual Vasic Project èWindows Aplication. Namenya boleh di rubah sesuan nama programa Anda( name tidak Sensitif )
2. Ketika Form1 untuk Windows Aplication telah terbuka, Liat Table di atas dan kemudan Masukan TextBox1 dan button1 Рbutton18 ke dalam Form1. Klik Kanan Pada Texbok atau Button untuk menyeting Valuenya. Untuk Valuenya liat di table atas. Caranya klik kanan mouse anda̬properti ̬ Cari kata Text ̬ Ganti Valuenya, seperti yang ada di table value.
3. Setelah Selesai melakukan pengeditan Value Textnya, naahhh ini waktunya untuk mengisi Script Programnya.
4. Double Click pada Form1, Nanti akan muncul source code seperti berikut, di bawa code ini anda boleh mendeklarasikan Variabelnya
Public Class Form1
Inherits System.Windows.Forms.Form
'deklarasi constanta
Const pi As Single = 3.14
'deklarasi variable global
Public hasil As Single
Public operator As Byte
Double Click Button pi dan masukan code yang di beri huruf Tebal.
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
TextBox1.Text = TextBox1.Text & pi
End Sub
Double Click Button Reset dan masukan code yang di beri huruf Tebal.
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
TextBox1.Text = " "
hasil = 0
TextBox1.Focus()
End Sub
Double Click Button Tambah dan masukan code yang di beri huruf Tebal.
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
operator = "1"
hasil = Single.Parse(TextBox1.Text)
TextBox1.Text = " "
TextBox1.Focus()
End Sub
Double Click Button Kurang dan masukan code yang di beri huruf Tebal.
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
operator = "2"
hasil = Single.Parse(TextBox1.Text)
TextBox1.Text = " "
TextBox1.Focus()
End Sub
Double Click Button Kali(*) dan masukan code yang di beri huruf Tebal.
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
operator = "3"
hasil = Single.Parse(TextBox1.Text)
TextBox1.Text = " "
TextBox1.Focus()
End Sub
Double Click Button Bagi(/) dan masukan code yang di beri huruf Tebal.
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
operator = "4"
hasil = Single.Parse(TextBox1.Text)
TextBox1.Text = " "
TextBox1.Focus()
End Sub
Double Click Button Samadengan dan masukan code yang di beri huruf Tebal.
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
If operator = 1 Then
hasil = hasil + Single.Parse(TextBox1.Text)
TextBox1.Text = hasil
ElseIf operator = 2 Then
hasil = hasil - Single.Parse(TextBox1.Text)
TextBox1.Text = hasil
ElseIf operator = 3 Then
hasil = hasil * Single.Parse(TextBox1.Text)
TextBox1.Text = hasil
ElseIf operator = 4 Then
hasil = hasil / Single.Parse(TextBox1.Text)
TextBox1.Text = hasil
End If
End Sub
Double Click Button 1 dan masukan code yang di beri huruf Tebal.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & "1"
End Sub
Double Click Button 2 dan masukan code yang di beri huruf Tebal Begitu seterusnya sampai Buton ke 9(yang diganti 1 – 9 dalam tanda petik ganda).
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & "2"
End Sub
Double Click Button Koma(.) dan masukan code yang di beri huruf Tebal.
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text + "."
TextBox1.Focus()
End Sub
End Sub
End Class
5. Program Selesai, program bias anda jalankan dengan menekan tobol F5, atau bias di compile menjadi program .exe, dengan menekan ( ctrl + shift + B) atau ke Buil di atas toolbar VB.net anda dan cari kata Build. Sekian dan terimah kasi kalo masi ada kekurangan Mohon di Maafkan. SEMOGA BERMANFAAT. JAH BLESS
