PB auf Deutsch

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Antworten
Benutzeravatar
Danilo
-= Anfänger =-
Beiträge: 2284
Registriert: 29.08.2004 03:07

PB auf Deutsch

Beitrag 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
Zuletzt geändert von Danilo am 15.04.2014 06:37, insgesamt 2-mal geändert.
cya,
...Danilo
"Ein Genie besteht zu 10% aus Inspiration und zu 90% aus Transpiration" - Max Planck
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: PB auf Deutsch

Beitrag von Kiffi »

:allright:
Nach oben
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von RSBasic

Re: PB auf Deutsch

Beitrag von RSBasic »

:mrgreen: :allright:
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Nach oben
Benutzeravatar
Rings
Beiträge: 971
Registriert: 29.08.2004 08:48

Re: PB auf Deutsch

Beitrag von Rings »

:bounce:
Rings hat geschrieben:ziert sich nich beim zitieren
Nach oben
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3857
Registriert: 13.09.2004 17:48
Kontaktdaten:
Kontaktdaten von bobobo

Re: PB auf Deutsch

Beitrag von bobobo »

gibt's das auch in schwäbisch ? :mrgreen: :mrgreen:
‮pb aktuell5.7 - windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Nach oben
Benutzeravatar
Danilo
-= Anfänger =-
Beiträge: 2284
Registriert: 29.08.2004 03:07

Re: PB auf Deutsch

Beitrag 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)
Zuletzt geändert von Danilo am 15.04.2014 06:38, insgesamt 1-mal geändert.
cya,
...Danilo
"Ein Genie besteht zu 10% aus Inspiration und zu 90% aus Transpiration" - Max Planck
Nach oben
Benutzeravatar
Bisonte
Beiträge: 2430
Registriert: 01.04.2007 20:18

Re: PB auf Deutsch

Beitrag von Bisonte »

Das ist ja wie Ostern und Weihnachten zusammen :mrgreen:
PureBasic 6.10 LTS (Windows x86/x64) | Windows10 Pro x64 | Asus TUF X570 Gaming Plus | R9 5900X | 64GB RAM | GeForce RTX 3080 TI iChill X4 | HAF XF Evo | build by vannicom​​
Nach oben
Benutzeravatar
mk-soft
Beiträge: 3701
Registriert: 24.11.2004 13:12
Wohnort: Germany

Re: PB auf Deutsch

Beitrag von mk-soft »

:mrgreen: Hoffe das es nicht zum Standard wird, wenn man PB auf Deutsch einstellt... Wie bei Excel!
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Nach oben
Benutzeravatar
TroaX
Beiträge: 662
Registriert: 08.03.2013 14:27
Computerausstattung: PC: Ryzen 9 3950X, 96 GB RAM, RX6800XT, 2.5 TB SSD, 21:9 Display, Pop_OS! | Lappi: Ryzen 7 5800H, 16 GB RAM, 1 TB SSD, Pop_OS!
Wohnort: NRW
Kontaktdaten:
Kontaktdaten von TroaX

Re: PB auf Deutsch

Beitrag 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:
PC: Ryzen 9 3950X | 96 GB RAM | RX6800XT | 2,5 TB NVMe | Pop_OS!
Notebook: 16" 3:2 | Ryzen 7 5800H | 16 GB RAM | Radeon Vega | 1TB NVMe | Pop_OS!
NAS: Fritz.Box :lol:
Coding: Purebasic 6.04 | PHP | HTML | CSS | Javascript
Nach oben
funkheld
Beiträge: 636
Registriert: 31.12.2009 11:58

Re: PB auf Deutsch

Beitrag von funkheld »

Hmm.., die Consoleneingabe funktioniert mit den Zahlenspiel nicht so richtig.

GRuss
Nach oben
Antworten

Zurück zu „Code, Tipps und Tricks“