auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Zinssatz berechnen III

Zinssatz berechnen, via PictureBox mit Scrollbalken programmieren (inneres und äußeres Bildfeld)
Private Sub Form_Load()
picInnen.Left = picAussen.ScaleLeft
picInnen.Top = picAussen.ScaleTop Unmittelbar nach dem Laden wird das innere Bildfeld
picInnen.Width = picAussen.ScaleWidth im äußeren Bildfeld angezeigt und unsichtbar gemacht.
vsbBild.Left = picAussen.Left + picAussen.Width
vsbBild.Height = picAussen.Height
vsbBild.Top = picAussen.Top
picInnen.BorderStyle = False
picInnen.Height = 32767
picInnen.AutoRedraw = True
vsbBild.Max = picInnen.Height
vsbBild.LargeChange = picInnen.Height / 10
vsbBild.SmallChange = picInnen.Height / 100
Me.Show
ZinsBerechnung
'Alternativ: Laufzeitberechnung
End Sub
Private Sub vsbBild_Change()
picInnen.Top = -vsbBild.Value Der negative Wert für die Top-Eigenschaft ist wichtig,
End Sub da das Innenbild nicht vollständig sichtbar sein soll.
Sub ZinsBerechnung() Diese Prozedur berechnet die Kapitalentwicklung.
Dim Kapital As Currency
Dim Laufzeit As Integer
Dim Zinssatz As Single
Dim Jahre As Integer
Dim Antwort As Long
Kapital = InputBox("Anfangskapital", Default:="10000")
Zinssatz = InputBox("Zinssatz", Default:="5,5")
Laufzeit = InputBox("Laufzeit", Default:="50")
picInnen.Print " ZinsBerechnung vom " & Now
picInnen.Print " =================================="
picInnen.Print " Kapital = " & Kapital; " DM; Zinssatz = " & Zinssatz; " Prozent; Laufzeit = " & Laufzeit; " Jahre"
picInnen.Print ""
picInnen.Print Tab(3); "I h r V e r m ö g e n b e t r ä g t"
For Jahre = 1 To Laufzeit
Kapital = Kapital * (1 + Zinssatz / 100)
picInnen.Print Tab(5); "nach dem "; Jahre; ". Jahr"; Tab(35); Format(Kapital, "Currency")
Next
Antwort = MsgBox("Berechnung wiederholen?", vbQuestion + vbYesNo)
If Antwort = vbYes Then
picInnen.Cls Der Befehl Me.Cls funktioniert hier nicht; das Innenbild
ZinsBerechnung wird nicht entladen.
End If Alternative Befehle: Unload Me + Me.Show
End Sub
Private Sub Form_Click()
picInnen.Cls Der Befehl Me.Cls funktioniert hier nicht; das Innenbild
ZinsBerechnung wird nicht entladen.
End Sub Alternative Befehle: Unload Me + Me.Show
Sub Laufzeitberechnung() Hier kann alternativ das Programm Laufzeitberechnung
Dim StartKapital As Currency gestartet werden.
Dim EndKapital As Double
Dim Zinssatz As Single
Dim Jahre As Integer
Dim Button As Integer
StartKapital = InputBox("Geben Sie das Startkapital ein:", Default:="1000")
EndKapital = InputBox("Geben Sie das Endkapital ein:")
Zinssatz = InputBox("Wie hoch ist der Zinssatz?", Default:="5,5")
Do
StartKapital = StartKapital * (1 + Zinssatz / 100)
Jahre = Jahre + 1
Loop Until StartKapital > EndKapital
MsgBox "Nach " & Jahre & " Jahren ist das Endkapital erreicht."
Button = MsgBox("Berechnung wiederholen?", Buttons:=vbOKCancel + vbQuestion)
If Button = vbOK Then Laufzeitberechnung
Unload Me
End Sub
.

Mehr Tipps: Laden von WMF-Dateien in PictureBox

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt