Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: HILFE HILFE
Autor: Andy288bln
Datum: 23.11.03 14:46
Dim operator As Single ' Globale Variable die den Operator speichert. ' Diese Funktion gibt die Anzahl der Zahlen bis zum Operator zurück Private Function howmanyleft(Kette As String) As Integer Dim counter As Integer counter = 1 Dim io As Boolean io = True Dim check As String ' Die Schleife geht so lange jeden Buchstaben durch, ' bis sie auf einen Operator trift und zählt entsprechend ' den Counter hoch. Do While io = True check = Mid(Kette, counter, 1) If check = "+" Or check = "-" Or check = "*" Or check = "/" Then io = False counter = counter + 1 Loop howmanyleft = counter - 2 ' Schleifenbedingt zählt der Counter immer 2 zuviel ' Zurückgegeben wird jetzt die Anzahl der Zahlen vor dem Operator End Function ' Diese Funktion gibt die Anzahl der Zahlen nach dem Operator zurück. Private Function howmanyright(Kette As String) As Integer Dim counter As Integer counter = 1 Dim laenge As Integer Dim io As Boolean io = True Dim check As String Do While io = True check = Mid(Kette, counter, 1) If check = "+" Or check = "-" Or check = "*" Or check = "/" Then io = False counter = counter + 1 Loop counter = counter - 2 ' Bis hier das selbe wie howmanyleft laenge = Len(Kette) - counter ' Wenn man von der Gesamtlänge die Anzahl der Zahlen vor dem ' Komma subtrahiert bleiben die Restzahlen und der Operator übrig. howmanyright = laenge - 1 ' Den Operator ziehen wir jetzt noch von der Anzahl ab. End Function Private Sub Text1_DblClick() If operator = 0 Then ' Wenn kein Operator eingegeben wurde. MsgBox "Keine Richtige Rechnung eingegeben!", vbExclamation Else ' Wenn Operator steht. Dim Rechnung As String Rechnung = Text1.Text Dim Zahl1 As Integer Dim Zahl2 As Integer Dim Ergibnis As Integer Zahl1 = Left(Rechnung, howmanyleft(Rechnung)) ' Zahl vor dem Operator Zahl2 = Right(Rechnung, howmanyright(Rechnung)) ' Zahl nach dem Operator ' Weist dem Operator die entsprechende Rechnung zu If operator = 43 Then Ergebnis = Zahl1 + Zahl2 If operator = 45 Then Ergebnis = Zahl1 - Zahl2 If operator = 42 Then Ergebnis = Zahl1 * Zahl2 If operator = 47 Then Ergebnis = Zahl1 / Zahl2 Text1.Text = Ergebnis End If operator = 0 ' Setzt den Operator zurück. End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) ' Sorgt dafür das nur zahlen eingegeben werden können. Select Case KeyAscii Case 48 To 57, 8 ' Zahlen und Backspace Case 42, 43, 45, 47 ' + - * / If KeyAscii = 42 Or 43 Or 45 Or 47 Then operator = KeyAscii ' Operator der eingegeben wurde speichern in Globaler Variable operator. Case Else ' alle anderen Zeichen ignorieren KeyAscii = 0 End Select End Sub Wenn ich es in einer standard exe erstellle dann geht es aber sobald ich es in mein projekt einfüge geht es nicht warum ? es wäre nett wenn mir einer hilft.

HILFE HILFE	621	Andy288bln	18.11.03 00:56
Re: HILFE HILFE	359	Stomper	19.11.03 07:55
Re: HILFE HILFE	326	Stomper	19.11.03 13:26
Re: HILFE HILFE	315	Andy288bln	19.11.03 21:27
Re: HILFE HILFE	379	Andy288bln	23.11.03 14:46
Re: HILFE HILFE	277	Stomper	23.11.03 23:17
Re: HILFE HILFE	303	Andy288bln	24.11.03 20:24

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