PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

PB auf Deutsch

https://www.purebasic.fr/german/viewtopic.php?t=27914

Seite 1 von 3

PB auf Deutsch

Verfasst: 10.04.2014 07:26
von Danilo

Code: Alles auswählen

;=====================================================================================
;=[ Deutsch.pbi ]=====================================================================
;=====================================================================================
Macro dann(statement)
        : statement : EndIf
EndMacro

Macro Wenn                        : If        : EndMacro
Macro Falls                       : If        : EndMacro
Macro AndernfallsWenn             : ElseIf    : EndMacro
Macro OderWenn                    : ElseIf    : EndMacro
Macro Andernfalls                 : Else      : EndMacro
Macro Ansonsten                   : Else      : EndMacro
Macro Sonst                       : Else      : EndMacro
Macro EndeWenn                    : EndIf     : EndMacro
Macro WennEnde                    : EndIf     : EndMacro
Macro EndeFalls                   : EndIf     : EndMacro
Macro FallsEnde                   : EndIf     : EndMacro

Macro Wiederhole                  : Repeat    : EndMacro
Macro FuerImmer                   : ForEver   : EndMacro
Macro BevorNicht                  : Until     : EndMacro
Macro SolangeNicht                : Until     : EndMacro
Macro SolangeBis                  : Until     : EndMacro

Macro Waehrend                    : While     : EndMacro
Macro WaehrendEnde                : Wend      : EndMacro
Macro EndeWaehrend                : Wend      : EndMacro
Macro Solange                     : While     : EndMacro
Macro SolangeEnde                 : Wend      : EndMacro
Macro EndeSolange                 : Wend      : EndMacro

Macro von                         : =         : EndMacro
Macro Zaehle                      : For       : EndMacro
Macro Fuer                        : For       : EndMacro
Macro Zu                          : To        : EndMacro
Macro Bis                         : To        : EndMacro
Macro Naechstes                   : Next      : EndMacro
Macro Naechste                    : Next      : EndMacro
Macro Naechster                   : Next      : EndMacro
Macro Schrittweite                : Step      : EndMacro
Macro Schritt                     : Step      : EndMacro
Macro FuerAlle                    : ForEach   : EndMacro
Macro FuerJedes                   : ForEach   : EndMacro
Macro FuerJede                    : ForEach   : EndMacro
Macro FuerJeden                   : ForEach   : EndMacro
Macro MitAllen                    : ForEach   : EndMacro
Macro MitJedem                    : ForEach   : EndMacro
Macro MitJeder                    : ForEach   : EndMacro

Macro Und                         : And       : EndMacro
Macro Sowie                       : And       : EndMacro
Macro Oder                        : Or        : EndMacro
Macro XOder                       : XOr       : EndMacro
Macro ExklusivOder                : XOr       : EndMacro
Macro Nicht                       : Not       : EndMacro

Macro Waehle                      : Select    : EndMacro
Macro Auswahl                     : Select    : EndMacro
Macro Schalter                    : Select    : EndMacro
Macro ImFalle                     : Case      : EndMacro
Macro AuswahlEnde                 : EndSelect : EndMacro
Macro EndeAuswahl                 : EndSelect : EndMacro
Macro WahlEnde                    : EndSelect : EndMacro
Macro EndeWahl                    : EndSelect : EndMacro
Macro SchalterEnde                : EndSelect : EndMacro
Macro EndeSchalter                : EndSelect : EndMacro
Macro Standard                    : Default   : EndMacro
Macro Fehlwert                    : Default   : EndMacro

Macro SpringeZu                   : Goto      : EndMacro
Macro SpringeZuSubroutine         : Gosub     : EndMacro
Macro SubroutinenSprung           : Gosub     : EndMacro
Macro SubroutinenAufruf           : Gosub     : EndMacro
Macro Zurueckkehren               : Return    : EndMacro
Macro Zurueckspringen             : Return    : EndMacro
Macro Ende                        : End       : EndMacro
Macro Tausche                     : Swap      : EndMacro

Macro Abbruch                     : Break     : EndMacro
Macro Abbrechen                   : Break     : EndMacro
Macro Fortfahren                  : Continue  : EndMacro
Macro Weitermachen                : Continue  : EndMacro
Macro Weiter                      : Continue  : EndMacro

Macro Deklariere                  : Declare   : EndMacro
Macro Definiere                   : Define    : EndMacro
Macro Def                         : Define    : EndMacro

Macro Dimensioniere               : Dim       : EndMacro
Macro DimensioniereNeu            : ReDim     : EndMacro
Macro NeuDimensionieren           : ReDim     : EndMacro
;Macro GroesseAendern              : ReDim     : EndMacro
;Macro GroesseAnpassen             : ReDim     : EndMacro
Macro Felder                      : Array     : EndMacro
Macro FelderGroesse               : ArraySize : EndMacro
Macro KopiereFelder               : CopyArray : EndMacro
Macro FelderFreigeben             : FreeArray : EndMacro
Macro SortiereFelder              : SortArray : EndMacro
Macro SortiereStrukturierteFelder : SortStructuredArray : EndMacro
Macro RandomisiereFelder          : RandomizeArray      : EndMacro

