Mungkin anda telah terbiasa membuat beragam rangkaian-rangkaian elektronika, tapi pada peluang ini aku akan mengajak anda untuk bisa mengerjakan rangkaian elektronika dengan menggunakan komputer. Anda hanya perlu mengenali sedikit wacana pemograman vb atau visual basic dan ketentuan interfacing pada port parallel. Untuk rangkaian interface anda mampu menambahkan buffer selaku kemanan PC anda dari pengaruh rangkaian elektronika yang anda buat. Tetapi disini saya tidak akan memakai buffer alasannya rangkaian yang akan aku kerjakan hanya sederhana serta biar lebih mudah diketahui dan diprakterkkan kembali oleh anda. Apa-apa saja yang anda mesti siapkan untuk permulaan:
PC yang sudah terinstall Vb 6.0
File inpout32.dll copykan ke windows/system32
Kabel port parallel LPT 25 pin
8 buah led
8 buah resistor 100 ohm
file inpout32.dll bisa anda cari dengan paman google.
Contoh rangkaian yang akan kita kendalikan ialah yang paling sederhana yaitu menyala dan mematikan 8 buah led dengan sidikit kombinasi tentunya. Pada percobaan awal ini anda tidak perlu membuat rangkaian elektronik. Anda hanya bertugas menghubungkan setiap led dengan pin D0-D7 dan jangan lupa pasang resistor 100 ohm pada setiap led untuk menghalangi arus led. Saya sarankan supaya anda semestinya memakai potoboard supaya mampu lebih simpel dan mampu menjajal bentuk rangkaian yang lain.
I. KeteranganPindariPort Parallel atau kabel LPT
Gambar informasi pin-pin port parallel
Tidak terlalu banyak yang anda harus pelajari dari ketentuan pin-pin port parallel LPT ini utamanya yang mempunyai 25 pin. Yang anda perlu ketahui yakni pengelompokan pin-pin tersebut.
Pin2-pin9 : jalur data 8 bit (D0-D7) bertindak sebagai output
Pin10,11,12,13 dan 15 : jalur status 8 bit bertindak selaku input / output
Pin1,14,16 dan 17 : jalur kontrol 4 bit bertindak selaku input / ouput
Pin 18-25 : Ground
Untuk permulaan anda bisa mencobanya dengan menajalankan 8 buah led pada jalur data.
II. Pembuatan Program dengan Visual Basic
1. Untuk pertama kali buatlah new project patokan exe dengan nama terserah anda. Kemudian jangan lupa untuk mendeklarasikan file inpout32.dll dengan cara kilik form dua kali, kemudian ketikkan perintah dibawah ini pada posisi paling atas diluar sub form_load. Atau anda buka modul gres dan ketikkan perintahnya pada jendela modul tersebut, tetapi anda haru mengganti kata Private dengan Public supaya bisa terbaca oleh form.
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
2. Buatlah waktu tunda untuk menyalakan led. Ketikkan perintah dibawah ini sempurna dibawah dari perintah yang anda ketikkan tadi.
Private Sub tunda()
a = Timer
Do While Timer <>
DoEvents
Loop
End Sub
3. Tambahkan Timer pada form. Timer berupa gambar jam yang ada di kotak toolbox. Ubah intervalnya menjadi 200 dan Enabled = False melalui jendela properties.
4. Tambahkan 8 buah Shape yang berupa bundar dari toolbox, ubah nama ke-8 shape menjadi L lewat jendela properties. Sehingga nanti nama setiap shape tersebut yaitu L(0) sd L(7). 0 sampai 7 menawarkan index, cara ini maksudnya supaya kita bisa dengan mudah membuat programnya.
5. Tambahkan Command Button, kilik dua kali dan ketikkan perintah dibawah ini :
Timer1.Enabled = True
6. Klik dua kali timer dan ketikkan perintah dibawah ini :
For i = 0 To 7
L(i).FillColor = &HFFFF&
Out &H378, (2 ^ (i + 1)) - 1
tunda
Next i
7. Jalankan program
Penjelasan singkat acara :
-Waktu tunda kita gunakan untuk memberi jeda waktu pada acara untuk membaca perintah berikutnya, supaya lama kedipan lampu bisa kita atur.
-Pemberian nama yang serupa pada ke-8 shape berkhasiat untuk meciptakan index dari ke-8 shape tersebut.
-Perintah For i = 0 to 7 berguna untuk membuat pengulangan dengan nilai i akan berubah dari 0 sd 7.
-L(i).FillColor = &HFFFF& merupakan perintah untuk mengubah warna shape menjadi kuning sehingga baga lampu yang menyala. Shape yang berubah akan sesuai dengan nilai i. Jika i = 0, maka L(0) akan menjadi kuning dan begitu seterusnya hingga i = 7.
-Out &H378, (2 ^ (i + 1)) – 1. Sebenarnya inilah inti dari acara yang kita buat ini. Perintah ini berfungsi untuk mengeluarkan data dengan nilai (2^(i+1))-1 melalui alamat port &H378 (Alamat port parallel). Jika kita masukkan nilai i mulai dari 0 maka data outnya yaitu:
1.(2^(0+1))-1 = (2^1)-1 = 1 (biner = 00000001)
2.(2^(1+1))-1 = (2^2)-1 = 3 (biner = 00000011)
3.(2^(2+1))-1 = (2^3)-1 = 7 (biner = 00000111)
4.(2^(3+1))-1 = (2^4)-1 = 15 (biner = 00001111)
5.(2^(4+1))-1 = (2^5)-1 = 31 (biner = 00011111)
6.(2^(5+1))-1 = (2^6)-1 = 63 (biner = 00111111)
7.(2^(6+1))-1 = (2^7)-1 = 127 (biner = 01111111)
8.(2^(7+1))-1 = (2^8)-1 = 255 (biner = 11111111)
-Hasilnya ke-8 led akan hidup mirip angka biner diatas. Dengan jeda waktu selama waktu tunda.
Sekarang anda bisa melakukan rangkaian lain dengan menggunakan komputer terutama dengan kendali program vb dan interfacing port parallel. Anda juga bisa menjajal perintah input dengan memakai jalur control atau status. Yang penting anda harus mengetahui bahwa data yang dibaca oleh komputer baik pada jalur data, control ataupun status merupakan nilai decimal dari setiap kalangan jalur tersebut. Gambar dibawah ini merupakan acara yang saya buat dalam beberapa variasi.
