Hirdetés

Új hozzászólás Aktív témák

  • tsu

    tag

    válasz sketchifun #29023 üzenetére

    Szia!
    Picbasiccal nem foglalkoztam ugyan, csak AVR-rel, de lenne néhány ötletem.
    A gosub nem egy szubrutin hívás, amiből valami returnnal vissza kell térni, mert egy idő után elfogy a stack a sok hívogatástól?
    Az első loop: címke után fix 1- be állítod a led portot, kigyulladnak a ledek, de soha nem kapcsolod ki valami törléssel v. 0 kiírással.
    Sima for-next nem elég? (vagy ízlés szerint más ciklus)
    A szintaktika csak hasraütésre jött elő.

    DEVICE = 16F84
    XTAL = 4
    DIM I AS BYTE
    SYMBOL LED = PORTB
    LOW LED

    for i=0 to 5
    LED=%11111111
    DELAYMS 1000
    LED=%00000000
    DELAYMS 1000
    next i

    for i=0 to 5
    LED=%11111111
    DELAYMS 500
    LED=%00000000
    DELAYMS 500
    next i

    LED=%11111111

    vagy durván favágó módra:

    DEVICE = 16F84
    XTAL = 4
    SYMBOL LED = PORTB
    LOW LED

    LED=%11111111
    DELAYMS 1000
    LED=%00000000
    DELAYMS 1000
    LED=%11111111
    DELAYMS 1000
    LED=%00000000
    DELAYMS 1000
    LED=%11111111
    DELAYMS 1000
    LED=%00000000
    DELAYMS 1000
    LED=%11111111
    DELAYMS 1000
    LED=%00000000
    DELAYMS 1000
    LED=%11111111
    DELAYMS 1000
    LED=%00000000
    DELAYMS 1000
    LED=%11111111
    DELAYMS 500
    LED=%00000000
    DELAYMS 500
    LED=%11111111
    DELAYMS 500
    LED=%00000000
    DELAYMS 500
    LED=%11111111
    DELAYMS 500
    LED=%00000000
    DELAYMS 500
    LED=%11111111
    DELAYMS 500
    LED=%00000000
    DELAYMS 500
    LED=%11111111
    DELAYMS 500
    LED=%00000000
    DELAYMS 500
    LED=%11111111

    ×××

Új hozzászólás Aktív témák