Prográmek na vypočítání ceny z EUR

Zdravím.

Potřeboval bych poradit. Potřebuju udělat nějaký prográmek, nejlépe vypadající jako windowsácké okno s inputboxem.

Ten program by počítal toto: (NĚCO x 25) x 1,14 x 1,5 = NĚCO.
Jakým způsobem to mám vytvořit a včem?

Vzhled potřebuji takovýhle : http://www.vbnet.cz/storage/WindowsLiveWriter-Podm nkyaopertory_860-image_0abdaccf-5be8-4e78-8195-dfd b876bc2cc.png

Po zadání čísla a zmáčknut OK vyskočí ten výsledek.

Díky moc za pomoc! :)

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
Myslim, ze toto hravo zvladne aj excelovske makro. fleg 20.08.2012 11:08	fleg	20.08.2012 11:08
Zvládne, ale potřeboval bych to mít jako windows okno... rhenton 20.08.2012 11:20	rhenton	20.08.2012 11:20
malá nápověda: retValue = CDbl(InputBox("Davaj Evra", "Evrokalkuláčka", 1)) If retValue < 0 Then ws… nový touchwood 20.08.2012 12:26	touchwood	20.08.2012 12:26
Díky moc!!! :-) Teď už jen vyřešit to, že se to nedá zavřít :D nový rhenton 20.08.2012 14:00	rhenton	20.08.2012 14:00
Předpokládám, že mám ukončit proces wscript.exe, je to tak? nový rhenton 20.08.2012 14:05	rhenton	20.08.2012 14:05
dej pryc radky Do until a loop Pak se to spusti jednou, zadas hodnotu, zobrazi vysledek a ukonci se nový Jan Fiala 20.08.2012 14:39	Jan Fiala	20.08.2012 14:39
Ano. Už jsem na to přišel. Díky vám všem! Ještě jeden méně podstatný dotaz... Vzhled toho okna kam… poslední rhenton 20.08.2012 14:50	rhenton	20.08.2012 14:50

Myslim, ze toto hravo zvladne aj excelovske makro.

Zvládne, ale potřeboval bych to mít jako windows okno...

malá nápověda:

retValue = CDbl(InputBox("Davaj Evra", "Evrokalkuláčka", 1))
If retValue < 0 Then wscript.quit
vysledek = retValue * 25 * 1.14 * 1.5
wscript.echo "Zadání: " & retValue & vbCrLf & "Výsledek: " & vysledek

Do smyčky si to snad už dáš sám

edit: třeba takto:

retValue=1
Do until retValue < 0
	retValue = CDbl(InputBox("Davaj Evra", "Evrokalkuláčka", 1))
	If retValue < 0 Then Wscript.quit
	vysledek = retValue * 25 * 1.14 * 1.5
	wscript.echo "Zadání: " & retValue & vbCrLf & "Výsledek: " & vysledek
Loop