#PB_Sortierung_Aufsteigend = #PB_Sort_Ascending
#PB_Sortierung_Absteigend  = #PB_Sort_Descending
#PB_Sortierung_IgnoriereGrossKleinSchreibung = #PB_Sort_NoCase

Macro NeueListe                   : NewList   : EndMacro
Macro Liste                       : List      : EndMacro
Macro ElementHinzufuegen          : AddElement: EndMacro
Macro FuegeElementHinzu           : AddElement: EndMacro

Macro Gleich             : =  : EndMacro
Macro Kleiner            : <  : EndMacro
Macro KleinerAls         : <  : EndMacro
Macro Groesser           : >  : EndMacro
Macro GroesserAls        : >  : EndMacro
Macro Ungleich           : <> : EndMacro
Macro AndersAls          : <> : EndMacro
Macro Anders             : <> : EndMacro
Macro KleinerGleich      : <= : EndMacro
Macro GleichKleiner      : =< : EndMacro
Macro GroesserGleich     : >= : EndMacro
Macro GleichGroesser     : => : EndMacro
Macro KleinerOderGleich  : <= : EndMacro
Macro GleichOderKleiner  : =< : EndMacro
Macro GroesserOderGleich : >= : EndMacro
Macro GleichOderGroesser : => : EndMacro

;
; Konsole
;
Macro Eingabe()                     : Input()              : EndMacro
Macro Ausgabe(zeichenkette)         : Print(zeichenkette)  : EndMacro
Macro Schreibe(zeichenkette)        : Print(zeichenkette)  : EndMacro
Macro SchreibeZeile(zeichenkette)   : PrintN(zeichenkette) : EndMacro
Macro OeffneKonsole()               : OpenConsole()        : EndMacro
Macro NeueKonsole()                 : OpenConsole()        : EndMacro
Macro SchliesseKonsole()            : CloseConsole()       : EndMacro

;
; Typenumwandlung
;
Macro Wert(zeichenkette) : Val(zeichenkette) : EndMacro
Macro Text(Wert)         : Str(Wert)         : EndMacro

;
; Strukturen
;
Macro Erweitert       : Extends       : EndMacro
Macro Erbt            : Extends       : EndMacro
Macro Struktur        : Structure     : EndMacro
Macro EndeStruktur    : EndStructure  : EndMacro
Macro StrukturEnde    : EndStructure  : EndMacro
Macro StrukturGroesse : SizeOf        : EndMacro
Macro GroesseVon      : SizeOf        : EndMacro

#Wahr   = #True
#Falsch = #False

Macro Debugge : Debug : EndMacro

;=====================================================================================


;XIncludeFile "Deutsch.pbi"

Definiere.i a,b
Definiere   c.i

Wenn a gleich 0 dann( a gleich 1 )

Wenn a gleich 1
    Debugge "a=1"
AndernfallsWenn a gleich 2
    Debugge "a=2"
Andernfalls
    Debugge "a<>1"
EndeWenn

Wenn a gleich 1 Und b gleich 2 Oder b gleich 3 dann( c gleich 4 )

Wiederhole
    a + 1
    Debugge a
SolangeBis a Gleich 10


Fuer a = 0 bis 10 Schrittweite 2
    Debugge a
Naechstes a

Zaehle a von 0 bis 10 Schrittweite 2
    Debugge a
Naechstes


Waehrend a Groesser 0
    a - 1
    Debugge a
WaehrendEnde
    
Auswahl GetActiveGadget()
    ImFalle 1 : ; Mach etwas
    ImFalle 2 : ; Mach etwas anderes
    Standard
        Debugge "Standard Auswahl"
AuswahlEnde

Tausche a,b

Dimensioniere xy.i(10,10)

NeuDimensionieren xy.i(10,20)


Debugge FelderGroesse( xy() )
FelderFreigeben( xy() )
Debugge FelderGroesse( xy() )

Dimensioniere f1.i(10)

