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