Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

So Trick bei Seite!
Autor: Ronny42Dach
Datum: 14.08.01 22:30
habe ein listing probieres aus und es klappt, frag nicht wie! Montag bis Sontag werden entsprechend 4 - 128 addiert und das ergebniss in Wochentage aufgelöst! bei Fragen oder komplettem VB-Save mail an Ronny42Dach@Hotmail.com MFG !listing! --------------------------------------------------------------- Dim Mon As Boolean Dim Dien As Boolean Dim Mitt As Boolean Dim Donn As Boolean Dim Frei As Boolean Dim Sam As Boolean Dim Son As Boolean Dim z As Currency Dim erg As Currency Dim zmo As Currency Dim zdi As Currency Dim zmi As Currency Dim zdo As Currency Dim zfr As Currency Dim zsa As Currency Dim zso As Currency Private Sub Check2_Click() If Dien = False Then Dien = True Else Dien = False End If End Sub Private Sub Check4_Click() If Donn = False Then Donn = True Else Donn = False End If End Sub Private Sub Check5_Click() If Frei = False Then Frei = True Else Frei = False End If End Sub Private Sub Check3_Click() If Mitt = False Then Mitt = True Else Mitt = False End If End Sub Private Sub Check1_Click() If Mon = False Then Mon = True Else Mon = False End If End Sub Private Sub Check6_Click() If Sam = False Then Sam = True Else Sam = False End If End Sub Private Sub Check7_Click() If Son = False Then Son = True Else Son = False End If End Sub Private Sub Command1_Click() z = 0 If Mon = True Then z = z + 2 If Dien = True Then z = z + 4 If Mitt = True Then z = z + 8 If Donn = True Then z = z + 16 If Frei = True Then z = z + 32 If Sam = True Then z = z + 64 If Son = True Then z = z + 128 Me.text1.Text = z End Sub Private Sub Command2_Click() Me.List1.Clear For iiiiiii = 0 To 2 If zso = 128 Then zso = 0 Else zso = 128 For iiiiii = 0 To 2 If zsa = 64 Then zsa = 0 Else zsa = 64 For iiiii = 0 To 2 If zfr = 32 Then zfr = 0 Else zfr = 32 For iiii = 1 To 2 If zdo = 16 Then zdo = 0 Else zdo = 16 For iii = 1 To 2 If zmi = 8 Then zmi = 0 Else zmi = 8 For ii = 1 To 2 If zdi = 4 Then zdi = 0 Else zdi = 4 For i = 1 To 2 If zmo = 2 Then zmo = 0 Else zmo = 2 erg = zmo + zdi + zmi + zdo + zfr + zsa + zso If z = erg Then Me.Text3 = "z = " & z & " erg = " & erg If zmo > 0 Then List1.AddItem "Montag" If zdi > 0 Then List1.AddItem "Dienstag" If zmi > 0 Then List1.AddItem "Mitwoch" If zdo > 0 Then List1.AddItem "Donnerstag" If zfr > 0 Then List1.AddItem "Freitag" If zsa > 0 Then List1.AddItem "Sammstag" If zso > 0 Then List1.AddItem "Sonntag" GoTo ende: End If Next i Next ii Next iii Next iiii Next iiiii Next iiiiii Next iiiiiii ende: Me.Text2 = Counteb & " Durchgänge" End Sub

Rechenexemple	76	hotte	14.08.01 19:12
Re: Rechenexemple	450	unbekannt	14.08.01 19:18
mit einer kleinen Änderung:	354	unbekannt	14.08.01 19:26
Re: Wo liegt der Trick	50	hotte	14.08.01 19:41
Re: lösung mit 2,4,8,16,32,64,128	50	Ronny42Dach	14.08.01 20:37
So Trick bei Seite!	46	Ronny42Dach	14.08.01 22:30
??? - (kein Text)	384	unbekannt	15.08.01 01:33
Lordchen hat ein Problem ....	360	unbekannt	15.08.01 02:31
Ganz einfach, morgen aber die komplette Funktion.	367	unbekannt	15.08.01 01:39
Re: Rechenexemple	44	Ronny42Dach	14.08.01 19:18
Re: Rechenexemple - Danke	45	hotte	14.08.01 20:15
Re: Rechenexemple	371	unbekannt	14.08.01 19:19
Re: Rechenexemple	39	hotte	14.08.01 19:29
Re: Listing	44	Ronny42Dach	14.08.01 20:07
So, hier mal mein Ansatz zu dem Problem!	479	unbekannt	15.08.01 11:56
Re: So, hier mal mein Ansatz zu dem Problem!	42	hotte	16.08.01 18:43
Re: da fehlt doch was....?!	58	hotte	16.08.01 19:12
Re: da fehlt doch was....?!	42	Ronny42Dach	16.08.01 19:18

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