Imports System.Runtime.InteropServices
Public Class Form1
Private Const IOCTL_GPIO_SET_PIN_CONFIGURATION As Integer = 262144
Private Const IOCTL_GPIO_SET_PIN_OUTPUT_VALUE As Integer = 262148
Private Const IOCTL_GPIO_GET_PIN_INPUT_VALUE As Integer = 262152
Dim bytePtr As IntPtr
Friend Enum GPIO_PORT As Integer
PORT_A = 0
PORT_B = 1
PORT_C = 2
PORT_D = 3
PORT_E = 4
PORT_F = 5
PORT_G = 6
PORT_H = 7
PORT_I = 8
PORT_J = 9
End Enum
Friend Enum GPIO_PIN_CONFIGURATION As Integer
OUTPUT = 0
INPUT_WITH_PULLUP = 1
INPUT_WITHOUT_PULLUP = 2
End Enum
Friend Enum GPIO_PIN_VALUE As Integer
LOW = 0
HIGH = 1
End Enum
<StructLayout(LayoutKind.Explicit)> _
Friend Structure GPIO_SET_PIN_CONFIGURATION
<FieldOffset(0)> Public portNumber As GPIO_PORT
<FieldOffset(4)> Public pinNumber As Integer
<FieldOffset(8)> Public pinConfiguration As GPIO_PIN_CONFIGURATION
<FieldOffset(12)> Public pinValue As GPIO_PIN_VALUE
End Structure
<StructLayout(LayoutKind.Explicit)> _
Friend Structure GPIO_SET_PIN_OUTPUT_VALUE
<FieldOffset(0)> Public portNumber As GPIO_PORT
<FieldOffset(4)> Public pinNumber As Integer
<FieldOffset(8)> Public pinValue As GPIO_PIN_VALUE
End Structure
<StructLayout(LayoutKind.Explicit)> _
Friend Structure GPIO_GET_PIN_OUTPUT_VALUE
<FieldOffset(0)> Public portNumber As GPIO_PORT
<FieldOffset(4)> Public pinNumber As Integer
<FieldOffset(8)> Public pinValue As GPIO_PIN_VALUE
End Structure
<DllImport("coredll.dll")> _
Public Shared Function DeviceIoControl(ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, ByVal lpInBuffer As IntPtr, ByVal nInBufferSize As Integer, ByVal lpOutBuffer As Byte(), ByVal nOutBufferSize As Integer, ByRef lpBytesReturned As Integer, ByVal lpOverlapped As IntPtr) As Integer
End Function
<DllImport("coredll.dll")> _
Public Shared Function CreateFile(ByVal lpFileName As String, ByVal dwDesiredAccess As UInteger, ByVal dwShareMode As UInteger, ByVal lpSecurityAttributes As IntPtr, ByVal dwCreationDisposition As UInteger, ByVal dwFlagsAndAttributes As UInteger, ByVal hTemplateFile As IntPtr) As IntPtr
End Function
Private Shared _gpioFile As IntPtr = CreateFile("GPI0:", &H40000000, 0, IntPtr.Zero, 3, 0, IntPtr.Zero)
: :
دیدگاه