Analogov[ hodiny¢ ----------------¢¢ V ')sle 35 magaz)mu Flop jste v rubrice Hlavolamy uvedli zad*n) probl[mu analogov`ch hodin. P@esto(e nejsem (*dn` hodin*@, poda@ilo se mi pom%rn% rychle "sp)chnout" program v Turbobasicu a rozhodl jsem se, (e se s V*mi o n%j pod%l)m.¢ Program je ulo(en v souboru "HODINY.TBA". Po spu&t%n) nejprve zad*me 'as a dva bud)ky. Po stisku kl*vesy "Start" se zobraz) cifern)k a hodiny se rozb%hnou. V lev[m horn)m rohu je 'as vyj*d@en` digit*ln%, v prav[m horn)m naskakuj) sekundy a v ka(d[m doln)m rohu je informace o jednom bud)ku. Pokud je bud)k zapnut`, jeho ')slo je zobrazeno inverzn%. Uprost@ed obrazovky je cifern)k s ')sly a ru'i'kami. Hodinov* a minutov* ru'i'ka jsou b)l[ a sekundov* je modr*. Bud)ky m+(eme znovu nastavit po stisku kl*vesy "Select" ╱mus)me trochu d[le podr(et$. Kdy( se m* b%hem chodu hodin ozvat n%kter` z bud)k+, na obrazovce se objev) okno, kter[ n*m sd%luje, kter` z bud)k+ pr*v% "zvon)". Zvukov` sign*l se opakuje, dokud nepodr()me kl*vesu "Start", a( okno zmiz).¢¢Zp+sob zobrazov*n) ru'i'ek¢¢ Abychom zobrazili ru'i'ku o d[lce R, mus)me nejprve ur'it ]hel U od dvan*ctky k t[to ru'i'ce. Pro minutovou ru'i'ku se tento ]hel rovn* po'tu minut n*soben[mu 6 stupni ╱hodina m* 60 minut, 360 stup+ / 60 minut = 6 stup+ na minutu$. Po p@epnut) na stupn% p@)kazem "DEG" ru'i'ku zobraz) p@)kazy:¢¢U=6✓M:PLOT X,Y:DRAWTO X⇩R✓SIN╱U$, Y-R✓COS╱U$ ,¢¢kde X,Y jsou sou@adnice st@edu cifern)ku. Podobn% se kresl) i sekundov* ru'i'ka. Pro hodinovou ru'i'ku je ]hel U=30✓H⇩0.5✓M, proto(e za hodinu se oto') o 1/12 kruhu, co( je 30 stup+, ale b%hem hodiny se pohybuje o p+l stupn% za minutu ╱za hodinu tedy o 30 stup+$. Jinak se zobrazuje podobn% jako ostatn) ru'i'ky.¢¢Pohyby ru'i'ek po cifern)ku¢¢ Program vyu()v* volnou '*st pam%ti k ulo(en) dvou obr*zk+. Prvn) je ulo(en od adresy 30720 a je na n%m jen cifern)k bez ru'i'ek, kter` se ka(dou minutu p@enese na obrazovku a nakresl) se na n%j minutov* a hodinov* ru'i'ka. Tento obr*zek se ulo() do pam%ti od adresy 34560, ka(dou sekundu je p@enesen na obrazovku a dopln%n o sekundovou ru'i'ku. T)mto zp+sobem se rychle odstran) ru'i'ky z p+vodn)ch poloh a zobraz) se do nov`ch, tak(e se n*m jev) st*l[ a skoro v+bec neblikaj).¢¢ Douf*m, (e s m`m programem budete spokojeni, i kdy( nejsem (*dn` hodin*@, toto je moje prvn) hodin*@sk* pr*ce ╱pokud nepo')t*m digit*lky, to nen) nic slo(it[ho$. P@eji V*m mnoho ]sp%ch+ p@i vyd*v*n) magaz)nu.¢¢ S pozdravem V*& odb%ratel¢¢ Filip Drsek¢
