Pengertian Visual Basic 6.0

Pada kali ini saya mempelajari membuat program menggunakan Microsoft Visual Basic 6.0
Berikut ini adalah sedikit penjelasan tentang visual basic 6.0


I. Pengertian

               Visual basic 6.0 adalah salah satu aplikasi untuk membuat system informasi database. Visual basic 6.0 ini adalah terusan dari visual basic 1 sampai 5. walau agak tertinggal, tapi aplikasi software ini masih digunakan untuk pengimplementaisannya di dalam pembuatan sistem database. Visual basic 6.0 ini pun berkembang menjadi visual studio, visual basic 2008 sampai visual basic. net.
    Visual basic 6.0 ini sering juga di gunakan dalam perhitungan gaji, penjualan barang dan lain-lain. visual basic ini support dengan operating sistem windows. dan untuk databasenya bisa menggunakan microsoft access, SQL server dan oracle.

                          Berikut adalah gambar tampilan awal dari Ms. Visual Basic 6.0

II. Project
   
               Project adalah nama file yang akan dikenal dalam  pemanggilan program aplikasi. kita dapat merubahnya sesuai dengan nama file atau sistem database yang kita inginkan. project ini juga menentukan direktori form aplikasi yang akan dibuat. karena, keseluruhan projek yang dibuat, itu diwakili atas nama project. pada saat kita memembuat aplikasi data, project lah yang jadi perwakilan keseluruhan aplikasi yang anda buat di dalam visual basic. Berikut ini adalah gambar/ icon project pada saat tersimpan di dalam komputer and.

 III. Form

             Form Aplikasi dibuat untuk pengimplementasian sistem yang dapat melakukan beberapa perintah eksekusi sesuai yang di inginkan. dalam Form ini juga kita dapat mengkodingkan aplikasi untuk memanggil database, menampilkan data, menghapus data, mengupdate data, mengedit data dan mencetak data yang telah kita eksekusi. Berikut dibawah ini adalah contoh gambar Form yang telah didesain sesuai kebutuhan. 

Berikut adalah contoh Project dan Form yang masih kosong :

Untuk programVisual Basic 6.0 bisa gunakan link di bawah ini :
http://www.microsoft.com/en-us/download/confirmation.aspx?id=7030

PROGRAM PENGHITUNGAN GAJI MENGGUNAKAN (IF THEN DAN GO SUB)

          Di Sini ada sebuah Program yang saya buat menggunakan Program Qbasic dengan statement if then dan sub routine. if then adalah kondisi bersyarat pada qbasic sedangkan sub routine adalah kumpulan baris program yg di panggil dengan menggunakan go sub.
berikut ini adalah contoh program yang menggunakan statement if then dan sub routine:

PROGRAM MENGHITUNG GAJI

MULAI:

CLS

INPUT "ada berapa data=", e

FOR B = 1 TO e

    PRINT "data ke="; B

    INPUT "NIP=", NIP$(B)

    INPUT "NAMA=", NM$(B)

    INPUT "JUMLAH ANAK=", JA(B)

    INPUT "JAM LEMBUR=", JL(B)

    INPUT "APAKAH ADA YANG SALAH=", T$

    IF T$ = "Y" OR T$ = "y" THEN

        GOTO MULAI:

    END IF

    10 IF LEFT$(NIP$(B), 2) = "01" THEN GOSUB 150

    IF LEFT$(NIP$(B), 2) = "02" THEN GOSUB 170

    IF LEFT$(NIP$(B), 2) = "03" THEN GOSUB 190

    IF LEFT$(NIP$(B), 2) = "04" THEN GOSUB 200

    IF LEFT$(NIP$(B), 2) = "05" THEN GOSUB 210

NEXT B

CLS

PRINT TAB(30); "PT JAYAABADI"

PRINT TAB(20); "DAFTAR GAJI PEGAWAI",

PRINT

PRINT "_____________________________________________________________________________________"

PRINT "NIP"; TAB(10); "NAMA"; TAB(20); "JABATAN"; TAB(40); "JUM ANAK";

PRINT TAB(50); "LEMBUR"; TAB(60); "GAJI BERSIH"

PRINT "________________________________________________________________________________"

FOR B = 1 TO e

    TA = 50000 * JA(B)

    GATOR = GAPOK(B) + LEMBUR(B) + TA

    PAJAK = GATOR * .1

    GASIH = GATOR - PAJAK

    PRINT NIP$(B); TAB(10); NM$(B); TAB(20); JABATAN$(B); TAB(40); JA(B); TAB(50); JL(B);      TAB(60); GASIH

    PRINT

NEXT B

PRINT "___________________________________________________________________________"

END

150:

JABATAN$(B) = "DIREKTUR"

GAPOK(B) = 2000000

LEMBUR(B) = 20000 * JL(B)

RETURN

170:

JABATAN$(B) = "MANAGER"

GAPOK(B) = 150000

LEMBUR(B) = 15000 * JL(B)

RETURN

190:

JABATAN$(B) = "SUPERVISOR"

GAPOK(B) = 1000000

LEMBUR(B) = 10000 * JL(B)

200:

JABATAN$(B) = "OPERATOR"

GAPOK(B) = 500000

LEMBUR(B) = 5000 * JL(B)

RETURN

210:

JABATAN$(B) = "CLEANING SERVICE"

GAPOK(B) = 300000

LEMBUR(B) = 3000 * JL(B)

RETURN

dari codding di atas akan di tampilkan output seperti ini:

saya memasukkan 3 data untuk input program di atas, maka akan muncu tampilan output seperti ini :

itulah contoh program yang saya buat menggunakan statement if then dan sub routine. memang masih kurang sempurna ouputnya karna saya masih beginner programers. copyright @ekarivky