A new, working fine too, version...
Code:
if buton = 0 then
mode = mode + 1
gosub memo
endif
gosub check
Pause 100
Goto Main
and
Code:
memo:
if mode = 1 then
gosub poz
char = 17
call PrintChar
endif
if mode = 2 then
gosub poz
char = 15
call PrintChar
calibra = vt
endif
if mode = 3 then
gosub poz
char = 18
call printchar
endif
if mode > 3 then
mode = 0
gosub poz
char = 16
call printchar
endif
return
'===============================================================================
check:
SELECT CASE MODE
CASE 1
PWM MOSFET, 255, 300
CASE 2
if w1 < (calibra-1) then
pwm mosfet, 155, 200
else
low mosfet
endif
CASE 3
LOW MOSFET
END SELECT
Still have BIG thermal inertia of iron soldering (about 7-8 degree)...
Bookmarks