Der längste e*pvp Thread XXXIV

[#CHaCKi]

wat is das?

[Life'sGood]

Kennt sich einer mit Small Basic aus und kann mir weiterhelfen?
Angabe :

 Spoiler

Einzugeben sind Kapital, Zinssatz (in Prozent) und Laufzeit (in Jahren, Monaten und
Tagen). Das Programm soll die einfachen bankm¨aßigen Zinsen und das verzinste Gesamtkapital
berechnen (jedes Monat ist mit 30 Tagen und jedes volle Jahr mit 360
Tagen zu rechnen).
Beispiel:
Kapital (in Euro) --> 1234.56
Zinssatz (in %) --> 4.5
Verzinsungsdauer Jahre --> 3
Verzinsungsdauer Monate --> 7
Verzinsungsdauer Tage --> 12
---------------------------------------------------
Es ergeben sich Zinsen von 200.92 Euro.
Wert des einfach verzinsten Gesamtkapitals: 1435.48 Euro.

Bedingungen fÜr die Eingabewerte:
 Kapital: zwischen 10 und 1000000 Euro
 Zinsatz: zwischen 0.5 und 10.0 Prozent
 Verzinsungsdauer Jahre: ganzzahlig von 0 bis 50 Jahre
 Verzinsungsdauer Monate: ganzzahlig zwischen 0 und 11
 Verzinsungsdauer Tage: ganzzahlig zwischen 0 und 29

Mein Quellcode :

 Spoiler

' Hauptprogramm
'Programmtitel
TextWindow.Title = "Zinsen"

'Eingabe Kapital
TextWindow.Write("Geben Sie das Kapital zwischen 10 und 10 000 Euro ein :  ")
'Fehlermeldung
While kapital < 10 Or kapital > 1000000
  kapital = TextWindow.ReadNumber()
  If kapital < 10 Or kapital > 1000000 Then
    Fehlermeldung()
  EndIf
EndWhile

'Eingabe Zinssatz
TextWindow.Write("Geben Sie den Zinssatz zwischen 0.5 und 10.0 Prozent ein :  ")
'Fehlermeldung
While zinssatz < 0.5 Or zinssatz > 10.0
  zinssatz = TextWindow.ReadNumber()
  If zinssatz < 0.5 Or zinssatz > 10.0 Then
    Fehlermeldung()
  EndIf
EndWhile

'Eingabe Verzinsungsdauer Jahre
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 50 Jahren ein :  ")
jahr = TextWindow.ReadNumber()
'Fehlermeldung
If jahr < 0 Or jahr > 50 Then
  Fehlermeldung()
EndIf


'Eingabe Verzinsungsdauer Monate
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 11 Monaten ein :  ")
monat = TextWindow.ReadNumber()
'Fehlermeldung
If monat < 0 Or monat > 11 Then
  Fehlermeldung()
EndIf


'Eingabe Verzinsungsdauer Tage
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 29 Tagen ein :  ")
tag = TextWindow.ReadNumber()
'Fehlermeldung
If tag < 0 Or tag > 29 Then
  Fehlermeldung()
EndIf


Zinsen = (kapital*zinssatz*(jahr*360)+(monat*30)+ tag/(100*360))
TextWindow.WriteLine("Es ergeben sich Zinsen von "+ Zinsen+" Euro.")


'Unterprogramm Fehlermeldung
Sub Fehlermeldung
  TextWindow.WriteLine("Falsche Eingabe!")
EndSub

Ich krieg einfach nicht das gleiche Ergebnis wie bei der Angabe.
Stimmt die Formel nicht?

[​Chiller2o2]

Nabend OT

[ShishaHaZe]

Originally Posted by V.I.P. Insidious!

Nabend OT

Abend

[#CHaCKi]

Originally Posted by V.I.P. Insidious!

Nabend OT

& alles fit bei dir? ^^

[Dörp]

Originally Posted by Sp0ngeb0zz

Okay ich geb einen aus wie viel muss ich bezahlen, Barkeaper ?
Barkeaper: 9545054$
Spongebozz: Ok ey guck mal da ist deine Mum.
Barkeaper: Mama Yey, oh ey du Lügner! Wo ist der hin?
Spongebozz: Haha so nen Lauch ich hab den gezogen yeah bin azzlack

 Spoiler

Der war nicht -.-'

Der war echt nicht
wo ist der witz

Originally Posted by John Marston

was soll die scheisse

hi

[Panzerjäger]

Guten Abend.

[​Chiller2o2]

Originally Posted by Dr.Holz.'

& alles fit bei dir? ^^

ja und bei dir?^^

[Moo']

hi na

hat jemand DayZ für 81e*Gold?

[Thaini]

Originally Posted by Afrobrave'

hi na

hat jemand DayZ für 81e*Gold?

Nein.
Du willst das eh nicht spielen.

[Moo']

Originally Posted by Thaini

Nein.
Du willst das eh nicht spielen.

Doch will ich, deshalb Frage ich ja.
Vogel.
Ausserdem habe ich nicht gefragt wer es nicht hat.

[​Chiller2o2]

Was macht ihr heute noch so?

[ExtendetBurs]

fak brennt das an der schleimhaut xdd

[Hawkk]

Originally Posted by V.I.P. Insidious!

Was macht ihr heute noch so?

War nun ~2 Studen shishabar

[Moo']

Originally Posted by Hαwkk

War nun ~2 Studen shishabar

loift, ganz harter.


ok ne hawk ist cool