Pemrograman Timbangan Digital

[alung dragon]

Ada yang tahu gak gmn pemrograman Delphi utk Timbangan Digital?
Thx utk responnya...

[Soesapto Joeni Hantoro]

Sekedar sharing.

Yang pertama musti diketahui koneksi device (timbangan) ke komputer pake apa?

Perlu juga tersedia referensi teknis dari device tersebut.

Kalo udah tau tinggal dibaca input dari koneksi tersebut.

Dulu aku pernah buat untuk Jembatan Timbang, koneksi pake serial port.

Jadi program dibuat pake Delphi dengan Comport Library http://sourceforge.net/projects/comport/

Timbangan akan mengirim data berat saat itu dalam bentuk teks "STxxxxx",

jadi tinggal aku ambil datanya dari teks tersebut.

Ini contoh penggalan program (disederhanakan, cuma untuk menampilkan data berat saat itu ke Caption) :

procedure TForm1.cpRxChar(Sender: TObject; Count: Integer);

var  Str: String;

begin

  cp.ReadStr(Str, Count);

  sData := sData + Str;

  if (Pos(#13 + #10,sData)>0) or (Pos(#13,sData)>0) or (Pos(#10,sData)>0)then

  begin

   if copy(sData,1,2)='ST' then  pnlBerat.Caption := Copy(sData,3,10);

   sData := '';

  end;

end;

Tapi itu program lawas, 7 tahun yll, koneksi masih pake port serial,

skr biasane koneksi pake USB, dan kebetulan aku belum pernah bikin program dengan koneksi pake USB.

2011/7/26 alung dragon <alung...@yahoo.com>

Ada yang tahu gak gmn pemrograman Delphi utk Timbangan Digital?
Thx utk responnya...

--
URL group: http://groups.google.com/group/bengkelprogram?hl=id
 Untuk keluar dari grup ini, kirim email kosong ke bengkelprogra...@googlegroups.com
 Website: http://www.bengkelprogram.com

[alung dragon]

Infonya sangat membantu mas Soesapto... Trimakasih byk... ======================================================================== FB : http://www.facebook.com/alung.naga Twit : http://twitter.com/AlungNaga ======================================================================== --- On Wed, 7/27/11, Soesapto Joeni Hantoro <shi...@gmail.com> wrote:

[ana.ab...@gmail.com]

Mas Sapto, boleh minta contoh program ini mas?

untuk bahan belajar nih

[Soesapto Joeni Hantoro]

Udah ga tau ke-mana, udah setidaknya 16 tahun yll 😂

--

--
URL group: http://groups.google.com/group/bengkelprogram?hl=id
Untuk keluar dari grup ini, kirim email kosong ke bengkelprogra...@googlegroups.com
Website: http://www.bengkelprogram.com

---
Anda menerima pesan ini karena berlangganan grup "BengkelProgram" di Google Grup.
Untuk berhenti berlangganan dan berhenti menerima email dari grup ini, kirim email ke bengkelprogra...@googlegroups.com.
Untuk melihat diskusi ini di web, kunjungi https://groups.google.com/d/msgid/bengkelprogram/ff356007-38dc-4761-bece-3845a7c1ec1an%40googlegroups.com.