» Poradna » Programy

Program pls poradí někdo ?

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 6/6
 |   |  Microsoft Windows 7 Chrome 25.0.1323.1  |  [193.164.219.---]

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  |  [193.164.219.---]

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  |  [193.164.219.---]

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, Hodina, Byte



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


Tesla chce změnit nákladní dopravu. Její elektrický náklaďák má ohromující parametry

Tesla chce změnit nákladní dopravu. Její elektrický náklaďák má ohromující parametry

** Tesla představila elektrický kamion ** Má obdivuhodný výkon i dojezd ** Prodávat by se měl už za dva roky

17.  11.  2017 | Vojtěch Malý | 232

Black Friday 2017: Přehled slev na elektroniku a počítače

Black Friday 2017: Přehled slev na elektroniku a počítače

** Začala slevová mánie zvaná Black Friday ** Pozor, ne všechny slevy jsou opravdu výhodné ** Průběžně sledujeme slevové akce v počítačových e-shopech

Včera | David Polesný | 26

Google Mapy mají nový design. Líbí se vám víc než předchozí? Tady je srovnání

Google Mapy mají nový design. Líbí se vám víc než předchozí? Tady je srovnání

** Nový design Google Map přijde na počítače i mobilní telefony. ** Zaměřuje se na zvýraznění konkrétních míst, mapové podklady jsou mnohdy upozaděné. ** Lépe pracuje s chráněnými oblastmi a parky.

20.  11.  2017 | Vladislav Kluska | 29

Bluetoothové patálie: O bezdrátovém přenosu hudby a  problémech s kodeky

Bluetoothové patálie: O bezdrátovém přenosu hudby a problémech s kodeky

** Bezdrátový přenos hudby je budoucnost ** K dosažení nejlepší kvality je ale potřeba, aby telefon i sluchátka podporovala správný kodek ** Záleží také na typu souborů s hudbou

17.  11.  2017 | Jakub Michlovský | 39


Aktuální číslo časopisu Computer

Otestovali jsme 5 HDR 4K televizorů

Jak natáčet video zrcadlovkou

Vytvořte si chytrou domácnost

Radíme s koupí počítačového zdroje