» 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

Cardano: kryptoměna nové generace, která se netěží, ale razí

Cardano: kryptoměna nové generace, která se netěží, ale razí

** Cardano je unikátní kryptoměna, která díky svým vlastnostem a schopnostem přitahuje pozornost ** Od Bitcoinu se zásadně liší ** Jejím smyslem není jen „koupit a prodat“, má pozoruhodné technologické možnosti

Martin Miksa | 28

Pojďme programovat elektroniku: Blikající potvory i legendární displeje starých Nokií

Pojďme programovat elektroniku: Blikající potvory i legendární displeje starých Nokií

** Skoro každý kutil si koupí maličký levný OLED ** A také segmentový a znakový displej ** Pojďme se na některé z nich podívat

Jakub Čížek | 9

V doupěti hackerů na brněnské FIT: Ukázali nám útoky na Bluetooth i vlastní chytré krabičky

V doupěti hackerů na brněnské FIT: Ukázali nám útoky na Bluetooth i vlastní chytré krabičky

** Internet je plný malwaru, to už dnes ví každý ** Víte ale, že lze útočit třeba i na Bluetooth? ** Navštívil jsem hackery z brněnského FITu

Jakub Čížek | 1

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

** Yoga C930 nabídne revoluční reproduktor v kloubu displeje ** Yoga Book C930 představuje zdařilý reparát podivného Yoga Booku ** ThinkPad X1 Extreme se může pochlubit extrémní výbavou v tenkém těle

Tomáš Holčík | 16

Užijte si poslední změny času: Už od března 2019 můžeme mít trvale letní čas

Užijte si poslední změny času: Už od března 2019 můžeme mít trvale letní čas

** Evropská komise přijala legislativní návrh na zrušení střídaní času ** Možná tak v březnu 2019 přesuneme ručičky hodinek naposledy ** Od toho okamžiku bude permanentně platit letní čas

Karel Kilián | 96

Dell XPS 13: Když vás ostatní doženou až za tři roky

Dell XPS 13: Když vás ostatní doženou až za tři roky

** XPS 13 nastartoval trend notebooků bez rámečků ** Letošní model kompletně přechází na USB-C ** Navzdory malému tělu se řadí výkon ke špičce

Tomáš Holčík | 33


Jízdní řády Bileto
Aktuální číslo časopisu Computer

Megatest: 13 grafických karet

Srovnání 7 dokovacích stanic s USB-C

Jak na perfektní noční fotografie

Kvalitní zdroje informací pro sebevzdělávání