Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Anzahl PKWs auf Parkplatz
Autor: dbayer
Datum: 29.09.03 14:34
So etwas erweitert: Eine Form, eine Textbox, eine Listbox Sub Count_Raeder(n As Long) List1.Clear If n = 1 Then Exit Sub If n / 2 <> n \ 2 Then List1.AddItem "ist ein Dreirad mit dabei" Exit Sub Else i = n Auto = 0 Do List1.AddItem "Anzahl Bikes= " + CStr(i / 2) + " Autos =" + CStr(Auto) i = i - 4: Auto = Auto + 1 Loop Until i < 0 End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Val(Text1.Text) > 0 Then Count_Raeder (Val(Text1.Text)) Else Beep Text1.Text = "" End If End If End Sub Jetz sind die Ergebnisse in der Listbox aufgeführt. dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)

Anzahl PKWs auf Parkplatz	734	Dreamsleeper	29.09.03 11:28
Re: Anzahl PKWs auf Parkplatz	381	dbayer	29.09.03 11:46
Re: Anzahl PKWs auf Parkplatz	377	Dreamsleeper	29.09.03 11:59
Re: Anzahl PKWs auf Parkplatz	362	dbayer	29.09.03 12:07
Re: Anzahl PKWs auf Parkplatz	377	Dreamsleeper	29.09.03 13:12
Re: Anzahl PKWs auf Parkplatz	377	dbayer	29.09.03 14:34
Re: Anzahl PKWs auf Parkplatz	354	Dreamsleeper	29.09.03 15:06
Re: Anzahl PKWs auf Parkplatz	366	E7	29.09.03 20:08
Re: Anzahl PKWs auf Parkplatz	395	dbayer	30.09.03 08:03
Re: Anzahl PKWs auf Parkplatz	376	VBRunner	30.09.03 11:50

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