Einsteiger-Kapitel - Entscheidungen & Bedingungen

Es gibt verschiedene Möglichkeiten zum Verarbeiten von Daten aus Benutzereingaben oder auf andere Weise erhaltenen Daten (Laden aus einer Datei, ...). Die gebräuchlichen arithmetischen Funktionen" (+, -, *, /, ...) können mit Bedingungen kombiniert werden. Sie können das Set an If : Else/ElseIf : EndIf Schlüsselwörtern oder die Select : Case/Default : EndSelect Schlüsselworte verwenden, verwenden Sie einfach die am besten für Ihre Situation geeigneten!

Dieses Beispiel zeigt die Verwendung von If : ElseIf : Else : EndIf für das Erzeugen einer Nachricht, gegebenenfalls für die Ansicht in der Statusleiste einer Eingabemaske (GUI) oder etwas ähnlichem, basierend auf der Anzahl an Elementen und gefilterten Elementen in einer, imaginären, Liste. Beachten Sie bitte, dass im Gegensatz zu einigen anderen BASIC-Sprachen, PureBasic kein "Then" Schlüsselwort verwendet und dass in den ElseIf und EndIf Schlüsselwörtern kein Leerzeichen enthalten ist. 
  Define.l Items = 10, Filter = 6
  Define.s Message
  
  If Items = 0 
    Message = "Liste ist leer."
    
  ElseIf Items = 1 And Filter = 0
    Message = "Ein Eintrag. Vom Filter nicht angezeigt."
    
  ElseIf Items > 1 And Filter = 0
    Message = StrU(Items) + " Einträge. Alle gefiltert."
    
  ElseIf Items > 1 And Filter = 1
    Message = StrU(Items) + " Einträge. Einer vom Filter angezeigt."
    
  ElseIf Items = Filter
    Message = StrU(Items) + " Einträge. Keine gefiltert."
    
  Else
    ; Keine der anderen Bedingungen traf zu.
    Message = StrU(Items) + " Einträge. " + StrU(Filter) +" angezeigt vom Filter."
    
  EndIf
  
  Debug Message

Dieses Beispiel zeigt die Verwendung von Select : Case : Default : EndSelect, um die ersten 127 ASCII-Zeichen in Gruppen zu kategorisieren. Die "For : Next" Schleife zählt bis 130, um das Default Schlüsselwort zu demonstrieren. 
  Define.c Char
  Define.s Message
  
  For Char = 0 To 130
    
    Select Char

      Case 0 To 8, 10 To 31, 127
        Message = StrU(Char) + " ist ein nicht druckbarer Kontroll-Code."
        
      Case 9
        Message = StrU(Char) + " ist ein Tab."
        
      Case 32
        Message = StrU(Char) + " ist ein Leerzeichen."
        
      Case 36, 128   
        Message = StrU(Char) + " ist ein Währungssymbol. (" + Chr(Char) + ")"
        
      Case 33 To 35, 37 To 47, 58 To 64, 91 To 96
        Message = StrU(Char) + " ist ein Satzzeichen oder mathematisches Symbol. (" + Chr(Char) + ")"
        
      Case 48 To 57
        Message = StrU(Char) + " ist eine Zahl. (" + Chr(Char) + ")"
        
      Case 65 To 90
        Message = StrU(Char) + " ist ein Großbuchstabe. (" + Chr(Char) + ")"
        
      Case 97 To 122
        Message = StrU(Char) + " ist ein Kleinbuchstabe. (" + Chr(Char) + ")"
        
      Default
        ; Wenn keine der vorangegangenen Case Bedingungen zutraf.
        Message = "Sorry, ich weiß nicht, was " + StrU(Char) + " ist!"
        
    EndSelect
    
    Debug Message
    
  Next Char

Einsteiger-Kapitel Navigation

< Vorheriges: Konstanten | Überblick | Nächstes: Schleifen >