Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

Počet položek za příkazem Data 1,2,4,5

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: út červen 15 2010, 17:35    Předmět: Počet položek za příkazem Data 1,2,4,5 Citovat

Dobrý den, prosím Vás ještě o radu se zjištěním počtu položek za příkazem data v Bascomu.

Data 21, 54, 54, 68, 98

Potřeboval bych poradit, jak získaz a zjistit počet položek, např. dle data nahoře: 5 = počet všech čísel

Díval jsem se do nápovědy na VAL, DATA, LEN, atd..ale ty nevypadají na tohle užití...

Děkuji
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Hill
Administrátor


Založen: Sep 10, 2004
Příspěvky: 19683
Bydliště: Jičín, Český ráj

PříspěvekZaslal: út červen 15 2010, 18:02    Předmět: Citovat

Za instrukcí DATA v jakémkoli Basicu můžeš zadat libovolný počet hodnot, které program bude číst v žádaném pořadí. Nemusíš snad definovat, kolik jich bude, nanejvýš jako poslední zadáš hodnotu, jaká se mezi ostatními nevyskytuje, a programově budeš testovat, zda smyčka našla tuto hodnotu. V tom případě restartuješ načítání dat od začátku, jinak ti po dočtení řádku DATA vypadne dál a pokusí se interpretovat další bajty z paměti jako data.
Druhá možnost je použití smyčky FOR-TO / NEXT, kde nadefinuješ počet průchodů. Po posledním průchodu restartuješ čítač dat atd...
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Crifodo



Založen: Oct 11, 2005
Příspěvky: 15005

PříspěvekZaslal: út červen 15 2010, 18:11    Předmět: Citovat

basic v ZX spectru po snaze číst za koncem položek DATA vyhodil chybu Out of DATA, bascom tuhle chybu v error codes nemá, takže tu situaci asi nemá ošetřenu. Takže když si tam nasázíš do tabulky dat hodnoty a nevíš kolik jich je, leda jak říká Hill v cyklu pak číst položky a po poslední se objeví nesmyslný údaj, takže stačí se podívat na počet průchodů cyklem. Možná při znalosti interní organizace bascomu to řekne nějaká systémová proměnná.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: út červen 15 2010, 18:15    Předmět: Citovat

Děkuji, děkuji za náměty...

Ještě zkusím koumat ostatní příkazy, snad něco najdu.. pak to tady dám, případně když budete někdo vědět jinou cestu pomocí příkazu, prosím vás o radu, děkuji
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
popopepe



Založen: Oct 26, 2005
Příspěvky: 551

PříspěvekZaslal: út červen 15 2010, 18:30    Předmět: Citovat

On na to Bascom taky upozorňuje:


When your program flow enters the DATA lines, unpredictable results will occur.

So as in QB, the DATA statement is best be placed at the end of your program or in a place that program flow will no enter.

Takže raději nepřetékat Smile
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: út červen 15 2010, 18:31    Předmět: Citovat

Děkuji Popopepe...
Very Happy
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Crifodo



Založen: Oct 11, 2005
Příspěvky: 15005

PříspěvekZaslal: út červen 15 2010, 18:41    Předmět: Citovat

Zdá se, že i tohle měla parta okolo sira Cliva vymyšleno líp Twisted Evil jen ten compiler v tom neměli.

když zkusím
Dim A As String * 1
Dim N As Byte

For N = 0 To 10
A = Lookupstr(n , Tabulka)
Print "a:" ; A
Print "n:" ; N
Next N
End
Tabulka:
Data "a" , "b" , "c" , "d"

tak to fakt vesele sděluje hovadiny po konci tabulky.
Na druhou stranu: položky v DATA zadáváš ručně takže asi nepůjdou do tisíců a měly by se dát spočítat při tvorbě seznamu.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
popopepe



Založen: Oct 26, 2005
Příspěvky: 551

PříspěvekZaslal: út červen 15 2010, 18:52    Předmět: Citovat

Crifodo: máš pravdu, pokud je tam budeš bouchat ručně, tak se asi dopočítáš. Ale pomocí DATA se čtou taky data z EEPROM, a tam už těch dat může být požehnaně Smile
A přesně jak říkáš, problém je v tom, že to bude číst dál naprosté nesmysly, ale pořád to budou data Smile
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Crifodo



Založen: Oct 11, 2005
Příspěvky: 15005

PříspěvekZaslal: út červen 15 2010, 18:56    Předmět: Citovat

no dobře, ale pořád snad platí presumpce příčetnosti autora programu, který by měl vědět jaká data dovnitř a jaká ven Rolling Eyes
K ukončení pohyblivého počtu dat snad byl kdysi zaveden znak EOF?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
popopepe



Založen: Oct 26, 2005
Příspěvky: 551

PříspěvekZaslal: út červen 15 2010, 18:58    Předmět: Citovat

Souhlasí, pokud je programátor prase, správná data ho nezachrání Smile
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: st červen 16 2010, 9:36    Předmět: Citovat

Protože víš, kolik znaků píšeš do tabulky,
můžeš si jejich počet poznamenat do konstanty.

kód:
Const Table1_pocet = 5
Const Table2_pocet = 4

Dim X As Integer
Dim B1 As Byte
Dim W1 As Word


   Do
      B1 = 3
      X = Lookdown(b1 , Table1 , Table1_pocet)       '3

      W1 = 4000
      X = Lookdown(w1 , Table2 , Table2_pocet)       '4
   Loop

End

Table1:
Data 1 , 2 , 3 , 4 , 5

Table2:
Data 1000% , 2000% , 3000% , 4000%
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: st červen 16 2010, 9:47    Předmět: Citovat

Děkuji za rady, příspěvky, upozornění, už vše chápu!

Ještě jednou díky všem!
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.13 sekund