Kalkulačka -> mocniny – Visual Basic – Fórum – Programujte.com

Zdravím,
učím se VB a mám takový zádrhel u počítání mocnin. Vytvořil jsem funkci mocnina() ale funguje jen pro x2. Proto potřebuju fci použít podle zadané mocniny. Napadlo mě pomocí podmínek pro každou mocninu, ale to moc zdlouhavé. Proto se ptám jak mužu fci třeba při kliknutí na textbox spustit podle zadané mocniny (aby se opakovala, dle mocniny ;) )

Jakože chceš nějaký kus kódu provést n-krát po sobě, kde n je nějaké číslo, které zadá uživatel? Tak potom potřebuješ použít nějaký cyklus, třeba For, While,...

Dim mezivysledek as Long

mezivysledek = 1 

For i = 1 To n do

 mezivysledek = mezivysledek * x

next

Tak jsem to vyřešil trošicku jinak.. Pomocí while, jinak díky to FOR me nakoplo :-)

  While Not (mocnen = mocnina1)

            If umocnit = "0" Then

            	mocnenecislo = promenna

                umocnit = "1"

            End If

            TextBox1.Text = mocnenecislo * promenna

            mocnenecislo = TextBox1.Text

            mocnen = mocnen + 1

        End While

To aTTix : No kolega výše má pravdu, to je nejlepší řešení. Jinak rada do začátku: dělej věci co nejjednodušeji. Když máš na výběr mezi jednoduchým a složitějším řešením, vyber si to jednodušší, byť by bylo i delší. Lépe se to pak čte, upravuje, debuguje...

To forstec : Ano měl jsi pravdu. S cyklem FOR je to mnohem jednodušší :-).. Díky za rady ;)