Punya Account Blogger?
Kalkukator dengan VB.NET
Posted by Sofyan SOX on Kamis, 24 Juni 2010 in
Uas sudah berakhir ? horeee !!!!

asik donk, kan kelompok A ...

saatnya buat tutorial VB.NET

aplikasi yang digunakan Visual Studio 2005

yaitu : Microsoft Visual Basic 2005

klo blom punya, beli aja di toko software

atau saya juga punya installernya

kecil kok, cuma 400 MB.

Langsung aja yach ... 

sekarang kita coba buat aplikasi dasar aja..

biasanya program kalkulator ...

Langkah-langkahnya, ikutin yach :

1. Buka dulu Aplikasinya ...

2. Lihat deh gambar dibawah



pilih windows application
masukin nama aplikasi kamu yach !!

tekan oke ... ups tombol OK

sehingga kita masuk ke tampilan ini




sama aja khan sama vb 6

ada properties , toolbox, 

klo solution explorer itu sama kaya Project Explorer

2.  Rancang Form Seperti dibawah ini




bisa khan ?

mungkin pertama kali agak bingung

untuk cari objeknya di toolbox

tapi hampir sama kok

bedanya command button jadi Button 

sama posisinya agak berubah

untuk merubah caption ...

ga ada caption, tapi text

bwt ngisi kombo ...

isi di bagian item di properties

oke khan



3. kita main ke listingnya

sekarang kita buat kode buat keluar

klik 2x tombol clode sehingga msuk ke code

ketikan : me.close()

tampilannya kaya gini







4. Sekarang kode buat tombol cancel

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox3.Text = ""
        Me.ComboBox1.Text = ""

    End Sub


perhatikan ->

Merah itu tulisan dari sononya
Biru yang kita ketik

5. klo buat tombol OK  ky gini nih kodenya



  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tambah, kurang, kali, bagi, pangkat As Decimal
        Dim op As String

        tambah = Val(Me.TextBox1.Text) + Val(Me.TextBox2.Text)
        kurang = Val(Me.TextBox1.Text) - Val(Me.TextBox2.Text)
        kali = Val(Me.TextBox1.Text) * Val(Me.TextBox2.Text)
        bagi = Val(Me.TextBox1.Text) / Val(Me.TextBox2.Text)
        pangkat = Val(Me.TextBox1.Text) ^ Val(Me.TextBox2.Text)
        If Me.ComboBox1.Text = "+" Then
            Me.TextBox3.Text = tambah
        ElseIf Me.ComboBox1.Text = "-" Then
            Me.TextBox3.Text = kurang
        ElseIf Me.ComboBox1.Text = "*" Then
            Me.TextBox3.Text = kali
        ElseIf Me.ComboBox1.Text = "/" Then
            Me.TextBox3.Text = bagi
        Else
            Me.TextBox3.Text = pangkat
        End If
    End Sub




selengkapnya kaya gambar dibawah ini












1 Response to “Kalkukator dengan VB.NET”:

Posting Komentar