![]() |
Anzeige:
|
|
|||||||
| Visual Basic, Visual Basic.NET Alles zum Thema - Visual Basic und Visual Basic.NET
Fragen zu VBA bitte in das Forum Office-Anwendungen posten! |
|
![]() |
|
|
LinkBack | Themen-Optionen | Ansicht |
|
|
#1 (Direktlink) |
|
Erfolgreich angemeldet
![]() Registriert seit: 11.01.2005
Beiträge: 2
|
hallo hier
ich hoffe mir kann einer helfen ich weis aber sorry die zeit ist etwas knapp habe die aufgabe aber eben erst bekommen ich bräuchte bis morgen spätnachmittag eine lösung zu folgenden programm hier der quelltext Ergänzen Sie ein VB-programm, bei dem die Tagestemparaturen in °C eines beliebigen vom Anwender immer wieder neu auswählbaren Kalendermonats analysiert werden können. Es soll eine allgemeine, generelle Prozedur geschrieben werden, die unabhängig davon, welcher Kalendermonat ausgewählt worden ist, den höchsten und den niedrigsten Tagestemparaturwert sowie den Mittelwert der Tagestemparaturwerte bestimmt und ausgibt. Die Eingaben der Tagestemparaturwerte sollen mit Hilfe einer InputBox-Funktion aus dieser Prozedur heraus eingeleitet werden. Die Anzahl der Tagestemparatureingaben eines Monats stimmt mit derAnzahl der Tage des ausgewählten Monats überein. Diese Anzahl wird in der Ereignisprozedur bestimmt, die die Startprozedur des Programms darstellt. Sollte sich der Anwender für die Eingabe der monatlichen Tagestemparaturen des Monats Februar entscheiden, wird vom Anwender mittels INputBox mitgeteilt, ob es sich beim betrachteten Jahr um ein Schaltjahr handelt. In Schaltjahren hat der Kalendermonat Februar 29 Tage. Lassen Sie für die Eingabe der Tagestemparaturwerte auch Kommazahlen zu. Im gesammten Programm sollen nur LOKALE VARIABLEN verwendet werden. Hinweis: Der Rückgabewert einer InputBox-Funktion muss vom Datentyp "Variant" oder "String" sein ich hoffe das einer so net ist und mir weiterhelfen kann mfg daniel-son |
|
|
|
|
|
|
#2 (Direktlink) |
|
Steppenläufer
![]() Registriert seit: 13.12.2003
Ort: Vivo em Hamburgo
Alter: 29
Beiträge: 19.913
|
Das Thema wurde ins vermutete passendere Unterforum verschoben. Falls nicht passt, weiterschieben
__________________
a asneira do homem é intocável |
|
|
|
|
|
#3 (Direktlink) |
|
Stammuser
![]() Registriert seit: 08.01.2004
Beiträge: 471
|
Weiterhelfen ja, eine Komplettlösung gibts aber nicht. Das bringt auch dir nicht viel.
Also, womit kommst du nicht klar? Wie sieht dein Ansatz für das Problem aus ...? |
|
|
|
|
|
#4 (Direktlink) |
|
Erfolgreich angemeldet
![]() Registriert seit: 11.01.2005
Beiträge: 2
|
das mit den inputboxen raff ich net so ganz
wenn du mir da weiterhelfen könntest wäre echt super |
|
|
|
|
|
#5 (Direktlink) | |
|
Stammuser
![]() Registriert seit: 08.01.2004
Beiträge: 471
|
Zitat:
Code:
For Tag = 1 To anzTage
neuTemp = InputBox("Bitte geben Sie den Temperaturwert des " & Tag & ". Tages ein!", "Eingabe der Temperaturwerte")
' Ist der aktuelle Temperaturwert größer als der bislang höchste?
' Falls ja, den alten Wert von maxTemp mit dem neuen überschreiben
If neuTemp > maxTemp Then maxTemp = neuTemp
' So ähnlich kann man auch den kleinsten Wert ermitteln.
' Allerdings muss man vorher minTemp zumindest auf den aktuellen
' Wert von neuTemp setzen, da minTemp beim ersten Durchlauf noch 0 ist,
' da der kleinste Wert ja aber über 0 liegen könnte!
If minTemp = 0 Then minTemp = neuTemp
' Ist der aktuelle Temperaturwert kleiner als der bislang niedrigste?
If neuTemp < minTemp Then minTemp = neuTemp
' ...
Next Tag
|
|
|
|
|
|
![]() |
|
| Lesezeichen |
| Themen-Optionen | |
| Ansicht | |
|
|