Line Folower Konsep PID seting

Line Folower ...HarGA Rp. 1.200.000 / nego +Usb donloader  jika berminat hubungi 08562601516

atau melaLui Email arkie.saviero@gmail.com

jual usb downloader

Di jual USB downloader (ISP downloader) harga murah Rp.85.000,

Menggunakan ATmega 8A
Chasing Bahan Aklirik
mudah penggunaannya... stock terbatas..

Sangat cocok untuk para tukang program..

Jika berminat hubungi 08562601516 atau 083892841785 ( arkie )

Atau lewat email arkie.saviero@gmail.com atau arkie_saviero@ymail.com

KOMUNIKASI SERIAL MENGUNAKAN VISUAL BASIC 6

A.    TUJUAN

-         Mengenal VB 6.0

-         Mengerti tentang dasar komunikasi serial 

-         Dapat memprogram visual basic agar komunikasi serial pada VB 6.0 

B.     DASAR TEORI

Untuk menggunakan port serial kita bisa menggunakannya langsung menggunakan control Mscomm yang telah disediakan oleh Visual Basic. Kontrol Mscomm menyediakan fasilitas komunikasi antara program aplikasi dengan port serial sehingga dapat menerima atau mengirim data. Setiap Mscomm hanya dapa satu port serial sehingga jika kita menggunakan lebih dari satu port serial harus menggunakan Mscomm yang lain. Mscomm dapat di tambahkan dengan cara : tekan CTRL+T lalu pilih Microsoft Comm Control 6. Property yang digunakan waktu percobaan adalah Comm port ( untuk menentukan port serial yang kita gunakan), setting (untuk mengatur nilai baud ratr, parity,jumlah bit data dan jumlah bit stop.), Port open (untuk membuka atau menutup port serial), input (untuk mengambil data pada buffer penerima), dan output ( untuk menulis data pada buffer kirim input). Agar bisa berkomunikasi buat agar DTR enable,EOFenable,RTSenable di buat true sedangkan RThreshold dan Sthreshold di buat “1” dan baud rate antara kedua komputer sama.

C.     HASILNYA

1.      Desaign form

Gambar form penerima dan pengirim data

gambar form saat di jalankan

2.      Listing program

Private Sub Command1_Click()

MSComm1.Output = Text1.Text

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Command3_Click()

If MSComm1.PortOpen = False Then

MSComm1.PortOpen = True

End If

End Sub

Private Sub Command4_Click()

If MSComm1.PortOpen = True Then

MSComm1.PortOpen = False

End If

End Sub

Private Sub mscomm1_oncomm()

Text2.Text = MSComm1.Input

End Sub

D.    ANALISA DAN KESIMPULAN

Analisa

•                     Agar bisa berkomunikasi buat agar DTR enable,EOFenable,RTSenable di buat true sedangkan RThreshold dan Sthreshold di buat “1” dan baud rate antara kedua komputer sama.

•                     Untuk mengirim data yaitu pada sub_command1 yaitu dengan cara menulis MSComm1.Output=text1.text yang artinya data yang di tulis di text1.text adalah data yang akan di kirim

•                     Untuk menerima data yaitu pada MSComm1_OnComm yaitu dengan cara menulis text2.text=MSComm1.input yang berarti data yang di terima akan di tampilkan di text2.text

•                     If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If .Program tersebut merupakan program untuk membuka port. Program ini di gunakan agar tidak terjadi perintah membuka port saat port telah terbuka.

•                     If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If .Program tersebut merupakan program untuk menutup port. Program ini digunakan agar tidak terjadi perintah menutup port saat port telah tertutup

Kesimpulan

• Di dapat kesimpulan bahwa pada MSComm.Input untuk sintaks menerima data dan  pada MSComm.Output untuk sintaks mengirim datanya. MSComm digunakan untuk komunikasi serial pada VB.