Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ausgabetext bei einer bestimmten Konstanten
Autor: fomwu
Datum: 08.05.04 00:27
Nein war auch nicht von mir so gemeint,habe nicht zuhause geweint. Also: Spieler 1 giebt seine Zahl ein. Spieler2 giebt seine Zahl ein. Hat Spieler 1 nun sagen wir mal die Zahl 57 eingegeben,die vorher als Konstante deklariert wurde. Spieler 2 giebt die zahl 68 ein. Nun ist das Ergebnis > 10 Jetzt soll ein Text ausgegeben werden der nur der Zahl 57 gilt wenn Spieler 2 diese um mehr als 10 verfehlt hat. Private Sub cmdFertig_Click() Dim intPerson1 As Integer Dim intPerson2 As Integer Dim strAuswahltext As String Dim intBerechnung As Integer Dim intErgebnis As Integer Dim intZahl1 As Integer intPerson1 = Val(Me.txtPerson1.Value) intPerson2 = Val(Me.txtPerson2.Value) intBerechnung = intPerson1 - intPerson2 intBerechnung = intPerson2 - intPerson1 intErgebnis = intBerechnung intZahl1 = 57 Hier der bisherige Code: (wahrscheinlich mit vielen fehlern) If txtPerson1 <= 0 Then MsgBox "Person 1. Sie mogeln!Die Zahl soll größer sein als 0!" Me.txtPerson1 = "" Me.txtPerson1.SetFocus End If If txtPerson1 > 100 Then MsgBox "Person 1. Sie mogeln!" Me.txtPerson1 = "" Me.txtPerson1.SetFocus End If If txtPerson2 <= 0 Then MsgBox "Person 2. Sie mogeln!Die Zahl soll größer sein als 0!" Me.txtPerson2 = "" Me.txtPerson2.SetFocus End If If txtPerson2 > 100 Then MsgBox "Person 2. Sie mogeln!" Me.txtPerson2 = "" Me.txtPerson2.SetFocus End If If intPerson1 > intPerson2 Then intBerechnung = intPerson1 - intPerson2 End If If intPerson1 < intPerson2 Then intBerechnung = intPerson2 - intPerson1 End If Select Case intErgebnis Case is <=10 strAuswahltext="Das ist schon ziemlich gut" Case is >=10 strAuswahltext="Sie werden übermütig" End Select ' Falls spieler1=57 ' und intErgebnis >= 10 ' dann strAuswahltext="Strengen sie sich etwas mehr an" Bis dann Marcel

Ausgabetext bei einer bestimmten Konstanten	855	fomwu	07.05.04 01:55
Re: Ausgabetext bei einer bestimmten Konstanten	529	Wookiehuhn	07.05.04 07:45
Re: Ausgabetext bei einer bestimmten Konstanten	493	fomwu	07.05.04 15:28
Re: Ausgabetext bei einer bestimmten Konstanten	504	Wookiehuhn	07.05.04 20:16
Re: Ausgabetext bei einer bestimmten Konstanten	494	fomwu	08.05.04 00:27
Re: Ausgabetext bei einer bestimmten Konstanten	503	Wookiehuhn	10.05.04 08:08

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