Hi,

Ja, das ist in Bascom das Problem. Es geht eigentlich, aber bis man weis wie ist man vor Wut schon fast geplatzt.

'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++
'| _MEECH_ HAUPRPROGRAMM |
'| Copyright: Tobias Schlegel |
'| Version 0.5 |
'| |
'| www.drschlegel.de/tobias |
'| Compiled for ATMEGA16, 16Mhz (ext.)Crystal |
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++

'===CONFIGURATIONS===
$regfile = "m16def.dat"
$baud = 9600
$crystal = 16000000
$lib "i2c.lib"


Declare Sub S_servo(byval Number As Byte , Countt As Byte)

Dim A As Byte
Dim B As Byte


B = 80
Call S_servo(1 , B)

End

Sub S_servo(byval Number As Byte , Byval Countt As Byte)

lcdlowline = str(number) + str(Countt)
A = lcdprint()

End Sub

'Andere Funktionen


Das ist die stark gekürzte Version. Sonst würde das ganze etwas umübersichtlich...

lcdlowline = str(number) + str(Countt)
A = lcdprint()
Ist eine Anweisung, einen Text über den I²C zum LCD zu schicken.

Wenn ich dtatt dem B im Funktionsaufruf einfach 80 eintrage, kommt der Fehler "byval should be defined" oder so ähnlich.

Ich fahre jetzt nur leider Nach Sinsheim ins Museum; Familienausflug, da kann man sich schlecht drum drücken...

Danke, schonmal,
Tobi