Akses port paralel pada VB

1. Ketik pada modul
‘Buat module dengan nama mdlPortIO

‘ — Begin —
Option Explicit

Public Declare Function Inp Lib “inpout32.dll” _
Alias “Inp32″ (ByVal PortAddress As Integer) As Integer

Public Declare Sub Out Lib “inpout32.dll” _
Alias “Out32″ (ByVal PortAddress As Integer, ByVal Value As Integer)

‘ — end of module —

2. Ketik pada code form

‘misal kita ingin mengakses pin 1 pada port paralel (DB25)
private sub commandPin1_click()

out 888, 1 ‘888 adalah port address & 1 adalah pin
end sub

‘Nilai port
pin 1 = 1
pin 2 = 2
pin 3 = 4
pin 4 = 8
pin 5 = 16
pin 6 = 32
pin 7 = 64
pin 8 = 128

jika ingin menggabungkan antara port, gunakan perintah sbb:
out 888, 1 + 8

artinya kita akan menjalankan port 1 & 4 secara bersamaan

NOTE:
Fungsi IO_port membutuhkan inpOut32.dll (download dari internet ADA)
letakkan file tersebut pada folder tempat dari program

Membuat StartUP program

Berikut ini adalah cara bagaimana membuat agak program bisa berjalan pada startup windows.

Cara membuat program berjalan pada startup

buat modul pada vb dengan nama mdlStartUp.
++++++++++++++++++++++++++++++++++++++++++

‘ketik pada module
‘— begin —

Public Sub DeleteKey(Folder As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject(“Wscript.Shell”)
b.RegDelete Folder
End Sub

Public Sub CreateStringKey(Folder As String, value As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject(“wscript.shell”)
b.RegWrite Folder, value, “REG_EXPAND_SZ”
End Sub

‘— end of modul

Membuat program ShutDown

Bingung neh, gimana ya caranya buat program yang udah selesai diinstal trus restart sendiri?

Berikut ini adalah contoh kode untuk membuat perintah agar program bisa shutdown, restart, logoff.