SortiereFelder( f1(), #PB_Sortierung_Aufsteigend )


SubroutinenAufruf MeineSubroutine

Falls a Kleiner 12
    Debugge "a kleiner 12"
Ansonsten
    Debugge "a nicht kleiner 12"
EndeFalls

Wenn a AndersAls 0
    Debugge "a ist anders als 0"
Andernfalls
    Debugge "a ist 0"
WennEnde


NeueListe Adresse.s()

FuegeElementHinzu( Adresse() ) : Adresse() = "Adresse 1"
FuegeElementHinzu( Adresse() ) : Adresse() = "Adresse 2"

MitJeder Adresse()
    Debugge Adresse()
Naechste Adresse()


Wenn NeueKonsole()

    Schreibe("Bitte gib dein Alter ein! ")
    
    Alter = Wert( Eingabe() )
    
    SchreibeZeile("")
    
    Wenn Alter groesser 18
        Schreibe("Du bist volljährig.")
    OderWenn Alter gleich 18
        Schreibe("Du bist gerade volljährig geworden.")
    Sonst
        Schreibe("Du bist in "+Text(18-Alter)+" Jahr(en) volljährig.")
    EndeWenn
    
    Eingabe()

    SchliesseKonsole()

EndeWenn



Struktur Position2D
    x.i
    y.i
StrukturEnde
    
Struktur Kreis Erbt Position2D
    radius.i
    groesse.i
StrukturEnde

Debugge GroesseVon(Kreis)

Definiere MeinKreis.Kreis


Ende


MeineSubroutine:
    Debugge "In meiner Subroutine"
    Zurueckspringen
    Zurueckkehren

Re: PB auf Deutsch

Verfasst: 10.04.2014 08:29
von Kiffi
:allright:

Re: PB auf Deutsch

Verfasst: 10.04.2014 08:59
von RSBasic
:mrgreen: :allright:

Re: PB auf Deutsch

Verfasst: 10.04.2014 12:55
von Rings
:bounce:

Re: PB auf Deutsch

Verfasst: 10.04.2014 14:19
von bobobo
gibt's das auch in schwäbisch ? :mrgreen: :mrgreen:

Re: PB auf Deutsch

Verfasst: 10.04.2014 20:12
von Danilo
Hinzugefügt:

Code: Alles auswählen

Macro OderWenn                    : ElseIf    : EndMacro

;
; Konsole
;
Macro Eingabe()                     : Input()              : EndMacro
Macro Ausgabe(zeichenkette)         : Print(zeichenkette)  : EndMacro
Macro Schreibe(zeichenkette)        : Print(zeichenkette)  : EndMacro
Macro SchreibeZeile(zeichenkette)   : PrintN(zeichenkette) : EndMacro
Macro OeffneKonsole()               : OpenConsole()        : EndMacro
Macro NeueKonsole()                 : OpenConsole()        : EndMacro
Macro SchliesseKonsole()            : CloseConsole()       : EndMacro

;
; Typenumwandlung
;
Macro Wert(zeichenkette) : Val(zeichenkette) : EndMacro
Macro Text(Wert)         : Str(Wert)         : EndMacro

;
; Strukturen
;
Macro Erweitert       : Extends       : EndMacro
Macro Erbt            : Extends       : EndMacro
Macro Struktur        : Structure     : EndMacro
Macro EndeStruktur    : EndStructure  : EndMacro
Macro StrukturEnde    : EndStructure  : EndMacro
Macro StrukturGroesse : SizeOf        : EndMacro
Macro GroesseVon      : SizeOf        : EndMacro

#Wahr   = #True
#Falsch = #False
Beispiel:

Code: Alles auswählen

Wenn NeueKonsole()

    Schreibe("Bitte gib dein Alter ein! ")
    
    Alter = Wert( Eingabe() )
    
    SchreibeZeile("")
    
    Wenn Alter groesser 18
        Schreibe("Du bist volljährig.")
    OderWenn Alter gleich 18
        Schreibe("Du bist gerade volljährig geworden.")
    Sonst
        Schreibe("Du bist in "+Text(18-Alter)+" Jahr(en) volljährig.")
    EndeWenn
    
    Eingabe()

    SchliesseKonsole()

EndeWenn
Beispiel:

Code: Alles auswählen

Struktur Position2D
    x.i
    y.i
StrukturEnde
    
Struktur Kreis Erweitert Position2D
    radius.i
    groesse.i
StrukturEnde

Debugge GroesseVon(Kreis)

Re: PB auf Deutsch

Verfasst: 10.04.2014 20:52
von Bisonte
Das ist ja wie Ostern und Weihnachten zusammen :mrgreen:

Re: PB auf Deutsch

Verfasst: 11.04.2014 14:21
von mk-soft
:mrgreen: Hoffe das es nicht zum Standard wird, wenn man PB auf Deutsch einstellt... Wie bei Excel!

Re: PB auf Deutsch

Verfasst: 12.04.2014 18:18
von TroaX
Finde ich garnicht so dumm. So etwas wäre was für Kinder oder Leute, die mit Programmierung nie etwas zu tun haben aber vom Verständnis her wissen wollen, wie es geht. :lol: :bounce:

Re: PB auf Deutsch

Verfasst: 14.04.2014 22:52
von funkheld
Hmm.., die Consoleneingabe funktioniert mit den Zahlenspiel nicht so richtig.

GRuss
Alle Zeiten sind UTC+02:00
Seite 1 von 3

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de