Polecenie TIME$ i DATE$ w qbasic (1 post)

pawcioludek · Post autor: **pawcioludek** » 30 wrz 2006, 19:02

Niedawno porzyczylem od kolegi książkę Piotr Góreckiego pt. " mikrokontrolery dla poczatkujacych". Uważam, ze jest ona bardzo dobra. Zainteresowal mnie jezyk qbasic
dlatego w internecie poszukalem kursów i znalazlem taki: http://serceszkole.iq.pl/uczniowie/gpaz ... ekcja.html ,
jest tam polecenie TIME$ i DATA$ chcialbym zrobic zegarek wiec zastanawiam sie jak uzyc tych polecen

ZbeeGin · Post autor: **ZbeeGin** » 30 wrz 2006, 19:46

Są to stałe (aktualizowane na bieżąco) zwracające wartość tekstową bieżącej daty lub godziny. Zatem mogą być drukowane przez PRINT, przypisywane innym zmiennym tekstowym, można z nich wycinać znaki, itd.

pawcioludek · Post autor: **pawcioludek** » 01 paź 2006, 7:28

Czyli jak , móglbys dac przykald takiego programu

[ Dodano: 2006-10-01, 08:30 ]
albo nie juz wiem chodzi np ocos takiego;

CLS
PRINT TIME$

Tranzystor · Post autor: **Tranzystor** » 01 paź 2006, 8:26

Najpierw musisz pogłączyć do mikroprocesora rezonator kwarcowy(zegarkowy) 32...kHz.
Potem musisz skonfigurować zegar, więc piszesz:
Config clock = soft
config date = mdy, separator=-
Możesz potem wysłać zmienną przez RS232 lub wyświetlić na wyświetlaczu.
Jeżeli chcesz wyświetlić na wyświetlaczu LCD to piszesz:
Config Lcd = 20*1
Config lcdpin = pin , db4=Portc.3 , db5=Portc.2 , db6=Portc.1 , db7=Portc.0 , Rs = Portc.5 , E=Portc.4

Do

home upper
Lcd Time$ ; " " ; Date$

Loop
End
No i masz zegarek!
Tylko, że musisz jeszcze ustawienia jego zrobić. Najlepiej za pomocą zmiennych _sec , _min , _hour , _day , _month , _year. Wpisanie wartości do jednej ze zmiennych spowoduje zmienienie godziny lub daty, zależy jaką zmienną "ruszysz".

ZbeeGin · Post autor: **ZbeeGin** » 01 paź 2006, 8:43

Koledze Pawcioludek chodzi o język QBasic nie o BASCOM...

Kod: Zaznacz cały

'zegarek
CLS
PRINT "ÚÄÄÄÄÄÄÄÄÄÄż"
PRINT "ł          ł"
PRINT "ŔÄÄÄÄÄÄÄÄÄÄŮ"
last$ = TIME$
WHILE INKEY$ = ""
  LOCATE 2, 3, 0
  IF last$ <> TIME$ THEN
    COLOR RND * 15
    last$ = TIME$
    IF RIGHT$(TIME$, 2) = "00" THEN PLAY ">L8a"
  END IF
  PRINT TIME$
WEND

Tranzystor · Post autor: **Tranzystor** » 01 paź 2006, 8:45

Pewnie będzie podobnie.

pawcioludek · Post autor: **pawcioludek** » 01 paź 2006, 11:10

zrobilem zegarek w QB

DO
CLS
PRINT TIME$
SLEEP 1
PRINT TIME$
LOOP

i wszystko gra