Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Aktualisieren
Autor: workuhol
Datum: 04.11.12 19:13
Hallo Leute Ich hab ein kleines (großes) Problem. Ich habe ein Matheprogramm geschrieben und lasse mir zwei Zufallszahlen generieren mit einem Tip von dieser Seite. Function RndEx1(Optional ByVal Min As Long = 1, Optional ByVal Max As Long = 1, _ Optional ByVal DoRound As Boolean = False, Optional DoRandomize As Boolean) As Single If DoRandomize Then Randomize x = Rnd * (Max - Min) + Min 'Zufallszahl berechnen If DoRound Then x = Int(x + 0.5) 'Runden RndEx1 = x End Function Die Min und Max Variable werden über zwei Textfelder der Funktion übergeben. Der Aufruf erfolgt über: x = RndEx1(Val(StartwertMath), Val(EndwertMath), Me.Check1.Value = vbChecked, True) y = RndEx2(Val(StartwertMath), Val(EndwertMath), Me.Check1.Value = vbChecked, True) Das funktioniert auch alles. Nun mein Problem: Ich lasse mir die Variablen X und Y in zwei Textfeldern anzeigen.Aber nach ein paar aufrufen, ändern sich die Zahlen nichtmehr nach dem Klick auf den Button_Zufall. Im debugger ändern sich die zahlen aber den das Ergebnis wird falsch angezeigt. Es ist so als ob die Textfelder nicht schnell genug aktualisiert werden. Hat jemand eine Idee für das Problem. Gruß workuhol Gru? workuhol

Re: Aktualisieren
Autor: Zardoz
Datum: 04.11.12 20:02
Hallo workuhol, verwende Option Explicit, dimensioniere die Variablen als Double. Randomize nur [u]einmal beim Programmstart aufrufen. Die Formel für die Zufallszahlen ist falsch. Siehe dazu: http://www.activevb.de/rubriken/faq/faq0047.html Zum Runden gibt es eine VB-Funktion. Ein Auffrischen der Textboxen kann man, nach dem Belegen, mit Refresh erzwingen, also so: Text1.Text = CStr(x) Text1.Refresh Alternative zum Refresh wäre noch DoEvents: http://www.vbarchiv.net/commands/cmd_doevents.html Gruss, Zardoz

Re: Aktualisieren
Autor: workuhol
Datum: 05.11.12 09:34
Danke (Wi)Zard(of)oz War sehr hilfreich und auch nicht das erste mal. Bist eben doch ein Zauberer Gruß Workuhol Gru? workuhol

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen