}.
' }. |
' | ^
' /\ / \
' \\\\\\ / \ / .[ \
' (-O-O-) / - \ / .; \
' \(-)/ / \ /=----- "\
'*---------00o0--W----0o00-------* / ] \ ^ | / \ |
'@ project name:servo-inverter @ / . |__ \ / \ | | | |
'@ programed by : HATEM @ / __ ' \ / \ _| | | |_
'@ DATE : @ /J^..| | 4_|_||\ |= | <<==-=-=-=-===>>
'@ COUNTRY LEBANON @ / . [ ,. \ |[ ]| \___ ___ _/ help??
'@ langueg name: pbasic @ /::::::::::::::::: \_;__|__ | | p
'@ EMAIL: STAMPIC@YAHOO.COM @ ({{{{{{{{{{ }}}}}}}}})=-=-=-> | # [] | /|\
'@ VOLTS = 5 DC @ | ] ^ [ | .|/ | | /\
'@ you may use this pro only for @ | / \ l | | |[*] | |
'@study perposes and hoby you may@ | ' / \ _ | ; | | ; |
'@copy it but as it with no @ | , / \ _ |. | | __ |
'@change to its contents @ | __ / \ _| []| | - |
'@copy right @ | ;( ) | | | |- |
'@ @ |00000|~~~~~~~|00000| - | | _ |
'@ @ | -- | | | |---|;\ | __ |
'@ @ | | {|} |. | -__ \ | ' |
'@ @ | . | | |. | _-_ -- -\ | __ |
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ .... \____
'------------------------------------------------------------------------------------------------
-----------------------------------------
''sevo-inverter by*HATEM*is to control direction & speed of servo and the
'sevo controles mecanicly a variabel resestens(potatiometer) the variabel r controls
'an invrter the inverter is a control box to 3 phase motor it control the direction speed
'power consuming it controls the 3phase motor as if it is a dc motor
' you cane make a patern controled machine with stamp
x var word '****it is very very importent to use capaciter
new_position var word 'at the sevo suply power to compancait sparks
speed var word '& motor POWER demand i used 50v 100yf capaciter
old_position var word
servo var byte
servopin con 5
output 0 ' signeling end of pro
output 1 ' signeling start of new position
output 5 ' THE SERVO PIN
pause 1000 ' just to setelL dowen SERVO
new_position = 300
top: 'high 1 :pause 5:low 1
old_position = new_position
lookup servo,[1200,300,350,500,750,950,1300,300,500,700,350,400,450,500,550,600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300],new_position
lookup servo,[5,30,3,1,10,4,20,4,2,6,15,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20],speed
for x = old_position to new_position step speed 'incriment puls duration
pulsout servopin,x ' fram previoas position to next position
pause 10
next
servo = servo + 1
'debug ? servo
if servo > 29 then start_again
goto top
start_again:servo = 0 : out0 = 1
pause 3000 : out0 = 0
goto top
http://www.oocities.org/stampic/
