LCDInfo.com

 Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" ( _
           ByVal Port As Integer) As Byte

    Public Declare Function DlPortReadPortUshort Lib "dlportio.dll" ( _
            ByVal Port As Integer) As Short

    Public Declare Function DlPortReadPortUlong Lib "dlportio.dll" ( _
            ByVal Port As Integer) As Integer

    Public Declare Sub DlPortReadPortBufferUchar Lib "dlportio.dll" ( _
            ByVal Port As Integer, _
           <System.Runtime.InteropServices.MarshalAs (Runtime.InteropServices.UnmanagedType.AsAny)> ByVal Buffer As Object, _
            ByVal Count As Integer)

    Public Declare Sub DlPortReadPortBufferUshort Lib "dlportio.dll" ( _
            ByVal Port As Integer, _
            <System.Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.AsAny)> ByVal Buffer As Object, _
            ByVal Count As Integer)

    Public Declare Sub DlPortReadPortBufferUlong Lib "dlportio.dll" ( _
            ByVal Port As Integer, _
           <System.Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.AsAny)> ByVal Buffer As Object, _
            ByVal Count As Integer)

    Public Declare Sub DlPortWritePortUchar Lib "dlportio.dll" ( _
            ByVal Port As Integer, _
            ByVal Value As Byte)

    Public Declare Sub DlPortWritePortUshort Lib "dlportio.dll" ( _
            ByVal Port As Integer, _
            ByVal Value As Short)

    Public Declare Sub DlPortWritePortUlong Lib "dlportio.dll" ( _
            ByVal Port As Integer, _
            ByVal Value As Integer)

    Public Declare Sub DlPortWritePortBufferUchar Lib "dlportio.dll" ( _
             ByVal Port As Integer, _
             <System.Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.AsAny)> ByVal Buffer As Object, _
             ByVal Count As Integer)

    Public Declare Sub DlPortWritePortBufferUshort Lib "dlportio.dll" ( _
             ByVal Port As Integer, _
             <System.Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.AsAny)> ByVal Buffer As Object, _
              ByVal Count As Integer)

    Public Declare Sub DlPortWritePortBufferUlong Lib "dlportio.dll" ( _
              ByVal Port As Integer, _
              <System.Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.AsAny)> ByVal Buffer As Object, _
              ByVal Count As Integer)

    Public Sub WaitDisplayReady()
        Dim shtTemp As Short

        shtTemp = DlPortReadPortUshort(BASE_DADES + &H402)
        shtTemp = shtTemp And &H1F
        shtTemp = shtTemp Or &H20
        DlPortWritePortUshort(BASE_DADES + &H402, shtTemp)

        Do
            DlPortWritePortUshort(BASE_DADES + 2, &H20 + 4 + 2)     
            DlPortWritePortUshort(BASE_DADES + 2, &H20 + 4 + 2 + 8) 
            shtTemp = DlPortReadPortUshort(BASE_DADES)
            DlPortWritePortUshort(BASE_DADES + 2, &H20 + 4 + 2)     
        Loop While ((shtTemp And 3) <> 3)
        DlPortWritePortUshort(BASE_DADES + 2, 0)
    End Sub

Public Sub WriteData(ByVal pvshtData As Short)
        DlPortWritePortUshort(BASE_DADES + 2, &HC) 
        DlPortWritePortUshort(BASE_DADES + 2, &H8)
        DlPortWritePortUshort(BASE_DADES, pvshtData)
        DlPortWritePortUshort(BASE_DADES + 2, &H9)
        DlPortWritePortUshort(BASE_DADES + 2, &H8)
        DlPortWritePortUshort(BASE_DADES + 2, &HC)
    End Sub

    Public Sub WriteCtrl(ByVal pvshtCommand As Short)
        DlPortWritePortUshort(BASE_DADES + 2, &H4)
        DlPortWritePortUshort(BASE_DADES + 2, &H0)
        DlPortWritePortUshort(BASE_DADES, pvshtCommand)
        DlPortWritePortUshort(BASE_DADES + 2, &H1) 
        DlPortWritePortUshort(BASE_DADES + 2, &H0) 
        DlPortWritePortUshort(BASE_DADES + 2, &HC)
    End Sub

Public Sub InitLCD()
        WriteData(T_BASE And &HFF)
        WriteData(RShiftLong(T_BASE, 8))
        WriteCtrl(&H40)

        WriteData(BYTES_PER_ROW)
        WriteData(0)
        WriteCtrl(&H41)

        WriteData(G_BASE And &HFF)
        WriteData(RShiftLong(G_BASE, 8))
        WriteCtrl(&H42)

        WriteData(BYTES_PER_ROW)
        WriteData(0)
        WriteCtrl(&H43)

        WriteCtrl(&H80)
        WriteCtrl(&HA7)
        WriteData(&H0)   
        WriteData(&H0) 
        WriteCtrl(&H21)

        WriteCtrl(&H9D)
    End Sub

