[RobbieRob]

Hallo, ich bin dabei eine VBS zu schreiben indem ich die zahlen 1,2 und 3 hintereinander unbegrenzt oft eingeben kann (die Zahlen bekomme ich zufällig)..z.B.1,2,2,3,1,2,3,3,2,3,2,1,1 etc...

Jetzt soll mir das Script wenn eine von diesen Zahlen 5 mal nicht gekommen ist ab der 5 Zahl einen Hinweis geben (z.B. fett makiert, andere farbe etc)

z.B. es kommen die Zahlen...1,3,2,3,2,1,3,2,2,3,2
Jetzt ist die Zahl 1 für 5 Durchläufe nicht gekommen und nun soll der Durchlauf fett makiert werden...

Hoffe ihr wisst was ich meine...Vielen Dank schonmal...

PS: die eingegebenen zahlen sollten sichtbar bleiben, bzw. die letzten 30 würden reichen...

[bLaCkRaBbIt]

geht auch ein vb.net programm?
achso, gibst du auch leerzeichen und kommata ein?wenn ja, dann sollen die vemutlich nicht mitgezählt werden oder?

Dieser Beitrag wurde von bLaCkRaBbIt bearbeitet: 27. Dezember 2007 - 13:10

[bLaCkRaBbIt]

naja, ich hab hier mal den code für vb.net und im anhang die ausführbare datei

Public Class Form1
	Private IndexOne As Integer = 0
	Private IndexTwo As Integer = 0
	Private IndexThree As Integer = 0


	Private Sub input_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles input.KeyUp
		If e.KeyCode = Keys.NumPad1 Then
			IndexOne = input.TextLength
		ElseIf e.KeyCode = Keys.NumPad2 Then
			IndexTwo = input.TextLength
		ElseIf e.KeyCode = Keys.NumPad3 Then
			IndexThree = input.TextLength
		ElseIf e.KeyCode = Keys.Enter Then
			'tue nichts, da gültige Eingabe
		Else
			MessageBox.Show("nur 1, 2 oder 3")
			input.Text = input.Text.Remove(input.TextLength - 1, 1)
			input.Select(input.TextLength, 0)
		End If

		If input.TextLength - IndexOne > 4 Then
			MakeBold()
			IndexOne = input.TextLength
		ElseIf input.TextLength - IndexTwo > 4 Then
			MakeBold()
			IndexTwo = input.TextLength
		ElseIf input.TextLength - IndexThree > 4 Then
			MakeBold()
			IndexThree = input.TextLength
		End If
	End Sub

	Private Sub MakeBold()
		input.Select(input.TextLength - 1, 1)
		input.SelectionFont = New Font(input.Font, FontStyle.Bold)
		input.Select(input.TextLength, 0)
		input.SelectionFont = New Font(input.Font, FontStyle.Regular)
	End Sub
End Class

Angehängte Datei(en)

•  Zahlenreihe.7z (7,59K)
  Anzahl der Downloads: 102

[RobbieRob]

Hi, sorry für die späte Antwort, war über Silvester verreist...

Ich schau mir das gleich mal an...

Vielen dank schonmal..

Gruß Robert