Langsung ke konten utama

coba-coba bikin kalkulator pake vb


Halo everybody.. ayo kita belajar lagi. Kembali lagi ke visual basic. pada postingan gw yang kemaren-kemaren udah dibahas kan gimana vb itu dasarnya, yah walopun Cuma sdikit tapi mudah-mudahan bisa dimengerti deh. Maklum namanya juga sama-sama belajar. Jadi apa yang gw tau, apa yang gw baca, apa yang gw coba, pengen gw share sama temen-temen semua, biar orang indonesia khususnya anak muda kaya gw mau belajar n terus belajar.
Ok langsung aja ke pokok pembicaraan. Tadinya gw mau langsung kasih apa yang gw coba-coba lewat link download, tapi kayaknya kurang enak aja gitu kalo gak dibahas dulu. Kemaren gw coba bikin kalkulator pake VB, Cuma yang versi gw sendiri. Dan ada juga yang versi contoh dari bacaan.
Di dalem aplikasi gw terdapat 2 form yang berisi tentang perhitungan kalkulator sederhana. Yang satu gak pake array dan yang satu pake array. Tapi semoga aja apa yang gw bikin ini bener..hehehe
 
Di form ini terdiri dari:
-          4 textbox
-          3 label (caption: var 1, var 2, operasi)
-          5 commandbutton untuk tombol (caption: +, -, :, X, =)
-          3 commandbutton lainnya (caption: hapus, next, keluar)
-          3 frame (caption: layar, hasil, tombol)
Ini kalo mau liat source code nya:

Dim var1 As Single, var2 As Single
Dim hasil As Single

Private Sub bgi_Click()
Text2.Text = ":"
Text3.SetFocus
End Sub

Private Sub cmdhapus_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdnext_Click()
Me.Hide
kalkulator_2.Show
End Sub

Private Sub hsl_Click()
If Text2.Text = "+" Then
    var1 = Text1.Text
    var2 = Text3.Text
    hasil = var1 + var2
    Text4.Text = hasil
    Else
    If Text2.Text = "-" Then
        var1 = Text1.Text
        var2 = Text3.Text
        hasil = var1 - var2
        Text4.Text = hasil
        Else
        If Text2.Text = "x" Then
            var1 = Text1.Text
            var2 = Text3.Text
            hasil = var1 * var2
            Text4.Text = hasil
            Else
            If Text2.Text = ":" Then
                var1 = Text1.Text
                var2 = Text3.Text
                hasil = var1 / var2
                Text4.Text = hasil
            End If
        End If
    End If
End If
End Sub

Private Sub kli_Click()
Text2.Text = "x"
Text3.SetFocus
End Sub
Private Sub mns_Click()
Text2.Text = "-"
Text3.SetFocus
End Sub

Private Sub Text1_Change()
Text1.SetFocus
End Sub

Private Sub tmbh_Click()
Text2.Text = "+"
Text3.SetFocus
End Sub
 
Ok.. ribet ngejelasinnya.. nih liat dulu aplikasinya. Thx udah mampir..daaaa =)
http://www.mediafire.com/?vvs3zjjy80w8irj

Komentar

Posting Komentar

Postingan populer dari blog ini

Metode Penentuan Lokasi

halo kawan - kawin .. maksudnya kawan-kawan.. udah lama gak posting.. karena modem gw agak terganggu jiwanya..lagian gak enak aja kalo ngepost pake modem orang, gak reseppp dah..hehe. maap beribu maap ya.. oke langsung aja, kemarin-kemarin gw gak sengaja nemu artikel tentang cara nentuin lokasi pake beberapa metode trus sekalian aja gw baca dan niatnya pengen gw share disini.. 1. Location Factor Rating (Methode) Location Factor Rating Adalah sebuah metode penentuan lokasi yang mementingkan adanya obyektifitas dalam proses mengenali biaya yang sulit untuk dievaluasi. Faktor yang dipertimbangkan factor baik yang kualitatif maupun kuantitatif dianalisis dengan cara mengkuantifisir semua factor. langkah-langkah yang perlu dilakukan dalam Location Factor Rating : 1. Membuat daftar factor yang berhubungan yang sering disebut factor kunci sukses      (critical success factors – CSFs) 2. Buat pembobotan untuk setiap factor yang te...
2 komentar
Baca selengkapnya

penyelesaian fungsi search pada aplikasi kosan (kelompok 5)

akhirnya jumat, 25 maret 2011 jam 11an sebelum jumatan..hehe saya berhasil menemukan cara agar fungsi search by 5 criteria yang kemarin - kemarin membuat saya uring - uringan Lebay. Pada awalnya saya bingung mau diapain sih nih fungsi kok kaga bisa jalan.. tetapai jen jeng jeeeenng..!!! terkabul doa saya selama 9 bulan lebih beberapa minggu di dalam kandungan ibu saya..hehe. Tapi menurut saya script code-nya masih belum begitu efektif dan sepertinya masih ada yang belum berjalan dengan lancar walaupun satu atau dua.  Jadi begini, saya jelaskan dulu apa yang sudah saya bilang search by 5 criteria tadi. maklum karna saya masih cupu masalah beginian jadi cuma dihadepin masalah if bersarang di sarangnya if aja bingung. hehehe karena aplikasi kami ini bergerak di bidang pencarian kosan dengan batasan hanya wilayah kawasan pendidikan telkom saja jadi kami hanya mengambil 3 daerah tersering diingat orang yaitu Sukapura, PGA, dan Sukabirus. jadi 5 kriteria tadi adalah pec...
Posting Komentar
Baca selengkapnya
WHO AM I IN THE PAST Bagian Pertama Masa SMA adalah semua kejadian unik yang paling gak bisa dilupain ketika lw gak lagi duduk di bangku kelas pake seragam atas putih-bawah abu. Apapun kasta lw sewaktu di SMA dulu, mau lw itu termasuk kasta asisten jongos kelas 3 kek, atau lw yang jadi atasan dari jongos2 yang memiliki banyak bawahan buat minta-in uang palak-an di tempat parkir n gerbang depan, emhft.. atau lw adalah seorang yang Cuma berangkat ke sekolah,duduk dan konsen belajar terus dapet nilai ulangan di atas rata2. Yang pasti itu yang bikin sekarang gw merengung sambil senyam-senyum sendirian di kamar gw yang sepi. Nama gw, ezza. Cowo kacamata minus, kurang tinggi, n belum gaul. Semua adalah nama samaran biar cerita kenangan yang begini gak mengacau kedepannya. Lanjut.. Gw gak ngerti kenapa gw jadi pengen nulis cerita kenangan dulu gw waktu di SMA. Padahal sebenernya ga pernah ad terlintas di otak gw yang saat ini gw isi ama hal yang berbau a...
Posting Komentar
Baca selengkapnya