Pomoc s projektem – Visual Basic – Fórum – Programujte.com

Dobrý den,
prosím Vás všechny co rozumíte visual basicu o pomoc.
Ve škole nám zadaly projekt na téma automat na cigarety. Možná to bude pro Vás snadné, ale pro mě to je příliš těžké.

Zadání je takto:
Automat na cigarety
1. Automat bere všechny platné kovové mince v libovolném množství a pořadí, umí rozměňovat
2. Vydává 6 typů cigaret, kde každý typ má své identifikační číslo a cenu
3. Po zvolení ID a zaplacení se zobrazí co bylo vydáno, nebo se uživatel může rozhodnout operaci stornovat, automat kontroluje správnost zadání
4. Po objednávce automat vrátí zbylou částku a vrátí se do pohotovostního stavu
5. Automat provádí archivaci operací. Do textového souboru ukládá kdy, co a s jakým výsledkem automat provedl (např. <datum>21.3.2007 <cas> 14,00 <ID>5 <castka>50 <stav>vydano)

Kdyby se Vám to někomu podařilo udělat, tak bych Vám byla moc vděčná!

Předem děkuji za zájem.
Kristyna

To Kristýna: nikdo to za tebe celý dělat nebude, dej sem přesně to co nevíš a třeba ti někdo pomůže..

Učitel, určitě více ocení tvou snahu, byť to nebudeš mít kompletní, než sice 100% zpracovaný úkol od někoho jiného a ty mu nebudeš schopna říct, jak ti to funguje...Vždy je nejjednoduší věcí namalovat si schéma programu, popř., si ho jen popsat (lepší je malovat :)), a pak vyhledat funkce VB, které potřebuješ a, které nenajdeš, prostě napíšeš, třeba takovou funkci na kontrolu mincí a vybraného druhu cigaret.

Já to celé nepotřebuju, už to mám, ale nevím si rady, s tím 5. bodem. Proto jsem to psala celé, protože to s tím souvisí..

Mejjednodušší způsob (pro VB6) pro zápis do txt souboru je zřejmě

Open App.Path & "\Log.dat" For Append As #1
Print #1, Seznam
Close #1

Jedná se o prodlužování textového souboru (přidává na konec stávajícího).
Místo Seznam je třeba dosadit seznam proměnných pro uložení, např:

Print #1, "Datum : " & Date & ", čas : " & Time & ", ID : " & CStr(Cislo) & ", částka : " & cstr(Castka) & ", stav : " & Stav

kde Date, Time jsou systémové proměnné, Cislo, Castka numerické proměnné a Stav proměnná řetězcová