From: Svjatoslav Agejenko Date: Tue, 13 Aug 2024 11:25:33 +0000 (+0300) Subject: Better directory name X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=ea1682ce72aa49714eda6c1b7d26c45c734d054e;p=qbasicapps.git Better directory name --- diff --git a/Automation/School clock/kell/aasta.ap b/Automation/School clock/kell/aasta.ap new file mode 100644 index 0000000..ef1b084 --- /dev/null +++ b/Automation/School clock/kell/aasta.ap @@ -0,0 +1,7 @@ +v 01-01 12-31 tava +n 01-01 12-31 5 reede +e 10-04 opetajap +e 10-31 rebased +n 01-01 12-31 6 tuhi +n 01-01 12-31 7 tuhi + diff --git a/Automation/School clock/kell/autoexec.bat b/Automation/School clock/kell/autoexec.bat new file mode 100755 index 0000000..cd7ae3c --- /dev/null +++ b/Automation/School clock/kell/autoexec.bat @@ -0,0 +1,2 @@ +coff +qb /run kk.bas \ No newline at end of file diff --git a/Automation/School clock/kell/coff.asm b/Automation/School clock/kell/coff.asm new file mode 100644 index 0000000..0466c15 --- /dev/null +++ b/Automation/School clock/kell/coff.asm @@ -0,0 +1,4 @@ +mov dx, 37Ah +mov al, 0 +out dx, al +ret \ No newline at end of file diff --git a/Automation/School clock/kell/coff.com b/Automation/School clock/kell/coff.com new file mode 100755 index 0000000..2537f6d Binary files /dev/null and b/Automation/School clock/kell/coff.com differ diff --git a/Automation/School clock/kell/ekr.bas b/Automation/School clock/kell/ekr.bas new file mode 100755 index 0000000..e5c6dfc --- /dev/null +++ b/Automation/School clock/kell/ekr.bas @@ -0,0 +1,67 @@ +DECLARE SUB jooks () +DECLARE SUB suva () +DEFINT A-Z +DECLARE SUB cle () +DECLARE SUB disp () +DIM SHARED bit(0 TO 16) + +suva +jooks + +cle +bit(10) = 0 +bit(14) = 0 +bit(6) = 0 +bit(2) = 0 +4 +disp +GOTO 4 + +SUB cle +FOR a = 1 TO 16 +bit(a) = 1 +NEXT a +END SUB + +SUB disp +prt = &H378 +d = 0 +FOR a = 0 TO 3 +c = 2 ^ a +FOR b = 4 TO 7 +d = d + 1 +c = c + (bit(d) * 2 ^ b) +NEXT b + +OUT prt, c +NEXT a +END SUB + +SUB jooks +2 +cle +FOR a = 1 TO 16 +bit(16) = 1 +bit(a - 1) = 1 +bit(a) = 0 +PRINT a +FOR b = 1 TO 1000 +disp +NEXT b +NEXT a +GOTO 2 + +END SUB + +SUB suva +3 +cle +FOR b = 1 TO 16 +IF RND * 100 > 50 THEN bit(b) = 0 +NEXT b +FOR b = 1 TO 100 +disp +NEXT b +GOTO 3 +END SUB + diff --git a/Automation/School clock/kell/electronics/1.png b/Automation/School clock/kell/electronics/1.png new file mode 100644 index 0000000..798fdf3 Binary files /dev/null and b/Automation/School clock/kell/electronics/1.png differ diff --git a/Automation/School clock/kell/electronics/2.png b/Automation/School clock/kell/electronics/2.png new file mode 100644 index 0000000..f998b57 Binary files /dev/null and b/Automation/School clock/kell/electronics/2.png differ diff --git a/Automation/School clock/kell/electronics/3 key keyboard.png b/Automation/School clock/kell/electronics/3 key keyboard.png new file mode 100644 index 0000000..4c70f99 Binary files /dev/null and b/Automation/School clock/kell/electronics/3 key keyboard.png differ diff --git a/Automation/School clock/kell/electronics/3.png b/Automation/School clock/kell/electronics/3.png new file mode 100644 index 0000000..73df687 Binary files /dev/null and b/Automation/School clock/kell/electronics/3.png differ diff --git a/Automation/School clock/kell/electronics/4.png b/Automation/School clock/kell/electronics/4.png new file mode 100644 index 0000000..1109bba Binary files /dev/null and b/Automation/School clock/kell/electronics/4.png differ diff --git a/Automation/School clock/kell/electronics/skeem.png b/Automation/School clock/kell/electronics/skeem.png new file mode 100644 index 0000000..3c93169 Binary files /dev/null and b/Automation/School clock/kell/electronics/skeem.png differ diff --git a/Automation/School clock/kell/juhend.html b/Automation/School clock/kell/juhend.html new file mode 100644 index 0000000..d7dc1d0 --- /dev/null +++ b/Automation/School clock/kell/juhend.html @@ -0,0 +1,473 @@ + + + +juhend + + + + + + + + + + + + + +
+

juhend

+

+Kooli Kell programmi kasutusjuhend +

+ +
    +
  • 2002.10 +
    • +
  • Svjatoslav Agejenko +
    • +
+ + +
+

1 Kasutajaliides

+
+

+Programm Kooli Kell on mõldud kella laskmiseks koolis, tundi sisse ja +välja. Samuti juhib programm arvuti küljes olevat liidest, +kahekohaliste numbrite näitamiseks (minutid / tunnid), 3 klahvilist +klaviatuuri ja releed. Tundi sisse minev kell on 1 pikk ning 1 l”em +helin. Väljaminev kell on 1 tavaline pikk helin. Programm loeb aega +arvuti süsteemsest kellast. Kella laskmis ajad on organiseeritud +failidesse *.PP . Aasta või päevaplaani muutmiseks tuleb redakteerida +vastavaid faile. Programm valib sobiva päevaplaani lähtudes +aastaplaanist, mis asub failis "aasta.ap" . Programmi saab kasutada +arvutil millele on printeri pesasse (LPT1) ”endatud spetsiaalne +liides, liidese skeem on failis "skeem.bmp". Liides omab kolme +nummerdatud nuppu paigutusega: +

+ +

+<1> <2>
+   <3>
+

+ +

+Programm on ettenähtud iseseisvalt töötama, kuid on ka võimalus +erandkorras kгitsi kella lasta, aega muuta jne.. Programm eristab +tavalisi nupuvajutusi ja topeltklõpse. Eesmärgiga suurendada +funktsionaalsust väheste nuppudega. +

+
+ +
+

1.1 Nuppude funktsioonid peamenüüs:

+
+
+
<1> klõps
laseb kella tundi sisse +
+
<1> topeltklõps
laseb kella tunnist välja +
+ +
<2> klõps
läheb aja muutmis menüüsse +
+
<3> topeltklõps
hakkab tööle uuendatud graafikuga, vajalik pвast +sisendfailide redigeerimist. +
+ +
<3> klõps
ümardab süsteemse aja täistunnini, vajalik aja +sünkroniseerimiseks. +
+
<3> topeltklõps
laeb süsteemse: aasta, kuu, päeva, tunnid, +minutid failist "sync.txt" +
+
+
+
+ +
+

1.2 Nuppude funktsioonid aja muutmis menüüs:

+
+
+
<1> klõps
vähendab süsteemsed tunnid/minutid 1. võrra +
+ +
<2> klõps
suurendab süsteemsed tunnid/minutid 1. võrra +
+ +
<3> klõps
valib näitamiseks ja redigeerimiseks tunnid või minutid. +
+
<3> topeltklõps
läheb tagasi peamenüüsse. +
+
+ +

+Aja muutmis menüüd tunneb ära selle järgi et indikaator tunnid või +minutid vilgub, mitte ei põle nagu peamenüüs. +

+
+
+
+ + +
+

2 Faili AASTA.AP formaat: (aastaplaan)

+
+
+v       <kuu>-<päev>     <kuu>-<päev>     <päevaplaan>
+
+ +

+Sõnast aja vahemik. Paneb paika päevaplaani antud +ajavahemikus. Esimene daatum peab kindlasti olema väiksem kui +teine. St. kui on tõesti vaja: +

+ +
+v       10-4    2-1     eri
+
+ +

+tuleb kirjutada: +

+ +
+v       10-4    12-31   eri
+v       1-1     2-1     eri
+
+ +

+Päevaplaan kehtib vahemiku esimesest päevast kuni vahemiku viimase +päevani. +

+ + +
+n       <kuu>-<päev>     <kuu>-<päev>     <nädalapäev>      <päevaplaan>
+
+ +

+Sõnast nädalapäv. sama mis "v" kuid: paneb paika päevaplaani antud +ajavahemikus, antud nädalapäeval. Nädalapäeva kirjeldatakse numbriga. +nädala esimene päev on esmaspäev, talle vastab number 1. +

+ + +
+e       <kuu>-<päev> <päevaplaan>
+
+ +

+Sõnast eriline. Paneb paika antud kuupävale antud pävaplaani. Sobib +hästi erakorraliste lüendatud või muul moel muudetud päevaplaanide +kehtestamiseks. Näiteks riigipühad, spordipäev jne. +

+ +

+Kui teatud päeva kohta ei käinud ühtegi kirjet siis toimib vaikimisi +"tuhi" päevaplaan. Kui teatud päeva kohta käis mitu kirjet siis jääb +peale viimane. +

+
+
+ + + +
+

3 Failide *.PP formaat: (päevaplaanid)

+
+
+# <tund>:<minut>  <kell>
+
+ +

+Laseb antud ajal antud kella. Võimalikud kella helinad on: +

+ + + + +++ ++ + + + + + + + + + + + + + + + + + +
kella koodvastav helin
siskell tundi sisse
valkell tunnist välja
+
+
+ +
+

4 Faili SYNC.TXT formaat:

+
+

+faili esimesel kahel real peab olema järgnev: +

+ +
+KK-PP-AAAA
+TT:MM
+
+ +

+kus: +

