Jumat, 12 Agustus 2011

Contoh source code timbangan digital ( load cell )

Contoh listing sederhana ini menggunakan TForm, TBitBtn, TComport dan TEdit utk menampilkan hasil timbangan yang ditangkap.

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var Str:string;
begin
ComPort1.ReadStr(Str,Count);
Str1:=Str1+Str;
StrBerat:=Copy(Str1,DM1.Awal,DM1.Size);
NBerat:=StrToFloat(StrBerat)*DM1.Digit;
Edit1.text:=FloatToStr(NBerat); //utk menampilkan pembacaan indikator
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

if ComPort1.Connected then
ComPort1.Close
else
begin
with ComPort1 do
begin
Port:=DM1.Port;
BaudRate:=StrToBaudRate(xxxx); //nilai sesuaikan dengan spesifikasi alat
DataBits:=StrToDataBits(yyyy); //nilai sesuaikan dengan spesifikasi alat
StopBits:=StrToStopBits(zzzzz); //nilai sesuaikan dengan spesifikasi alat
Parity.Bits:=StrToParity(rrrrr); //nilai sesuaikan dengan spesifikasi alat
FlowControl.FlowControl:=StrToFlowControl(cccccc); //nilai sesuaikan dengan spesifikasi alat
Open;
end;
end;
end;

utk memahami listing di atas anda sebaiknya baca dulu tentang TComPort
utk memastikan koneksi indikator timbangan (load cell ) ke komputer sudah tidak masalah, cek dengan terminal pada windows.

semoga bermanfaat
Tx

9 komentar:

  1. Pak, Biasa pakai Timbangan Merk Apa?
    yang bisa koneksi ke Komp pakai Jaringan (Alat punya IP sendiri) ada gak ya?

    BalasHapus
    Balasan
    1. Maaf..lama ga buka blog..sibuk beberapa project...

      Saya biasanya pake Mettler Toledo..

      Klo timbangan yg kaya fitur..termasuk IP sendiri biasanya produk cina..

      Hapus
  2. maaf pak mau tanya (newbie) kalau DM1 diatas apa ya pak? tolong penjelasannya pak

    BalasHapus
  3. Malam, pak.. sya sedang membuat skripsi tentang jembatan timbang.. dan sedang butuh timbangan digital portable yg dapat terhubung dengan komputer
    untuk simulasi merk apa ya?

    BalasHapus
    Balasan
    1. klo standard utk simulasi ya mettler toledo

      Hapus
  4. pak cahyo bisa bikin program timbangan formulasi resep? klo bisa tolong hub sy di email sobariarie@gmail.com

    BalasHapus
  5. pak cahyo bisa bikin program timbangan formulasi resep? klo bisa tolong hub sy di email sobariarie@gmail.com

    BalasHapus
  6. Bisa minta nomor telepon pak ?

    BalasHapus