mal drüberschauen,bin mir nich sicher....

xxDarkAngelxx · Gast

He ho

hab mal so ein übungsblatt gemacht aber ich bin mir nich sicher ob das richtig is also ich schreib jtz hier mal den code auf und vielleicht kann mir jemand mal sagenob das richtig is oder ob sich da noch ein fehler eingeschlichen hat.

thxXx

also erstma die aufgabe:

Die erdölreserven werden in nich allzu langer zeit zur neige gehen.man geht heute davon aus,dass für deutschland noch 15200 megatonnen erdöl vorhanden sind.jährlich benötigen wir zur zeit eine erdölmenge von 448 megatonnen pro jahr.

aufgabe 1)

schreibe ein programm das ich tabellenform angibt wie gro´die verbleibende erdölmenge im jahr 2006,2010,2015 usw ist.das programm soll so viele zeieln anzeigen,dass erkennbar ist,wann das erdöl aufgebraucht sein wird.

2)man könnte die zeit,in der wir noch erdöl haben werden verlängern indem wir z. b ab heute genau 20% unseres erdölbedarfs einsparen.gib in einer weiteren tabellenspalte an,wie viel erdöl dann in den jeweiligen 5 jahres intervallen nch übrig ist.die tabelle muss im computer evt. jetzt verlängert werden,bis auch bei der energiesparvision kein erdöl mehr vorhanden ist.

3)ergänze nun das programm so,dass der benutzer die prozentzahl der energieeinsparung (bisher 20 in aufgabe 2) in schritten von 5% mit zwei buttons erhöhen bzw. erniedrigen kann.nach jeder veränderung soll das computerprogramm die tabelle neu berechnen.

[so jetz mal mein vorschlag:]

Private Sub Command2_Click()
ZBox=ZBox-5
If ZBox < = 0 Then
ZBox=0
End If
Form_Load
End Sub

Private Sub Form_Load()
Jahr=2006
Z=0
Erdöl=15200
Erdöls=15200
Erdölz=15200
List1.Clear
List2.Clear
List3.Clear
List4.Clear
For i = 0 to 43
Jahr=(Jahr +5)
List1.AddItem Jahr
Erdöl=(Erdöl-488)
List2.AddItem Erdöl
Erdöls=(Erdöls-358.4)
List3.AddItem Erdöls
Erdölz=Erdölz - 448/100*(100+Z)
List4.AddItem Erdölz

Next i
Ends Sub

Private Sub Text1_Change()
ZBox=ZBox+5
Form_load
End Sub

Private Sub Label4_Click()

End Sub

wäre euch sehr dankbar wenn ihr mir hier bescheid geben würdet wenn ihr nen fehler findet.

thxXx smile

[/b]

gtakiller. · Gast

zeigt dir dein editor nen fehler an?

gtakiller. · Gast

aso... und machst du das übungsblatt? wenn ja, dafür können schüler oder wem du das ggf. geben willst auch excel nehmen. dir denen mal was was mehr spass macht.