Contoh Parallel Port-Based Instrument controller

Contoh Program

Contoh Program

VB.Net

01	Private Sub btnTV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnTV.Click

02

03	Dim par as new Mr_widodo.komunikasiparalel

04

05	Par.kirimparalel(&H378, 1) 'hidupkan TV

06

07

End Sub

08

09	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

10

11	Par.kirimparalel(&H378, 2) 'hidupkan PC

12

13

End Sub

C++

view sourceprint?01//Program kontrol alat melalui port paralel02 03//Jika menggunakan windows 2000 keatas04 05//Gunakan program Userport untuk memberikan izin akses port06 07//nilai desimal dari 0-25508 09//1,2,4,8,16,32,64,128 ialah nilai desimal dari salah satu pin10 11#include12 13#define PORT 0x378 //alamat port paralel14 15void main()16 17{18 19char key=0;20 21clrscr();22 23cout<<"\n\t\tPROGRAM PENGONTROL ALAT MELALUI PORT PARALEL"<<<"\t\tDibuat oleh e-Technology Center 2006"<<<"\t\tTekan 1-8 untuk mengaktifkan alat"<<<"\t\tTekan x untuk keluar dari aplikasi"<<<"\t\t==================================================\n\n"<<<"\nLampu 1 hidup"<<<"\nLampu 2 hidup"<<<"\nLampu 7 hidup"<<<"h="SpellE">endl;24 25break;26 27}28 29}30 31}