+ + + +++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
koodtähendus
KKkuu
PPpäev
AAAAaasta
TTtunnid
MMminutid
+
+
+
+
+ + + diff --git a/Automation/School clock/kell/juhend.org b/Automation/School clock/kell/juhend.org new file mode 100644 index 0000000..dcfe13c --- /dev/null +++ b/Automation/School clock/kell/juhend.org @@ -0,0 +1,119 @@ + +Kooli Kell programmi kasutusjuhend + +- 2002.10 +- Svjatoslav Agejenko + + +* Kasutajaliides +Programm Kooli Kell on mõldud kella laskmiseks koolis, tundi sisse ja +välja. Samuti juhib programm arvuti küljes olevat liidest, +kahekohaliste numbrite näitamiseks (minutid / tunnid), 3 klahvilist +klaviatuuri ja releed. Tundi sisse minev kell on 1 pikk ning 1 l”em +helin. Väljaminev kell on 1 tavaline pikk helin. Programm loeb aega +arvuti süsteemsest kellast. Kella laskmis ajad on organiseeritud +failidesse *.PP . Aasta või päevaplaani muutmiseks tuleb redakteerida +vastavaid faile. Programm valib sobiva päevaplaani lähtudes +aastaplaanist, mis asub failis "aasta.ap" . Programmi saab kasutada +arvutil millele on printeri pesasse (LPT1) ”endatud spetsiaalne +liides, liidese skeem on failis "skeem.bmp". Liides omab kolme +nummerdatud nuppu paigutusega: + +#+BEGIN_VERSE + <1> <2> + <3> +#+END_VERSE + +Programm on ettenähtud iseseisvalt töötama, kuid on ka võimalus +erandkorras kгitsi kella lasta, aega muuta jne.. Programm eristab +tavalisi nupuvajutusi ja topeltklõpse. Eesmärgiga suurendada +funktsionaalsust väheste nuppudega. + +** Nuppude funktsioonid peamenüüs: + ++ <1> klõps :: laseb kella tundi sisse ++ <1> topeltklõps :: laseb kella tunnist välja + ++ <2> klõps :: läheb aja muutmis menüüsse ++ <3> topeltklõps :: hakkab tööle uuendatud graafikuga, vajalik pвast + sisendfailide redigeerimist. + ++ <3> klõps :: ümardab süsteemse aja täistunnini, vajalik aja + sünkroniseerimiseks. ++ <3> topeltklõps :: laeb süsteemse: aasta, kuu, päeva, tunnid, + minutid failist "sync.txt" + +** Nuppude funktsioonid aja muutmis menüüs: + ++ <1> klõps :: vähendab süsteemsed tunnid/minutid 1. võrra + ++ <2> klõps :: suurendab süsteemsed tunnid/minutid 1. võrra + ++ <3> klõps :: valib näitamiseks ja redigeerimiseks tunnid või minutid. ++ <3> topeltklõps :: läheb tagasi peamenüüsse. + +Aja muutmis menüüd tunneb ära selle järgi et indikaator tunnid või +minutid vilgub, mitte ei põle nagu peamenüüs. + + +* Faili AASTA.AP formaat: (aastaplaan) +: v - - + +Sõnast aja vahemik. Paneb paika päevaplaani antud +ajavahemikus. Esimene daatum peab kindlasti olema väiksem kui +teine. St. kui on tõesti vaja: + +: v 10-4 2-1 eri + +tuleb kirjutada: + +: v 10-4 12-31 eri +: v 1-1 2-1 eri + +Päevaplaan kehtib vahemiku esimesest päevast kuni vahemiku viimase +päevani. + + +: n - - + +Sõnast nädalapäv. sama mis "v" kuid: paneb paika päevaplaani antud +ajavahemikus, antud nädalapäeval. Nädalapäeva kirjeldatakse numbriga. +nädala esimene päev on esmaspäev, talle vastab number 1. + + +: e - + +Sõnast eriline. Paneb paika antud kuupävale antud pävaplaani. Sobib +hästi erakorraliste lüendatud või muul moel muudetud päevaplaanide +kehtestamiseks. Näiteks riigipühad, spordipäev jne. + +Kui teatud päeva kohta ei käinud ühtegi kirjet siis toimib vaikimisi +"tuhi" päevaplaan. Kui teatud päeva kohta käis mitu kirjet siis jääb +peale viimane. + + + +* Failide *.PP formaat: (päevaplaanid) +: # : + +Laseb antud ajal antud kella. Võimalikud kella helinad on: + +| kella kood | vastav helin | +|------------+--------------------| +| sis | kell tundi sisse | +| val | kell tunnist välja | + +* Faili SYNC.TXT formaat: +faili esimesel kahel real peab olema järgnev: + +: KK-PP-AAAA +: TT:MM + +kus: +| kood | tähendus | +|------+----------| +| KK | kuu | +| PP | päev | +| AAAA | aasta | +| TT | tunnid | +| MM | minutid | diff --git a/Automation/School clock/kell/kk.bas b/Automation/School clock/kell/kk.bas new file mode 100755 index 0000000..799d888 --- /dev/null +++ b/Automation/School clock/kell/kk.bas @@ -0,0 +1,693 @@ +DECLARE SUB num (a%) +DECLARE SUB mntime () +DECLARE SUB showit () +DECLARE SUB ekrf (a%) +DECLARE SUB ekr () +DECLARE SUB rese () +DECLARE SUB start () +DECLARE SUB boot () +DECLARE SUB getnad (g%, n%, d%, k%) +DECLARE SUB initp (b$) +DECLARE SUB getmd (a$, m%, d%) +DECLARE SUB son (a$) +DEFINT A-Z + +DECLARE SUB inita () +DECLARE SUB chm () +DECLARE SUB chd () +DECLARE SUB kell (a%) +DECLARE SUB sync2 () +DECLARE SUB sync () +DECLARE SUB mnmain () +DECLARE SUB main () +DECLARE SUB getkey (kla%) +DECLARE SUB klnait (k%) +DECLARE SUB heli (a%) +DECLARE SUB keys () +DECLARE SUB disp () +DIM SHARED bit(0 TO 7) +DIM SHARED kl +DIM SHARED hist(1 TO 3) +DIM SHARED ap$(1 TO 500) +DIM SHARED apl +DIM SHARED pp$(1 TO 500) +DIM SHARED ppl +DIM SHARED prt, prt2 +DIM SHARED timo$ +DIM SHARED dato$ +DIM SHARED sona$(1 TO 50) +DIM SHARED mitus +DIM SHARED lp$ +DIM SHARED ndlp +DIM SHARED pn$(1 TO 7) +DIM SHARED bitt(1 TO 16) +DIM SHARED modee, vilgu +DIM SHARED tul(1 TO 2) + +start +heli 4 + + +disp +mnmain + +SUB chd +b$ = "tuhi" +IF apl = 0 THEN inita + +a$ = DATE$ +n1 = VAL(RIGHT$(a$, 4)) +n2 = VAL(LEFT$(a$, 2)) +a$ = LEFT$(a$, 5) +n3 = VAL(RIGHT$(a$, 2)) +getnad n1, n2, n3, ndlp +LOCATE 10, 1 +PRINT "n„dalap„ev:", pn$(ndlp) +FOR a = 1 TO apl +son ap$(a) +SELECT CASE sona$(1) +CASE "v" +getmd sona$(2), m1, d1 +getmd sona$(3), m2, d2 +getmd DATE$, m3, d3 +IF m3 < m1 THEN GOTO 9 +IF m3 > m2 THEN GOTO 9 +IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 +IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 +b$ = sona$(4) +CASE "n" +getmd sona$(2), m1, d1 +getmd sona$(3), m2, d2 +getmd DATE$, m3, d3 +IF m3 < m1 THEN GOTO 9 +IF m3 > m2 THEN GOTO 9 +IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 +IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 +IF ndlp <> VAL(sona$(4)) THEN GOTO 9 +b$ = sona$(5) +CASE "e" +getmd sona$(2), m1, d1 +getmd DATE$, m2, d2 +IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3) +END SELECT +9 +NEXT a + +IF b$ <> lp$ THEN initp b$ +lp$ = b$ +LOCATE 9, 1 +PRINT "p„evaplaan:", lp$ +END SUB + +SUB chm +showit +a$ = DATE$ +IF a$ <> dato$ THEN chd +dato$ = a$ +b = 0 +FOR a = 1 TO ppl +son pp$(a) +SELECT CASE sona$(1) +CASE "#" +getmd sona$(2), h1, m1 +getmd TIME$, h2, m2 +' PRINT h1, m1, h2, m2 +IF (h2 = h1) AND (m2 = m1) THEN +IF sona$(3) = "sis" THEN b = 1 +IF sona$(3) = "val" THEN b = 2 +END IF +END SELECT +NEXT a + +IF b > 0 THEN kell b + +END SUB + +SUB disp +CLS +PRINT "Kooli Kell v 1.2 2002.10.10" +PRINT "Programmi autor Svjatoslav Agejenko" + +END SUB + +SUB ekr +FOR e = 1 TO 10 +c = 1 +c = c + 16 * bitt(1) +c = c + 32 * bitt(2) +c = c + 64 * bitt(3) +c = c + 128 * bitt(4) +OUT prt2, c + +c = 2 +c = c + 16 * bitt(5) +c = c + 32 * bitt(6) +c = c + 64 * bitt(7) +c = c + 128 * bitt(8) +OUT prt2, c + +c = 4 +c = c + 16 * bitt(9) +c = c + 32 * bitt(10) +c = c + 64 * bitt(11) +c = c + 128 * bitt(12) +OUT prt2, c + +c = 8 +c = c + 16 * bitt(13) +c = c + 32 * bitt(14) +c = c + 64 * bitt(15) +c = c + 128 * bitt(16) +OUT prt2, c + + +NEXT e +END SUB + +SUB ekrf (a) +SELECT CASE (a) +CASE 0 +bitt(1) = 0 +bitt(2) = 0 +bitt(3) = 0 +bitt(7) = 0 +bitt(5) = 0 +bitt(6) = 0 +bitt(8) = 1 +CASE 1 +bitt(2) = 0 +bitt(7) = 0 +CASE 2 +bitt(1) = 0 +bitt(3) = 0 +bitt(5) = 0 +bitt(7) = 0 +bitt(8) = 0 +CASE 3 +bitt(1) = 0 +bitt(2) = 0 +bitt(5) = 0 +bitt(8) = 0 +bitt(7) = 0 +CASE 4 +bitt(2) = 0 +bitt(6) = 0 +bitt(7) = 0 +bitt(8) = 0 +CASE 5 +bitt(1) = 0 +bitt(2) = 0 +bitt(5) = 0 +bitt(6) = 0 +bitt(8) = 0 +CASE 6 +bitt(1) = 0 +bitt(2) = 0 +bitt(3) = 0 +bitt(5) = 0 +bitt(6) = 0 +bitt(8) = 0 +CASE 7 +bitt(2) = 0 +bitt(7) = 0 +bitt(5) = 0 +CASE 8 +bitt(1) = 0 +bitt(2) = 0 +bitt(3) = 0 +bitt(7) = 0 +bitt(5) = 0 +bitt(6) = 0 +bitt(8) = 0 +CASE 9 +bitt(1) = 0 +bitt(2) = 0 +bitt(7) = 0 +bitt(5) = 0 +bitt(6) = 0 +bitt(8) = 0 +CASE 10 +bitt(15) = 0 +bitt(16) = 0 +bitt(12) = 0 +bitt(10) = 0 +bitt(9) = 0 +bitt(4) = 0 +CASE 11 +bitt(15) = 0 +bitt(4) = 0 +CASE 12 +bitt(15) = 0 +bitt(16) = 0 +bitt(9) = 0 +bitt(10) = 0 +bitt(11) = 0 +CASE 13 +bitt(15) = 0 +bitt(4) = 0 +bitt(16) = 0 +bitt(11) = 0 +bitt(9) = 0 +CASE 14 +bitt(15) = 0 +bitt(4) = 0 +bitt(12) = 0 +bitt(11) = 0 +CASE 15 +bitt(9) = 0 +bitt(4) = 0 +bitt(11) = 0 +bitt(12) = 0 +bitt(16) = 0 +CASE 16 +bitt(9) = 0 +bitt(4) = 0 +bitt(11) = 0 +bitt(12) = 0 +bitt(16) = 0 +bitt(10) = 0 +CASE 17 +bitt(4) = 0 +bitt(15) = 0 +bitt(16) = 0 +CASE 18 +bitt(4) = 0 +bitt(15) = 0 +bitt(16) = 0 +bitt(12) = 0 +bitt(11) = 0 +bitt(10) = 0 +bitt(9) = 0 +CASE 19 +bitt(4) = 0 +bitt(15) = 0 +bitt(16) = 0 +bitt(12) = 0 +bitt(11) = 0 +bitt(9) = 0 +END SELECT + +END SUB + +SUB getkey (kla) + +1 +IF vilgu = 1 THEN +tmr = tmr + 1 +IF tmr > 5 THEN bitt(13) = tul(1): bitt(14) = tul(2) ELSE bitt(13) = 1: bitt(14) = 1 +IF tmr > 10 THEN +tmr = 0 +END IF +ELSE +bitt(13) = tul(1) +bitt(14) = tul(2) +END IF + +b$ = LEFT$(TIME$, 5) +IF b$ <> timo$ THEN chm +timo$ = b$ +hist(1) = hist(1) + 1 +IF hist(1) > 20000 THEN hist(1) = 15000 +hist(2) = hist(2) + 1 +IF hist(2) > 20000 THEN hist(2) = 15000 +hist(3) = hist(3) + 1 +IF hist(3) > 20000 THEN hist(3) = 15000 + +keys +IF kl > 0 THEN + IF hist(kl) > 1 AND hist(kl) < 9 THEN + klnait kl + 3 + kla = kl + 3 + GOTO 4 + ELSE + hist(kl) = 0 + END IF +END IF +IF hist(1) = 10 THEN klnait 1: kla = 1: GOTO 4 +IF hist(2) = 10 THEN klnait 2: kla = 2: GOTO 4 +IF hist(3) = 10 THEN klnait 3: kla = 3: GOTO 4 + +IF hist(1) > 11 AND hist(2) > 11 AND hist(3) > 11 THEN klnait 0 +LOCATE 7, 1 +PRINT TIME$ +LOCATE 8, 1 +PRINT DATE$ +GOTO 1 +4 + + +hist(1) = 10000 +hist(2) = 10000 +hist(3) = 10000 + +FOR b = 1 TO 100 +SOUND 0, .1 +NEXT b +IF kla > 3 THEN SOUND 4000, .1 ELSE SOUND 3000, .1 + + + +END SUB + +SUB getmd (a$, m, d) +b$ = LEFT$(a$, 5) +m = VAL(LEFT$(b$, 2)) +d = VAL(RIGHT$(b$, 2)) + +END SUB + +SUB getnad (g, n, d, k) +LOCATE 11, 1 +PRINT g, n, d +p = g +m = n - 2 +IF n > 2 GOTO 120 +p = p - 1: m = m + 12 +120 +c = INT(p / 100) +y = p - c * 100 +w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c +k = w - 7 * INT(w / 7) +IF k = 0 THEN k = 7 +END SUB + +SUB heli (a) +'GOTO 10 +SELECT CASE a +CASE 1 +FOR c = 1 TO 5 +SOUND 3000, 1 +SOUND 0, 1 +NEXT c + +CASE 2 +FOR c = 1 TO 5 +SOUND 2500, 1 +SOUND 0, 2 +NEXT c +SOUND 2500, 10 + +CASE 3 +FOR a = 1 TO 10 +SOUND 500, .5 +SOUND 1500, .5 +SOUND 2000, .5 +SOUND 1520, .5 +NEXT a + + +CASE 4 +FOR a = 800 TO 1000 STEP 10 +SOUND a, .1 +SOUND a * 3, .1 +SOUND 0, 1 +NEXT a +10 + +END SELECT + + +END SUB + +SUB inita +apl = 0 +OPEN "aasta.ap" FOR INPUT AS #1 +5 +IF EOF(1) <> 0 THEN GOTO 3 +LINE INPUT #1, a$ +apl = apl + 1 +ap$(apl) = a$ +GOTO 5 +3 +CLOSE #1 +END SUB + +SUB initp (b$) +ppl = 0 +OPEN b$ + ".pp" FOR INPUT AS #1 +6 +IF EOF(1) <> 0 THEN GOTO 7 +LINE INPUT #1, a$ +ppl = ppl + 1 +pp$(ppl) = a$ +GOTO 6 +7 +CLOSE #1 +END SUB + +SUB kell (a) +heli 3 + +SELECT CASE a +CASE 1 +OUT prt, 255 +FOR b = 1 TO 80 +SOUND 0, 1 +NEXT b +OUT prt, 0 +FOR b = 1 TO 15 +SOUND 0, 1 +NEXT b +OUT prt, 255 +FOR b = 1 TO 15 +SOUND 0, 1 +NEXT b +OUT prt, 0 + +CASE 2 +OUT prt, 255 +FOR b = 1 TO 80 +SOUND 0, 1 +NEXT b +OUT prt, 0 + +END SELECT +END SUB + +SUB keys +kl = 0 +OUT prt, 0 +8 +a = INP(prt) +b = INP(prt) +IF a <> b THEN GOTO 8 + +b = 128 +FOR c = 0 TO 7 +d = INT(a / b) +bit(c) = d +a = a - (b * d) +b = b / 2 +NEXT c + +IF bit(4) = 1 AND bit(6) = 1 THEN bit(4) = 0: bit(6) = 0: kl = 3 +IF bit(6) = 1 THEN kl = 2 +IF bit(4) = 1 THEN kl = 1 + +a$ = INKEY$ +IF a$ = CHR$(0) + "K" THEN kl = 1 +IF a$ = CHR$(0) + "M" THEN kl = 2 +IF a$ = CHR$(0) + "P" THEN kl = 3 +ekr +END SUB + +SUB klnait (k) + +IF k = 3 THEN c = 3 ELSE c = 1 +IF k = 6 THEN c = 14 +LOCATE 5, 6 +COLOR 7, c +PRINT "" +COLOR 7, 0 + +IF k = 1 THEN c = 3 ELSE c = 1 +IF k = 4 THEN c = 14 +LOCATE 4, 1 +COLOR 7, c +PRINT "" +COLOR 7, 0 + +IF k = 2 THEN c = 3 ELSE c = 1 +IF k = 5 THEN c = 14 +LOCATE 4, 10 +COLOR 7, c +PRINT "" +COLOR 7, 0 + +END SUB + +SUB mnmain +2 +getkey a +IF a = 6 THEN sync +IF a = 3 THEN sync2 + +IF a = 1 THEN kell 1 +IF a = 4 THEN kell 2 + +IF a = 2 THEN mntime +IF a = 5 THEN rese +GOTO 2 + +END SUB + +SUB mntime +vilgu = 1 +11 +showit +getkey a + +IF modee = 1 THEN + b = VAL(LEFT$(TIME$, 2)) + c = 0 + IF a = 1 THEN c = 1: b = b - 1 + IF a = 2 THEN c = 1: b = b + 1 + IF b < 0 THEN b = 0 + IF b > 23 THEN b = 23 + d$ = STR$(b) + IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) + IF LEN(d$) < 2 THEN d$ = "0" + d$ + e$ = d$ + RIGHT$(TIME$, 6) + IF c = 1 THEN TIME$ = e$ +ELSE + b = VAL(RIGHT$(LEFT$(TIME$, 5), 2)) + c = 0 + IF a = 1 THEN c = 1: b = b - 1 + IF a = 2 THEN c = 1: b = b + 1 + IF b < 0 THEN b = 0 + IF b > 59 THEN b = 59 + d$ = STR$(b) + IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) + IF LEN(d$) < 2 THEN d$ = "0" + d$ + e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3) + IF c = 1 THEN TIME$ = e$ +END IF + +IF a = 3 THEN +IF modee = 1 THEN modee = 2 ELSE modee = 1 +END IF + +IF a = 6 THEN GOTO 12 +GOTO 11 +12 +vilgu = 0 +modee = 2 +END SUB + +SUB num (a) + +FOR b = 1 TO 12 +bitt(b) = 1 +NEXT b +bitt(15) = 1 +bitt(16) = 1 + +b = INT(a / 10) +c = a - (10 * b) +ekrf b +ekrf c + 10 +END SUB + +SUB rese +heli 4 +timo$ = "" +dato$ = "" +apl = 0 +END SUB + +SUB showit +a$ = LEFT$(TIME$, 5) +IF modee = 1 THEN +b = VAL(LEFT$(a$, 2)) +tul(1) = 1 +tul(2) = 0 +ELSE +b = VAL(RIGHT$(a$, 2)) +tul(1) = 0 +tul(2) = 1 +END IF +LOCATE 15, 1 +PRINT b +num b + + +END SUB + +SUB son (a$) + +FOR b = 1 TO 50 +sona$(b) = "" +NEXT b +mitus = 0 + +b = 1 +FOR c = 1 TO LEN(a$) +d$ = RIGHT$(LEFT$(a$, c), 1) +IF d$ = " " OR d$ = CHR$(9) THEN +b = 1 +ELSE +IF b = 1 THEN b = 0: mitus = mitus + 1 +sona$(mitus) = sona$(mitus) + d$ +END IF +NEXT c + + +END SUB + +SUB start +pn$(1) = "esmasp„ev" +pn$(2) = "teisip„ev" +pn$(3) = "kolmap„ev" +pn$(4) = "neljap„ev" +pn$(5) = "reede" +pn$(6) = "laup„ev" +pn$(7) = "phap„ev" + +prt = &H37A +prt2 = &H378 +hist(1) = 10000 +hist(2) = 10000 +hist(3) = 10000 + +FOR a = 1 TO 16 +bitt(a) = 1 +NEXT a +modee = 2 +vilgu = 0 +tul(1) = 1 +tul(2) = 1 +END SUB + +SUB sync +OPEN "sync.txt" FOR INPUT AS #1 +LINE INPUT #1, a$ +DATE$ = a$ +LINE INPUT #1, a$ +TIME$ = a$ +CLOSE #1 + +heli 2 +END SUB + +SUB sync2 +a$ = TIME$ +a$ = LEFT$(a$, 5) +b = VAL(RIGHT$(a$, 2)) +c = VAL(LEFT$(a$, 2)) +IF b >= 30 THEN c = c + 1 +b = 0 +IF c > 23 THEN c = c - 24 +a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1) +b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1) +IF LEN(a$) < 2 THEN a$ = "0" + a$ +IF LEN(b$) < 2 THEN b$ = "0" + b$ +a$ = a$ + ":" + b$ + +'LOCATE 10, 1 +'PRINT a$ + +TIME$ = a$ + +heli 1 +END SUB + diff --git a/Automation/School clock/kell/opetajap.pp b/Automation/School clock/kell/opetajap.pp new file mode 100644 index 0000000..0708469 --- /dev/null +++ b/Automation/School clock/kell/opetajap.pp @@ -0,0 +1,19 @@ +# 08:30 sis +# 09:15 val + +# 09:25 sis +# 10:10 val + +# 10:20 sis +# 10:45 val + +# 10:55 sis +# 11:20 val + +# 11:40 sis +# 12:05 val + +# 12:15 sis +# 12:40 val + + diff --git a/Automation/School clock/kell/rebased.pp b/Automation/School clock/kell/rebased.pp new file mode 100644 index 0000000..97dc6a5 --- /dev/null +++ b/Automation/School clock/kell/rebased.pp @@ -0,0 +1,23 @@ +# 08:30 sis +# 09:10 val + +# 09:20 sis +# 10:00 val + +# 10:10 sis +# 10:50 val + +# 11:30 sis +# 12:10 val + +# 12:20 sis +# 13:00 val + +# 13:10 sis +# 13:50 val + +# 14:00 sis +# 14:40 val + +# 14:45 sis +# 15:30 val diff --git a/Automation/School clock/kell/reede.pp b/Automation/School clock/kell/reede.pp new file mode 100644 index 0000000..b4c0e82 --- /dev/null +++ b/Automation/School clock/kell/reede.pp @@ -0,0 +1,23 @@ +# 08:30 sis +# 09:15 val + +# 09:25 sis +# 10:10 val + +# 10:20 sis +# 11:05 val + +# 11:35 sis +# 12:20 val + +# 12:30 sis +# 13:15 val + +# 13:20 sis +# 14:05 val + +# 14:10 sis +# 14:55 val + +# 15:00 sis +# 15:45 val diff --git a/Automation/School clock/kell/sync.txt b/Automation/School clock/kell/sync.txt new file mode 100644 index 0000000..f6ff243 --- /dev/null +++ b/Automation/School clock/kell/sync.txt @@ -0,0 +1,5 @@ +09-06-2002 +15:38 + +kuu-paev-aasta +tunnid-minutid \ No newline at end of file diff --git a/Automation/School clock/kell/tava.pp b/Automation/School clock/kell/tava.pp new file mode 100644 index 0000000..ce22071 --- /dev/null +++ b/Automation/School clock/kell/tava.pp @@ -0,0 +1,36 @@ +# 08:30 sis +# 09:15 val + +# 09:25 sis +# 10:10 val + +# 10:20 sis +# 11:05 val + +# 11:35 sis +# 12:20 val + +# 12:30 sis +# 13:15 val + +# 13:25 sis +# 14:10 val + +# 14:20 sis +# 15:05 val + +# 15:10 sis +# 15:55 val + +# 16:00 sis +# 16:45 val + +# 16:50 sis +# 17:45 val + +# 17:50 sis +# 18:25 val + +# 18:30 sis +# 19:15 val + diff --git a/Automation/School clock/kell/tuhi.pp b/Automation/School clock/kell/tuhi.pp new file mode 100644 index 0000000..e69de29 diff --git a/Automation/School clock/kell2/aasta.ap b/Automation/School clock/kell2/aasta.ap new file mode 100644 index 0000000..82777d6 --- /dev/null +++ b/Automation/School clock/kell2/aasta.ap @@ -0,0 +1,14 @@ +v 01-01 12-31 tava +n 01-01 12-31 5 reede +e 10-04 opetajap +e 10-31 rebased +e 04-17 luhend +e 04-18 tuhi +e 04-30 luhend +e 05-01 tuhi +e 06-23 tuhi +e 06-24 tuhi +n 01-01 12-31 6 tuhi +n 01-01 12-31 7 tuhi +v 07-01 08-31 tuhi + diff --git a/Automation/School clock/kell2/kkmini.bas b/Automation/School clock/kell2/kkmini.bas new file mode 100755 index 0000000..4564dc8 --- /dev/null +++ b/Automation/School clock/kell2/kkmini.bas @@ -0,0 +1,485 @@ +DECLARE SUB dispt () +' Svjatoslav Agejenko +' E-mail: svjatoslav@svjatoslav.eu +' Homepage: www.hot.ee/n0/ + +DECLARE SUB dispp () +DECLARE SUB displukk () +DECLARE SUB kola (a%) +DECLARE SUB rese () +DECLARE SUB start () +DECLARE SUB getnad (g%, n%, d%, k%) +DECLARE SUB initp (b$) +DECLARE SUB getmd (a$, m%, d%) +DECLARE SUB son (a$) +DECLARE SUB inita () +DECLARE SUB chm () +DECLARE SUB chd () +DECLARE SUB kell (a%) +DECLARE SUB sync2 () +DECLARE SUB sync () +DECLARE SUB mnmain () +DECLARE SUB heli (a%) +DECLARE SUB disp () +DEFINT A-Z + +DIM SHARED ap$(1 TO 500) +DIM SHARED apl +DIM SHARED pp$(1 TO 500) +DIM SHARED ppl +DIM SHARED prt, prt2 +DIM SHARED timo$ +DIM SHARED dato$ +DIM SHARED sona$(1 TO 50) +DIM SHARED mitus +DIM SHARED lp$ +DIM SHARED ndlp +DIM SHARED pn$(1 TO 7) +DIM SHARED lk$ +DIM SHARED ssave +DIM SHARED ssavel +DIM SHARED timero AS LONG +DIM SHARED kblukk +DIM SHARED tunnidara + +start + + +disp +mnmain + +SUB chd +b$ = "tuhi" +IF apl = 0 THEN inita + +a$ = DATE$ +n1 = VAL(RIGHT$(a$, 4)) +n2 = VAL(LEFT$(a$, 2)) +a$ = LEFT$(a$, 5) +n3 = VAL(RIGHT$(a$, 2)) +getnad n1, n2, n3, ndlp +FOR a = 1 TO apl +son ap$(a) +SELECT CASE sona$(1) +CASE "v" +getmd sona$(2), m1, d1 +getmd sona$(3), m2, d2 +getmd DATE$, m3, d3 +IF m3 < m1 THEN GOTO 9 +IF m3 > m2 THEN GOTO 9 +IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 +IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 +b$ = sona$(4) +CASE "n" +getmd sona$(2), m1, d1 +getmd sona$(3), m2, d2 +getmd DATE$, m3, d3 +IF m3 < m1 THEN GOTO 9 +IF m3 > m2 THEN GOTO 9 +IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 +IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 +IF ndlp <> VAL(sona$(4)) THEN GOTO 9 +b$ = sona$(5) +CASE "e" +getmd sona$(2), m1, d1 +getmd DATE$, m2, d2 +IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3) +END SELECT +9 +NEXT a + +IF b$ <> lp$ THEN initp b$ +lp$ = b$ +tunnidara = 0 +dispp +disp +END SUB + +SUB chm +a$ = DATE$ +IF a$ <> dato$ THEN chd +dato$ = a$ +b = 0 +FOR a = 1 TO ppl +son pp$(a) +SELECT CASE sona$(1) +CASE "#" +getmd sona$(2), h1, m1 +getmd TIME$, h2, m2 +' PRINT h1, m1, h2, m2 +IF (h2 = h1) AND (m2 = m1) THEN +IF sona$(3) = "sis" THEN b = 1 +IF sona$(3) = "val" THEN b = 2 +END IF +END SELECT +NEXT a + +IF (tunnidara = 0) AND (b > 0) THEN kell b +ssave = ssave + 1 +END SUB + +SUB disp +CLS +PRINT "Kooli Kell (mini) v 1.1 2003.3" +PRINT "Programmi autor Svjatoslav Agejenko E-mail: n0@hot.ee" +PRINT "" +PRINT "s - kell tundi sisse v - kell tunnist v�lja" +PRINT "a - sisesta uus aeg d - sisesta uus daatum" +PRINT "u - �mardab aja t�istunnini l - laeb aja failist SYNC.TXT" +PRINT "7 - 1 minut tagasi 8 - 1 minut edasi" +PRINT "4 - 1 tund tagasi 5 - 1 tund edasi" +PRINT "r - programmi restart q - programmist v�lja" +PRINT " j - j�tab k�ik tunnid t�na �ra" + +dispp + +LOCATE 12, 15 +PRINT "Kuu-P�ev-Aasta (USA standard)" + + +LOCATE 17 + +FOR a = 1 TO ppl +IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN + PRINT pp$(a); + PRINT SPACE$(15 - LEN(pp$(a))); +END IF +NEXT a + +displukk +dispt +END SUB + +SUB displukk +LOCATE 1, 40 +IF kblukk = 1 THEN + COLOR 0, 7 + PRINT "Klaviatuur lukus! Vajuta CTRL+L" + COLOR 7, 0 +ELSE + PRINT " " +END IF +END SUB + +SUB dispp +IF ndlp = 0 THEN GOTO 14 +LOCATE 14, 1 +PRINT "n�dalap�ev:", pn$(ndlp) +LOCATE 15, 1 +PRINT "p�evaplaan:", lp$ +14 +END SUB + +SUB dispt +LOCATE 16, 20 +COLOR 12 + 15, 0 +IF tunnidara = 1 THEN + PRINT "T�na on k�ik tunnid �ra j�etud" +ELSE + PRINT " " +END IF +COLOR 7, 0 +END SUB + +SUB getmd (a$, m, d) +b$ = LEFT$(a$, 5) +m = VAL(LEFT$(b$, 2)) +d = VAL(RIGHT$(b$, 2)) + +END SUB + +SUB getnad (g, n, d, k) +'LOCATE 11, 1 +'PRINT g, n, d +p = g +m = n - 2 +IF n > 2 GOTO 120 +p = p - 1: m = m + 12 +120 +c = INT(p / 100) +y = p - c * 100 +w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c +k = w - 7 * INT(w / 7) +IF k = 0 THEN k = 7 +END SUB + +SUB heli (a) +'GOTO 10 +SELECT CASE a +CASE 1 +FOR c = 1 TO 5 +SOUND 3000, 1 +SOUND 0, 1 +NEXT c + +CASE 2 +FOR c = 1 TO 5 +SOUND 2500, 1 +SOUND 0, 2 +NEXT c +SOUND 2500, 10 + +CASE 3 +FOR a = 1 TO 10 +SOUND 500, .5 +SOUND 1500, .5 +SOUND 2000, .5 +SOUND 1520, .5 +NEXT a + + +CASE 4 +FOR a = 800 TO 1000 STEP 10 +SOUND a, .1 +SOUND a * 3, .1 +SOUND 0, 1 +NEXT a +10 + +END SELECT + + +END SUB + +SUB inita +apl = 0 +OPEN "aasta.ap" FOR INPUT AS #1 +5 +IF EOF(1) <> 0 THEN GOTO 3 +LINE INPUT #1, a$ +apl = apl + 1 +ap$(apl) = a$ +GOTO 5 +3 +CLOSE #1 +END SUB + +SUB initp (b$) +ppl = 0 +OPEN b$ + ".pp" FOR INPUT AS #1 +6 +IF EOF(1) <> 0 THEN GOTO 7 +LINE INPUT #1, a$ +ppl = ppl + 1 +pp$(ppl) = a$ +GOTO 6 +7 +CLOSE #1 +END SUB + +SUB kell (a) +b$ = TIME$ + DATE$ +IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2 + +heli 3 + +SELECT CASE a +CASE 1 +kola 4 +FOR b = 1 TO 15 +SOUND 0, 1 +NEXT b +kola 1 +CASE 2 +kola 5 +END SELECT +2 +END SUB + +SUB kola (a) +timero = TIMER +11 +FOR b = 1 TO 100 +OUT prt, 0 +OUT prt, 255 +NEXT b +IF ABS(timero - TIMER) < a THEN GOTO 11 +END SUB + +SUB mnmain +1 +b$ = LEFT$(TIME$, 5) +IF b$ <> timo$ THEN chm +timo$ = b$ + +a$ = INKEY$ + +IF a$ <> "" THEN +IF ssave > ssavel THEN disp +ssave = 0 +END IF + +IF a$ = CHR$(12) THEN + IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1 + displukk +END IF +IF kblukk = 1 THEN a$ = "" + +IF a$ = "s" THEN kell 1 +IF a$ = "v" THEN kell 2 + +IF a$ = "a" THEN +CLS +PRINT " vana aeg: " + TIME$ +INPUT "sisesta uus aeg (TT:MM:SS): ", b$ +IF LEN(b$) <> 8 THEN GOTO 12 +TIME$ = b$ +timo$ = "" +12 +disp +END IF + +IF a$ = "d" THEN +CLS +PRINT " vana daatum: " + DATE$ +INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$ +IF LEN(b$) <> 10 THEN GOTO 13 +DATE$ = b$ +timo$ = "" +13 +disp +END IF + +IF a$ = "7" OR a$ = "8" THEN + b = VAL(RIGHT$(LEFT$(TIME$, 5), 2)) + IF a$ = "7" THEN b = b - 1 + IF a$ = "8" THEN b = b + 1 + IF b < 0 THEN b = 0 + IF b > 59 THEN b = 59 + d$ = STR$(b) + IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) + IF LEN(d$) < 2 THEN d$ = "0" + d$ + e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3) + TIME$ = e$ +END IF + +IF a$ = "4" OR a$ = "5" THEN + b = VAL(LEFT$(TIME$, 2)) + IF a$ = "4" THEN b = b - 1 + IF a$ = "5" THEN b = b + 1 + IF b < 0 THEN b = 0 + IF b > 23 THEN b = 23 + d$ = STR$(b) + IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) + IF LEN(d$) < 2 THEN d$ = "0" + d$ + e$ = d$ + RIGHT$(TIME$, 6) + TIME$ = e$ +END IF + +IF a$ = "u" THEN sync2 +IF a$ = "l" THEN sync + +IF a$ = "r" THEN rese +IF a$ = "q" THEN SYSTEM + +IF a$ = "j" THEN +IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0 +dispt +END IF + +IF ssave <= ssavel THEN + LOCATE 11, 1 + PRINT TIME$ + LOCATE 12, 1 + PRINT DATE$ +ELSE + IF ABS(TIMER - timero) > 10 THEN + CLS + kblukk = 1 + FOR b = 1 TO 20 + LOCATE RND * 22 + 1, RND * 79 + 1 + IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "." + NEXT b + LOCATE RND * 22 + 1, RND * 50 + 1 + COLOR 0, 7 + PRINT "< " + LEFT$(TIME$, 2); + COLOR 16, 7 + PRINT ":"; + COLOR 0, 7 + PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >" + COLOR 7, 0 + timero = TIMER + END IF +END IF +GOTO 1 + + +END SUB + +SUB rese +heli 4 +timo$ = "" +dato$ = "" +apl = 0 +END SUB + +SUB son (a$) + +FOR b = 1 TO 50 +sona$(b) = "" +NEXT b +mitus = 0 + +b = 1 +FOR c = 1 TO LEN(a$) +d$ = RIGHT$(LEFT$(a$, c), 1) +IF d$ = " " OR d$ = CHR$(9) THEN +b = 1 +ELSE +IF b = 1 THEN b = 0: mitus = mitus + 1 +sona$(mitus) = sona$(mitus) + d$ +END IF +NEXT c + + +END SUB + +SUB start +pn$(1) = "esmasp�ev" +pn$(2) = "teisip�ev" +pn$(3) = "kolmap�ev" +pn$(4) = "neljap�ev" +pn$(5) = "reede" +pn$(6) = "laup�ev" +pn$(7) = "p�hap�ev" + +prt = &H378 + +ssavel = 2 +kblukk = 1 +tunnidara = 0 +END SUB + +SUB sync +OPEN "sync.txt" FOR INPUT AS #1 +LINE INPUT #1, a$ +DATE$ = a$ +LINE INPUT #1, a$ +TIME$ = a$ +CLOSE #1 + +heli 2 +END SUB + +SUB sync2 +a$ = TIME$ +a$ = LEFT$(a$, 5) +b = VAL(RIGHT$(a$, 2)) +c = VAL(LEFT$(a$, 2)) +IF b >= 30 THEN c = c + 1 +b = 0 +IF c > 23 THEN c = c - 24 +a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1) +b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1) +IF LEN(a$) < 2 THEN a$ = "0" + a$ +IF LEN(b$) < 2 THEN b$ = "0" + b$ +a$ = a$ + ":" + b$ + +'LOCATE 10, 1 +'PRINT a$ + +TIME$ = a$ + +heli 1 +END SUB + diff --git a/Automation/School clock/kell2/luhend.pp b/Automation/School clock/kell2/luhend.pp new file mode 100644 index 0000000..8c36fd4 --- /dev/null +++ b/Automation/School clock/kell2/luhend.pp @@ -0,0 +1,27 @@ +# 08:30 sis +# 09:00 val + +# 09:10 sis +# 09:40 val + +# 09:50 sis +# 10:20 val + +# 10:30 sis +# 11:00 val + +# 11:30 sis +# 12:00 val + +# 12:10 sis +# 12:40 val + +# 12:50 sis +# 13:20 val + +# 13:30 sis +# 14:00 val + +# 14:05 sis +# 14:35 val + diff --git a/Automation/School clock/kell2/opetajap.pp b/Automation/School clock/kell2/opetajap.pp new file mode 100644 index 0000000..0708469 --- /dev/null +++ b/Automation/School clock/kell2/opetajap.pp @@ -0,0 +1,19 @@ +# 08:30 sis +# 09:15 val + +# 09:25 sis +# 10:10 val + +# 10:20 sis +# 10:45 val + +# 10:55 sis +# 11:20 val + +# 11:40 sis +# 12:05 val + +# 12:15 sis +# 12:40 val + + diff --git a/Automation/School clock/kell2/rebased.pp b/Automation/School clock/kell2/rebased.pp new file mode 100644 index 0000000..97dc6a5 --- /dev/null +++ b/Automation/School clock/kell2/rebased.pp @@ -0,0 +1,23 @@ +# 08:30 sis +# 09:10 val + +# 09:20 sis +# 10:00 val + +# 10:10 sis +# 10:50 val + +# 11:30 sis +# 12:10 val + +# 12:20 sis +# 13:00 val + +# 13:10 sis +# 13:50 val + +# 14:00 sis +# 14:40 val + +# 14:45 sis +# 15:30 val diff --git a/Automation/School clock/kell2/reede.pp b/Automation/School clock/kell2/reede.pp new file mode 100644 index 0000000..b4c0e82 --- /dev/null +++ b/Automation/School clock/kell2/reede.pp @@ -0,0 +1,23 @@ +# 08:30 sis +# 09:15 val + +# 09:25 sis +# 10:10 val + +# 10:20 sis +# 11:05 val + +# 11:35 sis +# 12:20 val + +# 12:30 sis +# 13:15 val + +# 13:20 sis +# 14:05 val + +# 14:10 sis +# 14:55 val + +# 15:00 sis +# 15:45 val diff --git a/Automation/School clock/kell2/sync.txt b/Automation/School clock/kell2/sync.txt new file mode 100644 index 0000000..dbbc645 --- /dev/null +++ b/Automation/School clock/kell2/sync.txt @@ -0,0 +1,5 @@ +02-03-2003 +11:32 + +kuu-paev-aasta +tunnid-minutid \ No newline at end of file diff --git a/Automation/School clock/kell2/tava.pp b/Automation/School clock/kell2/tava.pp new file mode 100644 index 0000000..e83ded7 --- /dev/null +++ b/Automation/School clock/kell2/tava.pp @@ -0,0 +1,29 @@ +# 08:30 sis +# 09:15 val + +# 09:25 sis +# 10:10 val + +# 10:20 sis +# 11:05 val + +# 11:35 sis +# 12:20 val + +# 12:30 sis +# 13:15 val + +# 13:25 sis +# 14:10 val + +# 14:20 sis +# 15:05 val + +# 15:10 sis +# 15:55 val + +# 16:00 sis +# 16:45 val + +# 16:50 sis +# 17:35 val \ No newline at end of file diff --git a/Automation/School clock/kell2/tuhi.pp b/Automation/School clock/kell2/tuhi.pp new file mode 100644 index 0000000..e69de29 diff --git a/Automation/School clock/kell3/aasta.ap b/Automation/School clock/kell3/aasta.ap new file mode 100644 index 0000000..8640065 --- /dev/null +++ b/Automation/School clock/kell3/aasta.ap @@ -0,0 +1,12 @@ +v 01-01 12-31 tava +n 01-01 12-31 5 reede +e 04-17 luhend +e 04-18 tuhi +e 04-30 luhend +e 05-01 tuhi +e 06-23 tuhi +e 06-24 tuhi +n 01-01 12-31 6 tuhi +n 01-01 12-31 7 tuhi +v 07-01 08-31 tuhi + diff --git a/Automation/School clock/kell3/juhend.txt b/Automation/School clock/kell3/juhend.txt new file mode 100644 index 0000000..9e49003 --- /dev/null +++ b/Automation/School clock/kell3/juhend.txt @@ -0,0 +1,150 @@ + Kooli Kell 3 programmi kasutusjuhend + ------------------------------------ + +2003.09 + +Programmi, juhendi ja skeemi autor: Svjatoslav Agejenko +E-post: svjatoslav@svjatoslav.eu +kodulehekylg: www.hot.ee/n0/ + +Ettevaatust: Siin tekstis olev info v6ib olla vananenud, vigane v6i +ebat2ielik. Autor ei v6ta endale vastutust antud systeemi kasutamisest +tekkinud otsese v6i kaudse kahju puhul! + + + + 0 Teemad + -------- + +0 Teemad +1 Yldinfo +2 faili AASTA.AP formaat +3 failide *.PP formaat +4 Raudvara n6uded +5 Tarkvara n6uded +6 N6uded inimesele + + + + 1 Yldinfo + --------- + +Programm Kooli Kell on m6eldud kella laskmiseks koolis, tundi sisse ja v2lja. +Tundi sisse minev kell on 1 pikk ning 1 lyhem helin. V2ljaminev kell on 1 +tavaline pikk helin. Programm loeb aega arvuti systeemsest kellast. +Fail 'AASTA.AP' hoiab aasta graafikut, kus saab m22rata teatud p2eva kohta +k2iva p2evaplaani. P2evaplaanid asuvad failides '*.PP'. +Aasta v6i p2evaplaani muutmiseks tuleb redigeerida vastavaid faile. +Failides on info esitatud programmile 'Kooli Kell' arusaadavate k2skudena. +Kus yhel real on yks k2sk, v6i tyhi rida. +Rea esimene s6na peab olema k2sk, ning j2rgnevad s6nad on selle k2su +parameetrid. S6nad v6ivad olla eraldatud suvalise 0 suuremate +tabulaatorite ja/v6i tyhikute arvuga. +Programmi saab kasutada arvutil millele on yhendatud spetsiaalne liides, +v6i millel on see liides sisse monteeritud. Liideses olev relee toimib +lylitina, mis kella laskmise ajaks sulgub. Liides vooluahelasse ise +voolu ei anna. Seega on liides m6eldud kella ja toiteallikaga vooluahelasse +jadamisi yhendamiseks. V6i siis olemasoleva mehaanilise +kella laskmis nupuga paralleelselt, siis saab kella lasta nii endisest +nupust kui ka arvutiga. + +Programm on etten2htud iseseisvalt t88tama, kuid on +ka v6imalus erandkorras k2sitsi kella lasta, aega muuta jne. +Selleks tuleb vajutada erinevaid klahve klaviatuuril. +K2ivitudes kuvab programm klahvide kirjeldused ekraanile. + + + + 2 faili AASTA.AP formaat + ------------------------ + +L6pp 'AP' tuleneb s6nadest Aasta plaan. + +v - - + +S6nast vahemik. Paneb paika p2evaplaani antud ajavahemikus. Esimene +daatum peab kindlasti olema v2iksem kui teine. St. kui on t6esti vaja: + +v 10-4 2-1 eri + +tuleb kirjutada: + +v 10-4 12-31 eri +v 1-1 2-1 eri + +P2evaplaan kehtib vahemiku esimesest p2evast kuni vahemiku viimase p2evani. + +n - - + +S6nast n2dalap2ev. sama mis "v" kuid: paneb paika p2evaplaani antud +ajavahemikus, antud n2dalap2eval. N2dalap2eva kirjeldatakse numbriga. +n2dala esimene p2ev on esmasp2ev, talle vastab number 1. + +e - + +S6nast erip2evaplaan. Paneb paika antud kuup2evale antud p2evaplaani. +Sobib h2sti erakorraliste, lyhendatud v6i uhekordselt kehtivate +p2evaplaanide kehtestamiseks. N2iteks riigipyhad, spordip2ev jne. + +Kui teatud p2eva kohta ei k2inud yhtegi kirjet siis toimib vaikimisi "tuhi" +p2evaplaan. Kui teatud p2eva kohta k2is mitu kirjet siis j22b peale viimane. + + + + 3 failide *.PP formaat + ---------------------- + +L6pp 'PP' tuleneb s6nadest P2eva Plaan. + +# : + +Laseb antud ajal antud kella. V6imalikud kella helinad on: + + sis -kell tundi sisse + val -kell tunnist v2lja + + + + 4 Raudvara n6uded + ----------------- + +286 protsessoriga PC tyypi arvuti. + Peaks t88tama ka 8086 protsessoril aga pole testinud. + +640 KB p6him2lu. + V2hemaga pole testinud. + +500 KB vaba kettaruumi. + K6vakettalt t88 kiirendab oluliselt programmi k2ivitumist, + ja konfiguratsiooni redigeerimist. + +LPT port. + +Monitor. + v6ib ka mustvalge. + +Klaviatuur. + + + + 5 Tarkvara n6uded + ----------------- + +DOS 6.22 + V6ib ka varasem, kuid pole testinud. +QB 4.5 + Piisab 'QB.EXE' failist. Peaks t88tama ka MS QBasic-us. +EDIT.EXE + DOSi k2surealt k2ivituv teksti redaktor. + + + + 6 N6uded inimesele + ------------------ + +Systeemi kasutamiseks h2davajalik antud juhendist aru saamine. +Systeemi paigaldamine n6uab elektriku oskusi. +Programmi kasutamiseks on vajalik v2hemalt +algaja tasemel arvutikasutaja oskus. + + diff --git a/Automation/School clock/kell3/kell3.bas b/Automation/School clock/kell3/kell3.bas new file mode 100755 index 0000000..6239978 --- /dev/null +++ b/Automation/School clock/kell3/kell3.bas @@ -0,0 +1,622 @@ +DECLARE FUNCTION getnam$ (a%) +DECLARE FUNCTION getsym$ (a$, b%) +DECLARE SUB editor () +DECLARE SUB leiaconf () +DECLARE SUB clrerr () +DECLARE SUB dispt () + +' Kooli Kell 3 + +' (c) Svjatoslav Agejenko +' All rights reserved. + +' E-mail: svjatoslav@svjatoslav.eu +' Homepage: svjatoslav.eu + +DECLARE SUB dispp () +DECLARE SUB displukk () +DECLARE SUB kola (a%) +DECLARE SUB rese () +DECLARE SUB start () +DECLARE SUB getnad (g%, n%, d%, k%) +DECLARE SUB initp (b$) +DECLARE SUB getmd (a$, m%, d%) +DECLARE SUB son (a$) +DECLARE SUB inita () +DECLARE SUB chm () +DECLARE SUB chd () +DECLARE SUB kell (a%) +DECLARE SUB sync2 () +DECLARE SUB sync () +DECLARE SUB mnmain () +DECLARE SUB heli (a%) +DECLARE SUB disp () +DEFINT A-Z + +DIM SHARED ap$(1 TO 500) +DIM SHARED apl +DIM SHARED pp$(1 TO 500) +DIM SHARED ppl +DIM SHARED prt, prt2 +DIM SHARED timo$ +DIM SHARED dato$ +DIM SHARED sona$(1 TO 50) +DIM SHARED mitus +DIM SHARED lp$ +DIM SHARED ndlp +DIM SHARED pn$(1 TO 7) +DIM SHARED lk$ +DIM SHARED ssave +DIM SHARED ssavel +DIM SHARED timero AS LONG +DIM SHARED kblukk +DIM SHARED tunnidara +DIM SHARED errmsg$ +DIM SHARED cnflist$(1 TO 200) + +'ON ERROR GOTO 20 + +start +disp +mnmain + +20 +LOCATE 20, 1 +COLOR 0, 15 +PRINT "Programmi t88s ilmus j2rgnev t6rge:" +PRINT errmsg$ +PRINT "Programmi t2itmine katkestatud! Abi saamiseks lugege juhendit." +SYSTEM + +SUB chd +b$ = "tuhi" +IF apl = 0 THEN inita + +a$ = DATE$ +n1 = VAL(RIGHT$(a$, 4)) +n2 = VAL(LEFT$(a$, 2)) +a$ = LEFT$(a$, 5) +n3 = VAL(RIGHT$(a$, 2)) +getnad n1, n2, n3, ndlp +FOR a = 1 TO apl +son ap$(a) +SELECT CASE sona$(1) +CASE "v" +getmd sona$(2), m1, d1 +getmd sona$(3), m2, d2 +getmd DATE$, m3, d3 +IF m3 < m1 THEN GOTO 9 +IF m3 > m2 THEN GOTO 9 +IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 +IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 +b$ = sona$(4) +CASE "n" +getmd sona$(2), m1, d1 +getmd sona$(3), m2, d2 +getmd DATE$, m3, d3 +IF m3 < m1 THEN GOTO 9 +IF m3 > m2 THEN GOTO 9 +IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 +IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 +IF ndlp <> VAL(sona$(4)) THEN GOTO 9 +b$ = sona$(5) +CASE "e" +getmd sona$(2), m1, d1 +getmd DATE$, m2, d2 +IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3) +END SELECT +9 +NEXT a + +IF b$ <> lp$ THEN initp b$ +lp$ = b$ +tunnidara = 0 +dispp +disp +END SUB + +SUB chm +a$ = DATE$ +IF a$ <> dato$ THEN chd +dato$ = a$ +b = 0 +FOR a = 1 TO ppl +son pp$(a) +SELECT CASE sona$(1) +CASE "#" +getmd sona$(2), h1, m1 +getmd TIME$, h2, m2 +' PRINT h1, m1, h2, m2 +IF (h2 = h1) AND (m2 = m1) THEN +IF sona$(3) = "sis" THEN b = 1 +IF sona$(3) = "val" THEN b = 2 +END IF +END SELECT +NEXT a + +IF (tunnidara = 0) AND (b > 0) THEN kell b +ssave = ssave + 1 +END SUB + +SUB clrerr +errmsg$ = "tundmatu viga. V6ibolla on v2he RAM m2lu?" +END SUB + +SUB disp +CLS +PRINT "Kooli Kell 3 2003.09" +PRINT "autor: Svjatoslav Agejenko " +PRINT "" +PRINT "s - kell tundi sisse v - kell tunnist v�lja" +PRINT "a - sisesta uus aeg d - sisesta uus daatum" +PRINT "p - n2itab dokumentatsiooni j - j�tab k�ik tunnid t�na �ra" +PRINT "7 - 1 minut tagasi 8 - 1 minut edasi" +PRINT "4 - 1 tund tagasi 5 - 1 tund edasi" +PRINT "r - programmi restart q - programmist v�lja" +PRINT "k - konfiguratsiooni redaktor CTRL+L - klaviatuuri lukk (sees/v2ljas)" + +dispp + +LOCATE 12, 15 +PRINT "Kuu-P�ev-Aasta (USA standard)" + + +LOCATE 17 + +FOR a = 1 TO ppl +IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN + PRINT pp$(a); + PRINT SPACE$(15 - LEN(pp$(a))); +END IF +NEXT a + +displukk +dispt +END SUB + +SUB displukk +LOCATE 1, 40 +IF kblukk = 1 THEN + COLOR 0, 7 + PRINT "Klaviatuur lukus! Vajuta CTRL+L" + COLOR 15, 0 +ELSE + PRINT " " +END IF +END SUB + +SUB dispp +IF ndlp = 0 THEN GOTO 14 +LOCATE 14, 1 +PRINT "n�dalap�ev:", pn$(ndlp) +LOCATE 15, 1 +PRINT "p�evaplaan:", lp$ +14 +END SUB + +SUB dispt +LOCATE 16, 20 +COLOR 12 + 15, 0 +IF tunnidara = 1 THEN + PRINT "T2na on k6ik tunnid 2ra j2etud" +ELSE + PRINT " " +END IF +COLOR 15, 0 +END SUB + +SUB editor +23 +leiaconf +CLS +COLOR 0, 15 +LOCATE 1, 1 +PRINT SPACE$(80); +LOCATE 1, 1 +PRINT "Konfiguratsiooni redaktor. Valige v2lja p2eva v6i aasta plaani." +LOCATE 2, 1 +PRINT SPACE$(80); +LOCATE 2, 1 +PRINT " nr nimi laiend suurus loomisdaatum" + +LOCATE 22, 1 +PRINT SPACE$(80); +LOCATE 22, 1 +PRINT "K - valitud faili kustutamine U - uus fail ESC - redaktorist v2lja" +p = 0 +v = 1 +17 +FOR a = 3 TO 21 + IF a - 2 + p = v THEN + COLOR 0, 7 + LOCATE a, 1 + PRINT cnflist$(a - 2 + p) + SPACE$(55 - LEN(cnflist$(a - 2 + p))) + LOCATE a, 56 + COLOR 31, 0 + PRINT "<=="; + IF cnflist$(a - 2 + p) <> SPACE$(LEN(cnflist$(a - 2 + p))) THEN + COLOR 15, 0 + PRINT " valitud: " + getnam$(v) + END IF + COLOR 15, 0 + ELSE + COLOR 15, 0 + LOCATE a, 1 + PRINT cnflist$(a - 2 + p) + SPACE$(80 - LEN(cnflist$(a - 2 + p))) + END IF +NEXT a + + +a$ = INKEY$ +LOCATE 1, 1 +'IF a$ <> "" THEN PRINT ASC(RIGHT$(a$, 1)); ASC(LEFT$(a$, 1)) +IF a$ = CHR$(27) THEN GOTO 18 +IF a$ = "u" OR a$ = "U" THEN SHELL "EDIT": GOTO 23 +IF a$ = CHR$(0) + "P" THEN v = v + 1 +IF a$ = CHR$(0) + "H" THEN v = v - 1 +IF a$ = CHR$(0) + CHR$(73) THEN v = v - 17 +IF a$ = CHR$(0) + CHR$(81) THEN v = v + 17 +IF a$ = "K" OR a$ = "k" THEN + IF LEN(getnam$(v)) > 2 THEN + IF getnam$(v) = "AASTA.AP" THEN + SOUND 3000, .1 + ELSE + KILL getnam$(v) + GOTO 23 + END IF + ELSE + SOUND 3000, .1 + END IF +END IF +IF a$ = CHR$(13) THEN + IF getnam$(v) = "." THEN + SOUND 3000, .1 + ELSE + SHELL "EDIT " + getnam$(v) + GOTO 23 + END IF +END IF + +IF v < 1 THEN v = 1: SOUND 3000, .2 +IF v > 200 THEN v = 200: : SOUND 3000, .2 + +21 IF v - p > 19 THEN p = p + 1: GOTO 21 +22 IF v - p < 1 THEN p = p - 1: GOTO 22 + +GOTO 17 +18 +COLOR 15, 0 +disp +END SUB + +SUB getmd (a$, m, d) +b$ = LEFT$(a$, 5) +m = VAL(LEFT$(b$, 2)) +d = VAL(RIGHT$(b$, 2)) + +END SUB + +SUB getnad (g, n, d, k) +'LOCATE 11, 1 +'PRINT g, n, d +p = g +m = n - 2 +IF n > 2 GOTO 120 +p = p - 1: m = m + 12 +120 +c = INT(p / 100) +y = p - c * 100 +w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c +k = w - 7 * INT(w / 7) +IF k = 0 THEN k = 7 +END SUB + +FUNCTION getnam$ (a) +c$ = "" +FOR b = 8 TO 40 + d$ = getsym(cnflist$(a), b) + IF d$ = " " THEN GOTO 19 + c$ = c$ + d$ +NEXT b +19 +getnam$ = c$ + "." + getsym(cnflist$(a), 17) + getsym(cnflist$(a), 18) +END FUNCTION + +FUNCTION getsym$ (a$, b) +getsym$ = RIGHT$(LEFT$(a$, b), 1) +END FUNCTION + +SUB heli (a) +'GOTO 10 +SELECT CASE a +CASE 1 +FOR c = 1 TO 5 +SOUND 3000, 1 +SOUND 0, 1 +NEXT c + +CASE 2 +FOR c = 1 TO 5 +SOUND 2500, 1 +SOUND 0, 2 +NEXT c +SOUND 2500, 10 + +CASE 3 +FOR a = 1 TO 10 +SOUND 500, .5 +SOUND 1500, .5 +SOUND 2000, .5 +SOUND 1520, .5 +NEXT a + + +CASE 4 +FOR a = 800 TO 1000 STEP 10 +SOUND a, .1 +SOUND a * 3, .1 +SOUND 0, 1 +NEXT a +10 + +END SELECT + + +END SUB + +SUB inita +apl = 0 +errmsg$ = "Ei leia aastaplaani faili! 'aasta.ap'" +OPEN "aasta.ap" FOR INPUT AS #1 +clrerr +5 +IF EOF(1) <> 0 THEN GOTO 3 +LINE INPUT #1, a$ +apl = apl + 1 +ap$(apl) = a$ +GOTO 5 +3 +CLOSE #1 +END SUB + +SUB initp (b$) +ppl = 0 +errmsg$ = "Ei leia aastaplaanis mainitud '" + b$ + ".pp' p2evaplaani!" +OPEN b$ + ".pp" FOR INPUT AS #1 +clrerr +6 +IF EOF(1) <> 0 THEN GOTO 7 +LINE INPUT #1, a$ +ppl = ppl + 1 +pp$(ppl) = a$ +GOTO 6 +7 +CLOSE #1 +END SUB + +SUB kell (a) +b$ = TIME$ + DATE$ +IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2 + +heli 3 + +SELECT CASE a +CASE 1 +kola 4 +FOR b = 1 TO 15 +SOUND 0, 1 +NEXT b +kola 1 +CASE 2 +kola 5 +END SELECT +2 +END SUB + +SUB kola (a) +COLOR 15, 7 +s$ = "" +FOR b = 1 TO 80 + s$ = s$ + CHR$(219) +NEXT b +FOR b = 1 TO 30 +PRINT s$; +NEXT b + +timero = TIMER +11 +OUT prt, 255 +IF ABS(timero - TIMER) < a THEN GOTO 11 +OUT prt, 0 +COLOR 15, 0 +disp +END SUB + +SUB leiaconf +FOR a = 1 TO 200 + cnflist$(a) = "" +NEXT a +c = 1 + +SHELL "dir >dir.tmp" +OPEN "dir.tmp" FOR INPUT AS #1 +15 +IF EOF(1) <> 0 THEN GOTO 16 +LINE INPUT #1, a$ +IF LEN(a$) < 30 THEN GOTO 15 +IF LEFT$(a$, 1) = " " THEN GOTO 15 +IF LEFT$(a$, 1) = "." THEN GOTO 15 +b$ = RIGHT$(LEFT$(a$, 12), 3) +IF b$ = "PP " OR b$ = "AP " THEN ELSE GOTO 15 +d$ = " " + STR$(c) +a$ = RIGHT$(d$, 4) + " " + a$ +IF LEN(a$) > 50 THEN a$ = LEFT$(a$, 50) +cnflist$(c) = a$ +c = c + 1 +GOTO 15 +16 +CLOSE #1 +KILL "dir.tmp" +END SUB + +SUB mnmain +1 +b$ = LEFT$(TIME$, 5) +IF b$ <> timo$ THEN chm +timo$ = b$ + +a$ = INKEY$ + +IF a$ <> "" THEN +IF ssave > ssavel THEN disp +ssave = 0 +END IF + +IF a$ = CHR$(12) THEN + IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1 + displukk +END IF +IF kblukk = 1 THEN + IF a$ <> "" THEN SOUND 3000, 1 + a$ = "" +END IF +IF a$ = "k" OR a$ = "K" THEN editor + +IF a$ = "s" OR a$ = "S" THEN kell 1 +IF a$ = "v" OR a$ = "V" THEN kell 2 + +IF a$ = "a" THEN +CLS +PRINT " vana aeg: " + TIME$ +INPUT "sisesta uus aeg (TT:MM:SS): ", b$ +IF LEN(b$) <> 8 THEN GOTO 12 +TIME$ = b$ +timo$ = "" +12 +disp +END IF + +IF a$ = "d" OR a$ = "D" THEN +CLS +PRINT " vana daatum: " + DATE$ +INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$ +IF LEN(b$) <> 10 THEN GOTO 13 +DATE$ = b$ +timo$ = "" +13 +disp +END IF + +IF a$ = "7" OR a$ = "8" THEN + b = VAL(RIGHT$(LEFT$(TIME$, 5), 2)) + IF a$ = "7" THEN b = b - 1 + IF a$ = "8" THEN b = b + 1 + IF b < 0 THEN b = 0 + IF b > 59 THEN b = 59 + d$ = STR$(b) + IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) + IF LEN(d$) < 2 THEN d$ = "0" + d$ + e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3) + TIME$ = e$ +END IF + +IF a$ = "4" OR a$ = "5" THEN + b = VAL(LEFT$(TIME$, 2)) + IF a$ = "4" THEN b = b - 1 + IF a$ = "5" THEN b = b + 1 + IF b < 0 THEN b = 0 + IF b > 23 THEN b = 23 + d$ = STR$(b) + IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) + IF LEN(d$) < 2 THEN d$ = "0" + d$ + e$ = d$ + RIGHT$(TIME$, 6) + TIME$ = e$ +END IF + +IF a$ = "p" OR a$ = "P" THEN SHELL "EDIT juhend.txt": disp + +IF a$ = "r" OR a$ = "R" THEN rese +IF a$ = "q" OR a$ = "Q" THEN SYSTEM + +IF a$ = "j" OR a$ = "J" THEN +IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0 +dispt +END IF + +IF ssave <= ssavel THEN + LOCATE 11, 1 + PRINT TIME$ + LOCATE 12, 1 + PRINT DATE$ +ELSE + IF ABS(TIMER - timero) > 10 THEN + CLS + kblukk = 1 + FOR b = 1 TO 20 + LOCATE RND * 22 + 1, RND * 79 + 1 + IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "." + NEXT b + LOCATE RND * 22 + 1, RND * 50 + 1 + COLOR 0, 7 + PRINT "< " + LEFT$(TIME$, 2); + COLOR 16, 7 + PRINT ":"; + COLOR 0, 7 + PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >" + COLOR 15, 0 + timero = TIMER + END IF +END IF +GOTO 1 + + +END SUB + +SUB rese +heli 4 +timo$ = "" +dato$ = "" +apl = 0 +END SUB + +SUB son (a$) + +FOR b = 1 TO 50 + sona$(b) = "" +NEXT b +mitus = 0 + +b = 1 +FOR c = 1 TO LEN(a$) +d$ = RIGHT$(LEFT$(a$, c), 1) +IF d$ = " " OR d$ = CHR$(9) THEN +b = 1 +ELSE +IF b = 1 THEN b = 0: mitus = mitus + 1 +sona$(mitus) = sona$(mitus) + d$ +END IF +NEXT c + + +END SUB + +SUB start +CLS +COLOR 15 +pn$(1) = "esmasp�ev" +pn$(2) = "teisip�ev" +pn$(3) = "kolmap�ev" +pn$(4) = "neljap�ev" +pn$(5) = "reede" +pn$(6) = "laup�ev" +pn$(7) = "p�hap�ev" + +prt = &H378 + +ssavel = 2 +kblukk = 1 +tunnidara = 0 + +OUT prt, 0 +END SUB + diff --git a/Automation/School clock/kell3/luhend.pp b/Automation/School clock/kell3/luhend.pp new file mode 100644 index 0000000..8c36fd4 --- /dev/null +++ b/Automation/School clock/kell3/luhend.pp @@ -0,0 +1,27 @@ +# 08:30 sis +# 09:00 val + +# 09:10 sis +# 09:40 val + +# 09:50 sis +# 10:20 val + +# 10:30 sis +# 11:00 val + +# 11:30 sis +# 12:00 val + +# 12:10 sis +# 12:40 val + +# 12:50 sis +# 13:20 val + +# 13:30 sis +# 14:00 val + +# 14:05 sis +# 14:35 val + diff --git a/Automation/School clock/kell3/reede.pp b/Automation/School clock/kell3/reede.pp new file mode 100644 index 0000000..b4c0e82 --- /dev/null +++ b/Automation/School clock/kell3/reede.pp @@ -0,0 +1,23 @@ +# 08:30 sis +# 09:15 val + +# 09:25 sis +# 10:10 val + +# 10:20 sis +# 11:05 val + +# 11:35 sis +# 12:20 val + +# 12:30 sis +# 13:15 val + +# 13:20 sis +# 14:05 val + +# 14:10 sis +# 14:55 val + +# 15:00 sis +# 15:45 val diff --git a/Automation/School clock/kell3/skeem.png b/Automation/School clock/kell3/skeem.png new file mode 100644 index 0000000..9c3e95b Binary files /dev/null and b/Automation/School clock/kell3/skeem.png differ diff --git a/Automation/School clock/kell3/tava.pp b/Automation/School clock/kell3/tava.pp new file mode 100644 index 0000000..e83ded7 --- /dev/null +++ b/Automation/School clock/kell3/tava.pp @@ -0,0 +1,29 @@ +# 08:30 sis +# 09:15 val + +# 09:25 sis +# 10:10 val + +# 10:20 sis +# 11:05 val + +# 11:35 sis +# 12:20 val + +# 12:30 sis +# 13:15 val + +# 13:25 sis +# 14:10 val + +# 14:20 sis +# 15:05 val + +# 15:10 sis +# 15:55 val + +# 16:00 sis +# 16:45 val + +# 16:50 sis +# 17:35 val \ No newline at end of file diff --git a/Automation/School clock/kell3/tuhi.pp b/Automation/School clock/kell3/tuhi.pp new file mode 100644 index 0000000..d3f5a12 --- /dev/null +++ b/Automation/School clock/kell3/tuhi.pp @@ -0,0 +1 @@ + diff --git a/Automation/school clock/kell/aasta.ap b/Automation/school clock/kell/aasta.ap deleted file mode 100644 index ef1b084..0000000 --- a/Automation/school clock/kell/aasta.ap +++ /dev/null @@ -1,7 +0,0 @@ -v 01-01 12-31 tava -n 01-01 12-31 5 reede -e 10-04 opetajap -e 10-31 rebased -n 01-01 12-31 6 tuhi -n 01-01 12-31 7 tuhi - diff --git a/Automation/school clock/kell/autoexec.bat b/Automation/school clock/kell/autoexec.bat deleted file mode 100755 index cd7ae3c..0000000 --- a/Automation/school clock/kell/autoexec.bat +++ /dev/null @@ -1,2 +0,0 @@ -coff -qb /run kk.bas \ No newline at end of file diff --git a/Automation/school clock/kell/coff.asm b/Automation/school clock/kell/coff.asm deleted file mode 100644 index 0466c15..0000000 --- a/Automation/school clock/kell/coff.asm +++ /dev/null @@ -1,4 +0,0 @@ -mov dx, 37Ah -mov al, 0 -out dx, al -ret \ No newline at end of file diff --git a/Automation/school clock/kell/coff.com b/Automation/school clock/kell/coff.com deleted file mode 100755 index 2537f6d..0000000 Binary files a/Automation/school clock/kell/coff.com and /dev/null differ diff --git a/Automation/school clock/kell/ekr.bas b/Automation/school clock/kell/ekr.bas deleted file mode 100755 index e5c6dfc..0000000 --- a/Automation/school clock/kell/ekr.bas +++ /dev/null @@ -1,67 +0,0 @@ -DECLARE SUB jooks () -DECLARE SUB suva () -DEFINT A-Z -DECLARE SUB cle () -DECLARE SUB disp () -DIM SHARED bit(0 TO 16) - -suva -jooks - -cle -bit(10) = 0 -bit(14) = 0 -bit(6) = 0 -bit(2) = 0 -4 -disp -GOTO 4 - -SUB cle -FOR a = 1 TO 16 -bit(a) = 1 -NEXT a -END SUB - -SUB disp -prt = &H378 -d = 0 -FOR a = 0 TO 3 -c = 2 ^ a -FOR b = 4 TO 7 -d = d + 1 -c = c + (bit(d) * 2 ^ b) -NEXT b - -OUT prt, c -NEXT a -END SUB - -SUB jooks -2 -cle -FOR a = 1 TO 16 -bit(16) = 1 -bit(a - 1) = 1 -bit(a) = 0 -PRINT a -FOR b = 1 TO 1000 -disp -NEXT b -NEXT a -GOTO 2 - -END SUB - -SUB suva -3 -cle -FOR b = 1 TO 16 -IF RND * 100 > 50 THEN bit(b) = 0 -NEXT b -FOR b = 1 TO 100 -disp -NEXT b -GOTO 3 -END SUB - diff --git a/Automation/school clock/kell/electronics/1.png b/Automation/school clock/kell/electronics/1.png deleted file mode 100644 index 798fdf3..0000000 Binary files a/Automation/school clock/kell/electronics/1.png and /dev/null differ diff --git a/Automation/school clock/kell/electronics/2.png b/Automation/school clock/kell/electronics/2.png deleted file mode 100644 index f998b57..0000000 Binary files a/Automation/school clock/kell/electronics/2.png and /dev/null differ diff --git a/Automation/school clock/kell/electronics/3 key keyboard.png b/Automation/school clock/kell/electronics/3 key keyboard.png deleted file mode 100644 index 4c70f99..0000000 Binary files a/Automation/school clock/kell/electronics/3 key keyboard.png and /dev/null differ diff --git a/Automation/school clock/kell/electronics/3.png b/Automation/school clock/kell/electronics/3.png deleted file mode 100644 index 73df687..0000000 Binary files a/Automation/school clock/kell/electronics/3.png and /dev/null differ diff --git a/Automation/school clock/kell/electronics/4.png b/Automation/school clock/kell/electronics/4.png deleted file mode 100644 index 1109bba..0000000 Binary files a/Automation/school clock/kell/electronics/4.png and /dev/null differ diff --git a/Automation/school clock/kell/electronics/skeem.png b/Automation/school clock/kell/electronics/skeem.png deleted file mode 100644 index 3c93169..0000000 Binary files a/Automation/school clock/kell/electronics/skeem.png and /dev/null differ diff --git a/Automation/school clock/kell/juhend.html b/Automation/school clock/kell/juhend.html deleted file mode 100644 index d7dc1d0..0000000 --- a/Automation/school clock/kell/juhend.html +++ /dev/null @@ -1,473 +0,0 @@ - - - -juhend - - - - - - - - - - - - - -
-

