logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[bascom]"wait zmienna" nie działa z > Byte

dzarek1 16 Lut 2009 16:35 2315 4
REKLAMA
  • #1 6158404
    dzarek1
    Poziom 14  
    witam
    chciałem napisać program (istotny kod)

    Dim O As "?"
    ...
    Wait O

    który jak widać w zależności od parametru O zatrzymywał by działanie programu na określony czas.
    Wydaje się być dosyć oczywiste, niestety zadeklarowanie jakiegokolwiek rodzaju zmiennej za wyjątkiem Byte sprawia, że program się nie zatrzymuje.
    Co zrobić żeby ustawić czas np 300s ?
    Różnego rodzaju działania matematyczne nie wchodzą w grę, ma być prosto i płynnie.
  • REKLAMA
  • #2 6158521
    mirekk36
    Poziom 42  
    dzarek1 napisał:
    Co zrobić żeby ustawić czas np 300s ?
    Różnego rodzaju działania matematyczne nie wchodzą w grę, ma być prosto i płynnie.


    skoro przeszkadza ci wprowadzenie dodatkowej zmiennej typu byte i jej inkrementacja - bo to przecież już jakby nie patrzeć działania matematyczne (choć może się nie orientujesz ale samo polecenie wait także wykorzytuje operacje matematyczne) - to może powinieneś się rozejrzeć za jakimś procesorem analogowym a do niego językiem Bascom w wersji analogowej ? hmmm ?
  • REKLAMA
  • #3 6158598
    dzarek1
    Poziom 14  
    wprowadzenie dodatkowej zmiennej to spore zamieszanie
    jeżeli się nie da zrobić tego na innym rodzaju zmiennych to trzeba było po prostu napisać "nie da się" a nie pisać głupich wywodów :]
  • REKLAMA
  • #4 6159426
    zumek
    Poziom 39  
    dzarek1 napisał:
    ... niestety zadeklarowanie jakiegokolwiek rodzaju zmiennej za wyjątkiem Byte sprawia, że program się nie zatrzymuje.

    Nie mam pojęcia dlaczego u Ciebie się nie zatrzymuje, bo powinien.
    Sprawdziłem dla BYTE,INTEGER,WORD i LONG - działa.
    W ostatnim przypadku(LONG), odliczanie ogranicza się do 2 młodszych bajtów tej zmiennej.
  • #5 6159533
    piotr5000
    Poziom 21  
    inny pomysł

    A as integer (albo LONG )

    for A = 1 to ....... ( dowolna wartość z zakresu integer / long )
    wait 1
    next

    pętla for ... next może być zawarta w oddzielnej procedurze
REKLAMA