fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

test_yetlib.bas

Uploader:	Volta
Datum/Zeit:	25.05.2009 16:30:12

'mit fbc -s console "test_yetlib.bas" "Starten"



'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü= , ß=á ,§=õ , ©=¸

#include once "yetlib.bi"



Const Esc=!"\27"

Dim As String y="Hallo Welt"

PrintAt(y, 2, 7)

Print y

PrintAt("Normal",, 1)

Print Deg2Rad(45.0)

Print Rad2Deg(Deg2Rad(45.0))

PrintAt("Men:", 14, 10, 40)

Print MenuChar("Norden")

Print MenuChar("Sden")

Print MenuChar("Osten")

Print MenuChar("Westen")

Print MenuChar("Wohin m”chtest du gehen(Standard:Osten)", 34);

Do

  y=GetKeyPress("", "NSOW" &Esc)

Loop Until InStr("NSOW" &Esc, y)

Print y

Print "Eniki..";

Sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.