juhend

-

-Kooli Kell programmi kasutusjuhend -

- -
    -
  • 2002.10 -
    • -
  • Svjatoslav Agejenko -
    • -
- - -
-

1 Kasutajaliides

-
-

-Programm Kooli Kell on mõldud kella laskmiseks koolis, tundi sisse ja -välja. Samuti juhib programm arvuti küljes olevat liidest, -kahekohaliste numbrite näitamiseks (minutid / tunnid), 3 klahvilist -klaviatuuri ja releed. Tundi sisse minev kell on 1 pikk ning 1 l”em -helin. Väljaminev kell on 1 tavaline pikk helin. Programm loeb aega -arvuti süsteemsest kellast. Kella laskmis ajad on organiseeritud -failidesse *.PP . Aasta või päevaplaani muutmiseks tuleb redakteerida -vastavaid faile. Programm valib sobiva päevaplaani lähtudes -aastaplaanist, mis asub failis "aasta.ap" . Programmi saab kasutada -arvutil millele on printeri pesasse (LPT1) ”endatud spetsiaalne -liides, liidese skeem on failis "skeem.bmp". Liides omab kolme -nummerdatud nuppu paigutusega: -

- -

-<1> <2>
-   <3>
-

- -

-Programm on ettenähtud iseseisvalt töötama, kuid on ka võimalus -erandkorras kгitsi kella lasta, aega muuta jne.. Programm eristab -tavalisi nupuvajutusi ja topeltklõpse. Eesmärgiga suurendada -funktsionaalsust väheste nuppudega. -

