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:

@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

@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

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:

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:

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 beginner

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...

mas 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 :

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

kalau pakai printf("%f",vin); kayak gini tanda#13tu dinyatakan dalam apa mas?

@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 beginner

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...

mas 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 :

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

sekali lagi trims buat mas @denmasdanang :oops: :oops: ok.saya akan coba lagi,... :lol:

@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 beginner

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...

mas 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 :

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

sekali lagi trims buat mas @denmasdanang :oops: :oops: ok.saya akan coba lagi,... :lol:

@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);

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,,

dapat dilihat disini mas http://elkaubisa.blogspot.com/2009/07/rangkaian-konverter-usb-to-rs232.html