Penjualan Obat

Form OBat.
Ada sebuah pemesan buat stock obat, penjualan, dan pembelian pada penyedia obat-obatan di medan, sebenarna saya belum siap, tapi karna penasaran di coba deh buat program walau pun harganya standart tapi untuk pengerjaan ini mencapai 1 bulan, karna belum pernah membuat progrram sebelumnya dan berhasil jadi programnya.


Imports MySql.Data.MySqlClient
Public Class fsublier

Private Sub fsublier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bukadb()
bersih()
tabel()
End Sub

Sub aktiv(ByVal a As Boolean, ByVal b As Boolean, ByVal c As Boolean, ByVal d As Boolean, ByVal e As Boolean, ByVal f As Boolean, ByVal g As Boolean, ByVal h As Boolean, ByVal i As Boolean, ByVal j As Boolean, ByVal k As Boolean, ByVal l As Boolean, ByVal m As Boolean, ByVal n As Boolean, ByVal o As Boolean, ByVal p As Boolean, ByVal r As Boolean)
txtNama.Enabled = a
txtAlamat.Enabled = b
txtEmail.Enabled = c
txtNmRek.Enabled = d
txtNoHp.Enabled = e
txtNoRek.Enabled = f
cmbStatusKerja.Enabled = g
txtTLahir.Enabled = h
txtWebsite.Enabled = i
cmbAgama.Enabled = j
cmbBank.Enabled = k
cmbGolDarah.Enabled = l
cmbkawin.Enabled = m
cmbKelamin.Enabled = n
dTglLahir.Enabled = o
dTglMasuk.Enabled = p
txtKet.Enabled = r
End Sub

Sub tombol(ByVal a As Boolean, ByVal b As Boolean, ByVal c As Boolean)
Button1.Enabled = a
Button2.Enabled = b
Button3.Enabled = c
End Sub

Sub bersih()
txtNama.Text = ""
txtAlamat.Text = ""
txtEmail.Text = ""
txtNmRek.Text = ""
txtNoHp.Text = ""
txtNoRek.Text = ""
cmbStatusKerja.Text = ""
txtTLahir.Text = ""
txtWebsite.Text = ""
cmbAgama.Text = ""
cmbBank.Text = ""
cmbGolDarah.Text = ""
cmbkawin.Text = ""
cmbKelamin.Text = ""
dTglLahir.Text = ""
dTglMasuk.Text = ""
txtKet.Text = ""
tombol(True, False, True)
aktiv(False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False)
Button1.Text = "Tambah"
Button3.Text = "Keluar"
End Sub

