» Poradna » Programy

Program pls poradí někdo ?

 |   |  Microsoft Windows 7 Chrome 25.0.1323.1

Mám udělat program aby ukazal klidně na pevno datum a pak aby se měnil čas na displey se mi ukazuje ten muj datum ale čas ne a už fakt netuším neporadí někdo jak napsat ten čas nebo co tam mam špatně ?Bascom AVR$regfile = "m8def.dat"$crystal = 1000000 'vnitrni oscilator ma cca 1MhzDim Sekunda As ByteDim Minuta As ByteDim Hodina As ByteLet Sekunda = 0Let Minuta = 0Let Hodina = 0Dim Str1 As String * 10 ' Řetězec o 10 symbolech 'Str1 = "20.12.2012" ' Definuje co má byt v řetezci napsáno 'Print Str1 ' Vytiskni řetězec 'EndIf Pind.1 = 0 Then ' sekunda je větší o 1 'Sekunda = Sekunda + 1If Sekunda = 60 Then Sekunda = 0 ' podmínka po 60s dej 0 'Waitms 200End IfIf Pind.2 = 0 ThenMinuta = Minuta + 1If Minuta = 60 Then Minuta = 0Waitms 200End IfIf Pind.3 = 0 ThenHodina = Hodina + 1If Hodina = 24 Then Hodina = 0Waitms 200End IfEnd

Odpovědi na otázku

 |   |  Microsoft Windows 7 IE 8.0

Ja by som sa s tym neparal a naparsoval by som si systemovy prikaz "date".

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 25.0.1323.1

jak bys to udělal ty ? zkusil jsem to předělat $regfile = "m8def.dat"$crystal = 1000000 'vnitrni oscilator ma cca 1MhzDim Str1 As String * 10 ' Řetězec o 10 symbolech 'Str1 = "20.12.2012" ' Definuje co má byt v řetezci napsáno 'Print Str1 ' Vytiskni řetězec 'Enable InterruptsConfig Clock = SoftDim Strcas As String * 10Dim Bsec As Byte , Bmin As Byte , Bhour As ByteDim Lsecofday As LongDim Lsyssec As Long' Převede definované hodiny ( sekunda , minuta , hodina ) do časového řetezceBsec = 20 : Bmin = 1 : Bhour = 7Strtime = Time(bsec)Print "Time values: Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " converted to string " ; Strtime' Hodnota času : Sec=20 Min=1 Hour=7 převést do řetežce : 07:01:20ale i tak nwm jak to dal dodělat

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 IE 8.0

No ono sa tazko nieco programuje ked nepozname v akom programovacom nastroji robis.Nahravas to kam ? Mozeme si to tiez nahrat tam, kam si to nahravas ty, aby sme to vedeli vyskusat ?Ked to tam niekam nahras, spustis to akym prikazom ?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 IE 8.0

Aha sorry, prehliadol som, ze to je priamo Basic na AVR jednocipy.Mas tam prikaz Print Str1, ktory by mal na nejake zobrazovadlo (nemusi to byt monitor) zobrazit obsah retazca. Neviem presne k comu je $regfile = "m8def.dat.Ci nahodou to neznamena kam sa to bude vypisovat alebo tlacit.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 25.0.1323.1

Ja to celé přepsal a ukážu v aplikaci tam to bylo dost blbě řešené ( teď mi to ukazuje mnou zadané hodnoty jen musím vymyslet nebo někdo nevy jak napsat ten kord aby od toho mého času se příčítalí sekundy atd ? ) http://nahraj.to/eSq

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 IE 8.0

No ved hej, myslel som si, ze to bude najskor nejaky emulator.Ale aj tak si nevysvetlil co presne robi prikaz $regfile = "m8def.dat.Ono to nieco nahrava do toho jednocipu, alebo to moze byt definicia konkretneho typu.Pokial to nebudes vediet presne co to robi, nepohnes sa dalej.Ten emulator nema nieco take ako klavesu F1 ako help ?Ja som sice s AVR kedysi davno robil, ovsem v ASM, takze BASIC je mi pre AVR cudzi aj ked pisu, ze by to malo byt vysoko kompatibilne s VisualBasic, alebo Quickbasic v ktorych som sa pohyboval celkom obstojne.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Sekunda, Minuta, Hodina, Byte




Určitě si přečtěte

Jak funguje největší akumulátor v Česku: podívejte se do elektrárny Dlouhé Stráně

Jak funguje největší akumulátor v Česku: podívejte se do elektrárny Dlouhé Stráně

** Přečerpávací vodní elektrárna Dlouhé stráně je obdivuhodné technické dílo ** Stejná turbína vyrábí elektřinu i tlačí vodu zpět do horního jezera ** Strojovna elektrárny je zabudována v podzemí

David Polesný | 35

Tesla v režimu autopilota nabourala do stojícího auta, majitel podává žalobu

Tesla v režimu autopilota nabourala do stojícího auta, majitel podává žalobu

** Tesla Model S nabourala na dálnici do stojícího auta ** V tu chvíli jela v režimu autopilota, zatímco řidič odpočíval ** Hudson nyní žaluje Teslu, že slibuje něco, co neplní

Karel Kilián | 97

Apple ukázal novinky: iPad Pro má překonat notebooky a vrací se Mac mini!

Apple ukázal novinky: iPad Pro má překonat notebooky a vrací se Mac mini!

** Apple v New Yorku představoval počítačové novinky ** iPad Pro prý zatočí s notebooky ** Dočkali jsme se také návratu Mac mini

Jakub Čížek | 81



Aktuální číslo časopisu Computer

Nejlepší programy pro úpravu fotek zdarma

Externí disky pro zálohu dat

Velký test: herní notebooky

Srovnání 12 batohů