Arsip: help..... USB to SERIAL mengunakan ic FT232 BL :((

more 12 years ago
tsalits
pemisi....
:oops: :oops: :oops:
ane newbie mau curhat pada master-master sekalian:
begini saya kan mau ngirim data sensor suhu ke delphi 7.0 pakek komponen comport, tapi via usb,,
di hyperterminal sudah muncul data suhunya, tapi kenapa di delphi (grafik) kayak gag ada pengaruhnya ya, tapi indikator pengiriman USBnya nyala??
note: di delphi udah kedetek sebagai COM, dan saya menggunakan IC FT232BL sebagai konverter USB to SERIALnya,
help me master...urgent mau deadline pengumpulan alat TA....
:(((((
:cry: :cry: :cry: :cry: :cry: :cry:

more 12 years ago
denmasdanang
@tsalits: pemisi.... :oops: :oops: :oops: ane newbie mau curhat pada master-master sekalian: begini saya kan mau ngirim data sensor suhu ke delphi 7.0 pakek komponen comport, tapi via usb,, di hyperterminal sudah muncul data suhunya, tapi kenapa di delphi (grafik) kayak gag ada pengaruhnya ya, tapi indikator pengiriman USBnya nyala?? note: di delphi udah kedetek sebagai COM, dan saya menggunakan IC FT232BL sebagai konverter USB to SERIALnya, help me master...urgent mau deadline pengumpulan alat TA.... :((((( :cry: :cry: :cry: :cry: :cry: :cry:mas tsalits, >> di hyperterminal sudah muncul data suhunya, tapi kenapa di delphi (grafik) kayak gag ada pengaruhnya ya, tapi indikator pengiriman USBnya nyala?? : yang pertama : apakah sensor suhu yang dirancang mengirimkan data secara simultan terus menerus? yang kedua : pengiriman data dari sensor suhu apakah dilakukan bila sudah lengkap, misal suhu terbaca 23 derajat celcius, data dikirim berupa angka 2, kemudian angka 3 bila kejadiannya seperti yang saya sebutkan diatas, maka memang benar di hyperterminal data bisa terbaca ( bisa dilihat hasilnya ). untuk component comport pada procedure OnRxChar :
procedure TfrmMain.ComPortRxChar(Sender: TObject;
Count: Integer);
var
Str: String;
begin
ComPort.ReadStr(Str, count);
// variable s didefinisikan pada bagian private
s := s + str;
if str =#13then begin
isPlus := False;
// output data
label1.Caption := trim(s);
s := '';
end;
end;
semoga bermanfaat
more 12 years ago
tsalits
@denmasdanang:trims buat mas ' denmasdanang ' 1) yang pertama : ini sebagian penggalan software dalam avr saya menggunakan codevision #codeinisialisasi adc/ sampling data adc sebanyak 50 x kemudian dikirim via serial char buffer[33]; int buff_data[101]; float baca_sensor() { unsigned char i; float data,rate; long int jumlah; for (i=0;i<50;i++){ // pengambilan sampling adc sebanyak 100kali disimpan di data array buff_data[i]=read_adc(0); delay_ms(1); } jumlah=0; for (i=0;i<50;i++){ jumlah=jumlah+buff_data[i]; // penjumlahan sampling yang diperoleh diatas } rate=(float)jumlah/50; // rata rata sampling data=((rate500)/1023); // ((rate 5V)/1023)) ftoa(data,1,buffer); return data; } #codeperintah ngirimkan while (1) { // Place your code here baca_sensor(); puts(buffer); putchar(13); putchar(10); }; " kayaknya adc baca tegangan dengan model array sebanyak 50 kali kemudian dikirim menggunakan serial-asychronous dengan baundrate 2400, dan kayaknya simultan deh mas he..he ":oops: 2) yang kedua : gimana ya mas saya blm mengerti bnget soal itu maklum masih beginner :oops:@tsalits: pemisi.... :oops: :oops: :oops: ane newbie mau curhat pada master-master sekalian: begini saya kan mau ngirim data sensor suhu ke delphi 7.0 pakek komponen comport, tapi via usb,, di hyperterminal sudah muncul data suhunya, tapi kenapa di delphi (grafik) kayak gag ada pengaruhnya ya, tapi indikator pengiriman USBnya nyala?? note: di delphi udah kedetek sebagai COM, dan saya menggunakan IC FT232BL sebagai konverter USB to SERIALnya, help me master...urgent mau deadline pengumpulan alat TA.... :((((( :cry: :cry: :cry: :cry: :cry: :cry:mas tsalits, >> di hyperterminal sudah muncul data suhunya, tapi kenapa di delphi (grafik) kayak gag ada pengaruhnya ya, tapi indikator pengiriman USBnya nyala?? : yang pertama : apakah sensor suhu yang dirancang mengirimkan data secara simultan terus menerus? yang kedua : pengiriman data dari sensor suhu apakah dilakukan bila sudah lengkap, misal suhu terbaca 23 derajat celcius, data dikirim berupa angka 2, kemudian angka 3 bila kejadiannya seperti yang saya sebutkan diatas, maka memang benar di hyperterminal data bisa terbaca ( bisa dilihat hasilnya ). untuk component comport pada procedure OnRxChar :semoga bermanfaatprocedure TfrmMain.ComPortRxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort.ReadStr(Str, count); // variable s didefinisikan pada bagian private s := s + str; if str =#13then begin isPlus := False; // output data label1.Caption := trim(s); s := ''; end; end;
code dalam delphi saya
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); data:=ord(buff[1]); edit1.text:=inttostr(data); series1.add(data,'',clred); end; 3) yang ketiga : bisa dijelaskan mengenai arti code yang mas berikan itu per linenya :oops: :oops: :oops: :( :( procedure TfrmMain.ComPortRxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort.ReadStr(Str, count); // variable s didefinisikan pada bagian private s := s + str; if str =#13then begin isPlus := False; // output data label1.Caption := trim(s); s := ''; end; end; sebelumnya maaf mas banyak ngrepotin nih.... :oops: :cry: :oops: :cry: :oops: :cry:
more 12 years ago
denmasdanang
trims buat mas ' denmasdanang ' 1) yang pertama : ini sebagian penggalan software dalam avr saya menggunakan codevision #codeinisialisasi adc/ sampling data adc sebanyak 50 x kemudian dikirim via serial char buffer[33]; int buff_data[101]; float baca_sensor() { unsigned char i; float data,rate; long int jumlah; for (i=0;i<50;i++){ // pengambilan sampling adc sebanyak 100kali disimpan di data array buff_data[i]=read_adc(0); delay_ms(1); } jumlah=0; for (i=0;i<50;i++){ jumlah=jumlah+buff_data[i]; // penjumlahan sampling yang diperoleh diatas } rate=(float)jumlah/50; // rata rata sampling data=((rate500)/1023); // ((rate 5V)/1023)) ftoa(data,1,buffer); return data; } #codeperintah ngirimkan while (1) { // Place your code here baca_sensor(); puts(buffer); putchar(13); putchar(10); }; " kayaknya adc baca tegangan dengan model array sebanyak 50 kali kemudian dikirim menggunakan serial-asychronous dengan baundrate 2400, dan kayaknya simultan deh mas he..he " 2) yang kedua : gimana ya mas saya blm mengerti bnget soal itu maklum masih beginnermas tsalist dari codevision : puts(buffer); putchar(13); putchar(10); pengiriman data sudah benar diakhiri dengan karakter#13dan#10,akan tetapi karakter tersebut bukan akhir dari pengiriman data, karena ada tiga kali data dikirim, yakni buffer (data suhu ), karakter 13 dan karanter 10, maka dari codingan sampeyan ini :code dalam delphi saya
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); data:=ord(buff[1]); edit1.text:=inttostr(data); series1.add(data,'',clred); end; 3) yang ketiga : bisa dijelaskan mengenai arti code yang mas berikan itu per linenya procedure TfrmMain.ComPortRxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort.ReadStr(Str, count); // variable s didefinisikan pada bagian private s := s + str; if str =#13then begin isPlus := False; // output data label1.Caption := trim(s); s := ''; end; end; sebelumnya maaf mas banyak ngrepotin nih...
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); data:=ord(buff[1]); edit1.text:=inttostr(data); series1.add(data,'',clred); end;variable data dapat berisi data suhu, karakter 13 dan 10, yang secara langsung dimasukkan ke: series1.add(data,'',clred); tentu grafik tidak akan muncul bila berisi karakter 13 dan 10 ( karakter kosong ), harusnya pengambilan data dilakukan setelah#13diterima misal seperti ini :
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var buff:string;data:integer;
begin
comport1.ReadStr(buff,count);
if (str =#13)and (trim(buff) <> '') then begin
edit1.text:=inttostr(data);
series1.add(data,'',clred);
end else data:=ord(buff[1]);
end;
monggo di utek2, :D
more 12 years ago
zacky90
kalau pakai
printf("%f",vin); kayak gini tanda#13tu dinyatakan dalam apa mas?

more 12 years ago
tsalits
@denmasdanang:sekali lagi trims buat mas @denmasdanang :oops: :oops: ok.saya akan coba lagi,... :lol:trims buat mas ' denmasdanang ' 1) yang pertama : ini sebagian penggalan software dalam avr saya menggunakan codevision #codeinisialisasi adc/ sampling data adc sebanyak 50 x kemudian dikirim via serial char buffer[33]; int buff_data[101]; float baca_sensor() { unsigned char i; float data,rate; long int jumlah; for (i=0;i<50;i++){ // pengambilan sampling adc sebanyak 100kali disimpan di data array buff_data[i]=read_adc(0); delay_ms(1); } jumlah=0; for (i=0;i<50;i++){ jumlah=jumlah+buff_data[i]; // penjumlahan sampling yang diperoleh diatas } rate=(float)jumlah/50; // rata rata sampling data=((rate500)/1023); // ((rate 5V)/1023)) ftoa(data,1,buffer); return data; } #codeperintah ngirimkan while (1) { // Place your code here baca_sensor(); puts(buffer); putchar(13); putchar(10); }; " kayaknya adc baca tegangan dengan model array sebanyak 50 kali kemudian dikirim menggunakan serial-asychronous dengan baundrate 2400, dan kayaknya simultan deh mas he..he " 2) yang kedua : gimana ya mas saya blm mengerti bnget soal itu maklum masih beginnermas tsalist dari codevision : puts(buffer); putchar(13); putchar(10); pengiriman data sudah benar diakhiri dengan karakter#13dan#10,akan tetapi karakter tersebut bukan akhir dari pengiriman data, karena ada tiga kali data dikirim, yakni buffer (data suhu ), karakter 13 dan karanter 10, maka dari codingan sampeyan ini :code dalam delphi saya
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); data:=ord(buff[1]); edit1.text:=inttostr(data); series1.add(data,'',clred); end; 3) yang ketiga : bisa dijelaskan mengenai arti code yang mas berikan itu per linenya procedure TfrmMain.ComPortRxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort.ReadStr(Str, count); // variable s didefinisikan pada bagian private s := s + str; if str =#13then begin isPlus := False; // output data label1.Caption := trim(s); s := ''; end; end; sebelumnya maaf mas banyak ngrepotin nih...procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); data:=ord(buff[1]); edit1.text:=inttostr(data); series1.add(data,'',clred); end;variable data dapat berisi data suhu, karakter 13 dan 10, yang secara langsung dimasukkan ke: series1.add(data,'',clred); tentu grafik tidak akan muncul bila berisi karakter 13 dan 10 ( karakter kosong ), harusnya pengambilan data dilakukan setelah#13diterima misal seperti ini :monggo di utek2, :Dprocedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); if (str =#13)and (trim(buff) <> '') then begin edit1.text:=inttostr(data); series1.add(data,'',clred); end else data:=ord(buff[1]); end;

more 12 years ago
tsalits
@denmasdanang:sekali lagi trims buat mas @denmasdanang :oops: :oops: ok.saya akan coba lagi,... :lol:trims buat mas ' denmasdanang ' 1) yang pertama : ini sebagian penggalan software dalam avr saya menggunakan codevision #codeinisialisasi adc/ sampling data adc sebanyak 50 x kemudian dikirim via serial char buffer[33]; int buff_data[101]; float baca_sensor() { unsigned char i; float data,rate; long int jumlah; for (i=0;i<50;i++){ // pengambilan sampling adc sebanyak 100kali disimpan di data array buff_data[i]=read_adc(0); delay_ms(1); } jumlah=0; for (i=0;i<50;i++){ jumlah=jumlah+buff_data[i]; // penjumlahan sampling yang diperoleh diatas } rate=(float)jumlah/50; // rata rata sampling data=((rate500)/1023); // ((rate 5V)/1023)) ftoa(data,1,buffer); return data; } #codeperintah ngirimkan while (1) { // Place your code here baca_sensor(); puts(buffer); putchar(13); putchar(10); }; " kayaknya adc baca tegangan dengan model array sebanyak 50 kali kemudian dikirim menggunakan serial-asychronous dengan baundrate 2400, dan kayaknya simultan deh mas he..he " 2) yang kedua : gimana ya mas saya blm mengerti bnget soal itu maklum masih beginnermas tsalist dari codevision : puts(buffer); putchar(13); putchar(10); pengiriman data sudah benar diakhiri dengan karakter#13dan#10,akan tetapi karakter tersebut bukan akhir dari pengiriman data, karena ada tiga kali data dikirim, yakni buffer (data suhu ), karakter 13 dan karanter 10, maka dari codingan sampeyan ini :code dalam delphi saya
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); data:=ord(buff[1]); edit1.text:=inttostr(data); series1.add(data,'',clred); end; 3) yang ketiga : bisa dijelaskan mengenai arti code yang mas berikan itu per linenya procedure TfrmMain.ComPortRxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort.ReadStr(Str, count); // variable s didefinisikan pada bagian private s := s + str; if str =#13then begin isPlus := False; // output data label1.Caption := trim(s); s := ''; end; end; sebelumnya maaf mas banyak ngrepotin nih...procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); data:=ord(buff[1]); edit1.text:=inttostr(data); series1.add(data,'',clred); end;variable data dapat berisi data suhu, karakter 13 dan 10, yang secara langsung dimasukkan ke: series1.add(data,'',clred); tentu grafik tidak akan muncul bila berisi karakter 13 dan 10 ( karakter kosong ), harusnya pengambilan data dilakukan setelah#13diterima misal seperti ini :monggo di utek2, :Dprocedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var buff:string;data:integer; begin comport1.ReadStr(buff,count); if (str =#13)and (trim(buff) <> '') then begin edit1.text:=inttostr(data); series1.add(data,'',clred); end else data:=ord(buff[1]); end;

more 12 years ago
denmasdanang
@zacky90: kalau pakai printf("%f",vin); kayak gini tanda#13tu dinyatakan dalam apa mas?mas zacky: #13sama dengan chr(13) atau dalam keyboard mewakili enter, bisa juga new line ( dalam pengolahan string ) contoh :
printf("data suhu sekarang = %f" +#13#10+ "suhu rata-rata = %f",isuhu,irata);

more 12 years ago
zacky90
mas boleh minta rangkaian USB to SERIAL mengunakan ic FT232 BL pa g? hehehehe maklum mas, pemula, suka bingungan, mw nyari yg sudah teruji,, ini email saya shooterzack@gmail.com kalau ada waktu senggang tolong dikirim y,,

more 12 years ago
denmasdanang
dapat dilihat disini mas
http://elkaubisa.blogspot.com/2009/07/rangkaian-konverter-usb-to-rs232.html
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- ga mau insert tanggal di MySql
by Alfando in Tip n Trik Pemrograman more 16 years ago - Bagaimana menggunakan Multi Monitor
by octa1479 in Hal umum tentang Pascal Indonesia more 17 years ago - detach database menggunakan query analizer
by esti_g in Bedah Kasus more 17 years ago - handshaking
by ihsantea in Enginering more 17 years ago - akuisisi data dari sensor ke PC untuk masuk ke database
by pima_its in Bedah Kasus more 17 years ago - tolong (cara buat program permutasi dan kompbinasi di delph)
by moena_blue in Hal umum tentang Pascal Indonesia more 17 years ago - table fastreport
by muktaf in Reporting more 17 years ago - tool utk baca & cetak struktur database
by shindo in Hal umum tentang Pascal Indonesia more 17 years ago - CR10: Error 536 incorrect log on parameters
by peddy in Reporting more 16 years ago - exe generate file .INI
by de27de in Hal umum tentang Pascal Indonesia more 15 years ago