-
- -
-

1.1 Nuppude funktsioonid peamenüüs:

-
-
-
<1> klõps
laseb kella tundi sisse -
-
<1> topeltklõps
laseb kella tunnist välja -
- -
<2> klõps
läheb aja muutmis menüüsse -
-
<3> topeltklõps
hakkab tööle uuendatud graafikuga, vajalik pвast -sisendfailide redigeerimist. -
- -
<3> klõps
ümardab süsteemse aja täistunnini, vajalik aja -sünkroniseerimiseks. -
-
<3> topeltklõps
laeb süsteemse: aasta, kuu, päeva, tunnid, -minutid failist "sync.txt" -
-
-
-
- -
-

1.2 Nuppude funktsioonid aja muutmis menüüs:

-
-
-
<1> klõps
vähendab süsteemsed tunnid/minutid 1. võrra -
- -
<2> klõps
suurendab süsteemsed tunnid/minutid 1. võrra -
- -
<3> klõps
valib näitamiseks ja redigeerimiseks tunnid või minutid. -
-
<3> topeltklõps
läheb tagasi peamenüüsse. -
-
- -

-Aja muutmis menüüd tunneb ära selle järgi et indikaator tunnid või -minutid vilgub, mitte ei põle nagu peamenüüs. -

-
-
-
- - -
-

2 Faili AASTA.AP formaat: (aastaplaan)

-
-
-v       <kuu>-<päev>     <kuu>-<päev>     <päevaplaan>
-
- -

-Sõnast aja vahemik. Paneb paika päevaplaani antud -ajavahemikus. Esimene daatum peab kindlasti olema väiksem kui -teine. St. kui on tõesti vaja: -

- -
-v       10-4    2-1     eri
-
- -

-tuleb kirjutada: -

- -
-v       10-4    12-31   eri
-v       1-1     2-1     eri
-
- -

-Päevaplaan kehtib vahemiku esimesest päevast kuni vahemiku viimase -päevani. -

- - -
-n       <kuu>-<päev>     <kuu>-<päev>     <nädalapäev>      <päevaplaan>
-
- -

-Sõnast nädalapäv. sama mis "v" kuid: paneb paika päevaplaani antud -ajavahemikus, antud nädalapäeval. Nädalapäeva kirjeldatakse numbriga. -nädala esimene päev on esmaspäev, talle vastab number 1. -

- - -
-e       <kuu>-<päev> <päevaplaan>
-
- -

-Sõnast eriline. Paneb paika antud kuupävale antud pävaplaani. Sobib -hästi erakorraliste lüendatud või muul moel muudetud päevaplaanide -kehtestamiseks. Näiteks riigipühad, spordipäev jne. -

- -

-Kui teatud päeva kohta ei käinud ühtegi kirjet siis toimib vaikimisi -"tuhi" päevaplaan. Kui teatud päeva kohta käis mitu kirjet siis jääb -peale viimane. -

-
-
- - - -
-

3 Failide *.PP formaat: (päevaplaanid)

-
-
-# <tund>:<minut>  <kell>
-
- -

-Laseb antud ajal antud kella. Võimalikud kella helinad on: -

- - - - --- -- - - - - - - - - - - - - - - - - - -
kella koodvastav helin
siskell tundi sisse
valkell tunnist välja
-
-
- -
-

4 Faili SYNC.TXT formaat:

-
-

-faili esimesel kahel real peab olema järgnev: -

- -
-KK-PP-AAAA
-TT:MM
-
- -

-kus: -

- - - --- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
koodtähendus
KKkuu
PPpäev
AAAAaasta
TTtunnid
MMminutid
-
-
-
-
-
-

Author: Svjatoslav Agejenko

-

Created: 2018-04-20 Fri 11:08

-

Emacs 25.1.1 (Org-mode 8.2.10)

