#include <stdio.h>
#include <conio.h>
#include <iostream.h>
main()
{
char nama[15],barang[15];
int kode,harga,jumbel,total;
clrscr();
puts("-------------------------------------");
puts(" TOKO BAJU ");
puts("-------------------------------------");
puts(" KODE BARANG ");
puts("-------------------------------------");
puts("1. Kain Sutra RP.100000 ");
puts("2. Kain Katun RP.50000 ");
puts("3.Kain Kombed RP.40000 ");
puts("4.Kain karded RP.20000 ");
puts("-------------------------------------");
puts("Input Nama Pembeli : ");cin>>nama;
puts("Input jenis Kain : ");cin>>kode;
cout<<"Input Jumlah Beli : ";cin>>jumbel;
switch(kode)
{
case 1:
strcpy(barang," Kain Sutra");
harga=100000;
break;
case 2:
strcpy(barang,"Kain Katun");
harga=50000;
break;
case 3:
strcpy(barang,"Kain Kombed");
harga=40000;
break;
case 4:
strcpy(barang,"Kain karded");
harga=20000;
break;
default:
strcpy(barang,"Anda Salah Kode");
harga=10;
break;
}
total=jumbel*harga;
clrscr();
cout<<"==============================="<<endl;
cout<<" STRUK PENJUALAN "<<endl;
cout<<"==============================="<<endl;
cout<<"Nama Pembeli : "<<nama<<endl;
cout<<"Nama Barang : "<<barang<<endl;
cout<<"Harga Barang : "<<harga<<endl;
cout<<"Jumlah Barang : "<<jumbel<<endl;
cout<<"Total : "<<total;
getch();
}
Senin, 18 Januari 2016
PROGRAM PENJUALAN menggunakan Array di TURBO PASCAL
dibawah ini syntax programnya;
Program kasir_Array;
Uses Wincrt;
Type Kasir = record
no_trans, tgl, nama, nm_brg : String[10];
kd_brg, jml : byte;
hrg, tot : real;
End;
Var
Data : Array [1..100] of Kasir;
Ul : Char;
i,n, x : Integer;
jml_penjualan : real;
Begin
Repeat
Clrscr;
i:=i+1;
Writeln(' MUSLIHUDIN TECHNOLOGY ');
Writeln(' Jl.RE Martadinata no.202 Tasikmalaya ');
Writeln('========================================');
Writeln;
writeln(' Form Transaksi ');
writeln;
Writeln('Data Ke-',i);
Writeln;
Write('No Transaksi : ');Readln(Data[i].no_trans);
Write('Tanggal : ');Readln(Data[i].tgl);
Write('Nama Pembeli : ');Readln(Data[i].nama);
Write('Kode Barang : ');Readln(Data[i].kd_brg);
if Data[i].kd_brg = 1 then
begin
Data[i].nm_brg :='Processor Core i3';
Data[i].hrg :=1131000;
end
else if Data[i].kd_brg = 2 then
begin
Data[i].nm_brg :='Printer';
Data[i].hrg :=500000;
end
else if Data[i].kd_brg = 3 then
begin
Data[i].nm_brg :='Harddisk';
Data[i].hrg :=700000;
end
else if Data[i].kd_brg = 4 then
begin
Data[i].nm_brg :='Flash Disk';
Data[i].hrg :=100000;
end
else if Data[i].kd_brg = 5 then
begin
Data[i].nm_brg :='Mouse';
Data[i].hrg :=125000;
end
else if Data[i].kd_brg = 6 then
begin
Data[i].nm_brg :='VGA Nvidia';
Data[i].hrg :=400000;
end
else if Data[i].kd_brg = 7 then
begin
Data[i].nm_brg := 'Memory DDR3';
Data[i].hrg := 235000;
end
else if data[i].kd_brg = 8 then
begin
data[i].nm_brg := 'Monitor';
data[i].hrg := 750000;
end;
Writeln('Nama Barang : ',Data[i].nm_brg);
Writeln('Harga : ',Data[i].hrg:0:0);
Write ('Jumlah Beli : ');Readln(Data[i].jml);
Data[i].tot:=Data[i].jml*Data[i].hrg;
writeln('Total Bayar : ',Data[i].tot:0:0);
Writeln;
write('Tambah Data (Y/T) : ');readln(Ul);
until upcase (Ul) <> 'Y';
n:=i;
Clrscr;
gotoxy(1,1);Write('============================ MUSLIHUDIN TECHNOLOGY =============================');
gotoxy(1,2);Write('=========================================================================');
gotoxy(1,3);write('|No.Tran |Tanggal |Nama Pembeli |Nama Barang |Harga |Jumlah |Total |');
gotoxy(1,4);Write('=========================================================================');
For x := 1 to n do
begin
gotoxy(1,x+4);write('|');
gotoxy(2,x+4);write(x);
gotoxy(10,x+4);write('|');
gotoxy(11,x+4);write(data[x].tgl);
gotoxy(19,x+4);write('|');
gotoxy(20,x+4);write(data[x].nama);
gotoxy(33,x+4);write('|');
gotoxy(34,x+4);write(data[x].nm_brg);
gotoxy(47,x+4);write('|');
gotoxy(48,x+4);write(data[x].hrg:0:0);
gotoxy(59,x+4);write('|');
gotoxy(60,x+4);write(data[x].jml);
gotoxy(67,x+4);write('|');
gotoxy(68,x+4);write(data[x].tot:0:0);
gotoxy(80,x+4);write('|');
jml_penjualan:=jml_penjualan+Data[x].tot;
end;
Write('================================================================================');
Writeln('Jumlah Transaksi : ', i);
Writeln('Jumlah Penjualan : Rp.',jml_penjualan:0:0);
End.
PEMROGRAMAN PEMESANAN TIKET PESAWAT dengan C+=
inilah contoh programnya;
#include <stdio.h>
#include <conio.h>
#include <iostream.h>
#include <iomanip.h>
main()
{
char kd_pesawat[15],nm_pesawat[8],lagi;
int kls_pesawat, hrg_tiket, jml_tiket, total_bayar;
awal:
clrscr();
// awal:
cout<<"\t\t\t\t PROGRAM TIKET PESAWAT "<<endl;
cout<<"\t\t\t\t JAKARTA - MALAYSIA "<<endl;
cout<<"-------------------------------"<<endl;
cout<<endl;
// printf("\n\);
cout<<"Masukkan Kode Pesawat [MPT/GRD/BTV] : ";gets(kd_pesawat);
cout<<"\nKelas Pesawat : "<<endl;
cout<<"\t 1. Executive "<<endl;
cout<<"\t 2. Bisnis "<<endl;
cout<<"\t 3. Ekonomi "<<endl;
cout<<"\nPilih Kelas [1/2/3] : "; cin>>kls_pesawat;
if (strcmp(kd_pesawat,"MPT")== 0)
{
strcpy(nm_pesawat,"MERPATI");
if(kls_pesawat == 1)
{ hrg_tiket = 1500000;}
else if (kls_pesawat == 2)
{ hrg_tiket = 900000; }
else if (kls_pesawat == 3)
{ hrg_tiket == 500000; }
else{hrg_tiket = 0; }
}
else if ( strcmp(kd_pesawat,"GRD")== 0)
{strcpy(nm_pesawat,"GARUDA");
if(kls_pesawat == 1)
{hrg_tiket = 1200000;}
else if (kls_pesawat == 2)
{hrg_tiket = 800000;}
else if (kls_pesawat == 3)
{hrg_tiket = 400000;}
else {hrg_tiket = 0;}
}
else if ( strcmp(kd_pesawat,"BTV")== 0)
{strcpy(nm_pesawat,"BATAVIA");
if(kls_pesawat == 1)
{hrg_tiket = 1000000;}
else if (kls_pesawat == 2)
{hrg_tiket = 700000;}
else if (kls_pesawat == 3)
{hrg_tiket = 300000;}
else
{hrg_tiket = 0;}
}
printf("\n");
printf("\nNama Pesawat : %s",nm_pesawat);
printf("\nHarga Tiket : %d",hrg_tiket);
printf("\n");
cout<<"Jumlah Tiket : "; cin>>jml_tiket;
total_bayar = hrg_tiket*jml_tiket;
printf("Total Bayar : %d",total_bayar);
printf("\n\n");
cout<<"\t\t\t INGIN INPUT LAGI [Y/T] : "; cin>>lagi;
if (lagi == 'y' || lagi =='Y')
goto awal;
getch();
}
getch();
}
#include <stdio.h>
#include <conio.h>
#include <iostream.h>
#include <iomanip.h>
main()
{
char kd_pesawat[15],nm_pesawat[8],lagi;
int kls_pesawat, hrg_tiket, jml_tiket, total_bayar;
awal:
clrscr();
// awal:
cout<<"\t\t\t\t PROGRAM TIKET PESAWAT "<<endl;
cout<<"\t\t\t\t JAKARTA - MALAYSIA "<<endl;
cout<<"-------------------------------"<<endl;
cout<<endl;
// printf("\n\);
cout<<"Masukkan Kode Pesawat [MPT/GRD/BTV] : ";gets(kd_pesawat);
cout<<"\nKelas Pesawat : "<<endl;
cout<<"\t 1. Executive "<<endl;
cout<<"\t 2. Bisnis "<<endl;
cout<<"\t 3. Ekonomi "<<endl;
cout<<"\nPilih Kelas [1/2/3] : "; cin>>kls_pesawat;
if (strcmp(kd_pesawat,"MPT")== 0)
{
strcpy(nm_pesawat,"MERPATI");
if(kls_pesawat == 1)
{ hrg_tiket = 1500000;}
else if (kls_pesawat == 2)
{ hrg_tiket = 900000; }
else if (kls_pesawat == 3)
{ hrg_tiket == 500000; }
else{hrg_tiket = 0; }
}
else if ( strcmp(kd_pesawat,"GRD")== 0)
{strcpy(nm_pesawat,"GARUDA");
if(kls_pesawat == 1)
{hrg_tiket = 1200000;}
else if (kls_pesawat == 2)
{hrg_tiket = 800000;}
else if (kls_pesawat == 3)
{hrg_tiket = 400000;}
else {hrg_tiket = 0;}
}
else if ( strcmp(kd_pesawat,"BTV")== 0)
{strcpy(nm_pesawat,"BATAVIA");
if(kls_pesawat == 1)
{hrg_tiket = 1000000;}
else if (kls_pesawat == 2)
{hrg_tiket = 700000;}
else if (kls_pesawat == 3)
{hrg_tiket = 300000;}
else
{hrg_tiket = 0;}
}
printf("\n");
printf("\nNama Pesawat : %s",nm_pesawat);
printf("\nHarga Tiket : %d",hrg_tiket);
printf("\n");
cout<<"Jumlah Tiket : "; cin>>jml_tiket;
total_bayar = hrg_tiket*jml_tiket;
printf("Total Bayar : %d",total_bayar);
printf("\n\n");
cout<<"\t\t\t INGIN INPUT LAGI [Y/T] : "; cin>>lagi;
if (lagi == 'y' || lagi =='Y')
goto awal;
getch();
}
getch();
}
Jumat, 08 Januari 2016
Program PENGGAJIAN KARYAWAN dengan Visual Basic/VB
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
JABATAN.Items.Add("TEKNISI")
JABATAN.Items.Add("ASISTEN")
JABATAN.Items.Add("MANAJER")
STATUS.Items.Add("MENIKAH")
STATUS.Items.Add("BLM MENIKAH")
End Sub
Private Sub NIK_SelectedIndexChanged(sender As Object, e As EventArgs) Handles NIK.SelectedIndexChanged
Select Case NIK.Text
Case "001" : NAMA.Text = "YUNUS"
Case "002" : NAMA.Text = "DEDI"
Case "003" : NAMA.Text = "SHINTA"
End Select
End Sub
Private Sub JABATAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles JABATAN.SelectedIndexChanged
Select Case JABATAN.Text
Case "TEKNISI" : GAJI.Text = 1750000
Case "ASISTEN" : GAJI.Text = 2500000
Case "MANAJER" : GAJI.Text = 1250000
End Select
End Sub
Private Sub TUNJANGAN_TextChanged(sender As Object, e As EventArgs) Handles TUNJANGAN.TextChanged
PAJAK.Text = 0.15 * GAJI.Text
End Sub
Private Sub STATUS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles STATUS.SelectedIndexChanged
Select Case STATUS.Text
Case "MENIKAH" : TUNJANGAN.Text = 0.1 * GAJI.Text
Case "BLM MENIKAH" : TUNJANGAN.Text = 0
End Select
End Sub
Private Sub BtnPROSES_Click(sender As Object, e As EventArgs) Handles BtnPROSES.Click
GJBERSIH.Text = Val(GAJI.Text) + Val(TUNJANGAN.Text) - Val(PAJAK.Text)
End Sub
Private Sub BtnKELUAR_Click(sender As Object, e As EventArgs) Handles BtnKELUAR.Click
End
End Sub
Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
NIK.Text = ""
NAMA.Text = ""
JABATAN.Text = ""
STATUS.Text = ""
TUNJANGAN.Text = ""
GAJI.Text = ""
PAJAK.Text = ""
GJBERSIH.Text = ""
End Sub
End Class
Program PEMBAYARAN TAGIHAN LISTRIK dengan List View di Visual Basic/VB
CATATAN: di sini kita menginputkan meter bln ini dan meter bulan lalau, setelah itu kita memprosesnya dengan menekan "ENTER" di keyboard, untuk menyimpan ke list view,
klik SIMPAN.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call add_daerh()
Call add_tipe()
Call buattable()
End Sub
Sub buattable()
LV.Columns.Add("No PELANGGAN", 90, HorizontalAlignment.Center)
LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Center)
LV.Columns.Add("TIPE PELANGGAN", 100, HorizontalAlignment.Center)
LV.Columns.Add("BIAYA BEBAN", 100, HorizontalAlignment.Center)
LV.Columns.Add("HARGA PER KWH", 100, HorizontalAlignment.Center)
LV.Columns.Add("METER BULAN INI", 100, HorizontalAlignment.Center)
LV.Columns.Add("METER BULAN LALU", 100, HorizontalAlignment.Center)
LV.Columns.Add("PEMAKIAN", 90, HorizontalAlignment.Center)
LV.Columns.Add("TOTAL TAGIHAN", 100, HorizontalAlignment.Center)
LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Center)
LV.Columns.Add("PEMBAYARAN", 90, HorizontalAlignment.Center)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = NPELANGGAN.Text
.SubItems.Add(DAERAH.Text)
.SubItems.Add(TPELANGGAN.Text)
.SubItems.Add(BEBAN.Text)
.SubItems.Add(HARGA.Text)
.SubItems.Add(MBLNINI.Text)
.SubItems.Add(MBLNLALU.Text)
.SubItems.Add(BPEMKAIAN.Text)
.SubItems.Add(TAGIHAN.Text)
.SubItems.Add(PAJAK.Text)
.SubItems.Add(PEMBAYARAN.Text)
LV.Items.Add(x)
End With
End Sub
Sub add_daerh()
With DAERAH
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
.Items.Add("AKSARA")
End With
End Sub
Sub add_tipe()
With TPELANGGAN
.Items.Add("RUMAH")
.Items.Add("TOKO")
.Items.Add("PABRIK")
.Items.Add("SWALAYAN")
End With
End Sub
Private Sub TPELANGGAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TPELANGGAN.SelectedIndexChanged
If TPELANGGAN.Text = "TOKO" Then
BEBAN.Text = 15000
HARGA.Text = 500
ElseIf TPELANGGAN.Text = "RUMAH" Then
BEBAN.Text = 50000
HARGA.Text = 200
ElseIf TPELANGGAN.Text = "SWALAYAN" Then
BEBAN.Text = 400000
HARGA.Text = 1500
ElseIf TPELANGGAN.Text = "PABRIK" Then
BEBAN.Text = 1000000
HARGA.Text = 1000
End If
MBLNINI.Text = ""
MBLNLALU.Text = ""
BPEMKAIAN.Text = ""
TAGIHAN.Text = ""
PAJAK.Text = ""
PEMBAYARAN.Text = ""
NPELANGGAN.Text = ""
End Sub
Sub bersih()
NPELANGGAN.Text = ""
DAERAH.Text = ""
TPELANGGAN.Text = ""
BEBAN.Text = ""
HARGA.Text = ""
MBLNINI.Text = ""
MBLNLALU.Text = ""
BPEMKAIAN.Text = ""
TAGIHAN.Text = ""
PAJAK.Text = ""
PEMBAYARAN.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(DAERAH.Text, 3)
y = Microsoft.VisualBasic.Left(TPELANGGAN.Text, 3)
z = "00" & (TPELANGGAN.SelectedIndex + 1)
NPELANGGAN.Text = x & "_" & y & "_ " & z
End Sub
Private Sub MBLNLALU_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MBLNLALU.KeyPress
If e.KeyChar = Chr(13) Then
If MBLNLALU.Text = "" Or MBLNINI.Text = "" Then
MsgBox("ISI DENGAN BENAR")
Else
If IsNumeric(MBLNLALU.Text) = True And IsNumeric(MBLNINI.Text) = True Then
BPEMKAIAN.Text = MBLNINI.Text - MBLNLALU.Text
TAGIHAN.Text = BEBAN.Text + (BPEMKAIAN.Text * HARGA.Text)
PAJAK.Text = (15 / 100) * TAGIHAN.Text
PEMBAYARAN.Text = Val(TAGIHAN.Text) + Val(PAJAK.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka!!!")
BPEMKAIAN.Text = ""
TAGIHAN.Text = ""
PAJAK.Text = ""
PEMBAYARAN.Text = ""
NPELANGGAN.Text = ""
End If
End If
End If
End Sub
Private Sub MBLNLALU_TextChanged(sender As Object, e As EventArgs) Handles MBLNLALU.TextChanged
End Sub
Private Sub DAERAH_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DAERAH.SelectedIndexChanged
Dim i As String
i = DAERAH.Text
bersih()
DAERAH.Text = i
End Sub
Private Sub BtnHAPUS_Click(sender As Object, e As EventArgs) Handles BtnHAPUS.Click
bersih()
End Sub
Private Sub BtnSIMPAN_Click(sender As Object, e As EventArgs) Handles BtnSIMPAN.Click
isitable()
End Sub
Private Sub Butnhps_Click(sender As Object, e As EventArgs) Handles Butnhps.Click
LV.Items.Clear()
End Sub
Private Sub BtnKELUAR_Click(sender As Object, e As EventArgs) Handles BtnKELUAR.Click
End
End Sub
End Class
PROGRAM CEK KELULUSAN NILAI MAHASISWA dengan VB
CATATAN: di sini kita menginputkan sendiri nilai KEHADIRAN,TUGAS,UTS,UAS,setelah itu
klik PROSES.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
NPM.Items.Add("14110848")
NPM.Items.Add("14110849")
NPM.Items.Add("14110850")
KDDOS.Items.Add("301")
KDDOS.Items.Add("302")
KDDOS.Items.Add("303")
KDDOS.Items.Add("304")
KDDOS.Items.Add("305")
KDMKUL.Items.Add("KTBI406")
KDMKUL.Items.Add("KTBI407")
KDMKUL.Items.Add("KTBI408")
KDMKUL.Items.Add("KTBI409")
End Sub
Private Sub NPM_SelectedIndexChanged(sender As Object, e As EventArgs) Handles NPM.SelectedIndexChanged
If NPM.Text = "14110848" Then
NM.Text = "AFRINDA YUNUS SIREGAR"
JJG.Text = "S1"
jurusan.Text = "TEKNIK INFORMATIKA"
ElseIf NPM.Text = "14110849" Then
NM.Text = "SHINTA"
JJG.Text = "S1"
jurusan.Text = "SISTEM INFORMASI"
ElseIf NPM.Text = "14110850" Then
NM.Text = "RARA"
JJG.Text = "S1"
jurusan.Text = "EKONOMI"
End If
End Sub
Private Sub KDDOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDDOS.SelectedIndexChanged
Select Case KDDOS.Text
Case "301"
NDOSEN.Text = "MESRAN M.KOM"
Case "302"
NDOSEN.Text = "ALEX S.KOM, M.KOM"
Case "303"
NDOSEN.Text = "HERRY S.T"
Case "304"
NDOSEN.Text = "PHILIPUS S.T"
Case "305"
NDOSEN.Text = "GUIDIO S.KOM"
End Select
End Sub
Private Sub KDMKUL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDMKUL.SelectedIndexChanged
Select Case KDMKUL.Text
Case "KTBI406"
NMKUL.Text = "PEMROGRAMAN VISUAL BASIC"
Case "KTBI407"
NMKUL.Text = "ARSITEKTUR DATA"
Case "KTBI407"
NMKUL.Text = "MATRIKS"
Case "KTBI408"
NMKUL.Text = "ARSITEKTUR KOMPUTER"
Case "KTBI409"
NMKUL.Text = "KOMUNIKASI DATA"
End Select
End Sub
Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click
NPM.Text = ""
NM.Text = ""
JJG.Text = ""
jurusan.Text = ""
KDDOS.Text = ""
NDOSEN.Text = ""
KDMKUL.Text = ""
NMKUL.Text = ""
NKEHADIRAN.Text = ""
NTUGAS.Text = ""
NUTS.Text = ""
NUAS.Text = ""
NAKHIR.Text = ""
NHURUF.Text = ""
KETERANGAN.Text = ""
End Sub
Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
NAKHIR.Text = 0.45 * NUAS.Text + 0.3 * NUTS.Text + 0.15 * NTUGAS.Text + 0.1 * NKEHADIRAN.Text()
If NAKHIR.Text >= 50 Then
KETERANGAN.Text = "LULUS"
Else
KETERANGAN.Text = "GAGAL"
End If
If NAKHIR.Text >= 80 Then
NHURUF.Text = "A"
ElseIf NAKHIR.Text >= 70 Then
NHURUF.Text = "B"
ElseIf NAKHIR.Text >= 60 Then
NHURUF.Text = "C"
ElseIf NHURUF.Text >= 50 Then
NHURUF.Text = "D"
Else
NHURUF.Text = "D"
End If
End Sub
End Class
PEMBAYARAN TAGIHAN AIR PDAM dengan List View di VB
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LV.Columns.Add("Kd Pelanggan", 100, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
LV.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
LV.Columns.Add("Harga M3", 100, HorizontalAlignment.Left)
LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Pakai", 100, HorizontalAlignment.Left)
LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
KDPELANGGAN.Items.Add("001")
KDPELANGGAN.Items.Add("002")
KDPELANGGAN.Items.Add("003")
KDPELANGGAN.Items.Add("004")
TIPE.Items.Add("TOKO")
TIPE.Items.Add("RUMAH")
TIPE.Items.Add("SWALAYAN")
TIPE.Items.Add("PABRIK")
End Sub
Private Sub KDPELANGGAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDPELANGGAN.SelectedIndexChanged
Select KDPELANGGAN.Text
Case "001" : NAMA.Text = "BUDI"
Case "002" : NAMA.Text = "DIAN"
Case "003" : NAMA.Text = "CINTA"
Case "004" : NAMA.Text = "SHINTA"
End Select
End Sub
Private Sub TIPE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TIPE.SelectedIndexChanged
Select TIPE.Text
Case "TOKO"
BEBAN.Text = 25000
HARGAM3.Text = 300
DAERAH.Text = "BELAWAN"
Case "RUMAH"
BEBAN.Text = 15000
HARGAM3.Text = 100
DAERAH.Text = "MEDAN"
Case "SWALAYAN"
BEBAN.Text = 10000
HARGAM3.Text = 200
DAERAH.Text = "MEDAN"
Case "PABRIK"
BEBAN.Text = 250000
HARGAM3.Text = 500
DAERAH.Text = "BELAWAN"
End Select
End Sub
Private Sub BtnHpsLIist_Click(sender As Object, e As EventArgs) Handles BtnHpsLIist.Click
LV.Items.Clear()
End Sub
Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
KDPELANGGAN.Text = ""
NAMA.Text = ""
TIPE.Text = ""
HARGAM3.Text = ""
BEBAN.Text = ""
Jpemakaian.Text = ""
TTAGIHAN.Text = ""
Jpembayaran.Text = ""
PAJAK.Text = ""
DAERAH.Text = ""
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TTAGIHAN.Text = Val(BEBAN.Text) + Val(HARGAM3.Text * Jpemakaian.Text)
PAJAK.Text = 0.01 * TTAGIHAN.Text
Jpembayaran.Text = Val(TTAGIHAN.Text) * Val(PAJAK.Text)
Dim lst As New ListViewItem
lst.Text = KDPELANGGAN.Text
lst.SubItems.Add(NAMA.Text)
LV.Items.Add(lst)
lst.SubItems.Add(TIPE.Text)
lst.SubItems.Add(DAERAH.Text)
lst.SubItems.Add(HARGAM3.Text)
lst.SubItems.Add(BEBAN.Text)
lst.SubItems.Add(Jpemakaian.Text)
lst.SubItems.Add(TTAGIHAN.Text)
lst.SubItems.Add(Jpembayaran.Text)
lst.SubItems.Add(PAJAK.Text)
End Sub
End Class
Langganan:
Postingan (Atom)
Macro Media Flash 8 full version
Macromedia Flash 8 adalah salah satu Software yang dapat membuat suatu karya animasi. Dengan flash 8 kita dapat membuat animasi kartun, ...
-
uses crt; var Jumlahlembar : longint; Totharga : longint; Pembayaran : real; hpl : byte; discount ...
-
<html> <head> <title>Perkuliahan ATA</title> </head> <body bgcolor="aqua"> <p align=... -
#include <stdio.h> #include <conio.h> #include <iostream.h> main() { char nama[15],barang[15]; int kode,harg...