Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Kniffel VB6.0
Autor: Rippler
Datum: 14.05.10 23:06
Option Explicit 'Benötigt text1 mit index 1 bis 5 'In den Variablen stehen die Punkte Dim eins As Integer Dim zwei As Integer Dim drei As Integer Dim vier As Integer Dim fuenf As Integer Dim sechs As Integer Dim pasch3 As Integer Dim pasch4 As Integer Dim fullhouse As Integer Dim kleine As Integer Dim grosse As Integer Dim kniffel As Integer Dim chance As Integer Private Sub Command1_Click() Pruefen End Sub Private Function Pruefen() Dim Wurf(6) As Integer Dim Sort(6) As Integer Dim x As Integer Dim Dummy(1) As String chance = 0 For x = 1 To 5 Wurf(Text1(x)) = Wurf(Text1(x)) + 1 Sort(Text1(x)) = 1 chance = chance + Text1(x) Next x For x = 1 To 6 Dummy(0) = Dummy(0) & Wurf(x) Dummy(1) = Dummy(1) & Sort(x) Next x eins = Mid(Dummy(0), 1, 1) zwei = Mid(Dummy(0), 2, 1) * 2 drei = Mid(Dummy(0), 3, 1) * 3 vier = Mid(Dummy(0), 4, 1) * 4 fuenf = Mid(Dummy(0), 5, 1) * 5 sechs = Mid(Dummy(0), 6, 1) * 6 kniffel = IIf(InStr(Dummy(0), "5"), 50, 0) pasch4 = IIf(InStr(Dummy(0), "4"), chance, 0) Or kniffel pasch3 = IIf(InStr(Dummy(0), "3"), chance, 0) Or pasch4 fullhouse = IIf(InStr(Dummy(0), "2"), 25, 0) And pasch3 kleine = IIf(InStr(Dummy(1), "1111"), 30, 0) grosse = IIf(InStr(Dummy(1), "11111"), 40, 0) End Function

Kniffel VB6.0	2.220	Godzilla	12.05.10 08:16
Re: Kniffel VB6.0	1.039	wb-soft	12.05.10 18:30
Re: Kniffel VB6.0	1.177	Rippler	14.05.10 23:06
Re: Kniffel VB6.0	1.017	Rippler	14.05.10 23:45

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