Materi
Ini adalah materi tentang zahir accounting. Materi ini diambil dari cd tutorial zahir accounting yang memudahkan para pembaca untuk mengetahui zahir accounting. Sebenarnya materi ini belum seluruhnya dituliskan karena masih belum selesai, oleh karena itu bagi pembaca yang ingin mengetahui software ini dapat membeli buku atau cd tutorialnya...
download disini >> Materi Zahir.doc (625 kB)
Array / Larik
#include <conio.h>
#include <iostream.h>
#include <stdio.h>
main()
{
int i,data;
char kdfilm[10][2],nmfilm[10][35];
float harga[10],jmlpsn[10],total[10],gtotal,bayar,kembali;
clrscr();
cout<<"Jumlah data : ";cin>>data;
cout<<endl;
for(i=1; i<=data; i++)
{
cout<<"Data ke- "<<i<<endl;
cout<<"Kode [ST/TS] : ";cin>>kdfilm[i];
cout<<"Jumlah Pesan : ";cin>>jmlpsn[i];
cout<<endl;
if (strcmp(kdfilm[i],"ST")==0 || strcmp(kdfilm[i],"st")==0)
{strcpy(nmfilm[i],"Stairway To Heaven");harga[i]=20000;}
else if (strcmp(kdfilm[i],"TS")==0 || strcmp(kdfilm[i],"ts")==0)
{strcpy(nmfilm[i],"Winter In Tokyo");harga[i]=25000;}
}
//tampilan output
clrscr();
cout<<" TOKO KASET RZB "<<endl;
cout<<" Menerima Pesanan Pembelian kaset "<<endl;
cout<<" Jl. Kesayangan No. 07 Jakarta "<<endl;
cout<<"==========================================="<<endl;
cout<<"No Nama Film Harga Jml Total "<<endl;
cout<<"==========================================="<<endl;
for(i=1; i<=data; i++)
{
cout<<i;
gotoxy(4,wherey());cout<<nmfilm[i];
gotoxy(25,wherey());printf("%0.0f ",harga[i]);
gotoxy(33,wherey());cout<<jmlpsn[i];
total[i]=jmlpsn[i]*harga[i];
printf("%10.0f ",total[i]);
cout<<endl;
gtotal=gtotal+total[i];
}
cout<<"==========================================="<<endl;
gotoxy(4,wherey());cout<<"Jumlah Keseluruhan ";
printf("%21.0f \n",gtotal);
gotoxy(4,wherey());cout<<"Uang Pembayaran ";
gotoxy(38,wherey());scanf("%f",&bayar);
cout<<"==========================================="<<endl;
kembali=bayar-gtotal;
gotoxy(4,wherey());cout<<"Uang Kembali ";
printf("%27.0f ",kembali);
cout<<endl<<endl<<"===============Terima Kasih===============";
getch();
}
Tampilan input
Tampilan Output
1. Buatlah Project dengan nama : Pperpustakaan.vbp
2. Buat Form dengan nama : FrmPinjam
3. Buat Database dengan nama : DBPerpustakaan.mdb
4. Buat 2 tabel dalam database tsb sbb :
Table : Buku
Nama Field |
Data Type |
Size |
Keterangan |
Kdbuku |
Text |
5 |
Primary key |
Nmbuku |
Text |
30 |
|
Jmlbuku |
Integer |
|
|
Stok |
Integer |
|
|
Harga |
Single |
|
|
Tabel : Pinjam
Nama Field |
Data Type |
Size |
Keterangan |
Nopinjam |
Text |
9 |
Primary key |
Tglpinjam |
Date/time |
|
|
Kdbuku |
Text |
5 |
|
lama |
Integer |
|
|
Tglkembali |
Date/time |
|
|
Total |
Integer |
|
|
Bayar |
Single |
|
|
Kembali |
Single |
|
|
Design form :
Jawaban Listing Project Perpustakaan
General declaration()
Dim X As Control
Sub bersih()
For Each X In Me
If TypeName(X) = "TextBox" Then X.Text = ""
Next X
DBbk.Text = ""
tglpinjam = Format(Date, "dd-mm-yyyy")
End Sub
Sub aktif()
DBbk.Enabled = 1
lama.Enabled = 1
bayar.Enabled = 1
End Sub
Sub nonaktif()
For Each X In Me
If TypeName(X) = "TextBox" Then X.Enabled = 0
Next X
End Sub
Public Sub tombol(tambah, simpan, batal, keluar As Boolean)
cmdtambah.Enabled = tambah
cmdsimpan.Enabled = simpan
cmdbatal.Enabled = batal
cmdkeluar.Enabled = keluar
End Sub
Private Sub bayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(bayar.Text) >= Val(total.Text) Then
kembali.Text = Val(bayar.Text) - Val(total.Text)
Else
MsgBox "Uang Bayar Kurang!!", 64, "Info"
End If
End If
End Sub
Private Sub cmdbatal_Click()
nonaktif
bersih
tombol 1, 0, 0, 1
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdsimpan_Click()
With dtpinjam.Recordset
.AddNew
!nopinjam = nopinjam.Text
!tglpinjam = tglpinjam.Text
!kdbuku = DBbk.Text
!lama = lama.Text
!tglkembali = tglkem.Text
!total = total.Text
!bayar = bayar.Text
!kembali = kembali.Text
.Update
End With
'meyimpan stok buku
With dtbuku.Recordset
.Edit
!stok = stok.Text
.Update
End With
bersih
nonaktif
tombol 1, 0, 0, 1
End Sub
Private Sub cmdtambah_Click()
Dim th, bl As String
aktif
th = Right(tglpinjam, 4)
bl = Mid(tglpinjam, 4, 2)
With dtpinjam.Recordset
If .RecordCount = 0 Then
no = "001"
Else
.MoveLast
urut = Val(Right(!nopinjam, 3))
urut = urut + 1
If urut < 10 Then
no = "00" + LTrim(Str(Right(urut, 1)))
Else
If urut >= 10 And urut < 100 Then
no = "0" + LTrim(Str(Right(urut, 2)))
Else
If urut >= 100 And urut < 1000 Then
no = LTrim(Str(Right(urut, 3)))
End If
End If
End If
End If
End With
nopinjam.Text = th + bl + no
tombol 0, 1, 1, 0
End Sub
Private Sub DBbk_Change()
With dtbuku.Recordset
.Index = "xkdbuku"
.Seek "=", DBbk
If Not .NoMatch Then
If !stok <> 0 Then
nmbuku.Text = !nmbuku
harga.Text = !harga
jmlbuku.Text = !jmlbuku
stok.Text = !stok - 1
lama.SetFocus
Else
MsgBox "Stok Habis !!", 16, "Info"
End If
End If
End With
End Sub
Private Sub Form_Activate()
dtbuku.Visible = False
dtpinjam.Visible = False
bersih
nonaktif
tombol 1, 0, 0, 1
End Sub
Private Sub lama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tglkem.Text = DateValue(tglpinjam) + lama.Text
total.Text = Val(lama.Text) * Val(harga.Text)
bayar.SetFocus
End If
End Sub