Sub tabel()
lv.Columns.Add("Id", 50, HorizontalAlignment.Left)
lv.Columns.Add("Nama", 150, HorizontalAlignment.Left)
lv.Columns.Add("Tempat Lahir", 150, HorizontalAlignment.Left)
lv.Columns.Add("Tanggal Lahir", 150, HorizontalAlignment.Left)
lv.Columns.Add("Jenis Kelamin", 150, HorizontalAlignment.Left)
lv.Columns.Add("Gol Darah", 150, HorizontalAlignment.Left)
lv.Columns.Add("Alamat", 150, HorizontalAlignment.Left)
lv.Columns.Add("Agama", 150, HorizontalAlignment.Left)
lv.Columns.Add("Status Kawin", 150, HorizontalAlignment.Left)
lv.Columns.Add("Bank", 150, HorizontalAlignment.Left)
lv.Columns.Add("Nama DI Rek", 150, HorizontalAlignment.Left)
lv.Columns.Add("No Rek", 150, HorizontalAlignment.Left)
lv.Columns.Add("No Hp", 150, HorizontalAlignment.Left)
lv.Columns.Add("Email", 150, HorizontalAlignment.Left)
lv.Columns.Add("Website", 150, HorizontalAlignment.Left)
lv.Columns.Add("Tanggal Masuk", 150, HorizontalAlignment.Left)
lv.Columns.Add("Status Kerja", 150, HorizontalAlignment.Left)
lv.Columns.Add("Keterangan", 150, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = True
lv.View = View.Details
isi()
isicari()
End Sub
Sub isi()
lv.Items.Clear()
sql = "select *from suplier"
mcd = New MySqlCommand(sql, mc)
mdr = mcd.ExecuteReader
While mdr.Read
Dim a As New ListViewItem
a.Text = mdr("id")
a.SubItems.Add(mdr("nama"))
a.SubItems.Add(mdr("tmptlahir"))
a.SubItems.Add(mdr("tgllahir"))
a.SubItems.Add(mdr("kelamin"))
a.SubItems.Add(mdr("goldarah"))
a.SubItems.Add(mdr("alamat"))
a.SubItems.Add(mdr("agama"))
a.SubItems.Add(mdr("kawin"))
a.SubItems.Add(mdr("bank"))
a.SubItems.Add(mdr("namarek"))
a.SubItems.Add(mdr("norek"))
a.SubItems.Add(mdr("hp"))
a.SubItems.Add(mdr("email"))
a.SubItems.Add(mdr("website"))
a.SubItems.Add(mdr("tglmasuk"))
a.SubItems.Add(mdr("status"))
a.SubItems.Add(mdr("keterangan"))
lv.Items.Add(a)
End While
mdr.Close()
End Sub


Private Sub txtcari_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCari.KeyPress
sql = "select *from suplier where " & cmbcari.Text & " like '%" & txtCari.Text & "%'"
mcd = New MySqlCommand(sql, mc)
mdr = mcd.ExecuteReader
Try
lv.Items.Clear()
While mdr.Read
Dim a As New ListViewItem
a.Text = mdr("id")
a.SubItems.Add(mdr("nama"))
a.SubItems.Add(mdr("tmptlahir"))
a.SubItems.Add(mdr("tgllahir"))
a.SubItems.Add(mdr("kelamin"))
a.SubItems.Add(mdr("goldarah"))
a.SubItems.Add(mdr("alamat"))
a.SubItems.Add(mdr("agama"))
a.SubItems.Add(mdr("kawin"))
a.SubItems.Add(mdr("bank"))
a.SubItems.Add(mdr("namarek"))
a.SubItems.Add(mdr("norek"))
a.SubItems.Add(mdr("hp"))
a.SubItems.Add(mdr("email"))
a.SubItems.Add(mdr("website"))
a.SubItems.Add(mdr("tglmasuk"))
a.SubItems.Add(mdr("status"))
a.SubItems.Add(mdr("keterangan"))
lv.Items.Add(a)
End While
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.MsgBoxHelp, "Ada Kesalahan ")
End Try
mdr.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "Tambah" Then
Dim tom As String = Text = ""
aktiv(True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True)
tombol(True, False, True)
Button3.Text = "Batal"
Button1.Text = "Simpan"
txtNama.Focus()
ElseIf Button1.Text = "Simpan" Then

If txtNama.Text = "" And dTglLahir.Text = "" And cmbKelamin.Text = "" And cmbGolDarah.Text = "" And txtAlamat.Text = "" And cmbAgama.Text = "" And cmbkawin.Text = "" And cmbBank.Text = "" And txtNmRek.Text = "" And txtNoRek.Text = "" And txtNoHp.Text = "" And txtEmail.Text = "" And txtWebsite.Text = "" And dTglMasuk.Text = "" And cmbStatusKerja.Text = "" Then
MsgBox("Maaf Data tidak Boleh Kosong", MsgBoxStyle.Information, " Pesan")
Else
sql = "insert into suplier(id,nama,tmptlahir,tgllahir,kelamin,goldarah,alamat,agama,kawin,bank,namarek,norek,hp,email,website,tglmasuk,tglkeluar,status,keterangan)" & _
"values('" & lblID.Text & "','" & _
txtNama.Text & "','" & _
txtTLahir.Text & "','" & _
Format(dTglLahir.Value, "yyyy-MM-dd") & "','" & _
cmbKelamin.Text & "','" & _
cmbGolDarah.Text & "','" & _
txtAlamat.Text & "','" & _
cmbAgama.Text & "','" & _
cmbkawin.Text & "','" & _
cmbBank.Text & "','" & _
txtNmRek.Text & "','" & _
txtNoRek.Text & "','" & _
txtNoHp.Text & "','" & _
txtEmail.Text & "','" & _
txtWebsite.Text & "','" & _
Format(dTglMasuk.Value, "yyyy-MM-dd") & "','" & _
cmbStatusKerja.Text & "','" & _
txtKet.Text & "')"
mcd = New MySqlCommand(sql, mc)
mcd.ExecuteNonQuery()
MsgBox("Data Tersimpan", MsgBoxStyle.Information, "Data Tersimpan")
bersih()
isi()
End If

ElseIf Button1.Text = "Hapus" Then
sql = "delete from suplier where id='" & lblID.Text & "'"
mcd = New MySqlCommand(sql, mc)
mcd.ExecuteNonQuery()
MsgBox("Data Terhapus")
bersih()
isi()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Batal" Then
bersih()
Button3.Enabled = True
Button3.Text = "Keluar"
ElseIf Button3.Text = "Keluar" Then
Me.Close()
End If
End Sub

Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.Click
lblID.Text = lv.SelectedItems(0).Text
txtNama.Text = lv.SelectedItems(0).SubItems(1).Text
txtTLahir.Text = lv.SelectedItems(0).SubItems(2).Text
dTglLahir.Text = lv.SelectedItems(0).SubItems(3).Text
cmbKelamin.Text = lv.SelectedItems(0).SubItems(4).Text
cmbGolDarah.Text = lv.SelectedItems(0).SubItems(5).Text
txtAlamat.Text = lv.SelectedItems(0).SubItems(6).Text
cmbAgama.Text = lv.SelectedItems(0).SubItems(7).Text
cmbkawin.Text = lv.SelectedItems(0).SubItems(8).Text
cmbBank.Text = lv.SelectedItems(0).SubItems(9).Text
txtNmRek.Text = lv.SelectedItems(0).SubItems(10).Text
txtNoRek.Text = lv.SelectedItems(0).SubItems(11).Text
txtNoHp.Text = lv.SelectedItems(0).SubItems(12).Text
txtEmail.Text = lv.SelectedItems(0).SubItems(13).Text
txtWebsite.Text = lv.SelectedItems(0).SubItems(14).Text
dTglMasuk.Text = lv.SelectedItems(0).SubItems(15).Text
cmbStatusKerja.Text = lv.SelectedItems(0).SubItems(16).Text
txtKet.Text = lv.SelectedItems(0).SubItems(17).Text
aktiv(True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True)
tombol(True, True, True)
Button2.Text = "Ubah"
Button1.Text = "Hapus"
Button3.Text = "Batal"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Ubah" Then
sql = "update suplier set nama='" & txtNama.Text & "'," & _
"tmptlahir='" & txtTLahir.Text & "'," & _
"tgllahir='" & Format(dTglLahir.Value, "yyyy-MM-dd") & "'," & _
"kelamin='" & cmbKelamin.Text & "'," & _
"goldarah='" & cmbGolDarah.Text & "'," & _
"alamat='" & txtAlamat.Text & "'," & _
"agama='" & cmbAgama.Text & "'," & _
"kawin='" & cmbkawin.Text & "'," & _
"bank='" & cmbBank.Text & "'," & _
"namarek='" & txtNmRek.Text & "'," & _
"norek='" & txtNoRek.Text & "'," & _
"hp='" & txtNoHp.Text & "'," & _
"email='" & txtEmail.Text & "'," & _
"website='" & txtWebsite.Text & "'," & _
"tglmasuk='" & Format(dTglMasuk.Value, "yyyy-MM-dd") & "'," & _
"status='" & cmbStatusKerja.Text & "'," & _
"keterangan='" & txtKet.Text & "'" & _
"where id='" & lblID.Text & "'"
mcd = New MySqlCommand(sql, mc)
mcd.ExecuteNonQuery()
bersih()
MsgBox(" Data Ter Ubah")
bersih()
Button1.Focus()
isi()
End If
End Sub

Private Sub fsatuan_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Button1.Text = "Simpan" Then
MsgBox("Anda harus membatalkan Proses Penambahan terlebih dahulu")
e.Cancel = True
End If
End Sub

Private Sub tcari_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCari.KeyPress
sql = "select *from suplier where " & cmbcari.Text & " like '%" & txtCari.Text & "%'"
mcd = New MySqlCommand(sql, mc)
mdr = mcd.ExecuteReader
Try
lv.Items.Clear()
While mdr.Read
Dim a As New ListViewItem
a.SubItems.Add(mdr("nama"))
a.SubItems.Add(mdr("tmptlahir"))
a.SubItems.Add(mdr("tgllahir"))
a.SubItems.Add(mdr("kelamin"))
a.SubItems.Add(mdr("goldarah"))
a.SubItems.Add(mdr("alamat"))
a.SubItems.Add(mdr("agama"))
a.SubItems.Add(mdr("kawin"))
a.SubItems.Add(mdr("bank"))
a.SubItems.Add(mdr("namarek"))
a.SubItems.Add(mdr("norek"))
a.SubItems.Add(mdr("hp"))
a.SubItems.Add(mdr("email"))
a.SubItems.Add(mdr("website"))
a.SubItems.Add(mdr("tglmasuk"))
a.SubItems.Add(mdr("status"))
a.SubItems.Add(mdr("keterangan"))
lv.Items.Add(a)
End While
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.MsgBoxHelp, "Ada Kesalahan ")
End Try
mdr.Close()
End Sub

Sub isicari()
btncari(False, False)
cmbcari.Items.Clear()
sql = "show fields from suplier"
mcd = New MySqlCommand(sql, mc)
mdr = mcd.ExecuteReader
Try
While mdr.Read
cmbcari.Items.Add(mdr("Field"))
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
mdr.Close()
End Sub
Sub btncari(ByRef a As Boolean, ByVal b As Boolean)
cmbcari.Enabled = a
txtCari.Enabled = b
End Sub
Private Sub cmbcari_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbcari.SelectedIndexChanged
If cmbcari.Text = "" Then
btncari(True, False)
Else
btncari(False, True)
label6.ForeColor = Color.Red
End If
End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
btncari(True, False)
Button4.ForeColor = Color.Yellow
End Sub

Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbKelamin.KeyDown

e.SuppressKeyPress = True

End Sub

Private Sub ComboBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbBank.KeyDown

e.SuppressKeyPress = True

End Sub
Private Sub ComboBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbkawin.KeyDown

e.SuppressKeyPress = True

End Sub
Private Sub ComboBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbGolDarah.KeyDown

e.SuppressKeyPress = True

End Sub
Private Sub ComboBox5_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbAgama.KeyDown

e.SuppressKeyPress = True

End Sub

Private Sub ComboBox6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbStatusKerja.KeyDown

e.SuppressKeyPress = True

End Sub
Private Sub ComboBox7_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbGolDarah.KeyDown

e.SuppressKeyPress = True

End Sub


End Class

Go to http://mesran.net

Program C++ Menentukan nilai Akhir suatu Mata Kuliah menggunakan if - else .

program untuk menentukan nilai akhir dari matakuliah Struktur Data dengan menggunakan struct sesuai ketentuan sebagai berikut:

NIM, Nama siswa, nilai tugas, Nilai Quiz, nilai MID, dan nilai UAS yang diinputkan.
Ketentuan untuk mendapatkan grade nilai :
Rata-rata >80 gradenya A
Rata-rata >60 n <=80 gradenya B
Rata-rata >40 n <=60 gradenya C
Rata-rata >20 n <=40 gradenya D
Rata-rata <20 gradenya E
20% dari tugas
20% dari quis
30% dari MID
30% dari UAS

Script C++ :



#include <iostream.h>
#include <stdlib.h>
#include <conio.h>
#include <stdio.h>
#define jm 2

main(){
char nilai_huruf;

struct mahasiswa{
char nim[10];
char nama[30];
char kelas[20];
char jurusan[20];
}mhs;

struct nilai{
float nilai_tgs;
float nilai_kuis;
float nilai_mid;
float nilai_uas;
float nilai_akhir;
}nl;


cout <<" ----------------------------" << endl;
cout << "Input NIM = ";cin >> mhs.nim;

cout << "Input Nama = ";gets(mhs.nama);
cout << "Input Kelas = ";gets(mhs.kelas);
cout << "Input Jurusan = ";cin >> mhs.jurusan;
cout << endl;
cout<<"Masukkan Nilai Tugas = ";cin>>nl.nilai_tgs;
cout<<"Masukkan Nilai Kuis = ";cin>>nl.nilai_kuis;
cout<<"Masukkan Nilai Mid = ";cin>>nl.nilai_mid;
cout<<"Masukkan Nilai UAS = ";cin>>nl.nilai_uas;
cout<<endl;

nl.nilai_akhir=(nl.nilai_tgs*20/100)+(nl.nilai_kuis*20/100)+(nl.nilai_mid*30/100)+(nl.nilai_uas*30/100); //di ringkas untuk menghemat variable

if (nl.nilai_akhir>80){
nilai_huruf='A';
}
else if(nl.nilai_akhir<=80 && nl.nilai_akhir>60){
nilai_huruf='B';
}
else if(nl.nilai_akhir<=60 && nl.nilai_akhir>40){
nilai_huruf='C';
}
else if(nl.nilai_akhir<=40 && nl.nilai_akhir>=20){
nilai_huruf='D';
}
else{
nilai_huruf='E';
}


cout << "-DATA NILAI STRUKTUR DATA-" << endl;
cout <<" ----------------------------" << endl << endl;



cout << "Nilai Akhir Anda = " <<nl.nilai_akhir<< endl;
cout << "Nilai Huruf Anda = "<<nilai_huruf<<endl;
cout << endl;

getch();
}

pelajari deviafnitaimoet.blogspot.com

Membuat 5 Contoh Program Menggunakan Turbo Pascal

Program Discount Penjualan.

Program ini program penjualan dimana jika jumlah penjualan lebih dari Rp. 65.000 mendapatkan diskon sebesar 10%. Berikut listing programnya :
Program Discount;
Uses wincrt;
Var
Nama:string;
Jumlah, Diskon, Bayar:real;
Begin
writeln('Program Discount');
writeln('Dodik Sriyanto(S1) STMIK Tasikmalaya');
writeln('==================================');
repeat
writeln(' ');
write('Masukkan Nama Anda : ');
readln(Nama);
write('Masukkan Jumlah Pembelian = Rp ');
readln(Jumlah);
Diskon := 0;
if Jumlah>65000 then Diskon := Jumlah*0.1;
Bayar := Jumlah-Diskon;
writeln(' ');
writeln('Jumlah Pembelian  = Rp',Jumlah:10:2);
writeln('Jumlah Discount   = Rp',Diskon:10:2);
writeln('==================================');
writeln('Jumlah Pembayaran = Rp',Bayar:10:2);
writeln('Terima Kasih ',Nama);
until keypressed;
readln;
End.

Program Gaji Karyawan

Program ini di buat untuk keperluan penggajian Pegawai / Karyawan dengan ketentuan Gaji pokok + Tunjangan – Ppn 10%. Berikut listing  programnya :
Uses wincrt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,Total,gajibersih:real;
Begin
Clrscr;
Write( 'Nama Karyawan     : '); readln(nama);
Write('Masukkan Jabatan  : '); readln(jabatan);
If  (jabatan='Direktur') or (jabatan='direktur') then
     Begin
 Gaji:=3000000;
 Tunj:=0.2* gaji;
     End
Else If  (jabatan='Manager') or (jabatan='manager') then
     Begin
 Gaji:=2000000;
 Tunj:=0.2* gaji;
     End
Else If  (jabatan='Karyawan') or (jabatan='karyawan') then
     Begin
 Gaji:=1000000;
 Tunj:=0.2* gaji;
     End
Else
     Begin
 Gaji:=800000;
 Tunj:=0.2* gaji;
     End;
Writeln('Gaji Bersih        : Rp.',gaji);
Writeln('Tunjangan Jabatan  : Rp.',tunj:9:2);
ppn:=0.1*gaji;
Writeln('PPN 10 %           : Rp.',ppn:9:2);
Total:=gaji+Tunj-ppn;
Writeln('Total Gaji         : Rp.',total:9:2);
Readln;

Program Penghitung Luas Segitiga.

Program ini bertujuan untuk menghitung luas segitiga dengan memasukan nilai Alas dan Tingginya. Berikut listing programnya :
program luas;
uses wincrt;
var
a,t: integer;
L: real;
begin
clrscr;
write('Masukan Nilai Alas: ');
readln (a);
write('Masukan Nilai Tinggi: ');
readln(t);
writeln(' ');
L:=(a*t)/2;
writeln('Luas Segitiga adalah =',L:6:2);
readln;
end.

Program Kalkulator Sederhana.

Program ini sebagai kalkulator sederhana dengan memasukan nilai angka ke 1 dan ke 2 serta pilihan operator nya. Berikut listing programnya :
uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
 write ('masukan angka ke-1 = ');readln (x);
write ('pilih operator= (+)/(-)/(*)/(/) = ');
readln (jawab);
 write ('masukan angka ke-2 = ');readln (y);
 if ( jawab= '+') then
 begin
hasil:= x+y
end;
if ( jawab = '-') then
begin
hasil:= x-y
 end;
if ( jawab = '*') then
begin
 hasil:= x*y
end;
if (jawab='/') then
begin
hasil:= x/y
end;
write ('hasilnya: ',(hasil):5:2);
end.

Program Penghitung Luas Persegi Panjang.

Program ini untuk menghitung luas dari sebuah persegi panjang dengan memasukan nilai panjang dan pendeknya. Berikut listing programnya :
Program Luas_Persegi_Panjang;
uses wincrt;
var
panjang, lebar, luas : real;
begin                                         
write ('Masukkan panjang? '); readln (panjang);
write ('Masukkan lebar? ')  ; readln (lebar);
luas := panjang*lebar;
writeln;
writeln ('Luas segiempat = ', luas:5:2, ' satuan luas');
end.

Program Penjualan Menggunakan Array (Turbo Pascal)

Program Penjualan Menggunakan Array (Turbo Pascal)

Sintak Program :
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.

Gambar Program :

Membuat Program Penjualan Dari Turbo Pascal 1.5

Berjumpa lagi dengan saya,dalam kesempatan ini saya akan membahas cara membuat Ptogram Penjualan Dari Turbo Pascal 1.5.Program adalah suatu aplikasi atau software yang dapat menyimpan data, serta dapat memudahkan pekerjaan, nah saya akan Membahas membuat Program Penjualan Dari Turbo Pascal 1.5.

Adapaun cara membuat programnya

• Bukak Penjualan Dari Turbo Pascal 1.5, caranya klik start => All Program => Pilih Tpw 1.5


• Masukan listing berikut
  uses wincrt;
  var
  b:string;
  h,y,u,by,tb:real;
  lagi:char;
  begin
  writeln('Toko "laris manis"');
  Writeln('------------------');
  tb:=0;
  Lagi:='Y';
  while lagi='Y' do
  begin
  write('barang:');readln(b);
  write('Harga:');readln(h);
  write('Unit:');readln(u);
  by:=H*u;
  writeln('Bayar:',by:0:0);
  writeln('coba lagi(Y/T);');readln(Lagi);
  writeln;
  writeln;
  tb:=tb+by;
  end;
  writeln('total bayar:',tb:0:0);
  end.


• jalankan program anda, caranya tekan tombol control f9 pada keyboard atau pilih menu run.

Crystal Report

Tampilan Toolbox sebelum anda registerkan Crystal Report Control.

Jika melihat gambar diatas maka tidak ada : Crystal Report Control
Untuk memunculkannya :
Klik Kanan Pada ToolBox

Kemudian Klik Choose Item
(mohon sabar karena proses choose item biasanya sedikit lama)

Jika sudah muncul silahkan Klik COM Components
Klik Browse
Kemudian cari pada Drive C:\WINDOWS\SYSTEM32
Cari : crysctl32.ocx

Klik Open

Maka akan muncul : Crystal Report Control
Kemudian Klik OK

Silahkan Cek pada ToolBox VB Net anda, maka akan muncul Crystal Report Control yang penggunaannya sama dengan VB 6.0

Membuat Segitiga Melalui C++

Pada tutorial kali ini, Anda akan dituntun untuk membuat berbagai macam pola menggunakan C++.

Sebelum memulai tutorial ini, pastikan bahwa anda telah menguasai:

• Dasar Input/Output di C++
• Variable di C++
• Looping For dan Nested For

Pertama-tama kita menyediakan kode-kode dasar dalam pembuatan program C++

1 2 3 4 5 6 7 8 9

#include <iostream>    using namespace std;    int main() {     int i,j,n;        return 0; }

Lalu kita akan membuat pola segitiga siku-siku. Namun sebelum itu, kita harus mengetahui cara membuat pola persegi terlebih dahulu

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#include <iostream>    using namespace std;    int main() {     int i,j,n;       cout << "Masukkan nilai N: ";     cin >> n;       for (i=1;i<=n;i++) {         for (j=1;j<=n;j++) {             cout << "*";         }         cout << endl;     }        return 0; }

Output program diatas adalah:

1 2 3 4 5 6

Masukkan nilai N: 5 ***** ***** ***** ***** *****

Lalu kita akan memotong persegi itu secara diagonal. Ini dapat dilakukan dengan mengubah batas-batas pada counter for kedua (dalam hal ini adalah for dengan counter J).

Jika kita mengubah code menjadi:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#include <iostream>    using namespace std;    int main() {     int i,j,n;       cout << "Masukkan nilai N: ";     cin >> n;       for (i=1;i<=n;i++) {         for (j=1;j<=i;j++) {             cout << "*";         }         cout << endl;     }        return 0; }

maka output program akan menjadi:

1 2 3 4 5 6

Masukkan nilai N: 5 * ** *** **** *****

Kita juga bisa bereksperimen dengan batas-batas tersebut.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#include <iostream>    using namespace std;    int main() {     int i,j,n;       cout << "Masukkan nilai N: ";     cin >> n;       for (i=1;i<=n;i++) {         for (j=i;j<=n;j++) {             cout << "*";         }         cout << endl;     }        return 0; }

akan menghasilkan:

1 2 3 4 5 6

Masukkan nilai N: 5 ***** **** *** ** *

Jika kita ingin membuat posisinya rata ke kanan, kita harus membuat sebuah segitiga untuk meratakan bagian kiri.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#include <iostream>    using namespace std;    int main() {     int i,j,n;       cout << "Masukkan nilai N: ";     cin >> n;       for (i=1;i<=n;i++) {         for (j=i;j<n;j++) {             cout << "."; // segitiga kiri         }                   for (j=1;j<=i;j++) {             cout << "*"; // segitiga kanan         }         cout << endl;     }        return 0; }

akan menghasilkan:

1 2 3 4 5 6

Masukkan nilai N: 5 ....* ...** ..*** .**** *****

Dengan mengganti karakter yang dicetak pada segitiga kiri menjadi spasi (" "), maka anda akan mendapatkan hasil seperti:

1 2 3 4 5 6

Masukkan nilai N: 5     *    **   ***  **** *****

Dengan menggunakan cara-cara diatas, anda dapat membuat pola-pola gabungan seperti:

1 2 3 4 5 6 7 8 9

*    ***   *****  ******* *********  *******   *****    ***     *

1 2 3 4 5 6 7 8 9

******* * ***** * ** *** ** *** * *** **** **** *** * *** ** *** ** * ***** *  *******