| |
VB.NET - Ein- und UmsteigerKeine vernünftige Ausgabe bei mehrdimensionalen Arrays | | | Autor: Neueinsteiger | Datum: 13.09.08 13:38 |
| Hallo
ICh will ein Programm schreiben, das mir zu drei verschieden städten die durchschnittlichen Temperaturen in den 12 Monaten ausgibt. Hier sool aber nur am Anfang die Monatsangabe stehen, die steht bei mir jedoch vor allen Städten.
Kann mir jemand sagen wie ich es schreiben muss das die Angabe nur noch am Anfang steht.
Hier mein Code:
Imports System.Console
Module abc
Sub Main()
Dim orte() As String = {"Berlin", "Hamburg", "München"}
Dim temperaturen(,) As Integer = {{2, 3, -1}, {3, 6, 4}, {6, 8, 10} _
, {10, 12, 13}, {14, 15, 15}, {19, 18, 19} _
, {18, 16, 20}, {23, 24, 25}, {25, 22, 22} _
, {15, 14, 15}, {10, 11, 13}, {9, 8, 7}}
Dim iOrt As Byte
Dim iMonat As Byte
WriteLine("Monat {0,10}{1,10}{2,10}", orte(0), orte(1), orte(2))
For iMonat = 0 To temperaturen.GetUpperBound(0)
For iOrt = 0 To orte.GetUpperBound(0)
Write("{0,5} {1,10}", iMonat + 1, temperaturen(iMonat, iOrt))
Next
WriteLine()
Next
ReadLine()
End Sub
End Module
LG | |
Re: Keine vernünftige Ausgabe bei mehrdimensionalen Arrays | | | Autor: engelmarkus | Datum: 13.09.08 14:30 |
| So gehts, du hattest einfach einen Denkfehler drin:
Module Module1
Sub Main()
Dim orte() As String = {"Berlin", "Hamburg", "München"}
Dim temperaturen(,) As Integer = {{2, 3, -1}, {3, 6, 4}, {6, 8, 10}, _
{10, 12, 13}, {14, 15, 15}, {19, 18, 19}, {18, 16, 20}, {23, 24, 25}, _
{25, 22, 22}, {15, 14, 15}, {10, 11, 13}, {9, 8, 7}}
Dim iort As Byte
Dim imonat As Byte
Console.WriteLine("Monat {0,10}{1,10}{2,10}", orte(0), orte(1), orte(2))
For imonat = 0 To temperaturen.GetUpperBound(0)
Console.Write("{0,5}", imonat + 1)
For iort = 0 To orte.GetUpperBound(0)
Console.Write("{0,10}", temperaturen(imonat, iort))
Next
Console.WriteLine()
Next
Console.ReadKey()
End Sub
End Module | |
Re: Keine vernünftige Ausgabe bei mehrdimensionalen Arrays | | | Autor: Neueinsteiger | Datum: 13.09.08 14:39 |
| Super jetzt geht es war wohl wirklich nur ein Denkfehler
Vielen Dank | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere Infos
|