Membuat Kalkulator Sederhana Melalui Visual Basic 2005

    Author: Unknown Genre:
    Rating

    Kalkulator Sederhana Dengan Visual Basic 2005

    04 July 2009 Kali ini saya akan menjelaskan bagaimana caranya untuk membuat sebuah kalkulator sederhana menggunakan visual basic 2005 atau yang lebih dikenal dengan nama visual basic.net (vb.net)

    Langkah pertama yang harus dilakukan tentunya adalah menjalankan terlebih dahulu program visual basic 2005, setelah itu pada start page pilihlah Create : Project atau dengan memilih File -> New Project kemudian pilihlah Windows Application.

    Lalu designlah form seperti pada gambar dibawah ini :



    OK Kalau Sudah kita atur propertiesnya seperti berikut ini :


    Nama Kontrol
    Form1
    Properties
    StartPosition = CenterScreen
    Text = Kalkulator

    Nama Kontrol
    Label1
    Properties
    Text = Nilai 1

    Nama Kontrol
    Label2
    Properties
    Text = Nilai 2

    Nama Kontrol
    Label3
    Properties
    Text = Hasil

    Nama Kontrol
    TextBox1
    Properties
    Name = txtnil1
    Text = (dikosongkan saja)

    Nama Kontrol
    TextBox2
    Properties
    Name = txtnil2
    Text = (dikosongkan saja)

    Nama Kontrol
    TextBox3
    Properties
    Name = txthasil
    Text = (dikosongkan saja)

    Nama Kontrol
    Button1
    Properties
    Name = cmdtambah
    Text = +

    Nama Kontrol
    Button2
    Properties
    Name = cmdkurang
    Text = -

    Nama Kontrol
    Button3
    Properties
    Name = cmdkali
    Text = *

    Nama Kontrol
    Button4
    Properties
    Name = cmdbagi
    Text = /

    OK kalo sudah ketikan listing kode berikut ini :

    Public Class Form1

    Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click
    txthasil.Text = Val(txtnil1.Text) + Val(txtnil2.Text)
    End Sub

    Private Sub cmdkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkurang.Click
    txthasil.Text = Val(txtnil1.Text) - Val(txtnil2.Text)
    End Sub

    Private Sub cmdkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkali.Click
    txthasil.Text = Val(txtnil1.Text) * Val(txtnil2.Text)
    End Sub

    Private Sub cmdbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbagi.Click
    txthasil.Text = Val(txtnil1.Text) / Val(txtnil2.Text)
    End Sub

    End Class

    selamat mencoba dan belajar...

    Leave a Reply

    Blogger templates

    http://btemplates.com/2011/blogger-template-box-office/demo/

    Blogger news

    Blogroll