PC-HELP.CZ

Mám vytvořit program na evidenci zaměstnanců. Má obsahovat úvodní menu s následujícími položkami - Nový zaměstnanec, Smazat zaměstnance, Vypiš všechny zaměstnance (stačí jména).
Vím, jak vytvořit menu a teoreticky jak přidat zaměstnance... Nedokážu ho ale přidat do pole, tzn. nedokážu je poté všechny vypsat. A smazání konkrétního zaměstnance? Opravdu netuším...
Pochobyl bych, kdyby se to dělalo v SQL, ale ve Small Basicu?

Díky za radu...

Zrovna pole není na takovéhle věci ideální, ale v BASICu se s nimi velmi snadno pracuje. Akorát si předem musíš stanovit nějaký maximální počet, který pak už nelze překročit, dřív byl omezený hlavně velikostí operační paměti, která se pohybovala maximálně v desítkách kilobajtů

Musíš mít v nějaké proměnné uložený počet zaměstnanců, kteří se už v poli nacházejí, a vypíšeš je normálně jednoho po druhém smyčkou FOR. U toho výpisu je dobré buď pozastavovat ho po určitém počtu řádků, a pokračovat po stisku klávesy, nebo mít maximální počet položek takový, aby se vždy vešly všechny na obrazovku...

Přidání položky je úplně jednoduché, přičteš k počtu jedničku a na místo které počet ukazuje vložíš nové jméno.

Odstranění položky je trochu zdlouhavější, použiješ zase cyklus FOR, prostě na její místo okopíruješ jméno z vyšší buňky, do té vyšší zase z té nad ní, a tak pořád dokola až do konce pole, a na závěr od počtu odečteš jedničku. Nebo jí odečteš předem, záleží jak postavíš ten cyklus.

Jako bonus můžeš přidat řazení podle abecedy, data narození, platu a podobně, záleží na fantazii. Ale začni tím nejjednodušším - jménem a příjmením, další údaje se dají doprogramovat dodatečně.

Díky.

Musíš mít v nějaké proměnné uložený počet zaměstnanců, kteří se už v poli nacházejí

to udělám jak? udělám proměnnou, ale jak zjistím počet položek v poli?

Odstranění položky je trochu zdlouhavější, použiješ zase cyklus FOR, prostě na její místo okopíruješ jméno z vyšší buňky, do té vyšší zase z té nad ní, a tak pořád dokola až do konce pole, a na závěr od počtu odečteš jedničku

Musím tedy mazat podle pozice nebo to jde udělat i podle jména?

Zatím my opravdu stačí jméno...

Díky

Počet položek nezjišťuješ, protože na začátku máš nulu, a při každém přidání přičítáš jedničku

Mazat podle jména by šlo také, musel bys ho nejdřív v poli vyhledat (hledání můžeš přidat jako další funkci), ale nejjednodušší bude prostě zadat pořadové číslo (vypisuj ho při výpisu před jménem), protože to můžeš rovnou použít jako počáteční hodnotu pro rozběhnutí mazacího FORu.
Bylo by dobré ohlídat jestli se nemá mazat položka která neexistuje, a buď ohlásit chybu, nebo úspěšné splnění úkolu. Kdysi dávno o tom vyšla skvělá knížka "Dialog s počítačem".

Ještě k tomu výpisu, při pozastavení můžeš mezerníkem nebo Enterem pokračovat, a Escape další vypisování přeruší, abys třeba viděl pořadové číslo zaměstnance, kterého chceš smazat.
A přišlo by vhod ukládání do souboru, abys nemusel pokaždé zadávat všechno znovu.

Jo, už mi to pak taky došlo...

Řekl bych, že to mám tak nějak hotové... Ale ve výpisu se mi nezobrazují jména zaměstnanců. Mohl byste mi poradit?


Díky

PetrJan píše:Pochobyl bych, kdyby se to dělalo v SQL, ale ve Small Basicu?

Dovolím menší rejp.

Proč zneužívat databázi na jednu tabulku, když stačí CSV

Tak hlavně ukonči tu volbu z Menu skokem na Začátek, takhle vjedeš při zadání jakéhokoliv neplatného čísla rovnou do zadání nového zaměstnance

