SIMULASI SISTEM PEMBELIAN BBM MENGGUNAKAN AT89S51 DENGAN DELPHI 7 – MYSQL (PART II : KOMUNIKASI SERIAL)

di Part II judul TA ini saya postingkan cara komunikasi serial secara mudah dari Mikrokontroler anda ke program yang telah di buat menggunakan Borland Delphi 7.0

Di program ini kita akan mencoba mengirimkan perintah dari aplikasi yang telah dibuat untuk menghidupkan dan mematikan LED yang ada di mikrokontroler

Langkah – langkah

1. Siapkan mikrokontroler anda ( meliputi : downloader + rangkaian LED yang tersambung pada P0 mikro + kabel data serial yang menghubungkan komputer dengan mikro sebagai jalur komunikasi )
2. ketikkan program ini pada editor anda

org 0000h
    jmp main

org 0023h
    jmp serint

org 0100h
main:
     mov TMOD,#20h
     mov TH1,#0fdh
     mov scon,#50h
     setb TR1

     mov p2,#00000000b

mulai:
      setb ea
      setb es
      jmp mulai

serint:
       jb RI,RCV
       reti

RCV:
    mov A,SBUF
    CLR RI

lampu_a:
     cjne A,#31h,lampu_b
     mov p2,#03h
     mov SBUF,A
     reti

lampu_b:
        cjne A,#32h,lampu_c
        mov p2,#07h
        mov SBUF,A
        reti
lampu_c:
        cjne A,#33h,lampu_d
        mov p2,#0Fh
        mov SBUF,A
        reti
lampu_d:
        cjne A,#34h,lampu_e
        mov p2,#1Fh
        mov SBUF,A
        reti
lampu_e:
        cjne A,#35h,default
        mov p2,#00h
        mov SBUF,A
        reti
default:
        mov p2,#00000000b
        mov sbuf,A
        reti
end 

3.  Compile program tersebut menggunakan compiler untuk keluarga MCS51.

4. Download file hex program yang telah dibuat

untuk persiapan pembuatan aplikasi Delphi 7.0

1. download komponen TCOMPort by Dejan Crnila

2. install komponen

3. gunakan komponen ComPort

4. Setting penggunaan komponen di Object Inspector Comport ( setting baudrate,  letak Port, dll )

5. Buat 5 tombol. Untuk procedure masing2 tombol :

ComPort1.Write(‘1’); –> untuk tombol ke satu

ComPort1.Write(‘2’); –> untuk tombol ke dua

ComPort1.Write(‘3’); –> untuk tombol ke tiga dst

pastikan mikro anda berada pada port yang benar dengan xtal 11,059 MHz dan baudratenya 1200.  Run program aplikasi delphi, let see what happen…..