HTMLWorld - HTML, CSS, JavaScript, PHP, Java, Flash und vieles mehrHTMLWorld:   Home | Impressum
 

 
 

Anzeige 
 
HTMLWorld » Forum

Thema anzeigen - Frage zu Variablen

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Frage zu Variablen

 

Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Vorheriges Thema:
Nächstes Thema:  
Autor Nachricht
Borg



Anmeldungsdatum: 05.11.2009
Beiträge: 4

BeitragVerfasst am: 05.11.2009 21:50:08    Titel: Frage zu Variablen Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
Kambfhase
Häufiger Poster


Anmeldungsdatum: 19.03.2006
Beiträge: 235

BeitragVerfasst am: 05.11.2009 22:50:59    Titel: Antworten mit Zitat

Probier es mal mit

Code:
eval(x)


mfG Hase
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Borg



Anmeldungsdatum: 05.11.2009
Beiträge: 4

BeitragVerfasst am: 06.11.2009 19:55:19    Titel: Klappt nicht... Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
Kambfhase
Häufiger Poster


Anmeldungsdatum: 19.03.2006
Beiträge: 235

BeitragVerfasst am: 06.11.2009 23:03:27    Titel: Antworten mit Zitat

Probier mal

Code:
x=eval(x)


mfG Hase
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Borg



Anmeldungsdatum: 05.11.2009
Beiträge: 4

BeitragVerfasst am: 07.11.2009 00:09:05    Titel: Vielen Dank! Antworten mit Zitat

Ja so geht es. Danke sehr!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.