Vorheriges Thema: Nächstes Thema: |
Autor |
Nachricht |
Borg
Anmeldungsdatum: 05.11.2009 Beiträge: 4
|
Verfasst am: 05.11.2009 21:50:08 Titel: Frage zu Variablen |
|
|
Hallo an alle!
Folgendes Problem:
Ich habe zum Test mal ein Programm geschrieben, mit dem man Wurzeln berechnen kann. Das funktioniert auch wunderbar, allerdings würde ich es gerne so hinkriegen, dass man auch die Wurzel aus einer Rechenaufgabe ziehen kann. Also z.B. die Wurzel aus (5-2). Doch wie kriege ich's hin, dass er den Inhalt der Variable ausrechnet?
Geht das in diesem Programm (es ist etwas komisch gemacht, ich bin noch Anfänger)?
Code: |
x = "Bitte Zahl eingeben"
fertig = 100
Do until fertig = cancel
x = inputbox("Nennen sie mir eine Zahl, aus der sie die Wurzel ziehen wollen.", "Automatisches Wurzelziehen", "" & x & "")
If x = "Bitte Zahl eingeben" then
msgbox "Sie müssen eine Zahl eingeben.", vbcritical + vbOKOnly, "Fehler"
Elseif x = "" Then
exit do
Elseif x < 0 Then
msgbox "Bitte geben sie keine negative Zahl ein.", vbcritical + vbOKOnly, "Fehler"
Elseif x > 0 Then
a = 1
b = x
'Das Heron-Verfahren
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
fertig = inputbox("Die Wurzel aus " & x & " ist unten im Feld. " &VbCr& "Kicken Sie auf OK, wenn sie noch eine Wurzel ziehen wollen", "Ergbnis", ""&b&"")
end if
Loop
|
[/url] |
|
Nach oben |
|
|
Kambfhase Häufiger Poster
Anmeldungsdatum: 19.03.2006 Beiträge: 235
|
Verfasst am: 05.11.2009 22:50:59 Titel: |
|
|
Probier es mal mit
mfG Hase |
|
Nach oben |
|
|
Borg
Anmeldungsdatum: 05.11.2009 Beiträge: 4
|
Verfasst am: 06.11.2009 19:55:19 Titel: Klappt nicht... |
|
|
Also das hat leider nicht funktioniert, aber trotzdem Danke! Fehlermeldung: Typen unverträglich: 'x'
Code: |
x = "Bitte Zahl eingeben"
fertig = 100
Do until fertig = cancel
x = inputbox("Nennen sie mir eine Zahl, aus der sie die Wurzel ziehen wollen.", "Automatisches Wurzelziehen", "" & x & "")
eval(x)
If x = "Bitte Zahl eingeben" then
msgbox "Sie müssen eine Zahl eingeben.", vbcritical + vbOKOnly, "Fehler"
Elseif x = "" Then
exit do
Elseif x < 0 Then <----Hier gibt es eine Fehlermeldung
msgbox "Bitte geben sie keine negative Zahl ein.", vbcritical + vbOKOnly, "Fehler"
Elseif x > 0 Then
a = 1
b = x
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
a = (b+a)/2
b = x/a
fertig = inputbox("Die Wurzel aus " & x & " ist unten im Feld. " &VbCr& "Kicken Sie auf OK, wenn sie noch eine Wurzel ziehen wollen", "Ergbnis", ""&b&"")
end if
Loop |
|
|
Nach oben |
|
|
Kambfhase Häufiger Poster
Anmeldungsdatum: 19.03.2006 Beiträge: 235
|
Verfasst am: 06.11.2009 23:03:27 Titel: |
|
|
Probier mal
mfG Hase |
|
Nach oben |
|
|
Borg
Anmeldungsdatum: 05.11.2009 Beiträge: 4
|
Verfasst am: 07.11.2009 00:09:05 Titel: Vielen Dank! |
|
|
Ja so geht es. Danke sehr! |
|
Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
|