Also ich versuchs nochmal. Der ist, glaub ich, sogar aus dem Forum.
Gruß,Harald
Code:
$regfile = "89s8252.dat"






Declare Sub Wandeln_lcd

Dim A As Byte
Dim F As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim Wert As Byte


Anfang:
   For E = 0 To 9
   For D = 0 To 9
   For C = 0 To 9
   For F = 0 To 9
   I2cstart
   I2cwbyte &H70
   I2cwbyte &H00
   I2cwbyte &H17


   A = E
   Call Wandeln_lcd
   I2cwbyte Wert
   'Wait 1

   A = D
   Call Wandeln_lcd
   Wert = Wert + 128
   I2cwbyte Wert
   'Wait 1

   A = C
   Call Wandeln_lcd
   I2cwbyte Wert
   'Wait 1

   A = F
   Call Wandeln_lcd
   I2cwbyte Wert
   'Wait 1

   I2cstop
   Wait 1

   Next F
   Next C
   Next D
   Next E
Goto Anfang



Sub Wandeln_lcd
   If A = 0 Then Wert = &H3F
   If A = 1 Then Wert = &H06
   If A = 2 Then Wert = &H5B
   If A = 3 Then Wert = &H4F
   If A = 4 Then Wert = &H66
   If A = 5 Then Wert = &H6D
   If A = 6 Then Wert = &H7D
   If A = 7 Then Wert = &H07
   If A = 8 Then Wert = &H7F
   If A = 9 Then Wert = &H6F
   If A = 10 Then Wert = &H77
   If A = 11 Then Wert = &H7C
   If A = 12 Then Wert = &H39
   If A = 13 Then Wert = &H5E
   If A = 14 Then Wert = &H79
   If A = 15 Then Wert = &H71
End Sub

End