Public Sub SetLCDXY(ByVal pvshtX As Short, _
                                ByVal pvshtY As Short)
        Dim shtAdreça As Short

        shtAdreça = T_BASE + (pvshtY * BYTES_PER_ROW) + pvshtX
        WriteData(shtAdreça And &HFF)
        WriteData(RShiftLong(shtAdreça, 8))
        WriteCtrl(&H24)
End Sub

Public Sub SetLCDCursor(ByVal pvshtX As Short, _
                                      ByVal pvshtY As Short)

        WriteData(pvshtX)
        WriteData(pvshtY)
        WriteCtrl(&H21)
End Sub

Public Sub ClearLCDText()
        Dim shtCont As Short

        WriteData(T_BASE And &HFF)
        WriteData(RShiftLong(T_BASE, 8))
        WriteCtrl(&H24)

        For shtCont = 0 To 640 - 1
            WriteData(0)
            WriteCtrl(&HC0)
        Next
End Sub

Public Sub ClearLCDGraph()
        Dim shtCont As Short

        WriteData(G_BASE And &HFF)
        WriteData(RShiftLong(G_BASE, 8))
        WriteCtrl(&H24)

        For shtCont = 0 To NUM_PIXELS - 1 'shtCont < 5120
            WriteData(0)
            WriteCtrl(&HC0) 'write data and inc ptr
        Next
    End Sub

Public Sub SetLCDPixel(ByVal pvshtX As Short, _
                                  ByVal pvshtY As Short)
        Dim shtAdreça As Short

        shtAdreça = G_BASE + (pvshtY * BYTES_PER_ROW) + (pvshtX / 6)
        WriteData(shtAdreça And &HFF)
        WriteData(RShiftLong(shtAdreça, 8))
        WriteCtrl(&H24)
        WriteCtrl(&HF8 Or (5 - (pvshtX Mod 6)))
End Sub

Public Sub ClearLCDPixel(ByVal pvshtX As Short, _
                                      ByVal pvshtY As Short)
        Dim shtAdreça As Short

        shtAdreça = G_BASE + (pvshtY * BYTES_PER_ROW) + (pvshtX / 6)
        WriteData(shtAdreça And &HFF)
        WriteData(RShiftLong(shtAdreça, 8))
        WriteCtrl(&H24)
        WriteCtrl(&HF0 Or (5 - (pvshtX Mod 6)))
End Sub

Public Sub PrintLCDText(ByVal pvstrTexte As String)
    Dim bytLletra As Byte
    Dim shtCont As Short

    For shtCont = 0 To pvstrTexte.Length - 1
        bytLletra = AscW(pvstrTexte.Chars(shtCont)) - &H20
        If bytLletra < 0 Then bytLletra = 0
        WriteData(bytLletra)
        WriteCtrl(&HC0)
    Next
End Sub

Public Const G_BASE As Short = &H300 'Graphic address
Public Const T_BASE As Short = &H0     'Text Address
Public Const BYTES_PER_ROW As Short = 40           'Bytes x row
Public Const BASE_DADES As Short = &H378   'Data port of LCD
Public Const NUM_PIXELS As Short = 5120

Public Sub sbrDibuixaLCDBMP(picPicBox As PictureBox, _
                            intX As Integer, _
                            intY As Integer)
               
   Dim intAddr As Integer
   Dim intI As Integer
   Dim intJ As Integer
   Dim intK As Integer
   Dim lngLCDValue As Integer
   Dim intTmp As Integer

   For intI = 0 To 127
      'set address pointer to beginning of row
      intAddr = G_BASE + ((intY + intI) * BYTES_PER_ROW) + (intX / 6)
      Call sbrEscriuData(intAddr And 255)
      Call sbrEscriuData(fnclngDesplaçarBitsDreta(intAddr, 8))
      Call sbrEscriuCtrl(36)
     
      Call sbrEscriuCtrl(176) 'auto write mode on

      For intJ = 0 To 127
         lngLCDValue = 0

         'build the byte to send to display
         For intK = 0 To 4 'add all bits except last one
            If picPicBox.Point(6 * intJ + intK, intI) <> 0 Then
               intTmp = 0
            Else
               intTmp = 1
            End If
   
            lngLCDValue = lngLCDValue Or intTmp
            lngLCDValue = fnclngDesplaçarBitsEsquerra(lngLCDValue, 1)
         Next intK

         If picPicBox.Point(6 * intJ + 5, intI) <> 0 Then
            intTmp = 0
         Else
            intTmp = 1
         End If

         lngLCDValue = lngLCDValue Or intTmp 'addlast bit to byte

         Call sbrEscriuData(lngLCDValue)
      Next intJ
      Call sbrEscriuCtrl(178) 'auto write mode off
   Next intI
End Sub