ane pengen tanya nih ! gimane caranye pake' comport untuk mengirim or nulis nilai lewat comport thank's b4

comport.send(nilai, alamat) //buat nulis nilai:=comport.input(alamat) //buat baca

mas, bs lebh lbh detail g? maksuny alamat tu alamatny ap?portny ato yg laen? maklum mas bru knal pemrograman br sebulan yg lalu.hee

sedikit membantu... aseemblynya:: $MOD51 ORG 0000H JMP MAIN ORG 0023H JMP SERIN ORG 0100H ; Set 8 bit output MAIN: MOV TMOD,#20H ; Setting comp to 9600kbps 8bit MOV TH1,#0FDH MOV SCON,#50H SETB TR1 MOV P1,#00000000B ; Clear before start START: SETB EA ; Set serial interupt SETB ES ; Set serial interupt JMP START SERIN: JB RI,RECV ; Signal From PC RETI RECV: MOV A,SBUF ; Receive Signal CLR RI PORT0: CJNE A,#31H,PORT1 ; P1.0 ON if get signal 1 MOV P1,#1H MOV SBUF,A RETI PORT1: CJNE A,#32H,PORT2 ; P1.1 ON if get signal 2 MOV P1,#2H MOV SBUF,A RETI PORT2: CJNE A,#33H,DEFAULT ; P1.2 ON if get signal 3 MOV P1,#4H MOV SBUF,A RETI DEFAULT: MOV P1,#00000000B ; Default all output clear MOV SBUF,A RETI END Potongan Delphi nya : Procedure TForm1.FormCreate(Sender: TObject); begin ComPort1.Connected:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin ComPort1.WriteStr('1'); Button1.enabled:= False; Button2.enabled:= True; Button3.enabled:= True; end; procedure TForm1.Button2Click(Sender: TObject); begin ComPort1.WriteStr('2'); Button1.enabled:= True; Button2.enabled:= False; Button3.enabled:= True; end; procedure TForm1.Button2Click(Sender: TObject); begin ComPort1.WriteStr('3'); Button1.enabled:= True; Button2.enabled:= True; Button3.enabled:= False; end; Comport di setting ke: boud rate 9600 Data Bit 8 Stop Bit 1 Parity None Flow control None Dari 2 potongan tadi bisa ditarik garis besar: Ada 3 Button di delphi (1,2,3) Kalo Button 1 di tekan maka buton 1 tidak aktif button yang lain aktif, delphi mengirim angka "1" ke comp 1 (dst ...) Angka 1 yang diterima oleh at89c51 diolah oleh perintah Port0 sehingga menghidupkan P1.0 Note: Sample diatas belum termasuk delay, dalam artian angka 1 atau 2 atau 3 yang diterima at89c51 akan tetap tersimpan di accumulator sampai ada angka baru yang dikirim. Jadi Lampu di salah satu P1 sampai ada perintah berikutnya. ane juga baru belajar.....

Mas w4rek yg mas tulis pd program delphi'a kan bwt ngirim dari delphi ke mikro? trus bwt ngebaca dari mikro ke delphi pk comport gmn?

@barcodebima: comport.send(nilai, alamat) //buat nulis nilai:=comport.input(alamat) //buat baca

Maaf mas barcodebima, setahu saya ga ada deh sintax seperti yang mas beritahu kan?

klo mao baca itu seh saya biasanya pake

comport1.readstr(string,1);

buatnya di event Onchar pada comport.

@willbrig: klo mao baca itu seh saya biasanya pake

comport1.readstr(string,1);

buatnya di event Onchar pada comport.

bang giaman saya mengirim perintah beruba bit dari interface ke alat ..hanya satu bit aja agar alatku bekerja...alat ku yang akan diperntah relay nantinya yang akan jadi on dan of menggunakan Tcomport..bisa codingnya jga bang..

@dedidavidbala mohon baca rule, dan juga untuk replay, tidak perlu quote semua post sebelumnya thx

@LuriDarmawan: @dedidavidbala mohon baca rule, dan juga untuk replay, tidak perlu quote semua post sebelumnya thx

ia mkasi ..maaf