megint picbasic help

[Sáfár Miklós]

Kiss Tamás írta:

>Sziasztok!
>Megint segítségeteket kérném picbasicben!
>Az adott progit lefordítom, futtatom proteusban akkor teljesen jól műxik!
>Ha viszont panelen ugyanabba a kapcsolásba berakom akkor a loop-ba lévő késleltetést nem veszi figyelembe, hanem mindjárt az xy-ba ugrik.
>Igazából az kéne, hogy késleltesse a bekapcsolást, legyen egy kb 30 mp-es idő mielőtt belép az xy-ba!
>A valóságba vajon mért nem működik?
>Előre is köszi a segítséget!
>Tomy
>
>
>
>B0      var     byte
>B2      var     byte
>Bv      var     word
>b6  var  word
>x var word
>
>trisa = %00000001 
>trisb = %11111111
>b6=0 : b2=0 : bv=0 : x=0               
> 
>
>
>loop:
>    if x=>280 THEN
>        high porta.2
>        GOTO xy
>        
>        else
>         
>           x=x+1         
>           Pause 100  
>          if portb.2=1 then
>          goto loop
>       endif
>  endif
>
>xy:
>      b0=0
>      if b2=0 AND bv => 1 then       
>            PAUSE 10000
>            HIGH Portb.6
>            pause 100
>            LOW Portb.6
>            PAUSE 100
>            HIGH Portb.4
>            PAUSE 100
>            LOW Portb.4
>            b2=1
>            Bv=0
>            goto xy
>  else
>             bv=bv+1         
>               toggle porta.3
>                   Pause 10
>             if portb.2=1 then
>   
>        goto xy
>
>  endif
>  endif
>-----------------------------------
> Szponzorunk: http://tonerbolt.hu/
>
>  
>
Szia!

X-nek adj induláskor határozott kezdőértéket:

safi