einfügen des programmiercodes?
08.11.2004 16:09:47
Mogli
Private Sub bclose_Click()
Unload Me
End Sub
--------------------------
Private Sub Tdauer_Enter()
Dim Tdauer As Single
End Sub
--------------------------
Private Sub Tbewertung_Enter()
Dim Tbewertung As Single
End Sub
-----------------------------
Private Sub Tjahre_Enter()
Dim Tjahre As Single
End Sub
--------------------------------
Private Sub Tbetrag_Change()
Dim Tbetrag As Single
MsgBox (Tbetrag)
End Sub
-----------------------------------
Private Sub bgenerate_Click()
Dim Tbetrag1 As Single
Dim Tbetrag2 As Single
Dim Tbetrag3 As Single
Dim I As Single
Dim Tdauer As Single
Dim B As Single
Dim Tjahre As Single
Dim D As Single
Dim Tbewertung As Single
If Tdauer >= 120 Then
For I = 120 To Tdauer
Tbetrag1 = Tbetrag1 + 0.05
Next I
End If
If Tbewertung >= 6 Then
For D = 6 To Tbewertung
Tbetrag2 = Tbetrag2 + 1
Next D
End If
If Tjahre >= 1 Then
For B = 1 To Tjahre
Tbetrag3 = Tbetrag3 + 3.5
Next B
End If
Tbetrag = Tbetrag1 + Tbetrag2 + Tbetrag1
End Sub