PureBoard

Code: Alles auswählen

Procedure  p_KB(Dirty.a, Laenge.u, Breite.u, Dicke.u)

  Protected.s  L, B, Mitteilung, Titel, ProgrammName, EX_Zelle
  Protected.a  Kante1=1, Kante2=1, Kante3=0, Kante4=0, Winkel=4, Kappen=4, Euros=12, Senkkopf=0, TAB=0, Baender=0, Grundplatten=0, Flach=0, Zapfen=0

  Select Laenge                                                                ;Uberprüfen der Eingabe und zuweisen der Werte
    Case 0 To 300
      L                 = "2"
      ProgrammName      = "E_3010KB"
    Case 301 To 400
      L                 = "3"
      ProgrammName      = "E_3010KB"
    Case 401 To 450
      L                 = "4"
      ProgrammName      = "E_3010KB"
    Case 451 To 500
      L                 = "5"
      ProgrammName      = "E_3010KB"
    Case 501 To 600
      L                 = "6"
      ProgrammName      = "E_3020KB"
    Case 601 To 700
      L                 = "7"
      ProgrammName      = "E_3020KB"
    Case 701 To 800
      L                 = "8"
      ProgrammName      = "E_3020KB"
    Case 801 To 900
      L                 = "9"
      ProgrammName      = "E_3020KB"
    Case 901 To 1000
      L                 = "10"
      ProgrammName      = "E_3020KB"
    Default
      Mitteilung = "Kostruktionsboden mit dieser Länge sind nicht vorgesehen"   ;Fehlerbearbeitung
      Titel      = "Meldung..."
      Mitteilung(Titel, Mitteilung)                                         ;Unterprogramm zur Meldungsausgabe
  EndSelect


  Select Breite
    Case 0 To 100
      B = "B"
    Case 101 To 200
      B = "C"
    Case 201 To 300
      B = "D"
    Case 301 To 350
      B = "E"
    Case 351 To 400
      B = "F"
    Case 401 To 500
      B = "G"
    Case 501 To 550
      B = "H"
    Case 551 To 600
      B = "I"
    Default
      Mitteilung = "Kostruktionsboden mit dieser Breite sind nicht vorgesehen"   ;Fehlerbearbeitung
      Titel      = "Meldung..."
      Mitteilung(Titel, Mitteilung)                                         ;Unterprogramm zur Meldungsausgabe
  EndSelect
  
  EX_Zelle = L + B

  If Dirty = 0
    p_Entfernen(Winkel, Kappen, Euros, Senkkopf, TAB, Baender, Grundplatten, Flach, Zapfen)
  Else
    p_Hinzufuegen(ProgrammName, EX_Zelle, Kante1, Kante2, Kante3, Kante4, Winkel, Kappen, Euros, Senkkopf, TAB, Baender, Grundplatten, Flach, Zapfen, Laenge, Breite, Dicke)
  EndIf
EndProcedure

Code: Alles auswählen

ProcedureReturn YourErrorValue

Code: Alles auswählen

;Sorgt dafür, dass alle Variablen, die du verwendest, vorher definieren musst
EnableExplicit

Procedure DeineFunktion(DeinParameter.s)
  ;Hier wird dein Parameter, welcher übergeben wurde, ausgegeben
  Debug DeinParameter
  
  ;Hier wird irgendwas verarbeitet
  ;und mal angenommen, hier entsteht ein Fehler,
  ;dann soll er die eigene Funktion vorzeitig abbrechen und #False (Wert=0) zurückgeben
  ProcedureReturn #False
  
  ;Wenn deine Funktion problemlos ohne Fehler durchgeführt wurde, dann soll er #True (Wert=1) zurückgeben.
  ;ProcedureReturn #True
  
  ;Info: Wenn du in dieser Prozedur irgendwas machst, dann soll er danach entweder #True (kein Fehler) ausgeben oder #False (Fehler) zurückgeben, damit du außerhalb deiner Funktion prüfen kannst, ob es erfolgreich war oder nicht.

EndProcedure

;Deine Funktion wird aufgerufen und es wird zusätzlich ermittelt, was deine Funktion zurückgibt, ob True (erfolgreich) oder False (Fehler)
If DeineFunktion("Hallo")
  Debug "Deine Funktion wurde erfolgreich durchgeführt."
Else
  Debug "Ein Fehler ist aufgetreten."
EndIf