Hallo

Mit diesem kleine Test sieht aber doch, das die Parameter Übergabe geht.
Woher weißt du denn, das Count 1 ist ?

MFG
Dieter

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


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

Dim A As Byte
Dim B As Byte

Dim Test As Word


Call S_servo(3 , 80)

End

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

Test = Number + Countt

End Sub