Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

TUI Creator (Zeile für Zeile)

Uploader:Mitgliedraph ael
Datum/Zeit:18.03.2008 12:29:47

/'
  Also... Ihr klickt auf irgendein Zeichen in der ASCII- Tabelle. Mit der
  linken Maustaste. Dann erscheint es in der vorletzten Zeile. Dann klickt ihr
  auf noch eines usw. Die werden dann in der vorletzten Zeile hinzugefüt. Wenn
  die Zeile fertig ist, drückt ihr die rechte Maustaste. Dann erscheint der FB-
  Code zum erzeugen dieser Zeile, und er wird auch noch in die "tui.bas" geschrieben.
  Auserdem wird die gerade fertiggestellte Zeile oberhalb in rosa angezeigt. Wenn ihr
  einen Fehler gemacht habt, drückt ihr Links und Rechts gleichzeitig. Dann wird alles
  gelöscht.
'/

dim shared i as integer, die as byte = 0, f as integer

sub watch
    dim as integer x, y, ascii, b, sx, suy = 1, i
    dim as string folge
    do
        locate 22, 1
        getmouse x, y,, b
        color 15, 1
        print space(79);

        ascii = screen(y + 1, x + 1, 0)
        locate 22, 1
        print chr(ascii) + "    > " + trim(str(ascii))

        if b = 1 then
            sx = pos
            sx += 1
            if sx = 81 then sx = 1
            locate 23, sx
            folge += chr(ascii)
            locate 24, suy
            color 15, 0
            print chr(ascii);
            suy +=1
            if suy = 81 then suy = 1
        end if
        if b = 2 then
            locate 8, 1
            print "print chr(";
            for i = 1 to len(folge)
                print ", " + trim(str(asc(mid(folge, i, 1))));
            next
            print ")"

            f = freefile
            open "tui.bas" for append as #f
            print #f, "print chr(";
            for i = 1 to len(folge)
                print #f, ", " + trim(str(asc(mid(folge, i, 1))));
            next
            print #f, ")"
            close #f
            locate 21, 1
            color 13
            print folge
            folge = ""
        end if
        if b = 3 then
            color 7, 0
            sx = 0
            suy = 1
            folge = ""
            cls
            color 14, 0
            for i = 0 to 255
                print chr(i);
            next
        end if
        sleep 1
    loop until die = 1
end sub

color 14, 0
for i = 0 to 255
    print chr(i);
next

dim thWatch as any ptr
thWatch = threadcreate(cast(any ptr, @watch))

while inkey <> chr(27) : wend
die = 1
threadwait(thWatch)