LCDInfo.com

Public Function IDriver_DisplayDrawGraphic(cntrl As Object, xoff As Long, yoff As Long, _
                                            ByVal FontWidth As Integer, ByVal FontHight As Integer, _
                                            ByVal Left As Long, ByVal Top As Long, _
                                            ByVal Width As Long, ByVal Hight As Long)

    Dim b8() As Byte
    Dim b6() As Byte
   
    Dim ret As Long
    Dim intAddr As Integer
    Dim X As Long
    Dim Y As Long
    Dim t As Single
   
    ret = GetByteArray(cntrl.hdc, cntrl.Image, 1, b8())
    ret = Convert8BitTo6Bit(b8(), b6(), DEFAULT_GRAPH_SPALTE)
   
    With DisplayConfig
    For Y = 0 To Hight - 1
   
       
        'set address pointer to beginning of row
        intAddr = .GraphHomeAddress + (((yoff + Y) + Top) * DEFAULT_GRAPH_SPALTE) + ((xoff / DEFAULT_BITS_PER_GRAPH_SPALTE) + Left)
        Call WriteData(intAddr And 255)
        Call WriteData(RShiftLong(intAddr, FontHight))
        Call WriteCtrl(CMD_SET_ADDRESS_POINTER)

        Call WriteCtrl(CMD_SET_DATA_AUTO_WRITE) 'auto write mode on
   
        For X = 0 To DEFAULT_GRAPH_SPALTE - 1
            WriteData b6(X, Y)
        Next X
       
        '//auto write mode off
        Call WriteCtrl(CMD_SET_DATA_AUTO_RESET)
    Next Y
    End With

End Function

Public DisplayBMP(Picture as PictureBox, ByVal x as integer, Byval y as integer)
   Dim Adres as Integer
   Dim LCDwaarde as Long

   for i = 0 to picture.scaleheight
      Adres = G_BASE + ((y + i) * BYTES_PER_ROW) + (x / 6)
      WriteData (Adres and &HFF)
      WriteData (RShiftLong(Adres, 8))
      WriteCtrl (&H24)

      WriteCtrl (&HB0)

      for j = 0 to picture.scalewidth
         if picture.point(j,i) = 0 then
            WriteData(1)
         else 'Puntje = wit of andere kleur
            WriteData(0)
         end if
      next j

      WriteCtrl (&B2)
   next i
End Sub