Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Tutorial

Anfängerkurs Teil 2 - Variablen, Datentypen und Arrays

von AdministratorSebastianSeite 4 von 4

Um alle Elemente eines Arrays zu durchlaufen, können Sie eine Zählschleife verwenden. Eine Zählschleife führt festgelegte Aktionen für alle Zahlen im Bereich von m bis n durch, im folgenden Fall für alle Zahlen von 1 bis 10:

'Pseudo-Code auf deutsch (kein FreeBASIC-Code!)

TuFürAlleZahlenImBereichVon 1 bis 10
  GibAufBildschirmAus <AktuelleZahl> * 2
EndeDerSchleife

Die Ausgabe dieses Konstrukts sähe so aus:

2
4
6
8
...

Sie müssen also nicht für alle 10 Preise einzeln festlegen, dass ihr Wert mal zwei ausgegeben werden soll, sondern können dies für ganze Datenmengen automatisch erledigen lassen und müssen es nur 1x hinschreiben.

In FreeBASIC wird die obige Zählschleife wie folgt umgesetzt:

'Variable für den Index deklarieren. Sie enthält im Verlauf der Schleife
'immer den aktuellen Indexwert und wird daher "Laufindex" genannt.
Dim i As Integer

For i = 1 To 10
   Print i * 2
Next i

Sleep ' Auf Tastendruck warten
End

Alle Preise in Ihrem Array könnten Sie also z.B. so addieren:

'Fügen Sie jetzt hier Ihr Preis-Array von eben wieder ein:
DIM Preise(1 TO 10) AS SINGLE
Preise(1) = 1.99
Preise(2) = 10.32
Preise(3) ...

Dim Summe As Single
Dim i As Integer

For i = 1 To 10
   Summe = Summe + Preise(i)  ' Bisherige Summe mit dem Preis Nr. <i> addieren
                              ' und der Variablen Summe als neuen Wert zuweisen.
Next i

Print "Alle Produkte zusammen kosten: " & Summe

Sleep
End

 

Gehe zu Seite Gehe zu Seite  1  2  3  4  
Zusätzliche Informationen und Funktionen
  • Das Tutorial wurde am 09.06.2007 von AdministratorSebastian angelegt.
  • Die aktuellste Version wurde am 24.09.2010 von AdministratorSebastian gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen