contoh program Kasir Sederhana (Delphi 7)

Assalamualaikum saya sekarang akan membagi cara membuat kasir sederhana berikut kodeing nya dan screen shootnya






yang di buthkan
3 buah edit
1 combobox yang item nya(PCS dan LUSIN)4 Label
4 buah button
2 panel

dan berikut kodingnan nya

procedure Tkasir.FormCreate(Sender: TObject);
begin
cb.Items.Clear;
cb.Items.Add('LUSIN');
cb.Items.Add('PCS');
button2.Enabled:=false;
button3.Enabled:=false;
end;

procedure Tkasir.Button1Click(Sender: TObject);
var
harga,jumlah,satuan,total,total1:integer;
kode:integer;
begin
if (edit1.Text='') or (edit2.Text='') or
(edit3.Text='') or (cb.Text='')  then
begin
messagedlg('silahkan lakukan transaksi dahulu',mterror,[mbok],0);
edit1.SetFocus;
exit;
end
else
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=harga*jumlah;
if cb.Text='LUSIN' THEN
total1:=total*12 ;
if cb.Text='PCS' then
total1:=total*1;label5.Caption:='Rp '+format('%.0n',[total1+0.0]);
end;
end;

procedure Tkasir.Button4Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
cb.Text:='';
label5.Caption:='Rp 0';
edit1.SetFocus;
end;

end.


dan yang mao contoh program nya silah kan ambil
 file download.

Aplikasi Penjualan VB.net (Visual Studio) + Koding full

nah kali ini saya akan menshare sebuat projek yaitu sebuah program kecil penjualan
program ini cocok sekali bagi anda yang sedang tugas akhir atau yang sedang ada tugas kuliah..
heheheh

ini salah satu tampilan dari program kecil penjualan tersebut..

nah kalo ini adalah salah satu contoh codingannya ya...

nah langsung ajh ya... kalo mau download projeck ini..
nah ia jangan sampai lupa saya menggunakan visual studio 2005..

kalo ada komentar saran.. tolong disampaikan di blog Danbisa didownload Sorch code lengkapnya di sini 

MEMBUAT FORM LOGIN DI VB.NET DENGAN DATABASE SQL SERVER

yang pertama kita desain form login seperti diatas 

atau download disini 

buatlah database dengan:

Nama Database : db_saya

dan Nama Table :tb_login 

teble isi dengan field:

1.   Userid -- Varcar(50)

2.   Nama -- Varcar(50)

3.   pass -- Varcar(50)

dan masukan scrift berikut di atas flogin.vb

Imports System.Data.SqlImports System.Data.SqlClient 

di form loadnya isi

Buka() --- ini berfungsi untuk membuka fungsi database

dan buatlah button untuk login dan isikan script berikut :

 Dim Sql, user, pass As Stringuser = txtuser.Text---namatexboxpass = txtpass.Text---namatexboxkoneksi.Close() Call buka()

Sql = "SELECT * FROM tb_login WHERE userid='" + user + "' AND pass='" + pass + "'"cmd = New SqlCommand(Sql, koneksi)baca = cmd.ExecuteReader()If baca.HasRows = True ThenForm1.Show()Me.Hide()ElseMessageBox.Show("Kombinasi Username dan Password Salah", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)txtuser.Focus() End If txtuser.Text = ""txtpass.Text = ""

baca.Close()cmd.Dispose() 

apabila anda ingin contohnya bisa download disini  Trimakasih semoga bermnfaat

Kalkulator Sederhana Vb.Net

Banyak aplikasi desktop yang bisa dibuat dengan visual studio, dengan menggunakan bahasa vb.net

Disini saya membuat sebuah aplikasi kalkulator dengan mengunakan vb.net, aplikasi yang saya buat ini masih berupa kalkulator sederhana yang hanya bisa mengali, membagi, menjumlah dan mengurang.

Source Code dan Keterangan lebih lengkapnya download disini :
Download Ebook Kalkulator Sederhana 
Semoga Bermanfaat. :-)

Data Input Grid Control untuk VB6 (Free Download)

DOWNLOAD FILENYA  download. DISINI

Salah satu fasilitas dalam pembuatan program aplikasi, terutama program dengan VB6 adalah aplikasi yang menggunakan data grid pada form input yang dibutuhkan. Misalnya dalam modul transaksi yang mana kita diminta untuk mengisi lebih dari 1 item dalam 1 nomor transaksi tertentu seperti contoh yang terlihat pada gambar di bawah ini: 

Hal ini kadang-kadang membuat programmer newbie merasa betapa bagaimana sulitnya untuk dapat mengakomodasi aplikasi menggunakan data masukan grid sesuai yang diinginkan.

Ada banyak cara untuk menerapkan model input data grid dengan berbagai komponen ActiveX (OCX), misalnya menggunakan kontrol ListView yang dikombinasikan dengan TextBox atau menggunakanFlexGrid bergabung dengan TextBox dan ada banyak cara lain sesuai dengan keinginan kita. Tapi kendala dalam melakukan edit terhadap kontrol ini sangat sulit, terutama jika akan digunakan dalam beberapa bentuk transaksi yang berbeda-beda. Oleh karena itu, cara yang paling baik jika kita membuatActiveX Control (OCX) dengan desain tang umum serta parameter yang bisa diubah sesuai dengan kebutuhan aplikasi transaksi. 

Dalam pengalaman saya ketika mengembangkan program aplikasi dengan jumlah modul transaksi yang banyak, mengharuskan saya untuk dapat memaksimalkan kebutuhan tersebut, sehingga saya harus membuat kontrol ActiveX Data Input Grid untuk  bisa digunakan secara independen, fleksibel dan mudah diterapkan program aplikasi, sehingga kecepatan dalam menyelesaikan proyek dapat dimaksimalkan.

Oleh karena itu, saya akan memberikan gratis komponen ActiveX Control (OCX) untuk para programer yang membutuhkannya. Jika Anda tertarik silahkan download komponen di sini, berikut juga saya sertakan contoh sederhana bagaimana cara menggunakanmya dalam VB6.

Pada prinsipnya untuk menggunakan komponen tersebut adalah sebagai berikut: 

• Setelah anda download komponen tersebut (DataBrowse.ocx), lakukan register komponen dengan menggunakan perintah RegSvr32.
• Kemudian buat sebuah proyek baru yang menggunakan VB6 (Standard Exe), kemudian tambahkan DataBrowse komponen ke dalam proyek dengan memilih menu Project - Components atau menekan kunci Ctrl + T. Pilih komponen "Sena Software Data Table Browse Component".
  
• Drag komponen DataBrowse ke dalam form, dan kemudian lakukan pengaturan sesuai dengan kebutuhan anda. Untuk lebih detail anda bisa lihat dari source code yang saya sertakan dalam file download.