Senin, 04 April 2011

MEMBUAT APLIKASI KALKULATOR DENGAN VB.net




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








1 komentar:

  1. ane boleh minta project filenya gak gan? biar ane bisa run.
    buat tugas kuliah gan

    BalasHapus