ok, aber ich habe vor allem wenn ich anschalte nur 8 kontrastkästchen

ist das Programm von oben soweit richtig?

hier mal meine Variante:

Code:
$regfile = "m16def.dat"                                   
 $crystal = 1000000                                         
 Config Lcd = 16 * 1a                                       'Display
 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
 Config Lcdbus = 4

 Ddrd = &B11100000                                           
Portd = &B00000000

Portd.5 = 1
Portd.6 = 0

 Dim A As Single
 Dim B As Single
 A = 4.0
 B = 12.1
 Initlcd
 Do

   Toggle Portd.5
   Toggle Portd.6

 Cls
 Locate 1 , 1
 Lcd "test1 1234567890"
 Wait 2
 Cls
 Locate 1 , 1
 Lcd "test2 " ; A ; " " ; B
 Wait 2
 Cls
 Locate 1 , 1
 Lcd "test3"
 Locate 2 , 1
 Lcd A ; B
 Wait 2
 Loop