temen saya buat tiga sensor arah angin, kecepatan dan suhu....dan memakai AT89c51 nah saya bagian PC nya..ikz..pake Delphi7.. dari ketiga sensor itu sudah bisa diterima datanya.. melalui serial port.. dan comport untuk komponen di delphinya.. terus saya bingung untuk memisahkan data dari masing masing sensor tersebut misalnya seperti ini:(a=sensor1)(b=sensor2)(c=sensor3) a11b12c52 di mikronya emang sudah di setting jika sensor1 mengirim data ke mikro di beri header (a), begitulah seterusnya..dalam proses tersebut daya harus memisahkan datanya untuk memasukannya kedatabase.. pertanyaan saya bagaimana: 1. memisahkan data tersebut 2.mengconvert datanya terima kasih.. mohon bantuanya ya master-master DELPHI.. maaf kalau ada salah kata..

Ehm...dari data tsb....tipenya apa numeric ato string.... kalo numeric menurutku di convert aja ke string.... soalnya utk pemisahan datanya lebih enak

datanya sudah memakai string mas.. udah jadi..tapi ini tinggal konvert n masukin kedatabase.. saya sudash bisa masukin datanya tapi belum di konvert dan masih bercampur-campur antara sensor satu dengan yang lain.. maksudnya jika a masuk ke a gitu mas.. saya sudah buntu bin buntat..

data yang diterima apakah selalu ketiga alat sensornya atau bisa hanya 2 alat sensor atau 1 alat sensor? Kalau selalu ke tiga alat sensor akan sangat mudah, tinggal lakukan pengecakan dengan perulangan dan IF kondisi, pake function Copy untuk ngecek perkarakternya

apakah spt ini : sensor1 := StrToIntDef(copy(nilai,2,2),0); sensor2 := StrToIntDef(copy(nilai,5,2),0); sensor3 := StrToIntDef(copy(nilai,8,2),0);

prosedur pisahin(kiriman: string;var sensor1:string; var sensor2:string;var sensor3:string); var i,tandaA,TandaB,TandaC : integer; begin i:=1; sensor1:=''; sensor2:=''; sensor3:=''; repeat if lower(kiriman[i])='a' then tandaA:=i else if lower(kiriman[i])='b' then tandaB:=i else if lower(kiriman[i])='c' then tandaC:=i inc(i); until length(kiriman)=i; sensor1:=copy(kiriman,tandaA,tandaB-TandaA); sensor2:=copy(kiriman,tandaB,tandaC-TandaB); sensor3:=copy(kiriman,tandaC,length(kiriman)-TandaC); end; end; kada ngalih kan modifnya

Thanks Y masss... aku langsung COBA deh saran saranya mas.. THANKZ... :D :D :D ntar kalo saya g reti saya tanya lagi... :)