probleme mit formel

[X2k]

Hi
ich bastel gerade an einem progi das mit was ausrechnen soll
und zwar sin gegeben : wert 1 wert 2 wert 3 wert4

das ganze soll dann so aus sehen :
wert1 * wert2 = zwischenspeichern
wert1- aus speicher = neu speichern
neu speichern *wert3 + wert4


wiekannl ich zwischen speichern ?

 

[wincnc]

Versuch´s mal hiermit:

' das ganze soll dann so aus sehen :
' wert1 * wert2 = zwischenspeichern
' wert1- aus speicher = neu speichern
' neu speichern * wert3 + wert4

Dim wert1 As Double
Dim wert2 As Double
Dim wert3 As Double
Dim wert4 As Double

Private Sub Form_Load()

' einfach
Dim Ergebnis As Double

wert1 = 10
wert2 = 20
wert3 = 30
wert4 = 40

Ergebnis = ((wert1 - (wert1 * wert2)) * wert3) + wert4
MsgBox Ergebnis


' oder umständlich

Dim ZwischenErg1 As Double
Dim ZwischenErg2 As Double

ZwischenErg1 = wert1 * wert2
ZwischenErg2 = wert1 - ZwischenErg1
Ergebnis = (ZwischenErg2 * wert3) + wert4
MsgBox Ergebnis

End Sub

 

[X2k]

ich hab das jetzt mal soweit zusammen dass es keinen fehler mehr gibt aber da stimmt was nicht .

  Option Explicit
    Dim liste As Double
    	Dim listeb As Double
    		Dim listec As Double
    Dim rabatt As Double
    	Dim rabattb As Double
    		Dim rabattc As Double
    Dim skon As Double
    	Dim skonb As Double
    		Dim skonc As Double
    Dim bezug As Double
    	Dim bezugb As Double
    		Dim bezugc As Double
    Dim ausgabe As Double
    	Dim ausgabeb As Double
    		Dim ausgabec As Double
    		
    Private Sub cmd_exit_Click()
    	Unload Me
    		Beep
    End Sub
    
    Private Sub cmd_go_Click()
     
       liste = CDbl(txt_List.Text)
    	rabatt = (txt_rabatt.Text)
    	skon = CDbl(txt_skonto.Text)
    	bezug = CDbl(txt_bezug.Text)
    	ausgabe = CDbl(txt_ausgabe.Text)
    	   listeb = CDbl(txt_listb.Text)
    	   rabattb = CDbl(txt_rabattb.Text)
    	   skonb = CDbl(txt_skontob.Text)
    	   bezugb = CDbl(txt_bezugb.Text)
    	   ausgabeb = CDbl(txt_ausgabeb.Text)
    		  listec = CDbl(txt_listc.Text)
    		  rabattc = CDbl(txt_rabattc.Text)
    		  skonc = CDbl(txt_skontoc.Text)
    		  bezugc = CDbl(txt_bezugc.Text)
    		  ausgabec = CDbl(txt_ausgabec.Text)
    			 
    			ausgabe = ((liste - (liste * skon)) * rabatt) + bezug
    		  
    End Sub
    
    Private Sub cmd_reset_Click()
    	
    	txt_List.Text = ""
    	txt_rabatt.Text = ""
    	txt_skonto.Text = ""
    	txt_bezug.Text = ""
    	txt_ausgabe.Text = ""
    		txt_listb.Text = ""
    		txt_rabattb.Text = ""
    		txt_skontob.Text = ""
    		txt_bezugb.Text = ""
    		txt_ausgabeb.Text = ""
    			txt_listc.Text = ""
    			txt_rabattc.Text = ""
    			txt_skontoc.Text = ""
    			txt_bezugc.Text = ""
    			txt_ausgabec.Text = ""
    				Beep
    End Sub

wenn ich den vorgeng starte kommt nichts

 

[wincnc]

Was ist ausgabe ?

ausgabe = ((liste - (liste * skon)) * rabatt) + bezug

MsgBox Ausgabe

 

[X2k]

das ist ne textbox in der das ergebniss stehen soll
nur leider nicht

 

[wincnc]

Deine Textfeld heißt nicht ausgabe sondern txt_ausgabe

txt_ausgabe = ((liste - (liste * skon)) * rabatt) + bezug

 

[X2k]

ich hab ausgabe als variable mit txt_ausgabe verknüpft das sollte doch auch gehen ?

 

[wincnc]

Nein das geht so nicht.
Nach befüllen der TextBox kannst Du die TextBox der Variablen zuweisen.

Dim ausgabe As String

txt_ausgabe = ((liste - (liste * skon)) * rabatt) + bezug
ausgabe = txt_ausgabe

oder

ausgabe = ((liste - (liste * skon)) * rabatt) + bezug
txt_ausgabe = ausgabe

 

[X2k]

und könnte ich sonst noch was verbessern?