» 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

Našli jsme 22 schopných internetových prohlížečů: Vyberte si, který vám nejvíc sedne

Našli jsme 22 schopných internetových prohlížečů: Vyberte si, který vám nejvíc sedne

** Není jen Chrome, Firefox, Edge či Opera. Na výběr máte mnohem více! ** Internetové prohlížeče se liší funkcemi, zaměřením i designem. Našli jsme 22 použitelných prohlížečů pro Windows ** Vyberte si prohlížeč, který vám bude nejvíce vyhovovat

Karel Kilián | 30

Blíží se Juno. Jeden z nejhezčích Linuxů pro normální lidi

Blíží se Juno. Jeden z nejhezčích Linuxů pro normální lidi

** Ubuntu a Fedora patří k nejpopulárnějším linuxovým OS pro desktop ** A pak je tu zástup dalších nebo jejich odvozenin ** Jedním z nich je Elementary OS, který se brzy dočká novinek

Jakub Čížek | 71

Šéf amerického Red Hatu: Odpojte Brno od internetu a zhroutíme se

Šéf amerického Red Hatu: Odpojte Brno od internetu a zhroutíme se

** V Česku najdete hromadu skvělých vývojářů ** Mnozí z nich přispívají do open-source ** Třeba v brněnském Red Hatu

Jakub Čížek | 51


Aktuální číslo časopisu Computer

Kdy necháme řídit chytrá auta?

6 Wi-Fi Mesh systémů ve velkém testu

Srovnali jsme 7 sportovních kamer

Znáte pravidla pro létání s drony?