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



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


7 novinek, na které se můžete těšit v jarní aktualizaci Windows 10

7 novinek, na které se můžete těšit v jarní aktualizaci Windows 10

** Nová verze bude uvolněna v průběhu jara ** Přinese několik novinek a opět vylepší design systému ** Pravděpodobný název bude Spring Creators Update odkazující na dvě předešlé aktualizace

21.  2.  2018 | Vladislav Kluska | 68

Takhle odstartovala další raketa SpaceX. Vynesla na orbit první dva satelity obří internetové sítě Starlink

Takhle odstartovala další raketa SpaceX. Vynesla na orbit první dva satelity obří internetové sítě Starlink

** SpaceX začne s testováním prvních mikrosatelitů internetové sítě Starlink ** Ta bude nabízet internet především v rozvojových zemích nebo pro automobily Tesla ** Za sedm let chce SpaceX 40 milionů zákazníků

22.  2.  2018 | Stanislav Janů | 54

Hokej online: jak sledovat olympijské zápasy na internetu

Hokej online: jak sledovat olympijské zápasy na internetu

** Hokejové zápasy na olympijských hrách můžete sledovat i online ** Oproti minulý rokům se servis zpravodajství z Olympijských her změnil ** Některé disciplíny půjde sledovat i ve virtuální realitě

Včera | Stanislav Janů | 5

Surface Laptop: Takto má vypadat notebook. Tedy alespoň podle Microsoftu

Surface Laptop: Takto má vypadat notebook. Tedy alespoň podle Microsoftu

** Microsoft jej představil loni na jaře ** Jeho hlavní zbraní je Windows Hello a stylus ** A zároveň chce být stejně stylový jako macbooky

18.  2.  2018 | Jakub Čížek | 53


Aktuální číslo časopisu Computer

Ochraňte svou techniku před zloději

Testy All-in-One PC a herních monitorů

Proč byste měli chtít HDR televizi

Svět leteckých simulátorů