Cara2xMudah

Program Kasir Pascal . kali ini ane share pola kegiatan pascal kasir market atau pasac ,berguna untuk menghitung suatu pembayaran dengan baik. Program ini aku buat ketika aku bersekolah, Source code ini aku bagikan untuk sekedar sharing mungkin ini sedikit berguna. Silahkan dikembangkan script di bawah ini dan Jangan lupa untuk tidak mengganti general public licensi(GPL) . Silahkan sahabat oprek-oprek sendiri ( open source ).

Berikut screenshot kegiatan outputnya gan . Silahkan dicoba jikalau ada kesalahan harap komentar dibawah , kita diskusikan sama-sama .

Spoiler output Program Kasir

1.     Open DOSBox nya
2.     Ketik " mount c: c:\tp7 " ( sesuaikan lokasi tp7 nya kalau aku simpanya di c )
3.     Ketik " c: "
4.     Ketik " cd BIN "
5.     Ketik " TURBO.EXE "
6.     Setelah itu write code nya .
7.     Compile code nya ( alt + f9 )
8.     Run ( ctrl + f9 )

Lebih elok untuk menuliskan script di atas tanpa menyalin, berikut keluaran dari textarea di atas
Program Kasir;
uses
    crt;
label
     awal,exit;
var
nam_bar :string;{nama barang}
har_sat :real ;{harga satuan}
ban_bar :real ;{banyak barang}
tot_har :real ;{total harga}
uang_cash:real ;{uang cash}
pot_har:real;{potongan harga}
kemb :real;{kembalian}
non_pot :real;{non potongan}
ya :char;{kembali ke awal}

{ * https://yogithesymbian.blogspot.com
     https://www.yogi-aw.id
*}
begin
     awal:
     clrscr;
     writeln('PROGRAM KASIR ');
     writeln('--------------               yogithesymbian.blogspot.com');
     write('Nama Barang:'); readln(nam_bar);
     write('Harga Satuan :Rp.'); readln(har_sat);
     write('Banyak Barang:') ; readln(ban_bar);
     tot_har:=(har_sat*ban_bar);
     writeln('Total Harga :Rp.',tot_har:1:0);
     if tot_har>=5000 then
     pot_har:=(0.1*tot_har);
     if tot_har<500 then
     pot_har:=(0.0*tot_har);
     writeln('Potongan Harga :Rp. ',pot_har:1:0);
     write('Uang Cash :Rp.'); readln(uang_cash);
     kemb:=(uang_cash)-(tot_har-pot_har);
     writeln('Uang Kembalian :Rp.',kemb:1:0);
     write('Masukkan Data Lagi(y/n)?'); readln(ya);
     if ya='y' then
     goto awal
     else if ya='n' then
     goto exit;
     exit:

end.



======================================================================




 Semoga bermanfaat gan .

Program Barcode Reader, Kali ini saya akan share kembali source code aktivitas mudah tersebut yang niscaya sanggup teman kembangkan menjadi lebih baik dari sebelumnya . Program ini memakai bilangan real , dan aktivitas ini seakan-akan dengan perkalian pada aktivitas kalkulator . Hanya saja pada aktivitas ini disajikan input data gan . Untuk Program Kalkulator memakai Pascal nanti akan saya share tutorialnya beserta source codenya dan Program Kalkulator memakai VB.NET gan. Hehehe jadi pantau terus ya ... blog ini alasannya yaitu akan dilampirkan ++ yaitu video tutorialnya .

spoiler pembayaan ( barcode reader )

Wahh yummy ya source code ada , video tutorial ada , free comment dibawah. tinggal niat dan tekun untuk berguru niscaya gampang ini gan. Hahaha saya sendiri akhir-akhir ini kurang berguru .

Langsung saja kita ke topic utama

1. Open DOSBox nya
2. Ketik " mount c: c:\tp7 " ( sesuaikan lokasi tp7 nya kalau saya simpanya di c )
3. Ketik " c: "
4. Ketik " cd BIN "
5. Ketik " TURBO.EXE "
6. Setelah itu write code nya .
7. Compile code nya ( alt + f9 )
8. Run ( ctrl + f9 )

Berikut listing codenya :






wiki barcode reader
Pembaca tipe pena terdiri dari sumber cahaya dan dioda yang ditempatkan di samping satu sama lain di ujung pena atau tongkat pengubah. Untuk membaca isyarat bar, orang yang memegang pena harus memindahkan ujungnya ke kafetaria dengan kecepatan yang relatif seragam. Fotodioda mengukur intensitas cahaya yang dipantulkan kembali dari sumber cahaya ketika ujungnya melintasi setiap bilah dan spasi pada isyarat cetak. Photodiode menghasilkan bentuk gelombang yang dipakai untuk mengukur lebar kafetaria dan spasi pada isyarat batang. Balok gelap pada isyarat batang menyerap cahaya dan ruang putih memantulkan cahaya sehingga bentuk gelombang tegangan yang dihasilkan oleh fotodioda merupakan representasi dari contoh kafetaria dan spasi pada isyarat batang. Bentuk gelombang ini diterjemahkan oleh pemindai dengan cara yang seakan-akan dengan titik isyarat Morse dan garis-garis yang didekode.

Ok sekian sob ... silahkan request apps , Saya akan coba lakukan , Bisa melalui email atau pada kolom komentar di bawah .