update kalau tdk bisa cb ini : ROCHIM_MY ELECTRIC: interfacing
Tampilkan postingan dengan label interfacing. Tampilkan semua postingan
Tampilkan postingan dengan label interfacing. Tampilkan semua postingan

Selasa, 12 April 2011

Interfacing Port Paralel dengan Seven Segment


Gambar.1 Blok Diagram Sistem

Begitu banyaknya aplikasi elektronika yang bisa kita buat kita kendalikan menggunakan komputer memberikan kepada kita banyak pilihan. Salah satunya yang akan kita bahas kali ini yaitu interfacing port paralel dengan tampilan seven segment. Untuk sistem dari interfacing port paralel dengan tampilan seven segment ini dapat dilihat seperti pada gambar.1.
Komponen yang kita butuhkan untuk membuat system interfacing port parallel dengan tampilan seven segment ini adalah sebagai berikut:
1. Seven segment common anoda
2. driver seven segment common anoda 74LS47
3. Port parallel DB 25 Male

Untuk rangkaiannya dapat anda lihat pada gambar.2 berikut.


Gambar.2 Rangkaian Interfacing Port Paralel dengan Seven Segment

Selanjutnya kita akan membuat program pengendalinya menggunakan visual basic. Sebelumnya untuk lebih jelas anda dapat melihat tabel.1 yang berisi logika untuk menampilkan angka pada seven segment.


Tabel.1 Konversi Bilangan dan Logika


Dari tabel tersebut kita membuat program pengendalinya menggunakan visual basic sebagai berikut. (Lihat materi interfacing port parallel yang lain di blog ini).

Untuk menampilkan angka 1 maka pada program visual basicnya kita tulis sebagai berikut:

Output 888, &H01 ‘atau Output 888, 1

Dan seterusnya hingga angka sembilan seperti berikut:

Output 888, &H0A ‘atau Output 888, 9

Program tersebut dapat anda letakan pada control command button atau yang lainnya. Jika anda ingin membuat tampilan seven segmentnya melakukan perhitungan/counter dari 0 hingga 9 dan seterusnya maka gunakan script yang ini:

Dim a As Integer

a=0

Output 888, a

a = a +1

if a>= 9 then a =0

Script tersebut letakan di control timer sehingga dapat melakukan perulangan terus menerus.







Sabtu, 26 Februari 2011

Interfacing Parallel Port with Visual Basic

Microsoft’s Visual Basic has been the most popular choice for Basic programmers developing Windows programs. Unlike other Basics, however, Visual Basic for Windows doesn’t include Inp and Out for port access. However, you can add Inp and Out to the language in a dynamic linked library (DLL). A DLL contains code that any Windows program can access, including the programs you write in Visual Basic. This tutorial includes IO.dll and you can download this file in http://www.geekhideout.com/iodll.shtml .

This is the DLL itself, containing the routines that your programs will access. You can call the prototype of that routines like this

Public Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Data As Byte)
Public Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte 
 
Or like this:

Private Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Data As Byte)
Private Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte


For Example:

Private Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Data As Byte)
Private Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte 

Private Sub Command1_Click()
PortOut 888, 0 'All LED OFF
End Sub
Private Sub Command2_Click()
PortOut 888, 255 'All LED ON
End Sub

It's Very Easy! You Can Do it in your home! Keep Smile and Stay On My Blog!

Keyword: Interfacing Port Parallel, Interfacing port paralel , interfacing using visual basic, interfacing menggunakan visual basic,