VB : Contoh program penjualan barang (helm

Contoh program penjualan barang (helm)

1.       Data input :

A.        Kode barang (menggunakan combo box)

B.         Nama barang

C.         Harga barang

D.        Banyak barang

E.         Discount (menggunakan option button)

·         10 buah sampai 19 buah discount 5%

·         20 buah sampai 29 buah discount 7,5%

·         30 buah sampai 40 buah discount 10%

2.       Data output

A.         Total pembayaran

B.         Jumlah discount

3.       Data proses

A.         Kode barang (menggunakan combo box)

Kode program di ketik pada combo box :

If Combo1 = "kodebarang" Then

       Text2 = "namabarang"

       Text3 = “hargabarang”

Else

Dst….

Endif

Contoh gambar :

B.      Discount menggunakan option button

Kode program di ketik  pada data proses :

If Option1.Value = True Then

    Text5 = “jumlah discount” 

Else

If Option2.Value = True Then

    Text5 = “jumlah discount” 

Else

    Text5 = “jumlah discount” 

End If

End If

Contoh gambar :

Kode program untuk clear all :

Text1 = clear

Dst….

Kode program untuk exit :

MsgBox "terima kasih"

End

VB : Contoh program pembayaran uang semester

Contoh program pembayaran uang semester

1.       Data input :

1.       Nama Mahasiswa

2.       No. Registrasi

3.       Jurusan (menggunakan checkbox)

·         Informatika

·         Fisika

·         Psikologi

4.       Waktu kuliah (menggunakan optionbutton)

·         Pagi

·         Siang

·         Malam

2.       Data output :

1.       Biaya jurusan

2.       Biaya kuliah

3.       Total pembayaran

Data proses :

1.       Jurusan

Kode program : 

                Nb : kode program di ketik  pada checkbox1,2 dan 3

Rumus :

if check2.value = 1 then

Text4 = biaya jurusan

Else

                Text4 = 0

Endif

Dst…

2.       Waktu kuliah*

Kode program :

*kode program di ketik pada command button 1 .

Rumus :

If option2.value = True Then

                Text5 = biaya waktu kuliah

Else

If option3.value = True Then

                Text5 = biaya waktu kuliah

Endif

Endif

Total biaya :

Biaya jurusan + biaya waktu kuliah .

Rumus : text3 = val(text4) + val(text5)

Contoh form :

Kode program untuk clear all :

Text1 = clear

Dst….

Kode program untuk exit :

MsgBox "terima kasih"

End

VB : Contoh Program Kelulusan standart

Contoh Program Kelulusan standart

1.       Data input :

·         Nama

·         Mata kuliah

·         Nilai

2.       Data output :

·         Keterangan

3.       Data proses

·         Nilai :

ü  Lulus : jika nilai ≥70 maka keterangan lulus

ü  Tidak lulus : jika nilai ≤70 maka keterangan “tidak lulus”

Rumus :

If Val(Text3) >= 70 Then

Text4 = "LULUS"

Else

Text4 = "TIDAK LULUS"

End If

VB : CONTOH APLIKASI RAMALAN BINTANG

CONTOH APLIKASI RAMALAN BINTANG (contoh zodiac Leo, Virgo Scorpio menggunakan fungsi IF)

1.       DATA INPUT :

·         NAMA

·         BINTANG / ZODIAK (MENGGUNAKAN COMBO BOX)

2.       DATA OUTPUT :

·         KESEHATAN

·         KEUANGAN

·         ASMARA

3.       DATA PROSES :

RUMUS :

If Combo1 = "LEO" Then

Text2 = "BAIK-BAIK SAJA"

Text3 = "CUKUP"

Text4 = "SELINGKUH"

Else

If Combo1 = "VIRGO" Then

Text2 = "KURANG FITT"

Text3 = "KERING"

Text4 = "BAIK"

Else

Text2 = "SAKIT KEPALA"

Text3 = "ROYAL"

Text4 = "CURIGA"

End If

End If

Contoh Gambar :

*selesai