Proměnná i je tam úplně zbytečná, tu použiješ akorát v cyklech, ve všech ostatních případech vystačíš s tou počet. Mimochodem, většina programovacích jazyků nedovoluje v názvech proměnných nebo funkcí používat diakritiku.

Chyba při zadání je tenhle řádek:
zaměstnanec[i] = zaměstnanec[i+1]
Tím si zadané jméno ihned přepíšeš vyšší položkou, která ještě neexistuje, takže na jeho místo zkopíruješ prázdný řetězec a ten se pak pokoušíš vypisovat... On se ti samozřejmě zobrazí, ale nic v něm není

Není ve SmallBasicu příkaz GOSUB? Ono GOTO se má používat minimálně, jen v nejnutnějších případech*, a pokud možno vůbec, protože nezapadá do zásad strukturovaného programování! Takže GOSUB Nový


Funkce LEN v BASICu zjišťovala délku řetězce, zkus pro ní najít ekvivalent.

Není v SB nutné dimenzovat velikost pole? Ve starších dialektech bylo možné použít automatickou velikost, ale ta byla vždy , když jsi potřeboval jiný počet, musel jsi ho deklarovat na začátku programu:
DIM zamestnanec(1000)

V mazání musíš kopírovat vyšší položku, ne předchozí, takže
zaměstnanec[i] = zaměstnanec[i+1]

---

* To zamená že se na GOTO máš vykašlat, dokud nebudeš psát programy dlouhé aspoň deset tisíc řádků

Díky, toho jsem si nevšiml...
Funguje mi to, kromě mazání. Nestane se vůbec nic.
Ještě když mám u výpisu:
tak načítá stále dále čísla.
Tak jsem zavedl porměnnou max:
to se pole zkrátí, tím pádem to odmaže poslední pozici
A když tam mám natvrdo počet položek:
nestane se nic a pole se zobrazí stále stejně, i když jsem něco vymazal...

Vím, že bych GOTO používat neměl, ale takto my to zatím vyhovuje...
Nikde jsem nenašel, jak se zadá pevná velikost pole ve small basicu :(


Díky moc

Tak zrovna v tom výpisu je potřeba ta proměnná i:


Jen taková historická zajímavost, ve FORTRANu (prvním programovacím jazyku z roku 1956) byly proměnné jejichž názvy začínaly písmeny I,J,K,L,M,N celočíselné, zatímco všechny ostatní byly reálné. Sloužilo to kromě jiného i jako mnemotechnická pomůcka, index pole nebo smyčky byl prostě I, druhá vnořená smyčka měla jako index následující písmeno J, třetí K... To se od té doby používá tradičně dodnes, protože není důvod dělat to jinak. I je prostě Index, ukazatel na určitou položku v pořadí.

Takže vystačíš se dvěma proměnnými, hlavní proměnou počet ve které máš aktuální stav, a pomocnou proměnnou i, která slouží pro výpis.

To mazání by mělo jít takhle nějak:


Tady jsou potřeba proměnné tři, hlavní počet, a pomocné pozice a i.

To dimenzování pole jsem v návodech co mám také nenašel, třeba to už není potřeba, můžeš to odzkoušet, jestli (a kdy) ti to spadne:


Zbytek už nemám dneska sílu luštit, tak jen pro inspiraci něco podobného co jsem kdysi dělal:

Díky moc za pomoc, vyřešeno...

Ještě mě napadlo pár drobností, před mazáním by bylo dobré se pro jistotu zeptat na potvrzení. Ona je sice při zadání čísla mnohem menší pravděpodobnost překlepu než při zapisování celého jména ručně, ale člověk je tvor chybující, a když občas něco podělá, rád to svede na někoho jiného, v tomhle případě na blbý počítač a neschopného programátora. Takže nějak takhle (a až teď jsem si všimnul že ti tam chybí písmeno c):


Zadej pozici zaměstnance, kterého cheš smazat:
14
Opravdu chceš vymazat zaměstnance: Pepíček (A/N)?
a
Položka vymazána.


A zadávání čísla nebo potvrzení na dalším řádku vypadá divně, není ve SB kromě TextWindow.WriteLine() také TextWindow.Write() podobně jako v Pascalu? Pak by to bylo takové:


Zadej pozici zaměstnance, kterého cheš smazat: 14
Opravdu chceš vymazat zaměstnance: Pepíček (A/N)? a
Položka vymazána.