ERLEDIGT
NEIN
NEIN
ANTWORTEN
1
1
ZUGRIFFE
383
383
EMPFEHLEN
-
Also, ... ich suche eine Funktion, die mir hilft meine Vorstellungen zu realisieren.
Ich erkläre kurz was ich mir vorstelle.
So, - Ich habe eine Funktion die mir immer einen Wert ausgibt, diese soll solange laufen(immer wieder einen neuen Wert ausgeben) wie vorher in eine Variable die Zeit eingegeben wurde, und dann in regelmäßigen Abständen die neue Zahl ausgeben. Also nicht auf einmal, und nicht zuschnell, man soll den Unterschied schon sehen.
(logistisches Wachstum, also eine Zahlenfolge, die immer auf Gn aufbaut um Gn+1 zu bilden.)
Das ganze ist halt gekoppelt mit einer Picture Line Fkt, .. die es bildhaft macht das ist auch kein Ding. Das hab ich soweit schon.
Ich hab mir den Timer gesehen, nur leider, werde ich aus den Beschreibungen nicht schlau und hab einfach keine Idee unter welchem Stichpunkt ich da suchen müsste. Bringt der mir da irgendwas, oder kann ich damit nur ausgeben, wielange etwas gedauert hat?
Ich habe gerade erst mit VB angefangen und bitte keine Kommentare, .. arbeite dich erstmal rein, dabei bin ich ja.
-
16.04.08 07:26 #2
Trotzdem der Hinweis, für dich als Anfänger ist der VB-Kurs von Rolf Hirte ein guter Einstieg. Er vermittelt Grundlagenwissen, wenn du den mal durch hast, kannst du dich auch an komplexeres wagen.
Zum Thema Timer, der findet sich links bei den Controls. Einfach auf der Form erstellen, der für dich wichtige Wert ist dann Intervall. Er gibt an, in welchen Abstand in Millisekunden der Timer aufgerufen wird, wenn du Berechnungen durchführst sind kleinere Werte als 100 sinnlos.
In der Timer-Prozedur rufst du dann deine Funktion auf und gibst das Ergebnis aus, außerdem prüfst du, ob die anzahl an Durchläufen schon erreicht ist.
Erstmal musst du irgendwie die Anzahl der erlaubten Durchläufe festlegen, entweder per Eintrag in einer Textbox oder per Variable:
Code vb:1 2 3 4 5 6 7 8
Dim iMaxDurchlauf As Integer Private Sub Form_Load() 'hier legst du die Anzahl fest iMaxDurchlauf = 20 'und startest den Timer Timer1.Enabled = True End Sub
Dann kommte die Timer-Prozedur:
Code vb:1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Private Sub Timer1_Timer() 'Dimensionierungen Static iDurchlauf As Integer, Result As Long 'Durchlauf hochzählen iDurchlauf = iDurchlauf + 1 'und prüfen. Wenn die maximale Anzahl erreicht ist, wird der Timer einfach deaktiviert. If iDurchlauf = iMaxDurchlauf Then Timer1.Enabled = False 'Nun wird die Funktion aufgerufen: Result = meineFunktion(Eingabewert) 'Ich geb das Ergebnis in einer Textbox aus Text1.Text = Result End Sub
Nun fehlt nur noch die Funktion
Code vb:1 2 3 4 5 6 7 8
Function meineFunktion (ByVal lEingabe As Long) As Long 'Hier kommt der Code deiner Funktion rein, am Ende muss das Ergebnis in die Variable 'meineFunktion geschrieben werden (Variablenname = Funktionsname). Dann wird das 'Ergebnis korrekt zurückgegeben. 'Du kannst beliebig viele Parameter der Funktion übergeben, es gibt aber nur einen 'Rückgabewert. Wenn du mehrere brauchst, musst du Variablen "ByRef" übergeben. End Function
Der Doc!A: Hilfe, ich hab zwei Dateien hinzugefügt und nun sind die anderen weg
B: Die Scrollbar da rechts ist dir schon mal aufgefallen?
Ähnliche Themen
-
[Suche:] Passende Datenbank?
Von Unicate im Forum Relationale DatenbanksystemeAntworten: 12Letzter Beitrag: 06.04.10, 10:55 -
Suche passende Musik
Von HTML5er im Forum Musik & MusikerAntworten: 7Letzter Beitrag: 31.03.10, 23:27 -
Suche passende Software zum erstellen von 3D Animes.
Von Vladras im Forum BlenderAntworten: 5Letzter Beitrag: 07.06.09, 11:21 -
Suche passende Datenbank für mich
Von Masterraven9 im Forum Relationale DatenbanksystemeAntworten: 3Letzter Beitrag: 27.12.07, 15:55 -
Suche passende Hardware.
Von möp im Forum Videoschnitt, Videotechnik & -produktionAntworten: 5Letzter Beitrag: 04.01.06, 16:40





Zitieren

Login





