XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text umwandeln in Groß- oder Kleinbuchstaben
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Diese Beispiel demonstriert, wie z.B. aus einem Edtfeld ein Text ausgelesen und
z.B. in einer Messagebox in Groß- und Kleinbuchstaben ausgegeben werden kann.
Es bedeuten:
------------
Window x1,y1 - x2,y2		 ein Fenster wird erstellt
%MaxX									 horizontale Auflösung des Bildschirmes
%MaxY									 vertikale Auflösung des Bildschirmes
%Hwnd									 Handle des Hauptfensters
Upper$(S)							 wandelt String S in Großbuchstaben um
Lower$(S)							 wandelt String S in Kleinbuchstaben um
-----------------------------------------------
declare ende%,Text$,edit%,y%,x%,Ok%			Variablen declarieren
let x%=200													Breite des Fensters
let y%=150													Höhe des Fensters
Window div(sub(%MaxX,x%),2),div(sub(%MaxY,y%),2) - x%,y%
ein Fenster wird erstellt, es steht immer in der
Bildschirmmitte (egal wie groß das Fenster ist!)
let OK%=createbutton(%Hwnd,OK,45,50,100,25)
OK - Button erstellen
let Edit%=createedit(%Hwnd,,45,10,100,22)
Eingabefeld erstellen
setfocus(Edit%)											Kursor ins Editfeld setzen
let ende%=0

whilenot ende%

    waitinput

    if equ(%key,2)										Abfrage von x (rechts o.)

        und Doppelklick auf das Programmsymbol (links o.)
        let ende%=1

    elseif getfocus(OK%)

        let Text$=gettext$(Edit%)					Text auslesen
        messagebox(upper$(Text$),Text (groß):,4160)			Text in Großbuchstaben ausgeben
        messagebox(lower$(Text$),Text (klein):,4160)		Text Kleinbuchstaben ausgeben
        let ende%=1  endif

Wend