Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Taschenrechner?
Autor: zentao
Datum: 06.12.01 18:30
Private Sub Command1_Click() Text3.Text = berechnen(Text1.Text, Text2.Text) End Sub -------------------------------------------------------------------------------------------------------------------- Public Function berechnen(erste%, zweite%) 'Hier wird die zahl aus den Textfeldern übergeben und im preis zurückgeschickt Dim preis As Currency preis = erste + zweite berechnen = preis End Function --------------------------------------------------------------------------------------------------------------------- 'zum feststellen ob Zahlen drin sind must den command1 bei enable auf false setzen Public Sub Abfrage() If Not IsNumeric(Text1.Text) Then Command1.Enabled = False Exit Sub End If If Not IsNumeric(Text2.Text) Then Command1.Enabled = False Exit Sub End If Command1.Enabled = True End Sub ------------------------------------------------------------------------------------------------------ Private Sub Text1_Change() Abfrage End Sub -------------------------------------------------------------------------------------------------------- Private Sub Text2_Change() Abfrage End Sub ------------------------------------------------------------------------------------------------------

Taschenrechner?	63	marc	06.12.01 18:04
Re: Taschenrechner?	233	unbekannt	06.12.01 18:19
Re: Taschenrechner?	46	marc	06.12.01 18:22
Re: Taschenrechner?	280	unbekannt	06.12.01 18:25
Re: Taschenrechner?	49	zentao	06.12.01 18:31
Re: Taschenrechner?	53	zentao	06.12.01 18:30

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