Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: lösung mit 2,4,8,16,32,64,128
Autor: Ronny42Dach
Datum: 14.08.01 20:37
HI! probier mal das bei Fragen schreibe! Elementeerklärung ---------------------------- die checkboxen von 1-7 sind bezeichnet mit montag - Sonntag der Command1 Button ergibt eine Zahl der Command2 Button rechnet die Zahl in tage zurück! der rest sollte klar sein! 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 Private Sub Check1_Click() If Mon = False Then Mon = True Else Mon = False End If End Sub Private Sub Check2_Click() If Dien = False Then Dien = True Else Dien = False End If End Sub Private Sub Check3_Click() If Mitt = False Then Mitt = True Else Mitt = 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 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() Me.text1.Text = "" If Mon = True Then Me.text1.Text = Me.text1.Text & 2 If Dien = True Then Me.text1.Text = Me.text1.Text & 4 If Mitt = True Then Me.text1.Text = Me.text1.Text & 8 If Donn = True Then Me.text1.Text = Me.text1.Text & 16 If Frei = True Then Me.text1.Text = Me.text1.Text & 32 If Sam = True Then Me.text1.Text = Me.text1.Text & 64 If Son = True Then Me.text1.Text = Me.text1.Text & 128 End Sub Private Sub Command2_Click() Dim zf As Currency Me.List1.Clear If Me.text1.Text = "" Then Beep List1.AddItem "keine Markierung" GoTo ende End If zf = Me.text1.Text i = 0 Do i = i + 1 z = Mid(zf, i, 1) If z = "" Then Exit Do If z = 2 Then List1.AddItem "Montag" If z = 4 Then List1.AddItem "Dienstag" If z = 8 Then List1.AddItem "Mittwoch" If z = 1 Then z = Mid(zf, i, 2) If z = 16 Then List1.AddItem "Donnerstag" i = i + 1 End If If z = 12 Then List1.AddItem "Sonntag" i = i + 2 End If End If If z = 3 Then List1.AddItem "Freitag" i = i + 1 End If If z = 6 Then List1.AddItem "Sammstag" i = i + 1 End If Loop ende: End Sub Private Sub txtFeldTagSpeicher_Change() 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	51	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.	368	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