Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Was mache ich falsch?
Autor: rainmanx
Datum: 28.10.02 14:54
bei meiner Programmausführung wirft mir das Programm" falsche" Ergebnisse aus. zb. If Option10.Value = True Then ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverosbb + Aclub Aprberverosbb entspricht 156.27 + Aclub entspricht 16.87 sollte zusammen 173.14 ergeben. Das Programm gibt mir aber einen Wert von 125.10 aus !? Hier das ganze komplett: Option Explicit 'A steht für Auxilia 'Clubbeitrag Const Aclub = 16.87 'Verkehrsrechtsschutz ohne SB Const Averkehrosb = 55.7 'Verkehrsrechtsschutz mit SB Const Averkehrmsb = 39.19 'Verkehrsrechtsschutz ohne SB Beamte Const Averkehrosbb = 50.54 'Verkehrsrechtsschutz mit SB Beamte Const Averkehrmsbb = 35.07 'Verkehrsrechtsschutz mit Familie ohne SB Const Averkehrfamosb = 94.9 'Verkehrsrechtsschutz mit Familie mit SB Const Averkehrfammsb = 75.81 'Verkehrsrechtsschutz mit Familie ohne SB Beamte Const Averkehrfamosbb = 85.61 'Verkehrsrechtsschutz mit Familie mit SB Beamte Const Averkehrfammsbb = 68.59 'Privat und Berufsrechtsschutz ohne SB Const Aprberosb = 120.68 'Privat und Berufsrechtsschutz ohne SB Senioren Const Aprberseosb = 97.99 'Privat und Berufsrechtsschutz mit SB Const Aprbermsb = 90.25 'Privat und Berufsrechtsschutz mit SB Singles Const Aprbersimsb = 81.48 'Privat und Berufsrechtsschutz mit SB Senioren Const Aprbersemsb = 74.78 'Privat und Berufsrechtsschutz ohne SB Beamte Const Aprberosbb = 108.31 'Privat und Berufsrechtsschutz mit SB Beamte Const Aprbermsbb = 81.48 'Privat und Berufs Verkehrsrechtsschutz ohne SB Const Aprberverosb = 174.32 'Privat und Berufs Verkehrsrechtsschutz ohne SB Senioren Const Aprberverseosb = 141.83 'Privat und Berufs Verkehrsrechtsschutz mit SB Const Aprbervermsb = 112.94 'Privat und Berufs Verkehrsrechtsschutz mit SB Singles Const Aprberversimsb = 102.12 'Privat und Berufs Verkehrsrechtsschutz mit SB Senioren Const Aprberversemsb = 92.84 'Privat und Berufs Verkehrsrechtsschutz ohne SB Beamte Const Aprberverosbb = 156.27 'Privat und Berufs Verkehrsrechtsschutz mit SB Beamte Const Aprbervermsbb = 102.12 Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_REFRESH = SWP_NOZORDER Or _ SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE Or _ SWP_FRAMECHANGED Private Const GWL_STYLE = (-16) Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_MINIMIZEBOX = &H20000 Private Const HWND_TOPMOST = -1 Public Sub TopWindow(hwnd As Long) SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOSIZE + SWP_NOMOVE End Sub Private Sub Commandrsv_Click() 'Verkehr If Option7.Value = True Then ElseIf Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsbb + Aclub End If 'Verkehr mit Familie If Option8.Value = True Then ElseIf Option5.Value Then Angebotsübersicht.Text38 = 0 ElseIf Option6.Value Then Angebotsübersicht.Text38 = 0 ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrfamosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrfammsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrfamosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrfammsbb + Aclub End If 'Privat und Beruf If Option9.Value = True Then ElseIf Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberseosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbersemsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = 0 ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbersimsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbermsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbermsbb + Aclub End If 'Privat, Beruf und Verkehr If Option10.Value = True Then ElseIf Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverseosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprberversemsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = 0 ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprberversimsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbervermsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbervermsbb + Aclub End If Kundendaten.Label8 = "OK" Rechtsschutz.Hide End Sub Private Sub Form_Load() ' Fenster immer im Vordergrund anzeigen TopWindow Me.hwnd End Sub

Was mache ich falsch?	183	rainmanx	28.10.02 14:54
Re: Was mache ich falsch?	275	michi-bib	28.10.02 15:31
Re: Was mache ich falsch?	61	rainmanx	28.10.02 16:00
Re: Was mache ich falsch?	274	michi-bib	28.10.02 18:07
Re: Was mache ich falsch?	55	rainmanx	28.10.02 18:19
Re: Was mache ich falsch?	274	MrByte	28.10.02 15:37
Re: Was mache ich falsch?	58	RalfH	28.10.02 20:12
Re: Was mache ich falsch?	266	rainmanx	28.10.02 22:31
Re: Was mache ich falsch?	278	rainmanx	28.10.02 23:44
Re: Was mache ich falsch?	356	unbekannt	29.10.02 00:03
Re: Was mache ich falsch?	74	RalfH	29.10.02 01:08
Re: Was mache ich falsch?	59	RalfH	29.10.02 01:26
Re: Was mache ich falsch?	252	rainmanx	29.10.02 10:18

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