Rechner

teeonlain · 19. Oktober 2006

gutn morgn leute

ich bin gerade dabei einen taschenrechner mit VisualBasic.NET zu programmiern !
funktioniert auch soweit ! nur will ich dass wenn ich zb im operator (zahl1) einen buchstaben eingeb, ne Fehlermedlung in EINEM BESTIMMTEN feld dargestellt wird ! das feld soll dann rot leuchten. und im feld Operator1 (zahl1) soll die farbe Gelb erscheinen !

hat jemand ne idee wie ich das machen kann ?

wäre hammer !

gruß

Norbert Eder · 19. Oktober 2006

Einfach den Background des entsprechenden Controls auf Color.Red bzw. Color.Yellow stellen.

teeonlain · 19. Oktober 2006

danke, aber dann ist es immer rot bzw gelb ! ich will ja nur dass es wenn der fehler auftritt! und bei gelb er in´das feld springt und es gelb macht ! und wenn es möglich ist dass der cursor schon wieder blinkt und eingabebereit ist... !

habe den inhlat einfach mit " " löschen lassen . .Null gibt es ja bei.Net nicht oda?

Christian Kusmanow · 19. Oktober 2006

Hi teeonlain!

Also es ist ergonomisch gesehen nicht vorteilhaft falsche Eingaben überhaupt erst zuzulassen.
Eingabefelder werden in der Regel erst visuell hervorgehoben wenn der Wert fehlt
oder der eigegebene Wert mit anderen eigegeben Werten nicht zusammen passt.
Und wenn dann bitte immer mit einem ErrorProvider.
Somit bekommt der User auch eine kleine Fehlerbeschreibung als Quickinfo.

Für dein Vorhaben eignet also am besten das Control.KeyPress Event.
Das wird ausgelöst wenn eine Taste in dem jeweilig fokusiertem Control gedrückt wurde.
Mal ein Beispiel:

C#:

public MyFormOrUserControl() {
	// This call is required by the Windows.Forms Form Designer.
	InitializeComponent();

	textBox.KeyPress += new System.Windows.Forms.KeyPressEventHandler( this.textBox_KeyPress );
}

void textBox_KeyPress(object sender, KeyPressEventArgs e ) {
	
	// Zum nächsten Steuerelement wechseln wenn Enter gedrückt wurde.
	// Es wird das nächste Steuerelement in der TabIndex-Reihenfolge ausgewählt.
	if ( e.KeyChar == (char) Keys.Enter ){
		e.Handled = true;
		Parent.SelectNextControl( ((Control) sender), true, false, true, false );
	}
	// Abbrechen wenn die gedrückte Taste keine Zahl war.
	else if ( !Char.IsNumber( e.KeyChar ) )
		e.Handled = true;
}

Wenn Du hingegen Texte validieren möchtest, eignen sich die Events Control.Validating und Control.Validated.
Im Control.Validating prüfst, ob der eigegebene Text korrekt ist und im Control.Validated kannst Dinge ausführen die bei der erfolgreichen Validierung geschehen sollen.
Mal ein Beispiel:

C#:

void eMailTextBox_Validating( object sender, CancelEventArgs e ) {
	// Setzen des Errorproviders wenn die Email nicht korrekt ist.
	if ( !emailRegex.Match( ( (Control) sender ).Text ).Success ) {
		errorProvider.SetError(
			(Control) sender,
			"Die Emailadresse ist ungültig!"
		e.Cancel = true;
	}
}

void eMailTextBox_Validated( object sender, EventArgs e ) {
	// Löschen des ErrorProviders wenn die Email korrekt war.
	errorProvider.SetError( (Control) sender, string.Empty );
}

PS: Halte Dich bitte an unsere Netiquette (Abs. 15). Links findest in meiner Sig.

teeonlain · 19. Oktober 2006

danke Christian Kusmanow =) viiilleeeeen Dank

Christian Kusmanow · 19. Oktober 2006

NP

Kannst mich ruhig cosmo nennen.

teeonlain · 19. Oktober 2006

hehe ok *cosmo * =))

hier , kannst ja mal zum spass einfügen in .NET ! dann siehst an was ich grad rummach !
weil hab soeben eine neue Aufgabenstellung bekommen ! läuft nicht richtig...
naja ich programmiere jetzt erst seit 3 tagen

hab echt noch probs ! naja.. hier kannst ja mal schau n , und zwar muss ich es mit einer Fehlerbox machn! leider...

Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Vom Windows Form Designer generierter Code "

Public Sub New()
MyBase.New()

' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()

' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

End Sub

' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer

'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents TxtEingabe1 As System.Windows.Forms.TextBox
Friend WithEvents TxtEingabe2 As System.Windows.Forms.TextBox
Friend WithEvents btnsub As System.Windows.Forms.Button
Friend WithEvents btnadd As System.Windows.Forms.Button
Friend WithEvents btnmulti As System.Windows.Forms.Button
Friend WithEvents btndivi As System.Windows.Forms.Button
Friend WithEvents Txtergebnis As System.Windows.Forms.TextBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents mldFehler As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.TxtEingabe1 = New System.Windows.Forms.TextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.TxtEingabe2 = New System.Windows.Forms.TextBox()
Me.btnsub = New System.Windows.Forms.Button()
Me.btnadd = New System.Windows.Forms.Button()
Me.btnmulti = New System.Windows.Forms.Button()
Me.btndivi = New System.Windows.Forms.Button()
Me.Txtergebnis = New System.Windows.Forms.TextBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.mldFehler = New System.Windows.Forms.TextBox()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TxtEingabe1})
Me.GroupBox1.Location = New System.Drawing.Point(16, 24)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Zahl 1"
'
'TxtEingabe1
'
Me.TxtEingabe1.Location = New System.Drawing.Point(24, 32)
Me.TxtEingabe1.Name = "TxtEingabe1"
Me.TxtEingabe1.Size = New System.Drawing.Size(144, 20)
Me.TxtEingabe1.TabIndex = 2
Me.TxtEingabe1.Text = ""
'
'GroupBox2
'
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TxtEingabe2})
Me.GroupBox2.Location = New System.Drawing.Point(304, 24)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabIndex = 1
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Zahl 2"
'
'TxtEingabe2
'
Me.TxtEingabe2.Location = New System.Drawing.Point(24, 32)
Me.TxtEingabe2.Name = "TxtEingabe2"
Me.TxtEingabe2.Size = New System.Drawing.Size(144, 20)
Me.TxtEingabe2.TabIndex = 3
Me.TxtEingabe2.Text = ""
'
'btnsub
'
Me.btnsub.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnsub.Location = New System.Drawing.Point(112, 152)
Me.btnsub.Name = "btnsub"
Me.btnsub.Size = New System.Drawing.Size(56, 40)
Me.btnsub.TabIndex = 2
Me.btnsub.Text = "-"
'
'btnadd
'
Me.btnadd.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnadd.Location = New System.Drawing.Point(192, 152)
Me.btnadd.Name = "btnadd"
Me.btnadd.Size = New System.Drawing.Size(56, 40)
Me.btnadd.TabIndex = 3
Me.btnadd.Text = "+"
'
'btnmulti
'
Me.btnmulti.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnmulti.Location = New System.Drawing.Point(272, 152)
Me.btnmulti.Name = "btnmulti"
Me.btnmulti.Size = New System.Drawing.Size(56, 40)
Me.btnmulti.TabIndex = 4
Me.btnmulti.Text = "*"
'
'btndivi
'
Me.btndivi.Cursor = System.Windows.Forms.Cursors.Hand
Me.btndivi.Location = New System.Drawing.Point(352, 152)
Me.btndivi.Name = "btndivi"
Me.btndivi.Size = New System.Drawing.Size(56, 40)
Me.btndivi.TabIndex = 5
Me.btndivi.Text = "/"
'
'Txtergebnis
'
Me.Txtergebnis.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.Txtergebnis.Location = New System.Drawing.Point(8, 32)
Me.Txtergebnis.Name = "Txtergebnis"
Me.Txtergebnis.Size = New System.Drawing.Size(184, 20)
Me.Txtergebnis.TabIndex = 6
Me.Txtergebnis.Text = ""
'
'GroupBox3
'
Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Txtergebnis})
Me.GroupBox3.Location = New System.Drawing.Point(168, 216)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabIndex = 7
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Ergebnis:"
'
'mldFehler
'
Me.mldFehler.Location = New System.Drawing.Point(88, 344)
Me.mldFehler.Name = "mldFehler"
Me.mldFehler.Size = New System.Drawing.Size(352, 20)
Me.mldFehler.TabIndex = 8
Me.mldFehler.Text = ""
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(528, 398)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.mldFehler, Me.GroupBox3, Me.btndivi, Me.btnmulti, Me.btnadd, Me.btnsub, Me.GroupBox2, Me.GroupBox1})
Me.Name = "Form1"
Me.Text = "Form1"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.ResumeLayout(False)

End Sub

#End Region

Public Function subtrahiere(ByVal a As Double, ByVal b As Double) As Double
subtrahiere = a - b

End Function

Private Sub btnsub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsub.Click

Dim zahl1 As Double
Dim zahl2 As Double
Dim zahl3 As Double

If IsNumeric(TxtEingabe1.Text) Then
zahl1 = Me.TxtEingabe1.Text
Else

mldFehler.Text = ("falsche Eingabe in feld1")
Me.TxtEingabe1.Text = ""
End If

If IsNumeric(TxtEingabe2.Text) Then
zahl2 = Me.TxtEingabe2.Text
Else
mldFehler.Text = ("falsche Eingabe in feld2")
Me.TxtEingabe2.Text = ""
End If

zahl3 = subtrahiere(zahl1, zahl2)
Txtergebnis.Text = zahl3

End Sub

Public Function addiere(ByVal a As Double, ByVal b As Double) As Double
addiere = a + b

End Function

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click

Dim zahl1 As Double
Dim zahl2 As Double
Dim zahl3 As Double

If IsNumeric(TxtEingabe1.Text) Then
zahl1 = Me.TxtEingabe1.Text
Else
mldFehler.Text = ("falsche Eingabe in feld1")
Me.TxtEingabe1.Text = ""
End If

If IsNumeric(TxtEingabe2.Text) Then
zahl2 = Me.TxtEingabe2.Text
Else
mldFehler.Text = ("falsche Eingabe in feld2")
Me.TxtEingabe2.Text = ""
End If

zahl3 = addiere(zahl1, zahl2)
Txtergebnis.Text = zahl3

End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub

Public Function multipliziere(ByVal a As Double, ByVal b As Double) As Double
multipliziere = a * b
End Function

Private Sub btnmulti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmulti.Click

Dim zahl1 As Double
Dim zahl2 As Double
Dim zahl3 As Double

If IsNumeric(TxtEingabe1.Text) Then
zahl1 = Me.TxtEingabe1.Text
Else
mldFehler.Text = ("falsche Eingabe in feld1")
Me.TxtEingabe1.Text = ""
End If

If IsNumeric(TxtEingabe2.Text) Then
zahl2 = Me.TxtEingabe2.Text
Else
mldFehler.Text = ("falsche Eingabe in feld2")
Me.TxtEingabe2.Text = ""
End If

zahl3 = multipliziere(zahl1, zahl2)
Txtergebnis.Text = zahl3
End Sub

Public Function dividiere(ByVal a As Double, ByVal b As Double) As Double
dividiere = a / b

End Function

Private Sub btndivi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndivi.Click

Dim zahl1 As Double
Dim zahl2 As Double
Dim zahl3 As Double

If IsNumeric(TxtEingabe1.Text) Then
zahl1 = Me.TxtEingabe1.Text
Else
mldFehler.Text = ("falsche Eingabe in feld1")
Me.TxtEingabe1.Text = ""

End If

If IsNumeric(TxtEingabe2.Text) Then
zahl2 = Me.TxtEingabe2.Text
Else
mldFehler.Text = ("falsche Eingabe in feld2")
Me.TxtEingabe2.Text = ""
End If

zahl3 = dividiere(zahl1, zahl2)
Txtergebnis.Text = zahl3

End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End

End Sub

Private Sub mldFehler_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mldFehler.TextChanged

Me.mldFehler.BackColor = System.Drawing.Color.Red
Me.mldFehler.ForeColor = System.Drawing.Color.White

If IsNumeric(TxtEingabe1.Text) Then
mldFehler.Text = ""

End If
End Sub

End Class

Christian Kusmanow · 19. Oktober 2006

Mit "Fehlerbox" meinst jetzt sicher eine MessageBox oder?
Öffne dafür in deinem VS den Hilfeindex (Index) oder die Hilfesuche (Search) und füge das ein: about MessageBox class
Schau Dir das Beispiel an und Du solltest das schon hinbekommen.

Ich empfehle Dir als Einsteiger, erst mal alle MSDN Casts für Anfänger durch zu ackern.
Somit läufst nicht Gefahr dir schlechte Techniken selber anzueignen.
Ich hatte anfangs auch einen Rechner in VB machen müssen.
Aber ohne die Grundlagen zu allen DatanTypen, Schlüsselwörtern und Möglichkeiten des Visuellen Designers,
hab ich mehr zeit damit vergeudet herrauszufinden wie ich das überhaupt machen soll,
anstatt den Rechner funktionalität einzuhauchen.

Ich denke Du verstehst meine Intension in dem Zusammenhang.

Btw. Wir haben hier auch CodeTags, damit der Code auch schön formatiert wird.
Somit lassen sich Code Snippeds besser lesen und logischer Weise auch verstehen.

Wenn Du schon was verbessern lassen möchtest, ist es hilfreicher,
eine kleine Demo zu machen und sie als Anhang zu Posten.
Somit kann jeder der möchte seine Verbesserungen schneller hineinhacken,
anstatt erst mal ein Projekt erstellen zu müssen.

teeonlain · 19. Oktober 2006

hehe jop verstehe

jaein, mit msgBox = kein problem ! da funktionierts ! aber es muss ne textbox sein die dann rot wird und zb sagt : Fehler in Eingabe1 =)

und Eingabe 1 soll vorher schon gelb unterlegt werden dass man gleich sieht , AHHH Da ist der fehler

und wenn ich dann den fehler korrigiert hab, soll alles wieder so sein wie vorher (farben usw...)

ich weis ich weis, komische aufgabenstellung =)

Norbert Eder · 19. Oktober 2006

Bitte halte dich an unsere Netiquette, welche Groß- und Kleinschreibung vorschreibt. Nachzulesen unter Punkt 15. Danke.

Rechner

teeonlain

Grünschnabel

Norbert Eder

Erfahrenes Mitglied

teeonlain

Grünschnabel

Christian Kusmanow

Erfahrenes Mitglied

teeonlain

Grünschnabel

Christian Kusmanow

Erfahrenes Mitglied

teeonlain

Grünschnabel

Christian Kusmanow

Erfahrenes Mitglied

teeonlain

Grünschnabel

Norbert Eder

Erfahrenes Mitglied

Neue Beiträge