Monday, May 24, 2010

Contoh Parallel Port-Based Instrument controller

Contoh Program

Contoh Program

VB.Net

01Private Sub btnTV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnTV.Click
02
03Dim par as new Mr_widodo.komunikasiparalel
04
05Par.kirimparalel(&H378, 1) 'hidupkan TV
06
07End Sub
08
09Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
10
11Par.kirimparalel(&H378, 2) 'hidupkan PC
12
13End 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}

No comments:

Post a Comment