XProfan

Español

p.specht

Kann sólo bastante grobe Problemas erkennen helfen. Im Zweifelsfall siempre una Augenarzt konsultieren!!! Ohne jede Gewähr, rechtliche Fragen ungeprüft!!!

Hinweise: In el Ecken cierto Farben no a sehen es normal, si la Hintergrund-Grauwert kaum Kontrast bietet. Zum Arzt debería uno jedenfalls, si uno en el Punkt en el Mitte schaut, y dieser (z.B. en una cierta Grundfarbe como Blau) plötzlich weg es (Nasse Makula-Degeneration ha cada 4. encima 50, bien behandelbar con Laser y Vitaminspritzen), oder etwa si a Mitte herum todo Bereiche (no sólo einzelne Punkte y no sog. Blinde Fleck) beeinträchtigt son.

Vorteil meiner Spielerei gegenüber Arztbesuch (hay muss lo meistens husch husch ir): Se puede se largo largo Tiempo nehmen y z.B. rote, grüne y blaue Punkte antes jeweils más Grauschattierungen o Schwarz y Weiss ausprobieren.

Kompilieren Marca Separación

' Gesichtsfeld-Test - una Demo de una Hobby-Programmierer sin medizinische Kenntnisse!! Ohne jede Gewähr!
Título de la ventana "ETWA 25 CM VOR DEM SCHIRM (GGF. MIT LESEBRILLE ) EIN AUGE ZUHALTEN. BLICKEN SIE BITTE I M M E R NUR AUF DEN PUNKT IN DER MITTE! " +\
" BETÄTIGEN SIE DIE LANGE TASTE, WENN SIE DEN ZUSÄTZLICHEN PUNKT SEHEN (AUSWERTUNG MIT ESC-TASTE!)"
Windowstyle 1048
randomize:declarar x&,y&,x&[1000],y&[1000],e&[1000],n&,i&,tm&,tc&,bg&
window 0,0 - %maxx,%maxy:Font 2
var xm&=width(%hwnd)\2:var ym&=height(%hwnd)\2:var tr&=1200
bg&=rgb(180,180,180)
cls bg&
usepen 0,1,rgb(255,255,255)
usebrush 1,rgb(255,255,255)
Ellipse xm&+4,(ym&+4) - (xm&-4),(ym&-4)
sound 2000,10
locate 30,40:imprimir "  BITTE MAUSZEIGER AUS DEM WEG RÄUMEN!      WENN BEREIT, AUF DEN PUNKT SCHAUEN UND TASTE DRÜCKEN! "
waitinput
again:
sound 2000,10
n&=0
cls bg&
SetWindowPos %Hwnd=0,0 - %maxx,%maxy;0
usepen 0,1,rgb(255,255,255)
usebrush 1,rgb(255,255,255)
Ellipse xm&+4,(ym&+4) - (xm&-4),(ym&-4)
otra vez:

repeat

    x&=rnd(xm&*2)-xm&:x&[n&]=x&
    y&=rnd(ym&*2)-ym&:y&[n&]=y&
    usepen 0,1,rgb(0,0,255)
    usebrush 1,rgb(0,0,255)
    ellipse xm&+x&+3,(ym&-y&+3) - (xm&+x&-3),(ym&-3-y&)
    tm&=1000+rnd(3000)
    tc&=&gettickcount
    waitinput tm&
    caso %key=27:romper

    if (&gettickcount-tc&)<tr&:e&[n&]=1:endif

        usepen 0,1,bg&
        usebrush 1,bg&
        ellipse xm&+x&+3,(ym&-y&+3) - (xm&+x&-3),(ym&-3-y&)
        waitinput rnd(700)+1
        n&=n&+1

    until %key=27

    sound 2000,50
    Cls
    usepen 0,1,rgb(255,0,0):usebrush 1,rgb(255,0,0):Ellipse xm&+4,(ym&+4) - (xm&-4),(ym&-4)
    locate 10,10:imprimir " AUSWERTUNG: Graue Punkte fueron erkannt, FARBIGE Punkte fueron NICHT erkannt! "

    whileloop n&:i&=&Loop

        if e&[i&]=0:

            usepen 0,1,rgb(0,0,255)
            usebrush 1,rgb(0,0,255)
            ellipse xm&+x&[i&]+3,(ym&-y&[i&]+3) - (xm&+x&[i&]-3),(ym&-3-y&[i&])

        más

            usepen 0,1,rgb(200,200,200)
            usebrush 1,rgb(200,200,200)
            ellipse xm&+x&[i&]+2,(ym&-y&[i&]+2) - (xm&+x&[i&]-2),(ym&-2-y&[i&])

        endif

    endwhile

    waitinput
    locate 30,40:Imprimir " WIEDERHOLUNG ! "
    waitinput
    Goto "again"