Rabu, 29 Oktober 2014

0 pembuatan program gaji

Pertama buat isian seperti di bawah ini dengan “ label , textbox dan button”


Klik 2x pada button proses, kemudian tambahkan “
     Dim nm_mhs As String
        Dim gaji, jam, total As Integer

        nm_mhs = TextBox1.Text
        gaji = TextBox2.Text
        jam = TextBox3.Text
        total = gaji * jam

        MsgBox("Selamat Datang " & nm_mhs & " Di Kantor ")
        MsgBox("Gaji Anda : " & total)

        Dim golongan As String
        Dim jumlah, tunjangan, tunjang As Integer

        golongan = TextBox4.Text
        jumlah = TextBox5.Text
        tunjangan = TextBox6.Text
        tunjang = jumlah * tunjangan

        MsgBox("Golongan" & golongan & ".")
        MsgBox("Tunjangan : " & tunjang)”

Antara Private sub  ----  End sub.


Kemudian coba debug / f5







Jika sudah selesai dan keluar tampilan seperti di atas berarti berhasil.....

Sekian terima kasih.....

Rabu, 08 Oktober 2014

1 Membuat design program sederhana dengan aplikasi Microsoft Visual Studio 2008


Kemudian pilih file new project



Setelah keluar tampilan di bawah ini Kasih nama terserah Ok.
Start debug/f5 kemudian exit dan nanti  bisa di edit
 Klik toolbox pilih all windows form button
 Klik kanan properties text untuk ubah nama button & fore color untuk mengubah warna tulisan
 Untuk isi dari tombol button sendiri klik 2x button   kemudian isi kata terserah antara( private sub dan end sub)
 Debug untuk melihat hasil  klik button  akan keluar tulisan yg di tulis tadi
 Kemudian tambah label (bisa diberi nama sediri) dan textbox

Buat enam isian sampai sedemikian rupa...
Khusus untuk yang di bulati pakai radio button
 Agar textbox bisa di isi keluar tampilan saat di debug, sesuaikan dulu nama pada menu design textbox sesuai keinginan
 Kemudian klik2x pada button pkbi dan keluar tampilan sbg berikut
 Kemudian tambahkan  (“MsgBox("selamat datang " & nama.Text & asal.Text & telp.Text & " di PKBI ")”)

Kemudian langsung coba dengan klik icon debug / f5
Coba isi text kemudian klik button pkbi jika muncul berarti berhasil......
NB : saat menulis script jangan lupa kasih kurung buka dan tutup
awal penulisan kasih tanda petik dua dan di akhir i petik dua juga nih contoh ...

msgbox("nama : " & nama.text & " alamat : " & alamat.text & "")

saat memberi perintah panggilan sesudah tanda & pastikan nama desain text box sama !!

Itu saja untuk saat ini..............

Sekian.....
Terima kasih Atas perhatiannya......