Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Erst Msgbox ermöglicht Zufallszahlengenerierung.
Autor: Basti78
Datum: 03.12.13 12:20
Hallo nochmal, hier der vollständige Code für ein Minimalbeispiel: Module Module1 __Sub Main() ____Dim K As New Klasse : Dim i As Integer Dim s As String = "" ____For i = 1 To 5 ______K.TuWas() : MsgBox(K.EineFunktion) : s = s & " " & K.EineFunktion ____Next ____MsgBox(s) __End Sub __Private Class Klasse ____Private X As Integer ____Public Sub TuWas() ______Dim i As Integer : Dim r As New System.Random : X = 0 ______For i = 1 To 10 ________If r.NextDouble < 0.4 Then X = X + 1 ____Next ____End Sub ____Public Function EineFunktion() As Integer ______EineFunktion = X ____End Function __End Class End Module

Erst Msgbox ermöglicht Zufallszahlengenerierung.	1.039	Basti78	03.12.13 11:58
Re: Erst Msgbox ermöglicht Zufallszahlengenerierung.	652	Basti78	03.12.13 12:20
Re: Erst Msgbox ermöglicht Zufallszahlengenerierung.	654	GPM	03.12.13 13:35
Re: Erst Msgbox ermöglicht Zufallszahlengenerierung.	620	Basti78	03.12.13 14:32
Re: Erst Msgbox ermöglicht Zufallszahlengenerierung.	669	GPM	03.12.13 14:53

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