-
-
- - diff --git a/Automation/school clock/kell/juhend.org b/Automation/school clock/kell/juhend.org deleted file mode 100644 index dcfe13c..0000000 --- a/Automation/school clock/kell/juhend.org +++ /dev/null @@ -1,119 +0,0 @@ - -Kooli Kell programmi kasutusjuhend - -- 2002.10 -- Svjatoslav Agejenko - - -* Kasutajaliides -Programm Kooli Kell on mõldud kella laskmiseks koolis, tundi sisse ja -välja. Samuti juhib programm arvuti küljes olevat liidest, -kahekohaliste numbrite näitamiseks (minutid / tunnid), 3 klahvilist -klaviatuuri ja releed. Tundi sisse minev kell on 1 pikk ning 1 l”em -helin. Väljaminev kell on 1 tavaline pikk helin. Programm loeb aega -arvuti süsteemsest kellast. Kella laskmis ajad on organiseeritud -failidesse *.PP . Aasta või päevaplaani muutmiseks tuleb redakteerida -vastavaid faile. Programm valib sobiva päevaplaani lähtudes -aastaplaanist, mis asub failis "aasta.ap" . Programmi saab kasutada -arvutil millele on printeri pesasse (LPT1) ”endatud spetsiaalne -liides, liidese skeem on failis "skeem.bmp". Liides omab kolme -nummerdatud nuppu paigutusega: - -#+BEGIN_VERSE - <1> <2> - <3> -#+END_VERSE - -Programm on ettenähtud iseseisvalt töötama, kuid on ka võimalus -erandkorras kгitsi kella lasta, aega muuta jne.. Programm eristab -tavalisi nupuvajutusi ja topeltklõpse. Eesmärgiga suurendada -funktsionaalsust väheste nuppudega. - -** Nuppude funktsioonid peamenüüs: - -+ <1> klõps :: laseb kella tundi sisse -+ <1> topeltklõps :: laseb kella tunnist välja - -+ <2> klõps :: läheb aja muutmis menüüsse -+ <3> topeltklõps :: hakkab tööle uuendatud graafikuga, vajalik pвast - sisendfailide redigeerimist. - -+ <3> klõps :: ümardab süsteemse aja täistunnini, vajalik aja - sünkroniseerimiseks. -+ <3> topeltklõps :: laeb süsteemse: aasta, kuu, päeva, tunnid, - minutid failist "sync.txt" - -** Nuppude funktsioonid aja muutmis menüüs: - -+ <1> klõps :: vähendab süsteemsed tunnid/minutid 1. võrra - -+ <2> klõps :: suurendab süsteemsed tunnid/minutid 1. võrra - -+ <3> klõps :: valib näitamiseks ja redigeerimiseks tunnid või minutid. -+ <3> topeltklõps :: läheb tagasi peamenüüsse. - -Aja muutmis menüüd tunneb ära selle järgi et indikaator tunnid või -minutid vilgub, mitte ei põle nagu peamenüüs. - - -* Faili AASTA.AP formaat: (aastaplaan) -: v - - - -Sõnast aja vahemik. Paneb paika päevaplaani antud -ajavahemikus. Esimene daatum peab kindlasti olema väiksem kui -teine. St. kui on tõesti vaja: - -: v 10-4 2-1 eri - -tuleb kirjutada: - -: v 10-4 12-31 eri -: v 1-1 2-1 eri - -Päevaplaan kehtib vahemiku esimesest päevast kuni vahemiku viimase -päevani. - - -: n - - - -Sõnast nädalapäv. sama mis "v" kuid: paneb paika päevaplaani antud -ajavahemikus, antud nädalapäeval. Nädalapäeva kirjeldatakse numbriga. -nädala esimene päev on esmaspäev, talle vastab number 1. - - -: e - - -Sõnast eriline. Paneb paika antud kuupävale antud pävaplaani. Sobib -hästi erakorraliste lüendatud või muul moel muudetud päevaplaanide -kehtestamiseks. Näiteks riigipühad, spordipäev jne. - -Kui teatud päeva kohta ei käinud ühtegi kirjet siis toimib vaikimisi -"tuhi" päevaplaan. Kui teatud päeva kohta käis mitu kirjet siis jääb -peale viimane. - - - -* Failide *.PP formaat: (päevaplaanid) -: # : - -Laseb antud ajal antud kella. Võimalikud kella helinad on: - -| kella kood | vastav helin | -|------------+--------------------| -| sis | kell tundi sisse | -| val | kell tunnist välja | - -* Faili SYNC.TXT formaat: -faili esimesel kahel real peab olema järgnev: - -: KK-PP-AAAA -: TT:MM - -kus: -| kood | tähendus | -|------+----------| -| KK | kuu | -| PP | päev | -| AAAA | aasta | -| TT | tunnid | -| MM | minutid | diff --git a/Automation/school clock/kell/kk.bas b/Automation/school clock/kell/kk.bas deleted file mode 100755 index 799d888..0000000 --- a/Automation/school clock/kell/kk.bas +++ /dev/null @@ -1,693 +0,0 @@ -DECLARE SUB num (a%) -DECLARE SUB mntime () -DECLARE SUB showit () -DECLARE SUB ekrf (a%) -DECLARE SUB ekr () -DECLARE SUB rese () -DECLARE SUB start () -DECLARE SUB boot () -DECLARE SUB getnad (g%, n%, d%, k%) -DECLARE SUB initp (b$) -DECLARE SUB getmd (a$, m%, d%) -DECLARE SUB son (a$) -DEFINT A-Z - -DECLARE SUB inita () -DECLARE SUB chm () -DECLARE SUB chd () -DECLARE SUB kell (a%) -DECLARE SUB sync2 () -DECLARE SUB sync () -DECLARE SUB mnmain () -DECLARE SUB main () -DECLARE SUB getkey (kla%) -DECLARE SUB klnait (k%) -DECLARE SUB heli (a%) -DECLARE SUB keys () -DECLARE SUB disp () -DIM SHARED bit(0 TO 7) -DIM SHARED kl -DIM SHARED hist(1 TO 3) -DIM SHARED ap$(1 TO 500) -DIM SHARED apl -DIM SHARED pp$(1 TO 500) -DIM SHARED ppl -DIM SHARED prt, prt2 -DIM SHARED timo$ -DIM SHARED dato$ -DIM SHARED sona$(1 TO 50) -DIM SHARED mitus -DIM SHARED lp$ -DIM SHARED ndlp -DIM SHARED pn$(1 TO 7) -DIM SHARED bitt(1 TO 16) -DIM SHARED modee, vilgu -DIM SHARED tul(1 TO 2) - -start -heli 4 - - -disp -mnmain - -SUB chd -b$ = "tuhi" -IF apl = 0 THEN inita - -a$ = DATE$ -n1 = VAL(RIGHT$(a$, 4)) -n2 = VAL(LEFT$(a$, 2)) -a$ = LEFT$(a$, 5) -n3 = VAL(RIGHT$(a$, 2)) -getnad n1, n2, n3, ndlp -LOCATE 10, 1 -PRINT "n„dalap„ev:", pn$(ndlp) -FOR a = 1 TO apl -son ap$(a) -SELECT CASE sona$(1) -CASE "v" -getmd sona$(2), m1, d1 -getmd sona$(3), m2, d2 -getmd DATE$, m3, d3 -IF m3 < m1 THEN GOTO 9 -IF m3 > m2 THEN GOTO 9 -IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 -IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 -b$ = sona$(4) -CASE "n" -getmd sona$(2), m1, d1 -getmd sona$(3), m2, d2 -getmd DATE$, m3, d3 -IF m3 < m1 THEN GOTO 9 -IF m3 > m2 THEN GOTO 9 -IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 -IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 -IF ndlp <> VAL(sona$(4)) THEN GOTO 9 -b$ = sona$(5) -CASE "e" -getmd sona$(2), m1, d1 -getmd DATE$, m2, d2 -IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3) -END SELECT -9 -NEXT a - -IF b$ <> lp$ THEN initp b$ -lp$ = b$ -LOCATE 9, 1 -PRINT "p„evaplaan:", lp$ -END SUB - -SUB chm -showit -a$ = DATE$ -IF a$ <> dato$ THEN chd -dato$ = a$ -b = 0 -FOR a = 1 TO ppl -son pp$(a) -SELECT CASE sona$(1) -CASE "#" -getmd sona$(2), h1, m1 -getmd TIME$, h2, m2 -' PRINT h1, m1, h2, m2 -IF (h2 = h1) AND (m2 = m1) THEN -IF sona$(3) = "sis" THEN b = 1 -IF sona$(3) = "val" THEN b = 2 -END IF -END SELECT -NEXT a - -IF b > 0 THEN kell b - -END SUB - -SUB disp -CLS -PRINT "Kooli Kell v 1.2 2002.10.10" -PRINT "Programmi autor Svjatoslav Agejenko" - -END SUB - -SUB ekr -FOR e = 1 TO 10 -c = 1 -c = c + 16 * bitt(1) -c = c + 32 * bitt(2) -c = c + 64 * bitt(3) -c = c + 128 * bitt(4) -OUT prt2, c - -c = 2 -c = c + 16 * bitt(5) -c = c + 32 * bitt(6) -c = c + 64 * bitt(7) -c = c + 128 * bitt(8) -OUT prt2, c - -c = 4 -c = c + 16 * bitt(9) -c = c + 32 * bitt(10) -c = c + 64 * bitt(11) -c = c + 128 * bitt(12) -OUT prt2, c - -c = 8 -c = c + 16 * bitt(13) -c = c + 32 * bitt(14) -c = c + 64 * bitt(15) -c = c + 128 * bitt(16) -OUT prt2, c - - -NEXT e -END SUB - -SUB ekrf (a) -SELECT CASE (a) -CASE 0 -bitt(1) = 0 -bitt(2) = 0 -bitt(3) = 0 -bitt(7) = 0 -bitt(5) = 0 -bitt(6) = 0 -bitt(8) = 1 -CASE 1 -bitt(2) = 0 -bitt(7) = 0 -CASE 2 -bitt(1) = 0 -bitt(3) = 0 -bitt(5) = 0 -bitt(7) = 0 -bitt(8) = 0 -CASE 3 -bitt(1) = 0 -bitt(2) = 0 -bitt(5) = 0 -bitt(8) = 0 -bitt(7) = 0 -CASE 4 -bitt(2) = 0 -bitt(6) = 0 -bitt(7) = 0 -bitt(8) = 0 -CASE 5 -bitt(1) = 0 -bitt(2) = 0 -bitt(5) = 0 -bitt(6) = 0 -bitt(8) = 0 -CASE 6 -bitt(1) = 0 -bitt(2) = 0 -bitt(3) = 0 -bitt(5) = 0 -bitt(6) = 0 -bitt(8) = 0 -CASE 7 -bitt(2) = 0 -bitt(7) = 0 -bitt(5) = 0 -CASE 8 -bitt(1) = 0 -bitt(2) = 0 -bitt(3) = 0 -bitt(7) = 0 -bitt(5) = 0 -bitt(6) = 0 -bitt(8) = 0 -CASE 9 -bitt(1) = 0 -bitt(2) = 0 -bitt(7) = 0 -bitt(5) = 0 -bitt(6) = 0 -bitt(8) = 0 -CASE 10 -bitt(15) = 0 -bitt(16) = 0 -bitt(12) = 0 -bitt(10) = 0 -bitt(9) = 0 -bitt(4) = 0 -CASE 11 -bitt(15) = 0 -bitt(4) = 0 -CASE 12 -bitt(15) = 0 -bitt(16) = 0 -bitt(9) = 0 -bitt(10) = 0 -bitt(11) = 0 -CASE 13 -bitt(15) = 0 -bitt(4) = 0 -bitt(16) = 0 -bitt(11) = 0 -bitt(9) = 0 -CASE 14 -bitt(15) = 0 -bitt(4) = 0 -bitt(12) = 0 -bitt(11) = 0 -CASE 15 -bitt(9) = 0 -bitt(4) = 0 -bitt(11) = 0 -bitt(12) = 0 -bitt(16) = 0 -CASE 16 -bitt(9) = 0 -bitt(4) = 0 -bitt(11) = 0 -bitt(12) = 0 -bitt(16) = 0 -bitt(10) = 0 -CASE 17 -bitt(4) = 0 -bitt(15) = 0 -bitt(16) = 0 -CASE 18 -bitt(4) = 0 -bitt(15) = 0 -bitt(16) = 0 -bitt(12) = 0 -bitt(11) = 0 -bitt(10) = 0 -bitt(9) = 0 -CASE 19 -bitt(4) = 0 -bitt(15) = 0 -bitt(16) = 0 -bitt(12) = 0 -bitt(11) = 0 -bitt(9) = 0 -END SELECT - -END SUB - -SUB getkey (kla) - -1 -IF vilgu = 1 THEN -tmr = tmr + 1 -IF tmr > 5 THEN bitt(13) = tul(1): bitt(14) = tul(2) ELSE bitt(13) = 1: bitt(14) = 1 -IF tmr > 10 THEN -tmr = 0 -END IF -ELSE -bitt(13) = tul(1) -bitt(14) = tul(2) -END IF - -b$ = LEFT$(TIME$, 5) -IF b$ <> timo$ THEN chm -timo$ = b$ -hist(1) = hist(1) + 1 -IF hist(1) > 20000 THEN hist(1) = 15000 -hist(2) = hist(2) + 1 -IF hist(2) > 20000 THEN hist(2) = 15000 -hist(3) = hist(3) + 1 -IF hist(3) > 20000 THEN hist(3) = 15000 - -keys -IF kl > 0 THEN - IF hist(kl) > 1 AND hist(kl) < 9 THEN - klnait kl + 3 - kla = kl + 3 - GOTO 4 - ELSE - hist(kl) = 0 - END IF -END IF -IF hist(1) = 10 THEN klnait 1: kla = 1: GOTO 4 -IF hist(2) = 10 THEN klnait 2: kla = 2: GOTO 4 -IF hist(3) = 10 THEN klnait 3: kla = 3: GOTO 4 - -IF hist(1) > 11 AND hist(2) > 11 AND hist(3) > 11 THEN klnait 0 -LOCATE 7, 1 -PRINT TIME$ -LOCATE 8, 1 -PRINT DATE$ -GOTO 1 -4 - - -hist(1) = 10000 -hist(2) = 10000 -hist(3) = 10000 - -FOR b = 1 TO 100 -SOUND 0, .1 -NEXT b -IF kla > 3 THEN SOUND 4000, .1 ELSE SOUND 3000, .1 - - - -END SUB - -SUB getmd (a$, m, d) -b$ = LEFT$(a$, 5) -m = VAL(LEFT$(b$, 2)) -d = VAL(RIGHT$(b$, 2)) - -END SUB - -SUB getnad (g, n, d, k) -LOCATE 11, 1 -PRINT g, n, d -p = g -m = n - 2 -IF n > 2 GOTO 120 -p = p - 1: m = m + 12 -120 -c = INT(p / 100) -y = p - c * 100 -w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c -k = w - 7 * INT(w / 7) -IF k = 0 THEN k = 7 -END SUB - -SUB heli (a) -'GOTO 10 -SELECT CASE a -CASE 1 -FOR c = 1 TO 5 -SOUND 3000, 1 -SOUND 0, 1 -NEXT c - -CASE 2 -FOR c = 1 TO 5 -SOUND 2500, 1 -SOUND 0, 2 -NEXT c -SOUND 2500, 10 - -CASE 3 -FOR a = 1 TO 10 -SOUND 500, .5 -SOUND 1500, .5 -SOUND 2000, .5 -SOUND 1520, .5 -NEXT a - - -CASE 4 -FOR a = 800 TO 1000 STEP 10 -SOUND a, .1 -SOUND a * 3, .1 -SOUND 0, 1 -NEXT a -10 - -END SELECT - - -END SUB - -SUB inita -apl = 0 -OPEN "aasta.ap" FOR INPUT AS #1 -5 -IF EOF(1) <> 0 THEN GOTO 3 -LINE INPUT #1, a$ -apl = apl + 1 -ap$(apl) = a$ -GOTO 5 -3 -CLOSE #1 -END SUB - -SUB initp (b$) -ppl = 0 -OPEN b$ + ".pp" FOR INPUT AS #1 -6 -IF EOF(1) <> 0 THEN GOTO 7 -LINE INPUT #1, a$ -ppl = ppl + 1 -pp$(ppl) = a$ -GOTO 6 -7 -CLOSE #1 -END SUB - -SUB kell (a) -heli 3 - -SELECT CASE a -CASE 1 -OUT prt, 255 -FOR b = 1 TO 80 -SOUND 0, 1 -NEXT b -OUT prt, 0 -FOR b = 1 TO 15 -SOUND 0, 1 -NEXT b -OUT prt, 255 -FOR b = 1 TO 15 -SOUND 0, 1 -NEXT b -OUT prt, 0 - -CASE 2 -OUT prt, 255 -FOR b = 1 TO 80 -SOUND 0, 1 -NEXT b -OUT prt, 0 - -END SELECT -END SUB - -SUB keys -kl = 0 -OUT prt, 0 -8 -a = INP(prt) -b = INP(prt) -IF a <> b THEN GOTO 8 - -b = 128 -FOR c = 0 TO 7 -d = INT(a / b) -bit(c) = d -a = a - (b * d) -b = b / 2 -NEXT c - -IF bit(4) = 1 AND bit(6) = 1 THEN bit(4) = 0: bit(6) = 0: kl = 3 -IF bit(6) = 1 THEN kl = 2 -IF bit(4) = 1 THEN kl = 1 - -a$ = INKEY$ -IF a$ = CHR$(0) + "K" THEN kl = 1 -IF a$ = CHR$(0) + "M" THEN kl = 2 -IF a$ = CHR$(0) + "P" THEN kl = 3 -ekr -END SUB - -SUB klnait (k) - -IF k = 3 THEN c = 3 ELSE c = 1 -IF k = 6 THEN c = 14 -LOCATE 5, 6 -COLOR 7, c -PRINT "" -COLOR 7, 0 - -IF k = 1 THEN c = 3 ELSE c = 1 -IF k = 4 THEN c = 14 -LOCATE 4, 1 -COLOR 7, c -PRINT "" -COLOR 7, 0 - -IF k = 2 THEN c = 3 ELSE c = 1 -IF k = 5 THEN c = 14 -LOCATE 4, 10 -COLOR 7, c -PRINT "" -COLOR 7, 0 - -END SUB - -SUB mnmain -2 -getkey a -IF a = 6 THEN sync -IF a = 3 THEN sync2 - -IF a = 1 THEN kell 1 -IF a = 4 THEN kell 2 - -IF a = 2 THEN mntime -IF a = 5 THEN rese -GOTO 2 - -END SUB - -SUB mntime -vilgu = 1 -11 -showit -getkey a - -IF modee = 1 THEN - b = VAL(LEFT$(TIME$, 2)) - c = 0 - IF a = 1 THEN c = 1: b = b - 1 - IF a = 2 THEN c = 1: b = b + 1 - IF b < 0 THEN b = 0 - IF b > 23 THEN b = 23 - d$ = STR$(b) - IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) - IF LEN(d$) < 2 THEN d$ = "0" + d$ - e$ = d$ + RIGHT$(TIME$, 6) - IF c = 1 THEN TIME$ = e$ -ELSE - b = VAL(RIGHT$(LEFT$(TIME$, 5), 2)) - c = 0 - IF a = 1 THEN c = 1: b = b - 1 - IF a = 2 THEN c = 1: b = b + 1 - IF b < 0 THEN b = 0 - IF b > 59 THEN b = 59 - d$ = STR$(b) - IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) - IF LEN(d$) < 2 THEN d$ = "0" + d$ - e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3) - IF c = 1 THEN TIME$ = e$ -END IF - -IF a = 3 THEN -IF modee = 1 THEN modee = 2 ELSE modee = 1 -END IF - -IF a = 6 THEN GOTO 12 -GOTO 11 -12 -vilgu = 0 -modee = 2 -END SUB - -SUB num (a) - -FOR b = 1 TO 12 -bitt(b) = 1 -NEXT b -bitt(15) = 1 -bitt(16) = 1 - -b = INT(a / 10) -c = a - (10 * b) -ekrf b -ekrf c + 10 -END SUB - -SUB rese -heli 4 -timo$ = "" -dato$ = "" -apl = 0 -END SUB - -SUB showit -a$ = LEFT$(TIME$, 5) -IF modee = 1 THEN -b = VAL(LEFT$(a$, 2)) -tul(1) = 1 -tul(2) = 0 -ELSE -b = VAL(RIGHT$(a$, 2)) -tul(1) = 0 -tul(2) = 1 -END IF -LOCATE 15, 1 -PRINT b -num b - - -END SUB - -SUB son (a$) - -FOR b = 1 TO 50 -sona$(b) = "" -NEXT b -mitus = 0 - -b = 1 -FOR c = 1 TO LEN(a$) -d$ = RIGHT$(LEFT$(a$, c), 1) -IF d$ = " " OR d$ = CHR$(9) THEN -b = 1 -ELSE -IF b = 1 THEN b = 0: mitus = mitus + 1 -sona$(mitus) = sona$(mitus) + d$ -END IF -NEXT c - - -END SUB - -SUB start -pn$(1) = "esmasp„ev" -pn$(2) = "teisip„ev" -pn$(3) = "kolmap„ev" -pn$(4) = "neljap„ev" -pn$(5) = "reede" -pn$(6) = "laup„ev" -pn$(7) = "phap„ev" - -prt = &H37A -prt2 = &H378 -hist(1) = 10000 -hist(2) = 10000 -hist(3) = 10000 - -FOR a = 1 TO 16 -bitt(a) = 1 -NEXT a -modee = 2 -vilgu = 0 -tul(1) = 1 -tul(2) = 1 -END SUB - -SUB sync -OPEN "sync.txt" FOR INPUT AS #1 -LINE INPUT #1, a$ -DATE$ = a$ -LINE INPUT #1, a$ -TIME$ = a$ -CLOSE #1 - -heli 2 -END SUB - -SUB sync2 -a$ = TIME$ -a$ = LEFT$(a$, 5) -b = VAL(RIGHT$(a$, 2)) -c = VAL(LEFT$(a$, 2)) -IF b >= 30 THEN c = c + 1 -b = 0 -IF c > 23 THEN c = c - 24 -a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1) -b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1) -IF LEN(a$) < 2 THEN a$ = "0" + a$ -IF LEN(b$) < 2 THEN b$ = "0" + b$ -a$ = a$ + ":" + b$ - -'LOCATE 10, 1 -'PRINT a$ - -TIME$ = a$ - -heli 1 -END SUB - diff --git a/Automation/school clock/kell/opetajap.pp b/Automation/school clock/kell/opetajap.pp deleted file mode 100644 index 0708469..0000000 --- a/Automation/school clock/kell/opetajap.pp +++ /dev/null @@ -1,19 +0,0 @@ -# 08:30 sis -# 09:15 val - -# 09:25 sis -# 10:10 val - -# 10:20 sis -# 10:45 val - -# 10:55 sis -# 11:20 val - -# 11:40 sis -# 12:05 val - -# 12:15 sis -# 12:40 val - - diff --git a/Automation/school clock/kell/rebased.pp b/Automation/school clock/kell/rebased.pp deleted file mode 100644 index 97dc6a5..0000000 --- a/Automation/school clock/kell/rebased.pp +++ /dev/null @@ -1,23 +0,0 @@ -# 08:30 sis -# 09:10 val - -# 09:20 sis -# 10:00 val - -# 10:10 sis -# 10:50 val - -# 11:30 sis -# 12:10 val - -# 12:20 sis -# 13:00 val - -# 13:10 sis -# 13:50 val - -# 14:00 sis -# 14:40 val - -# 14:45 sis -# 15:30 val diff --git a/Automation/school clock/kell/reede.pp b/Automation/school clock/kell/reede.pp deleted file mode 100644 index b4c0e82..0000000 --- a/Automation/school clock/kell/reede.pp +++ /dev/null @@ -1,23 +0,0 @@ -# 08:30 sis -# 09:15 val - -# 09:25 sis -# 10:10 val - -# 10:20 sis -# 11:05 val - -# 11:35 sis -# 12:20 val - -# 12:30 sis -# 13:15 val - -# 13:20 sis -# 14:05 val - -# 14:10 sis -# 14:55 val - -# 15:00 sis -# 15:45 val diff --git a/Automation/school clock/kell/sync.txt b/Automation/school clock/kell/sync.txt deleted file mode 100644 index f6ff243..0000000 --- a/Automation/school clock/kell/sync.txt +++ /dev/null @@ -1,5 +0,0 @@ -09-06-2002 -15:38 - -kuu-paev-aasta -tunnid-minutid \ No newline at end of file diff --git a/Automation/school clock/kell/tava.pp b/Automation/school clock/kell/tava.pp deleted file mode 100644 index ce22071..0000000 --- a/Automation/school clock/kell/tava.pp +++ /dev/null @@ -1,36 +0,0 @@ -# 08:30 sis -# 09:15 val - -# 09:25 sis -# 10:10 val - -# 10:20 sis -# 11:05 val - -# 11:35 sis -# 12:20 val - -# 12:30 sis -# 13:15 val - -# 13:25 sis -# 14:10 val - -# 14:20 sis -# 15:05 val - -# 15:10 sis -# 15:55 val - -# 16:00 sis -# 16:45 val - -# 16:50 sis -# 17:45 val - -# 17:50 sis -# 18:25 val - -# 18:30 sis -# 19:15 val - diff --git a/Automation/school clock/kell/tuhi.pp b/Automation/school clock/kell/tuhi.pp deleted file mode 100644 index e69de29..0000000 diff --git a/Automation/school clock/kell2/aasta.ap b/Automation/school clock/kell2/aasta.ap deleted file mode 100644 index 82777d6..0000000 --- a/Automation/school clock/kell2/aasta.ap +++ /dev/null @@ -1,14 +0,0 @@ -v 01-01 12-31 tava -n 01-01 12-31 5 reede -e 10-04 opetajap -e 10-31 rebased -e 04-17 luhend -e 04-18 tuhi -e 04-30 luhend -e 05-01 tuhi -e 06-23 tuhi -e 06-24 tuhi -n 01-01 12-31 6 tuhi -n 01-01 12-31 7 tuhi -v 07-01 08-31 tuhi - diff --git a/Automation/school clock/kell2/kkmini.bas b/Automation/school clock/kell2/kkmini.bas deleted file mode 100755 index 4564dc8..0000000 --- a/Automation/school clock/kell2/kkmini.bas +++ /dev/null @@ -1,485 +0,0 @@ -DECLARE SUB dispt () -' Svjatoslav Agejenko -' E-mail: svjatoslav@svjatoslav.eu -' Homepage: www.hot.ee/n0/ - -DECLARE SUB dispp () -DECLARE SUB displukk () -DECLARE SUB kola (a%) -DECLARE SUB rese () -DECLARE SUB start () -DECLARE SUB getnad (g%, n%, d%, k%) -DECLARE SUB initp (b$) -DECLARE SUB getmd (a$, m%, d%) -DECLARE SUB son (a$) -DECLARE SUB inita () -DECLARE SUB chm () -DECLARE SUB chd () -DECLARE SUB kell (a%) -DECLARE SUB sync2 () -DECLARE SUB sync () -DECLARE SUB mnmain () -DECLARE SUB heli (a%) -DECLARE SUB disp () -DEFINT A-Z - -DIM SHARED ap$(1 TO 500) -DIM SHARED apl -DIM SHARED pp$(1 TO 500) -DIM SHARED ppl -DIM SHARED prt, prt2 -DIM SHARED timo$ -DIM SHARED dato$ -DIM SHARED sona$(1 TO 50) -DIM SHARED mitus -DIM SHARED lp$ -DIM SHARED ndlp -DIM SHARED pn$(1 TO 7) -DIM SHARED lk$ -DIM SHARED ssave -DIM SHARED ssavel -DIM SHARED timero AS LONG -DIM SHARED kblukk -DIM SHARED tunnidara - -start - - -disp -mnmain - -SUB chd -b$ = "tuhi" -IF apl = 0 THEN inita - -a$ = DATE$ -n1 = VAL(RIGHT$(a$, 4)) -n2 = VAL(LEFT$(a$, 2)) -a$ = LEFT$(a$, 5) -n3 = VAL(RIGHT$(a$, 2)) -getnad n1, n2, n3, ndlp -FOR a = 1 TO apl -son ap$(a) -SELECT CASE sona$(1) -CASE "v" -getmd sona$(2), m1, d1 -getmd sona$(3), m2, d2 -getmd DATE$, m3, d3 -IF m3 < m1 THEN GOTO 9 -IF m3 > m2 THEN GOTO 9 -IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 -IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 -b$ = sona$(4) -CASE "n" -getmd sona$(2), m1, d1 -getmd sona$(3), m2, d2 -getmd DATE$, m3, d3 -IF m3 < m1 THEN GOTO 9 -IF m3 > m2 THEN GOTO 9 -IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 -IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 -IF ndlp <> VAL(sona$(4)) THEN GOTO 9 -b$ = sona$(5) -CASE "e" -getmd sona$(2), m1, d1 -getmd DATE$, m2, d2 -IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3) -END SELECT -9 -NEXT a - -IF b$ <> lp$ THEN initp b$ -lp$ = b$ -tunnidara = 0 -dispp -disp -END SUB - -SUB chm -a$ = DATE$ -IF a$ <> dato$ THEN chd -dato$ = a$ -b = 0 -FOR a = 1 TO ppl -son pp$(a) -SELECT CASE sona$(1) -CASE "#" -getmd sona$(2), h1, m1 -getmd TIME$, h2, m2 -' PRINT h1, m1, h2, m2 -IF (h2 = h1) AND (m2 = m1) THEN -IF sona$(3) = "sis" THEN b = 1 -IF sona$(3) = "val" THEN b = 2 -END IF -END SELECT -NEXT a - -IF (tunnidara = 0) AND (b > 0) THEN kell b -ssave = ssave + 1 -END SUB - -SUB disp -CLS -PRINT "Kooli Kell (mini) v 1.1 2003.3" -PRINT "Programmi autor Svjatoslav Agejenko E-mail: n0@hot.ee" -PRINT "" -PRINT "s - kell tundi sisse v - kell tunnist v�lja" -PRINT "a - sisesta uus aeg d - sisesta uus daatum" -PRINT "u - �mardab aja t�istunnini l - laeb aja failist SYNC.TXT" -PRINT "7 - 1 minut tagasi 8 - 1 minut edasi" -PRINT "4 - 1 tund tagasi 5 - 1 tund edasi" -PRINT "r - programmi restart q - programmist v�lja" -PRINT " j - j�tab k�ik tunnid t�na �ra" - -dispp - -LOCATE 12, 15 -PRINT "Kuu-P�ev-Aasta (USA standard)" - - -LOCATE 17 - -FOR a = 1 TO ppl -IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN - PRINT pp$(a); - PRINT SPACE$(15 - LEN(pp$(a))); -END IF -NEXT a - -displukk -dispt -END SUB - -SUB displukk -LOCATE 1, 40 -IF kblukk = 1 THEN - COLOR 0, 7 - PRINT "Klaviatuur lukus! Vajuta CTRL+L" - COLOR 7, 0 -ELSE - PRINT " " -END IF -END SUB - -SUB dispp -IF ndlp = 0 THEN GOTO 14 -LOCATE 14, 1 -PRINT "n�dalap�ev:", pn$(ndlp) -LOCATE 15, 1 -PRINT "p�evaplaan:", lp$ -14 -END SUB - -SUB dispt -LOCATE 16, 20 -COLOR 12 + 15, 0 -IF tunnidara = 1 THEN - PRINT "T�na on k�ik tunnid �ra j�etud" -ELSE - PRINT " " -END IF -COLOR 7, 0 -END SUB - -SUB getmd (a$, m, d) -b$ = LEFT$(a$, 5) -m = VAL(LEFT$(b$, 2)) -d = VAL(RIGHT$(b$, 2)) - -END SUB - -SUB getnad (g, n, d, k) -'LOCATE 11, 1 -'PRINT g, n, d -p = g -m = n - 2 -IF n > 2 GOTO 120 -p = p - 1: m = m + 12 -120 -c = INT(p / 100) -y = p - c * 100 -w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c -k = w - 7 * INT(w / 7) -IF k = 0 THEN k = 7 -END SUB - -SUB heli (a) -'GOTO 10 -SELECT CASE a -CASE 1 -FOR c = 1 TO 5 -SOUND 3000, 1 -SOUND 0, 1 -NEXT c - -CASE 2 -FOR c = 1 TO 5 -SOUND 2500, 1 -SOUND 0, 2 -NEXT c -SOUND 2500, 10 - -CASE 3 -FOR a = 1 TO 10 -SOUND 500, .5 -SOUND 1500, .5 -SOUND 2000, .5 -SOUND 1520, .5 -NEXT a - - -CASE 4 -FOR a = 800 TO 1000 STEP 10 -SOUND a, .1 -SOUND a * 3, .1 -SOUND 0, 1 -NEXT a -10 - -END SELECT - - -END SUB - -SUB inita -apl = 0 -OPEN "aasta.ap" FOR INPUT AS #1 -5 -IF EOF(1) <> 0 THEN GOTO 3 -LINE INPUT #1, a$ -apl = apl + 1 -ap$(apl) = a$ -GOTO 5 -3 -CLOSE #1 -END SUB - -SUB initp (b$) -ppl = 0 -OPEN b$ + ".pp" FOR INPUT AS #1 -6 -IF EOF(1) <> 0 THEN GOTO 7 -LINE INPUT #1, a$ -ppl = ppl + 1 -pp$(ppl) = a$ -GOTO 6 -7 -CLOSE #1 -END SUB - -SUB kell (a) -b$ = TIME$ + DATE$ -IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2 - -heli 3 - -SELECT CASE a -CASE 1 -kola 4 -FOR b = 1 TO 15 -SOUND 0, 1 -NEXT b -kola 1 -CASE 2 -kola 5 -END SELECT -2 -END SUB - -SUB kola (a) -timero = TIMER -11 -FOR b = 1 TO 100 -OUT prt, 0 -OUT prt, 255 -NEXT b -IF ABS(timero - TIMER) < a THEN GOTO 11 -END SUB - -SUB mnmain -1 -b$ = LEFT$(TIME$, 5) -IF b$ <> timo$ THEN chm -timo$ = b$ - -a$ = INKEY$ - -IF a$ <> "" THEN -IF ssave > ssavel THEN disp -ssave = 0 -END IF - -IF a$ = CHR$(12) THEN - IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1 - displukk -END IF -IF kblukk = 1 THEN a$ = "" - -IF a$ = "s" THEN kell 1 -IF a$ = "v" THEN kell 2 - -IF a$ = "a" THEN -CLS -PRINT " vana aeg: " + TIME$ -INPUT "sisesta uus aeg (TT:MM:SS): ", b$ -IF LEN(b$) <> 8 THEN GOTO 12 -TIME$ = b$ -timo$ = "" -12 -disp -END IF - -IF a$ = "d" THEN -CLS -PRINT " vana daatum: " + DATE$ -INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$ -IF LEN(b$) <> 10 THEN GOTO 13 -DATE$ = b$ -timo$ = "" -13 -disp -END IF - -IF a$ = "7" OR a$ = "8" THEN - b = VAL(RIGHT$(LEFT$(TIME$, 5), 2)) - IF a$ = "7" THEN b = b - 1 - IF a$ = "8" THEN b = b + 1 - IF b < 0 THEN b = 0 - IF b > 59 THEN b = 59 - d$ = STR$(b) - IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) - IF LEN(d$) < 2 THEN d$ = "0" + d$ - e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3) - TIME$ = e$ -END IF - -IF a$ = "4" OR a$ = "5" THEN - b = VAL(LEFT$(TIME$, 2)) - IF a$ = "4" THEN b = b - 1 - IF a$ = "5" THEN b = b + 1 - IF b < 0 THEN b = 0 - IF b > 23 THEN b = 23 - d$ = STR$(b) - IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) - IF LEN(d$) < 2 THEN d$ = "0" + d$ - e$ = d$ + RIGHT$(TIME$, 6) - TIME$ = e$ -END IF - -IF a$ = "u" THEN sync2 -IF a$ = "l" THEN sync - -IF a$ = "r" THEN rese -IF a$ = "q" THEN SYSTEM - -IF a$ = "j" THEN -IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0 -dispt -END IF - -IF ssave <= ssavel THEN - LOCATE 11, 1 - PRINT TIME$ - LOCATE 12, 1 - PRINT DATE$ -ELSE - IF ABS(TIMER - timero) > 10 THEN - CLS - kblukk = 1 - FOR b = 1 TO 20 - LOCATE RND * 22 + 1, RND * 79 + 1 - IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "." - NEXT b - LOCATE RND * 22 + 1, RND * 50 + 1 - COLOR 0, 7 - PRINT "< " + LEFT$(TIME$, 2); - COLOR 16, 7 - PRINT ":"; - COLOR 0, 7 - PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >" - COLOR 7, 0 - timero = TIMER - END IF -END IF -GOTO 1 - - -END SUB - -SUB rese -heli 4 -timo$ = "" -dato$ = "" -apl = 0 -END SUB - -SUB son (a$) - -FOR b = 1 TO 50 -sona$(b) = "" -NEXT b -mitus = 0 - -b = 1 -FOR c = 1 TO LEN(a$) -d$ = RIGHT$(LEFT$(a$, c), 1) -IF d$ = " " OR d$ = CHR$(9) THEN -b = 1 -ELSE -IF b = 1 THEN b = 0: mitus = mitus + 1 -sona$(mitus) = sona$(mitus) + d$ -END IF -NEXT c - - -END SUB - -SUB start -pn$(1) = "esmasp�ev" -pn$(2) = "teisip�ev" -pn$(3) = "kolmap�ev" -pn$(4) = "neljap�ev" -pn$(5) = "reede" -pn$(6) = "laup�ev" -pn$(7) = "p�hap�ev" - -prt = &H378 - -ssavel = 2 -kblukk = 1 -tunnidara = 0 -END SUB - -SUB sync -OPEN "sync.txt" FOR INPUT AS #1 -LINE INPUT #1, a$ -DATE$ = a$ -LINE INPUT #1, a$ -TIME$ = a$ -CLOSE #1 - -heli 2 -END SUB - -SUB sync2 -a$ = TIME$ -a$ = LEFT$(a$, 5) -b = VAL(RIGHT$(a$, 2)) -c = VAL(LEFT$(a$, 2)) -IF b >= 30 THEN c = c + 1 -b = 0 -IF c > 23 THEN c = c - 24 -a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1) -b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1) -IF LEN(a$) < 2 THEN a$ = "0" + a$ -IF LEN(b$) < 2 THEN b$ = "0" + b$ -a$ = a$ + ":" + b$ - -'LOCATE 10, 1 -'PRINT a$ - -TIME$ = a$ - -heli 1 -END SUB - diff --git a/Automation/school clock/kell2/luhend.pp b/Automation/school clock/kell2/luhend.pp deleted file mode 100644 index 8c36fd4..0000000 --- a/Automation/school clock/kell2/luhend.pp +++ /dev/null @@ -1,27 +0,0 @@ -# 08:30 sis -# 09:00 val - -# 09:10 sis -# 09:40 val - -# 09:50 sis -# 10:20 val - -# 10:30 sis -# 11:00 val - -# 11:30 sis -# 12:00 val - -# 12:10 sis -# 12:40 val - -# 12:50 sis -# 13:20 val - -# 13:30 sis -# 14:00 val - -# 14:05 sis -# 14:35 val - diff --git a/Automation/school clock/kell2/opetajap.pp b/Automation/school clock/kell2/opetajap.pp deleted file mode 100644 index 0708469..0000000 --- a/Automation/school clock/kell2/opetajap.pp +++ /dev/null @@ -1,19 +0,0 @@ -# 08:30 sis -# 09:15 val - -# 09:25 sis -# 10:10 val - -# 10:20 sis -# 10:45 val - -# 10:55 sis -# 11:20 val - -# 11:40 sis -# 12:05 val - -# 12:15 sis -# 12:40 val - - diff --git a/Automation/school clock/kell2/rebased.pp b/Automation/school clock/kell2/rebased.pp deleted file mode 100644 index 97dc6a5..0000000 --- a/Automation/school clock/kell2/rebased.pp +++ /dev/null @@ -1,23 +0,0 @@ -# 08:30 sis -# 09:10 val - -# 09:20 sis -# 10:00 val - -# 10:10 sis -# 10:50 val - -# 11:30 sis -# 12:10 val - -# 12:20 sis -# 13:00 val - -# 13:10 sis -# 13:50 val - -# 14:00 sis -# 14:40 val - -# 14:45 sis -# 15:30 val diff --git a/Automation/school clock/kell2/reede.pp b/Automation/school clock/kell2/reede.pp deleted file mode 100644 index b4c0e82..0000000 --- a/Automation/school clock/kell2/reede.pp +++ /dev/null @@ -1,23 +0,0 @@ -# 08:30 sis -# 09:15 val - -# 09:25 sis -# 10:10 val - -# 10:20 sis -# 11:05 val - -# 11:35 sis -# 12:20 val - -# 12:30 sis -# 13:15 val - -# 13:20 sis -# 14:05 val - -# 14:10 sis -# 14:55 val - -# 15:00 sis -# 15:45 val diff --git a/Automation/school clock/kell2/sync.txt b/Automation/school clock/kell2/sync.txt deleted file mode 100644 index dbbc645..0000000 --- a/Automation/school clock/kell2/sync.txt +++ /dev/null @@ -1,5 +0,0 @@ -02-03-2003 -11:32 - -kuu-paev-aasta -tunnid-minutid \ No newline at end of file diff --git a/Automation/school clock/kell2/tava.pp b/Automation/school clock/kell2/tava.pp deleted file mode 100644 index e83ded7..0000000 --- a/Automation/school clock/kell2/tava.pp +++ /dev/null @@ -1,29 +0,0 @@ -# 08:30 sis -# 09:15 val - -# 09:25 sis -# 10:10 val - -# 10:20 sis -# 11:05 val - -# 11:35 sis -# 12:20 val - -# 12:30 sis -# 13:15 val - -# 13:25 sis -# 14:10 val - -# 14:20 sis -# 15:05 val - -# 15:10 sis -# 15:55 val - -# 16:00 sis -# 16:45 val - -# 16:50 sis -# 17:35 val \ No newline at end of file diff --git a/Automation/school clock/kell2/tuhi.pp b/Automation/school clock/kell2/tuhi.pp deleted file mode 100644 index e69de29..0000000 diff --git a/Automation/school clock/kell3/aasta.ap b/Automation/school clock/kell3/aasta.ap deleted file mode 100644 index 8640065..0000000 --- a/Automation/school clock/kell3/aasta.ap +++ /dev/null @@ -1,12 +0,0 @@ -v 01-01 12-31 tava -n 01-01 12-31 5 reede -e 04-17 luhend -e 04-18 tuhi -e 04-30 luhend -e 05-01 tuhi -e 06-23 tuhi -e 06-24 tuhi -n 01-01 12-31 6 tuhi -n 01-01 12-31 7 tuhi -v 07-01 08-31 tuhi - diff --git a/Automation/school clock/kell3/juhend.txt b/Automation/school clock/kell3/juhend.txt deleted file mode 100644 index 9e49003..0000000 --- a/Automation/school clock/kell3/juhend.txt +++ /dev/null @@ -1,150 +0,0 @@ - Kooli Kell 3 programmi kasutusjuhend - ------------------------------------ - -2003.09 - -Programmi, juhendi ja skeemi autor: Svjatoslav Agejenko -E-post: svjatoslav@svjatoslav.eu -kodulehekylg: www.hot.ee/n0/ - -Ettevaatust: Siin tekstis olev info v6ib olla vananenud, vigane v6i -ebat2ielik. Autor ei v6ta endale vastutust antud systeemi kasutamisest -tekkinud otsese v6i kaudse kahju puhul! - - - - 0 Teemad - -------- - -0 Teemad -1 Yldinfo -2 faili AASTA.AP formaat -3 failide *.PP formaat -4 Raudvara n6uded -5 Tarkvara n6uded -6 N6uded inimesele - - - - 1 Yldinfo - --------- - -Programm Kooli Kell on m6eldud kella laskmiseks koolis, tundi sisse ja v2lja. -Tundi sisse minev kell on 1 pikk ning 1 lyhem helin. V2ljaminev kell on 1 -tavaline pikk helin. Programm loeb aega arvuti systeemsest kellast. -Fail 'AASTA.AP' hoiab aasta graafikut, kus saab m22rata teatud p2eva kohta -k2iva p2evaplaani. P2evaplaanid asuvad failides '*.PP'. -Aasta v6i p2evaplaani muutmiseks tuleb redigeerida vastavaid faile. -Failides on info esitatud programmile 'Kooli Kell' arusaadavate k2skudena. -Kus yhel real on yks k2sk, v6i tyhi rida. -Rea esimene s6na peab olema k2sk, ning j2rgnevad s6nad on selle k2su -parameetrid. S6nad v6ivad olla eraldatud suvalise 0 suuremate -tabulaatorite ja/v6i tyhikute arvuga. -Programmi saab kasutada arvutil millele on yhendatud spetsiaalne liides, -v6i millel on see liides sisse monteeritud. Liideses olev relee toimib -lylitina, mis kella laskmise ajaks sulgub. Liides vooluahelasse ise -voolu ei anna. Seega on liides m6eldud kella ja toiteallikaga vooluahelasse -jadamisi yhendamiseks. V6i siis olemasoleva mehaanilise -kella laskmis nupuga paralleelselt, siis saab kella lasta nii endisest -nupust kui ka arvutiga. - -Programm on etten2htud iseseisvalt t88tama, kuid on -ka v6imalus erandkorras k2sitsi kella lasta, aega muuta jne. -Selleks tuleb vajutada erinevaid klahve klaviatuuril. -K2ivitudes kuvab programm klahvide kirjeldused ekraanile. - - - - 2 faili AASTA.AP formaat - ------------------------ - -L6pp 'AP' tuleneb s6nadest Aasta plaan. - -v - - - -S6nast vahemik. Paneb paika p2evaplaani antud ajavahemikus. Esimene -daatum peab kindlasti olema v2iksem kui teine. St. kui on t6esti vaja: - -v 10-4 2-1 eri - -tuleb kirjutada: - -v 10-4 12-31 eri -v 1-1 2-1 eri - -P2evaplaan kehtib vahemiku esimesest p2evast kuni vahemiku viimase p2evani. - -n - - - -S6nast n2dalap2ev. sama mis "v" kuid: paneb paika p2evaplaani antud -ajavahemikus, antud n2dalap2eval. N2dalap2eva kirjeldatakse numbriga. -n2dala esimene p2ev on esmasp2ev, talle vastab number 1. - -e - - -S6nast erip2evaplaan. Paneb paika antud kuup2evale antud p2evaplaani. -Sobib h2sti erakorraliste, lyhendatud v6i uhekordselt kehtivate -p2evaplaanide kehtestamiseks. N2iteks riigipyhad, spordip2ev jne. - -Kui teatud p2eva kohta ei k2inud yhtegi kirjet siis toimib vaikimisi "tuhi" -p2evaplaan. Kui teatud p2eva kohta k2is mitu kirjet siis j22b peale viimane. - - - - 3 failide *.PP formaat - ---------------------- - -L6pp 'PP' tuleneb s6nadest P2eva Plaan. - -# : - -Laseb antud ajal antud kella. V6imalikud kella helinad on: - - sis -kell tundi sisse - val -kell tunnist v2lja - - - - 4 Raudvara n6uded - ----------------- - -286 protsessoriga PC tyypi arvuti. - Peaks t88tama ka 8086 protsessoril aga pole testinud. - -640 KB p6him2lu. - V2hemaga pole testinud. - -500 KB vaba kettaruumi. - K6vakettalt t88 kiirendab oluliselt programmi k2ivitumist, - ja konfiguratsiooni redigeerimist. - -LPT port. - -Monitor. - v6ib ka mustvalge. - -Klaviatuur. - - - - 5 Tarkvara n6uded - ----------------- - -DOS 6.22 - V6ib ka varasem, kuid pole testinud. -QB 4.5 - Piisab 'QB.EXE' failist. Peaks t88tama ka MS QBasic-us. -EDIT.EXE - DOSi k2surealt k2ivituv teksti redaktor. - - - - 6 N6uded inimesele - ------------------ - -Systeemi kasutamiseks h2davajalik antud juhendist aru saamine. -Systeemi paigaldamine n6uab elektriku oskusi. -Programmi kasutamiseks on vajalik v2hemalt -algaja tasemel arvutikasutaja oskus. - - diff --git a/Automation/school clock/kell3/kell3.bas b/Automation/school clock/kell3/kell3.bas deleted file mode 100755 index 6239978..0000000 --- a/Automation/school clock/kell3/kell3.bas +++ /dev/null @@ -1,622 +0,0 @@ -DECLARE FUNCTION getnam$ (a%) -DECLARE FUNCTION getsym$ (a$, b%) -DECLARE SUB editor () -DECLARE SUB leiaconf () -DECLARE SUB clrerr () -DECLARE SUB dispt () - -' Kooli Kell 3 - -' (c) Svjatoslav Agejenko -' All rights reserved. - -' E-mail: svjatoslav@svjatoslav.eu -' Homepage: svjatoslav.eu - -DECLARE SUB dispp () -DECLARE SUB displukk () -DECLARE SUB kola (a%) -DECLARE SUB rese () -DECLARE SUB start () -DECLARE SUB getnad (g%, n%, d%, k%) -DECLARE SUB initp (b$) -DECLARE SUB getmd (a$, m%, d%) -DECLARE SUB son (a$) -DECLARE SUB inita () -DECLARE SUB chm () -DECLARE SUB chd () -DECLARE SUB kell (a%) -DECLARE SUB sync2 () -DECLARE SUB sync () -DECLARE SUB mnmain () -DECLARE SUB heli (a%) -DECLARE SUB disp () -DEFINT A-Z - -DIM SHARED ap$(1 TO 500) -DIM SHARED apl -DIM SHARED pp$(1 TO 500) -DIM SHARED ppl -DIM SHARED prt, prt2 -DIM SHARED timo$ -DIM SHARED dato$ -DIM SHARED sona$(1 TO 50) -DIM SHARED mitus -DIM SHARED lp$ -DIM SHARED ndlp -DIM SHARED pn$(1 TO 7) -DIM SHARED lk$ -DIM SHARED ssave -DIM SHARED ssavel -DIM SHARED timero AS LONG -DIM SHARED kblukk -DIM SHARED tunnidara -DIM SHARED errmsg$ -DIM SHARED cnflist$(1 TO 200) - -'ON ERROR GOTO 20 - -start -disp -mnmain - -20 -LOCATE 20, 1 -COLOR 0, 15 -PRINT "Programmi t88s ilmus j2rgnev t6rge:" -PRINT errmsg$ -PRINT "Programmi t2itmine katkestatud! Abi saamiseks lugege juhendit." -SYSTEM - -SUB chd -b$ = "tuhi" -IF apl = 0 THEN inita - -a$ = DATE$ -n1 = VAL(RIGHT$(a$, 4)) -n2 = VAL(LEFT$(a$, 2)) -a$ = LEFT$(a$, 5) -n3 = VAL(RIGHT$(a$, 2)) -getnad n1, n2, n3, ndlp -FOR a = 1 TO apl -son ap$(a) -SELECT CASE sona$(1) -CASE "v" -getmd sona$(2), m1, d1 -getmd sona$(3), m2, d2 -getmd DATE$, m3, d3 -IF m3 < m1 THEN GOTO 9 -IF m3 > m2 THEN GOTO 9 -IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 -IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 -b$ = sona$(4) -CASE "n" -getmd sona$(2), m1, d1 -getmd sona$(3), m2, d2 -getmd DATE$, m3, d3 -IF m3 < m1 THEN GOTO 9 -IF m3 > m2 THEN GOTO 9 -IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9 -IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9 -IF ndlp <> VAL(sona$(4)) THEN GOTO 9 -b$ = sona$(5) -CASE "e" -getmd sona$(2), m1, d1 -getmd DATE$, m2, d2 -IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3) -END SELECT -9 -NEXT a - -IF b$ <> lp$ THEN initp b$ -lp$ = b$ -tunnidara = 0 -dispp -disp -END SUB - -SUB chm -a$ = DATE$ -IF a$ <> dato$ THEN chd -dato$ = a$ -b = 0 -FOR a = 1 TO ppl -son pp$(a) -SELECT CASE sona$(1) -CASE "#" -getmd sona$(2), h1, m1 -getmd TIME$, h2, m2 -' PRINT h1, m1, h2, m2 -IF (h2 = h1) AND (m2 = m1) THEN -IF sona$(3) = "sis" THEN b = 1 -IF sona$(3) = "val" THEN b = 2 -END IF -END SELECT -NEXT a - -IF (tunnidara = 0) AND (b > 0) THEN kell b -ssave = ssave + 1 -END SUB - -SUB clrerr -errmsg$ = "tundmatu viga. V6ibolla on v2he RAM m2lu?" -END SUB - -SUB disp -CLS -PRINT "Kooli Kell 3 2003.09" -PRINT "autor: Svjatoslav Agejenko " -PRINT "" -PRINT "s - kell tundi sisse v - kell tunnist v�lja" -PRINT "a - sisesta uus aeg d - sisesta uus daatum" -PRINT "p - n2itab dokumentatsiooni j - j�tab k�ik tunnid t�na �ra" -PRINT "7 - 1 minut tagasi 8 - 1 minut edasi" -PRINT "4 - 1 tund tagasi 5 - 1 tund edasi" -PRINT "r - programmi restart q - programmist v�lja" -PRINT "k - konfiguratsiooni redaktor CTRL+L - klaviatuuri lukk (sees/v2ljas)" - -dispp - -LOCATE 12, 15 -PRINT "Kuu-P�ev-Aasta (USA standard)" - - -LOCATE 17 - -FOR a = 1 TO ppl -IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN - PRINT pp$(a); - PRINT SPACE$(15 - LEN(pp$(a))); -END IF -NEXT a - -displukk -dispt -END SUB - -SUB displukk -LOCATE 1, 40 -IF kblukk = 1 THEN - COLOR 0, 7 - PRINT "Klaviatuur lukus! Vajuta CTRL+L" - COLOR 15, 0 -ELSE - PRINT " " -END IF -END SUB - -SUB dispp -IF ndlp = 0 THEN GOTO 14 -LOCATE 14, 1 -PRINT "n�dalap�ev:", pn$(ndlp) -LOCATE 15, 1 -PRINT "p�evaplaan:", lp$ -14 -END SUB - -SUB dispt -LOCATE 16, 20 -COLOR 12 + 15, 0 -IF tunnidara = 1 THEN - PRINT "T2na on k6ik tunnid 2ra j2etud" -ELSE - PRINT " " -END IF -COLOR 15, 0 -END SUB - -SUB editor -23 -leiaconf -CLS -COLOR 0, 15 -LOCATE 1, 1 -PRINT SPACE$(80); -LOCATE 1, 1 -PRINT "Konfiguratsiooni redaktor. Valige v2lja p2eva v6i aasta plaani." -LOCATE 2, 1 -PRINT SPACE$(80); -LOCATE 2, 1 -PRINT " nr nimi laiend suurus loomisdaatum" - -LOCATE 22, 1 -PRINT SPACE$(80); -LOCATE 22, 1 -PRINT "K - valitud faili kustutamine U - uus fail ESC - redaktorist v2lja" -p = 0 -v = 1 -17 -FOR a = 3 TO 21 - IF a - 2 + p = v THEN - COLOR 0, 7 - LOCATE a, 1 - PRINT cnflist$(a - 2 + p) + SPACE$(55 - LEN(cnflist$(a - 2 + p))) - LOCATE a, 56 - COLOR 31, 0 - PRINT "<=="; - IF cnflist$(a - 2 + p) <> SPACE$(LEN(cnflist$(a - 2 + p))) THEN - COLOR 15, 0 - PRINT " valitud: " + getnam$(v) - END IF - COLOR 15, 0 - ELSE - COLOR 15, 0 - LOCATE a, 1 - PRINT cnflist$(a - 2 + p) + SPACE$(80 - LEN(cnflist$(a - 2 + p))) - END IF -NEXT a - - -a$ = INKEY$ -LOCATE 1, 1 -'IF a$ <> "" THEN PRINT ASC(RIGHT$(a$, 1)); ASC(LEFT$(a$, 1)) -IF a$ = CHR$(27) THEN GOTO 18 -IF a$ = "u" OR a$ = "U" THEN SHELL "EDIT": GOTO 23 -IF a$ = CHR$(0) + "P" THEN v = v + 1 -IF a$ = CHR$(0) + "H" THEN v = v - 1 -IF a$ = CHR$(0) + CHR$(73) THEN v = v - 17 -IF a$ = CHR$(0) + CHR$(81) THEN v = v + 17 -IF a$ = "K" OR a$ = "k" THEN - IF LEN(getnam$(v)) > 2 THEN - IF getnam$(v) = "AASTA.AP" THEN - SOUND 3000, .1 - ELSE - KILL getnam$(v) - GOTO 23 - END IF - ELSE - SOUND 3000, .1 - END IF -END IF -IF a$ = CHR$(13) THEN - IF getnam$(v) = "." THEN - SOUND 3000, .1 - ELSE - SHELL "EDIT " + getnam$(v) - GOTO 23 - END IF -END IF - -IF v < 1 THEN v = 1: SOUND 3000, .2 -IF v > 200 THEN v = 200: : SOUND 3000, .2 - -21 IF v - p > 19 THEN p = p + 1: GOTO 21 -22 IF v - p < 1 THEN p = p - 1: GOTO 22 - -GOTO 17 -18 -COLOR 15, 0 -disp -END SUB - -SUB getmd (a$, m, d) -b$ = LEFT$(a$, 5) -m = VAL(LEFT$(b$, 2)) -d = VAL(RIGHT$(b$, 2)) - -END SUB - -SUB getnad (g, n, d, k) -'LOCATE 11, 1 -'PRINT g, n, d -p = g -m = n - 2 -IF n > 2 GOTO 120 -p = p - 1: m = m + 12 -120 -c = INT(p / 100) -y = p - c * 100 -w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c -k = w - 7 * INT(w / 7) -IF k = 0 THEN k = 7 -END SUB - -FUNCTION getnam$ (a) -c$ = "" -FOR b = 8 TO 40 - d$ = getsym(cnflist$(a), b) - IF d$ = " " THEN GOTO 19 - c$ = c$ + d$ -NEXT b -19 -getnam$ = c$ + "." + getsym(cnflist$(a), 17) + getsym(cnflist$(a), 18) -END FUNCTION - -FUNCTION getsym$ (a$, b) -getsym$ = RIGHT$(LEFT$(a$, b), 1) -END FUNCTION - -SUB heli (a) -'GOTO 10 -SELECT CASE a -CASE 1 -FOR c = 1 TO 5 -SOUND 3000, 1 -SOUND 0, 1 -NEXT c - -CASE 2 -FOR c = 1 TO 5 -SOUND 2500, 1 -SOUND 0, 2 -NEXT c -SOUND 2500, 10 - -CASE 3 -FOR a = 1 TO 10 -SOUND 500, .5 -SOUND 1500, .5 -SOUND 2000, .5 -SOUND 1520, .5 -NEXT a - - -CASE 4 -FOR a = 800 TO 1000 STEP 10 -SOUND a, .1 -SOUND a * 3, .1 -SOUND 0, 1 -NEXT a -10 - -END SELECT - - -END SUB - -SUB inita -apl = 0 -errmsg$ = "Ei leia aastaplaani faili! 'aasta.ap'" -OPEN "aasta.ap" FOR INPUT AS #1 -clrerr -5 -IF EOF(1) <> 0 THEN GOTO 3 -LINE INPUT #1, a$ -apl = apl + 1 -ap$(apl) = a$ -GOTO 5 -3 -CLOSE #1 -END SUB - -SUB initp (b$) -ppl = 0 -errmsg$ = "Ei leia aastaplaanis mainitud '" + b$ + ".pp' p2evaplaani!" -OPEN b$ + ".pp" FOR INPUT AS #1 -clrerr -6 -IF EOF(1) <> 0 THEN GOTO 7 -LINE INPUT #1, a$ -ppl = ppl + 1 -pp$(ppl) = a$ -GOTO 6 -7 -CLOSE #1 -END SUB - -SUB kell (a) -b$ = TIME$ + DATE$ -IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2 - -heli 3 - -SELECT CASE a -CASE 1 -kola 4 -FOR b = 1 TO 15 -SOUND 0, 1 -NEXT b -kola 1 -CASE 2 -kola 5 -END SELECT -2 -END SUB - -SUB kola (a) -COLOR 15, 7 -s$ = "" -FOR b = 1 TO 80 - s$ = s$ + CHR$(219) -NEXT b -FOR b = 1 TO 30 -PRINT s$; -NEXT b - -timero = TIMER -11 -OUT prt, 255 -IF ABS(timero - TIMER) < a THEN GOTO 11 -OUT prt, 0 -COLOR 15, 0 -disp -END SUB - -SUB leiaconf -FOR a = 1 TO 200 - cnflist$(a) = "" -NEXT a -c = 1 - -SHELL "dir >dir.tmp" -OPEN "dir.tmp" FOR INPUT AS #1 -15 -IF EOF(1) <> 0 THEN GOTO 16 -LINE INPUT #1, a$ -IF LEN(a$) < 30 THEN GOTO 15 -IF LEFT$(a$, 1) = " " THEN GOTO 15 -IF LEFT$(a$, 1) = "." THEN GOTO 15 -b$ = RIGHT$(LEFT$(a$, 12), 3) -IF b$ = "PP " OR b$ = "AP " THEN ELSE GOTO 15 -d$ = " " + STR$(c) -a$ = RIGHT$(d$, 4) + " " + a$ -IF LEN(a$) > 50 THEN a$ = LEFT$(a$, 50) -cnflist$(c) = a$ -c = c + 1 -GOTO 15 -16 -CLOSE #1 -KILL "dir.tmp" -END SUB - -SUB mnmain -1 -b$ = LEFT$(TIME$, 5) -IF b$ <> timo$ THEN chm -timo$ = b$ - -a$ = INKEY$ - -IF a$ <> "" THEN -IF ssave > ssavel THEN disp -ssave = 0 -END IF - -IF a$ = CHR$(12) THEN - IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1 - displukk -END IF -IF kblukk = 1 THEN - IF a$ <> "" THEN SOUND 3000, 1 - a$ = "" -END IF -IF a$ = "k" OR a$ = "K" THEN editor - -IF a$ = "s" OR a$ = "S" THEN kell 1 -IF a$ = "v" OR a$ = "V" THEN kell 2 - -IF a$ = "a" THEN -CLS -PRINT " vana aeg: " + TIME$ -INPUT "sisesta uus aeg (TT:MM:SS): ", b$ -IF LEN(b$) <> 8 THEN GOTO 12 -TIME$ = b$ -timo$ = "" -12 -disp -END IF - -IF a$ = "d" OR a$ = "D" THEN -CLS -PRINT " vana daatum: " + DATE$ -INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$ -IF LEN(b$) <> 10 THEN GOTO 13 -DATE$ = b$ -timo$ = "" -13 -disp -END IF - -IF a$ = "7" OR a$ = "8" THEN - b = VAL(RIGHT$(LEFT$(TIME$, 5), 2)) - IF a$ = "7" THEN b = b - 1 - IF a$ = "8" THEN b = b + 1 - IF b < 0 THEN b = 0 - IF b > 59 THEN b = 59 - d$ = STR$(b) - IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) - IF LEN(d$) < 2 THEN d$ = "0" + d$ - e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3) - TIME$ = e$ -END IF - -IF a$ = "4" OR a$ = "5" THEN - b = VAL(LEFT$(TIME$, 2)) - IF a$ = "4" THEN b = b - 1 - IF a$ = "5" THEN b = b + 1 - IF b < 0 THEN b = 0 - IF b > 23 THEN b = 23 - d$ = STR$(b) - IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1) - IF LEN(d$) < 2 THEN d$ = "0" + d$ - e$ = d$ + RIGHT$(TIME$, 6) - TIME$ = e$ -END IF - -IF a$ = "p" OR a$ = "P" THEN SHELL "EDIT juhend.txt": disp - -IF a$ = "r" OR a$ = "R" THEN rese -IF a$ = "q" OR a$ = "Q" THEN SYSTEM - -IF a$ = "j" OR a$ = "J" THEN -IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0 -dispt -END IF - -IF ssave <= ssavel THEN - LOCATE 11, 1 - PRINT TIME$ - LOCATE 12, 1 - PRINT DATE$ -ELSE - IF ABS(TIMER - timero) > 10 THEN - CLS - kblukk = 1 - FOR b = 1 TO 20 - LOCATE RND * 22 + 1, RND * 79 + 1 - IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "." - NEXT b - LOCATE RND * 22 + 1, RND * 50 + 1 - COLOR 0, 7 - PRINT "< " + LEFT$(TIME$, 2); - COLOR 16, 7 - PRINT ":"; - COLOR 0, 7 - PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >" - COLOR 15, 0 - timero = TIMER - END IF -END IF -GOTO 1 - - -END SUB - -SUB rese -heli 4 -timo$ = "" -dato$ = "" -apl = 0 -END SUB - -SUB son (a$) - -FOR b = 1 TO 50 - sona$(b) = "" -NEXT b -mitus = 0 - -b = 1 -FOR c = 1 TO LEN(a$) -d$ = RIGHT$(LEFT$(a$, c), 1) -IF d$ = " " OR d$ = CHR$(9) THEN -b = 1 -ELSE -IF b = 1 THEN b = 0: mitus = mitus + 1 -sona$(mitus) = sona$(mitus) + d$ -END IF -NEXT c - - -END SUB - -SUB start -CLS -COLOR 15 -pn$(1) = "esmasp�ev" -pn$(2) = "teisip�ev" -pn$(3) = "kolmap�ev" -pn$(4) = "neljap�ev" -pn$(5) = "reede" -pn$(6) = "laup�ev" -pn$(7) = "p�hap�ev" - -prt = &H378 - -ssavel = 2 -kblukk = 1 -tunnidara = 0 - -OUT prt, 0 -END SUB - diff --git a/Automation/school clock/kell3/luhend.pp b/Automation/school clock/kell3/luhend.pp deleted file mode 100644 index 8c36fd4..0000000 --- a/Automation/school clock/kell3/luhend.pp +++ /dev/null @@ -1,27 +0,0 @@ -# 08:30 sis -# 09:00 val - -# 09:10 sis -# 09:40 val - -# 09:50 sis -# 10:20 val - -# 10:30 sis -# 11:00 val - -# 11:30 sis -# 12:00 val - -# 12:10 sis -# 12:40 val - -# 12:50 sis -# 13:20 val - -# 13:30 sis -# 14:00 val - -# 14:05 sis -# 14:35 val - diff --git a/Automation/school clock/kell3/reede.pp b/Automation/school clock/kell3/reede.pp deleted file mode 100644 index b4c0e82..0000000 --- a/Automation/school clock/kell3/reede.pp +++ /dev/null @@ -1,23 +0,0 @@ -# 08:30 sis -# 09:15 val - -# 09:25 sis -# 10:10 val - -# 10:20 sis -# 11:05 val - -# 11:35 sis -# 12:20 val - -# 12:30 sis -# 13:15 val - -# 13:20 sis -# 14:05 val - -# 14:10 sis -# 14:55 val - -# 15:00 sis -# 15:45 val diff --git a/Automation/school clock/kell3/skeem.png b/Automation/school clock/kell3/skeem.png deleted file mode 100644 index 9c3e95b..0000000 Binary files a/Automation/school clock/kell3/skeem.png and /dev/null differ diff --git a/Automation/school clock/kell3/tava.pp b/Automation/school clock/kell3/tava.pp deleted file mode 100644 index e83ded7..0000000 --- a/Automation/school clock/kell3/tava.pp +++ /dev/null @@ -1,29 +0,0 @@ -# 08:30 sis -# 09:15 val - -# 09:25 sis -# 10:10 val - -# 10:20 sis -# 11:05 val - -# 11:35 sis -# 12:20 val - -# 12:30 sis -# 13:15 val - -# 13:25 sis -# 14:10 val - -# 14:20 sis -# 15:05 val - -# 15:10 sis -# 15:55 val - -# 16:00 sis -# 16:45 val - -# 16:50 sis -# 17:35 val \ No newline at end of file diff --git a/Automation/school clock/kell3/tuhi.pp b/Automation/school clock/kell3/tuhi.pp deleted file mode 100644 index d3f5a12..0000000 --- a/Automation/school clock/kell3/tuhi.pp +++ /dev/null @@ -1 +0,0 @@ -