Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Keine Ahnung, wie ich das Beschreiben soll
Autor: Maik Jannasch
Datum: 26.12.01 03:30
Hallo Ihr zusammen, ich habe für meine Kollegen ein Programm gemacht (für Kundenabrechung und Kassenabrechnung), wegen dem Euro !! Legende (sag ich mal so): Die Labels (lbl) habe ich so benannt (Name) , wie sie in dem Code stehen ! Und die TextBox auch ! Bei allem Button auch, außer der Command3 und Command4 --- davor habe ich als den Namen "cmd" davor gesetzt ! Kann auch mal einer schauen, ob die Rechenoperatioen so stimmn ? Der Code ist: Private Sub Command1_Click() Dim eurorueck, eurobetrag, eurogabe As Double eurobetrag = Val(Text1.Text) * (1 / 1.95583) + Val(Text2.Text) eurogabe = Val(Text3.Text) * (1 / 1.95583) + Val(Text4.Text) eurorueck = eurogabe - eurobetrag lblEuroRückgabe.Caption = eurorueck End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" lblEuroRückgabe.Caption = "" End Sub Private Sub Command3_Click() Dim dmzwischen, eurozwischen, zwischengesamt, entnahmegruen, entnahmegrueni, entnahmerot, kassenbestand As Double entnahmerot = (Val(Zahl21.Zahl) + Val(Zahl22.Zahl) + Val(Zahl23.Zahl) + Val(Zahl24.Zahl) + Val(Zahl25.Zahl) + Val(Zahl26.Zahl)) / 1.95583 entnahmerot = (Val(Zahl28.Zahl) + Val(Zahl29.Zahl) + Val(Zahl30.Zahl) + Val(Zahl31.Zahl) + Val(Zahl27.Zahl)) / 1.95583 entnahmegrueni = Val(Zahl27.Zahl) - entnahmerot dmzwischen = Val(Zahl5.Zahl) + Val(Zahl6.Zahl) + Val(Zahl7.Zahl) + Val(Zahl8.Zahl) + Val(Zahl9.Zahl) + Val(Zahl10.Zahl) + Val(Zahl11.Zahl) + Val(Zahl12.Zahl) eurozwischen = Val(Zahl13.Zahl) + Val(Zahl14.Zahl) + Val(Zahl15.Zahl) + Val(Zahl16.Zahl) + Val(Zahl17.Zahl) + Val(Zahl18.Zahl) + Val(Zahl19.Zahl) + Val(Zahl20.Zahl) eurogesamt = dmzwischen / 1.95583 + eurozwischen kassenbestand = 200 - (entnahmegruen + entnahmegrueni) lblDMZwischenergebnis.Caption = dmzwischen lblEuroZwischenergebnis.Caption = eurozwischen lblZwischenergenisEuro.Caption = zwischengesamt lblEntnahmegrün.Caption = entnahmegruen lblEntnahmerot.Caption = entnahmerot lblEntnahmegrüni.Caption = entnahmegrueni lblAktuellerKassenbestand.Caption = kassenbestand End Sub Private Sub Command4_Click() Zahl5.Zahl = "" Zahl6.Zahl = "" Zahl7.Zahl = "" Zahl8.Zahl = "" Zahl9.Zahl = "" Zahl10.Zahl = "" Zahl11.Zahl = "" Zahl12.Zahl = "" Zahl13.Zahl = "" Zahl14.Zahl = "" Zahl15.Zahl = "" Zahl16.Zahl = "" Zahl17.Zahl = "" Zahl18.Zahl = "" Zahl19.Zahl = "" Zahl20.Zahl = "" Zahl21.Zahl = "" Zahl22.Zahl = "" Zahl23.Zahl = "" Zahl24.Zahl = "" Zahl25.Zahl = "" Zahl26.Zahl = "" Zahl27.Zahl = "" Zahl28.Zahl = "" Zahl29.Zahl = "" Zahl30.Zahl = "" Zahl31.Zahl = "" lblDMZwischenergebnis.Caption = "" lblZwischenergebnisEuro.Caption = "" lblEuroZwischenergebnis.Caption = "" lblEntnahmegrün.Caption = "" lblEntnahmegrüni.Caption = "" lblEntnahmerot.Caption = "" lblAktuellerKassenbestand.Caption = "" End Sub Private Sub Command5_Click() End End Sub Wäre nett, wenn von Euch jemand helfen könnte !!! MfG Maik Jannasch http://www.vision-ct.info Wenn es geht, bitte per Mail antworten !! Danke Euch

Keine Ahnung, wie ich das Beschreiben soll	163	Maik Jannasch	26.12.01 03:30
Re: Keine Ahnung, wie ich das Beschreiben soll	352	Dieter	26.12.01 09:30
Der Code wird nicht stimmen.	351	unbekannt	26.12.01 15:10
Re: Keine Ahnung, wie ich das Beschreiben soll	373	Dieter	26.12.01 22:36
Re: Keine Ahnung, wie ich das Beschreiben soll	137	Maik Jannasch	31.12.01 11:40

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