Arsip: ada yang tau cara buka laci uang buat kasir pake delphi?

 
user image
more 14 years ago

alhass

@alvonz: ok thx bro @AndyK
Wah gampang bgt tuh gan.... procedure TfrmJual.bukaLaci(Sender:TObject); var cd:textfile; begin TRY AssignFile(cd,Label28.Caption); //Label28.caption --> Nampilin port printer yg terhubung Rewrite(cd); Writeln(cd,chr(27),chr(112),chr(0),chr(25),chr(250)); //Kombinasi angka beda tiap merk printer, ini kombinasi untuk epson TMU220 Closefile(cd); Except on E:Exception Do Begin ShowMessage('GUNAKAN KUNCI UNTUK BUKA LACI UANG!!'); end; end; end; Kombinasi angka dah ku Uplod, bisa download : http://rapidshare.com/files/269516175/perintah_cash_drawer.doc.html
more ...
  • Pages:
  • 1
  • 2
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com