www.superrobotica.com
' Listing 3. QBASIC Program for PCs Demonstrating the Mini SSC
' Note:This program is written for QBASIC, an old, but still common
' MS-DOS programming language. For programming under Windows 95 or
' greater with Visual BASIC see www.seetron.com/ssc_an1.htm .
DEFINT A-Z
Sync.byte = 255
' The line below assumes that the B jumper is installed for
' 9600-baud operation.
OPEN "com1:9600,N,8,1,CD0,CS0,DS0,OP0" FOR OUTPUT AS #1
CLS
PRINT " MINI SERIAL SERVO CONTROLLER"
PRINT : PRINT
PRINT "At the prompt, type the servo number (0 to 7), a comma,
PRINT "and a position value (0 to 254)."
PRINT "Press <CNTL> - <Break> to end."
Again:
LOCATE 8, 1
PRINT " "
LOCATE 8, 1
INPUT "Servo,position>", Servo, Position
' Perform some basic error trapping
IF Servo > 7 THEN Servo = 7
IF Servo < 0 THEN Servo = 0
IF Position > 254 THEN Position = 254
IF Position < 0 THEN Position = 0
PRINT #1, CHR$(Sync.byte); CHR$(Servo); CHR$(Position);
GOTO Again
Si desea obtener más ejemplos de programas para el controlador Mini SSC y
consultar proyectos de otros usuarios visite www.seetron.com/ssc.htm.
También puede utilizar el software de control de servos gratuito disponible en
http://www.superrobotica.com/VisualSC.htm
S310165 Controlador 8 Servos Mini SSC II
12