Contoh 'Coding VB' Sederhana

Hallo sobat blogger...salam blogwalking..
Niatnya si mau berangkat ke kampus..karena hujan jadi males deh..dari pada iseng gak ada kegiatan, ane mau share sedikit coding sederhana pada VB. Yang pertama Coding-an untuk menyimpan 'Jenis Kelamin' pada tool 'Radio Button'. Contohnya adalah pada Form Pegawai, atau Form Mahasiswa, tambahkan coding dibawah ini untuk Button Save nya..

If RBL.Checked = True Then
            objclsPgw.Jenkel = "Laki-laki"
        Else
            RBP.Checked = True
            objclsPgw.Jenkel = "Perempuan"
        End If

ket : RBL dan RBP adalah 'name' dari 2 Radio Button yang ada pada Form
        Jenkel adalah salah satu nama field pada Table Pegawai / Mahasiswa
______________________________________________________________________________________________

Lalu Coding yang kedua adalah  Coding 'Formula' pada Crystal report saat kita mau mencetak slip gaji, Coding ini diperlukan jika kita tidak menyimpan Jumlah Gaji Pokok dari masing-masing Jabatan yang ada (Salah satu Field pada Tabel Jabatan). Pada Crytal report Slip Gaji buatlah dua nama Formula pada Formula Fields,

1. Yang pertama buat dengan nama ' Nilai ' , caranya klik kanan pada Formula Fields, Add New dan
    beri dengan nama 'Nilai', lalu isikan Coding berikut : 1*1

    Terlihat seperti gambar diatas, lalu klik Save and Close.

2. Yang kedua buat Formula baru dengan nama ' Gapok ' atau 'Gaji Pokok', caranya sepeti diatas,



    lalu isikan Coding berikut,

   if({pegawai.KdJbt}="JB001") then
   5000000*{@Nilai}
   else if({pegawai.KdJbt}="JB002") then
   3500000*{@Nilai}
   else if({pegawai.KdJbt}="JB003") then
   2000000*{@Nilai}
   else if({pegawai.KdJbt}="JB004") then
   1400000*{@Nilai}
   else if({pegawai.KdJbt}="JB005") then
   1200000*{@Nilai}
   else
   1000000*{@Nilai}

Arti coding diatas : Untuk kode jabatan 'JB001' berarti memiliki Gaji Pokok Rp. 5.000.000,- dst.

ket : 'pegawai' adalah salah satu nama table pada project yang dibuat.
        'KdJbt' adalah salah satu nama field pada table pegawai
        'JB001 - JB005' adalah record atau isi pada filed 'KdJbt'

Tingkatan : Table > Field > Record
                    Record merupakan isi sebuah Fields ( kolom ), sedangkan Field ( kolom ) adalah bagian
                   dari sebuah Table.

 Jika sudah selesai lalu klik 'Save and Close', lalu drag 'GaPok' tadi kedalam halaman Crystal Report,
 seperti gambar dibawah ini,



Demikian sob...jika bermanfaat jangan lupa tinggalkan pesan dan komentar Anda.....