Contoh Program
Contoh Program
VB.Net
01 | Private Sub btnTV_Click( ByVal sender As System. Object , ByVal e As System.EventArgs) Handles btnTV.Click |
03 | Dim par as new Mr_widodo.komunikasiparalel |
05 | Par.kirimparalel(&H378, 1) |
09 | Private Sub Button2_Click( ByVal sender As System. Object , ByVal e As System.EventArgs) Handles Button2.Click |
11 | Par.kirimparalel(&H378, 2) |
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}
READ MORE...