vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Ist das lösbar....Matheaufgabe 
Autor: OldMan
Datum: 13.04.06 22:03
Das müsste jetzt funktionieren. Der aktuelle Stopwert ist nur ein Beispiel. Du kannst ihn auch auf andere Werte als 3 setzen. Kannst mir aber auch eine Email schreiben bevor wir hier noch einen neuen Forumsrekord an Beiträgen schaffen.

Private Sub Command1_Click()
Dim x As Integer
Dim Minus, Wert, StopWert As Double

StopWert = 3
Wert = 7.75
x = 0
Do

If x = StopWert - 1 Then
Load lblOutput(x)
lblOutput(x).Visible = True
lblOutput(x).Top = lblOutput(x - 1).Top + lblOutput(x).Height
lblOutput(x).Caption = Wert
Exit Sub
End If

Minus = GetRnd(Wert)
If Minus < Wert Then

If x = 0 Then
lblOutput(0).Caption = Minus
Else
Load lblOutput(x)
lblOutput(x).Visible = True
lblOutput(x).Top = lblOutput(x - 1).Top + lblOutput(x).Height
lblOutput(x).Caption = Minus
End If

Wert = Wert - Minus
x = x + 1
Else
If x > 0 Then
Load lblOutput(x)
lblOutput(x).Visible = True
lblOutput(x).Top = lblOutput(x - 1).Top + lblOutput(x).Height
lblOutput(x).Caption = Wert
x = x + 1
Wert = 0
End If
End If
DoEvents
Loop While Wert > 0
End Sub

Private Function GetRnd(ByVal Max As Double)
Randomize Timer
Value = CInt(Rnd * Max)
Select Case CInt(Rnd * 3) + 1
Case 1
Value = Value + 0.25
Case 2
Value = Value + 0.5
Case 3
Value = Value + 0.75
Case 4
Value = Value + 0
End Select
If Value = 0 Then Value = GetRnd(Max)
GetRnd = Value
End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Ist das lösbar....Matheaufgabe1.238firemike11.04.06 11:58
Re: Ist das lösbar....Matheaufgabe858OldMan11.04.06 16:09
Re: Ist das lösbar....Matheaufgabe782firemike11.04.06 18:43
Re: Ist das lösbar....Matheaufgabe680OldMan11.04.06 19:08
Re: Ist das lösbar....Matheaufgabe663firemike12.04.06 00:11
Re: Ist das lösbar....Matheaufgabe629mitsch12.04.06 09:18
Re: Ist das lösbar....Matheaufgabe708firemike12.04.06 09:23
Re: Ist das lösbar....Matheaufgabe637mitsch12.04.06 09:31
Re: Ist das lösbar....Matheaufgabe722firemike12.04.06 09:43
Re: Ist das lösbar....Matheaufgabe631OldMan12.04.06 12:56
Re: Ist das lösbar....Matheaufgabe613firemike12.04.06 14:05
Re: Ist das lösbar....Matheaufgabe669OldMan12.04.06 15:16
Re: Ist das lösbar....Matheaufgabe668firemike12.04.06 15:47
Re: Ist das lösbar....Matheaufgabe603OldMan12.04.06 16:57
Re: Ist das lösbar....Matheaufgabe626firemike12.04.06 17:04
Re: Ist das lösbar....Matheaufgabe728OldMan12.04.06 17:46
Re: Ist das lösbar....Matheaufgabe663firemike12.04.06 17:52
Re: Ist das lösbar....Matheaufgabe679OldMan12.04.06 18:21
Re: Ist das lösbar....Matheaufgabe668firemike12.04.06 18:42
Re: Ist das lösbar....Matheaufgabe695OldMan12.04.06 18:51
Re: Ist das lösbar....Matheaufgabe707firemike13.04.06 09:44
Re: Ist das lösbar....Matheaufgabe694mitsch13.04.06 09:56
Re: Ist das lösbar....Matheaufgabe699firemike13.04.06 10:06
Re: Ist das lösbar....Matheaufgabe611firemike13.04.06 11:52
Re: Ist das lösbar....Matheaufgabe645mitsch13.04.06 11:57
Re: Ist das lösbar....Matheaufgabe675firemike13.04.06 14:12
Re: Ist das lösbar....Matheaufgabe633OldMan13.04.06 14:28
Re: Ist das lösbar....Matheaufgabe730firemike13.04.06 20:31
Re: Ist das lösbar....Matheaufgabe723OldMan13.04.06 22:03
Re: Ist das lösbar....Matheaufgabe619firemike13.04.06 22:42
Re: Ist das lösbar....Matheaufgabe697OldMan13.04.06 23:45
Re: Ist das lösbar....Matheaufgabe633firemike14.04.06 10:25
Re: Ist das lösbar....Matheaufgabe691OldMan13.04.06 12:43
Re: Ist das lösbar....Matheaufgabe679mitsch13.04.06 12:44
Re: Ist das lösbar....Matheaufgabe652OldMan13.04.06 14:08
Re: Ist das lösbar....Matheaufgabe627firemike13.04.06 14:01
Re: Ist das lösbar....Matheaufgabe721firemike20.04.06 09:49
Re: Ist das lösbar....Matheaufgabe730firemike22.04.06 15:57
Re: Ist das lösbar....Matheaufgabe628firemike12.04.06 09:47

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel