XProfan

Declare button_ende%, button_löschen%,Rahmen%[10], text%[10],RadionButton%[50], Ende%, Knopf%, time%, i% ,  button_weiter1%, Richtige_antworten% , f% , Richtige% ,  button_geschichte% , button_erde%
Declare button_auswerten1% , button_auswerten2% , button_auswerten3%
Declare komma_zahlen!, preise!
Declare text$
'x = richtig

Proc hauptprogramm_skin

    Knopf% = @MessageBox ("Willst Du das Quiz starten?", "",292)

    if knopf% = 6

    else

        end

    endif

    window 0,0 - %maxx,%maxy
    UseBrush 5,@RGB(30,30 ,255)
    UsePen 2,50,@RGB(0,0,0)
    Rectangle 0,0 - %maxx-20, %maxy-100
    Fill 0, 1000, @RGB(0,0,31)
    button_ende% = @Create("Button",%HWnd,"E N D E", %maxx -180,%maxy - 180,145,50)
    button_löschen% = @Create("Button",%HWnd,"Löschen", %maxx -330,%maxy - 180, 150,50)
    button_weiter1% = @Create("Button",%HWnd,"Allgemein", 50,%maxy - 180, 150,50)
    button_geschichte% = @Create("Button",%HWnd,"Geschichte", 200,%maxy - 180, 150,50)
    button_erde% = @Create("Button",%HWnd,"Erdkunde", 350,%maxy - 180, 150,50)
    button_auswerten1% = @Create("Button",%HWnd,"Auswerten", 90,%maxy - 130, 80,20)
    button_auswerten2% = @Create("Button",%HWnd,"Auswerten", 230,%maxy - 130, 80,20)
    button_auswerten3% = @Create("Button",%HWnd,"Auswerten", 380,%maxy - 130, 80,20)
    Rahmen%[1] = @Create("GroupBox",%HWnd,"",20,10,800,250)
    Rahmen%[2] = @Create("GroupBox",%HWnd,"",20,300,800,250)
    Rahmen%[3] = @Create("GroupBox",%HWnd,"",20,600,800,250)
    Rahmen%[4] = @Create("GroupBox",%HWnd,"",900,10,800,250)
    Rahmen%[5] = @Create("GroupBox",%HWnd,"",900,300,800,250)
    Rahmen%[6] = @Create("GroupBox",%HWnd,"",900,600,800,250)
    RadionButton%[1] = @Create("RadioButton",Rahmen%[1],"",10,75,500,18)
    RadionButton%[2] = @Create("RadioButton",Rahmen%[1],"",10,110,500,18)
    RadionButton%[3] = @Create("RadioButton",Rahmen%[1],"",10,145,500,18)'x
    RadionButton%[4] = @Create("RadioButton",Rahmen%[2],"",10,50,500,18)
    RadionButton%[5] = @Create("RadioButton",Rahmen%[2],"",10,90,500,18)
    RadionButton%[6] = @Create("RadioButton",Rahmen%[2],"",10,130,500,18)'x
    RadionButton%[7] = @Create("RadioButton",Rahmen%[3],"",10,50,500,18)
    RadionButton%[8] = @Create("RadioButton",Rahmen%[3],"",10,90,500,18)'x
    RadionButton%[9] = @Create("RadioButton",Rahmen%[3],"",10,130,500,18)
    RadionButton%[10] = @Create("RadioButton",Rahmen%[4],"",10,50,500,18)'x
    RadionButton%[11] = @Create("RadioButton",Rahmen%[4],"",10,90,500,18)
    RadionButton%[12] = @Create("RadioButton",Rahmen%[4],"",10,130,500,18)
    RadionButton%[13] = @Create("RadioButton",Rahmen%[5],"",10,50,500,18)
    RadionButton%[14] = @Create("RadioButton",Rahmen%[5],"",10,90,500,18)
    RadionButton%[15] = @Create("RadioButton",Rahmen%[5],"",10,130,500,18)
    RadionButton%[16] = @Create("RadioButton",Rahmen%[6],"",10,50,500,18)
    RadionButton%[17] = @Create("RadioButton",Rahmen%[6],"",10,90,500,18)
    RadionButton%[18] = @Create("RadioButton",Rahmen%[6],"",10,130,500,18)

Endproc

proc geschichte

    WhileLoop  18

        EnableWindow RadionButton%[&LOOP], 1
        SetCheck RadionButton%[&LOOP], 0
        EnableWindow Rahmen%[1], 1
        EnableWindow Rahmen%[2], 1
        EnableWindow Rahmen%[3], 1
        EnableWindow Rahmen%[4], 1
        EnableWindow Rahmen%[5], 1
        EnableWindow Rahmen%[6], 1

    EndWhile

    Settext Rahmen%[1] , "1)Wo beschlossen die vier Siegermächte des Zweiten Weltkrieges, Deutschland in vier Besatzungszonen aufzuteilen?"
    Settext Rahmen%[2] , "2)Wann wurde die DDR offiziell gegründet??"
    Settext Rahmen%[3] , "3)Wie kam es zu Ulbrichts berühmtem Satz ''Niemand hat die Absicht, eine Mauer zu bauen''?"
    Settext Rahmen%[4] , "4)Mit welchem Begriff bezeichnete die DDR die Mauer?"
    Settext Rahmen%[5] , "5)Wie viele Menschen flohen 1961 noch kurz vor dem Mauerbau?"
    Settext Rahmen%[6] , "6)Über welche Länge erstreckte sich die Berliner Mauer?"
    Settext RadionButton%[1] , "Auf der Potsdamer Konferenz"
    Settext RadionButton%[2] , "Auf der Casablanca-Konferenz"
    Settext RadionButton%[3] , "Auf der Konferenz von Jalta"'x
    Settext RadionButton%[4] , "7. Oktober 1949"
    Settext RadionButton%[5] , "3. Oktober 1919"
    Settext RadionButton%[6] , "23. Mai 1949"'x
    Settext RadionButton%[7] , "Ulbricht sagte den Satz im Rahmen einer Rede"
    Settext RadionButton%[8] , "Er war die Antwort auf eine Frage in einer Pressekonferenz"'x
    Settext RadionButton%[9] , "Er stammt aus einem Brief an den damaligen Bundeskanzler"
    Settext RadionButton%[10] , "Antifaschistischer Schutzwall"'x
    Settext RadionButton%[11] , "Antiföderalistischer Schutzwall"
    Settext RadionButton%[12] , "Antikapitalistischer Schutzwall"
    Settext RadionButton%[13] , "Unter 100.000"
    Settext RadionButton%[14] , "Mehr als 300.000"
    Settext RadionButton%[15] , "Mehr als 200.000"'x
    Settext RadionButton%[16] , "70 Km"
    Settext RadionButton%[17] , "270 Km"
    Settext RadionButton%[18] , "170Km"'x
    count2

endproc

proc Allgemein

    WhileLoop  18

        EnableWindow RadionButton%[&LOOP], 1
        SetCheck RadionButton%[&LOOP], 0
        EnableWindow Rahmen%[1], 1
        EnableWindow Rahmen%[2], 1
        EnableWindow Rahmen%[3], 1
        EnableWindow Rahmen%[4], 1
        EnableWindow Rahmen%[5], 1
        EnableWindow Rahmen%[6], 1

    EndWhile

    Settext Rahmen%[1] , "1. Zum Aufwärmen: Welches Fitnessangebot findet sich heute in vielen Studios?"
    Settext Rahmen%[2] , "2. Wem wird das Bundesverdienstkreuz bei Amtsantritt verliehen?"
    Settext Rahmen%[3] , "3. Wie viel Kakaobutter ist in etwa 100 g weißer Schokolade enthalten?"
    Settext Rahmen%[4] , "4. Was ist ein ''Undercut''?"
    Settext Rahmen%[5] , "5. In welchem Ort schuf der Geigenbauer Antonio Stradivari seine wertvollen Instrumente?"
    Settext Rahmen%[6] , "6. Was berechnet der Pearl-Index?"
    Settext RadionButton%[1] , "Samba"
    Settext RadionButton%[2] , "Zumba"'x
    Settext RadionButton%[3] , "Sumba"
    Settext RadionButton%[4] , "dem Bundestagspräsidenten"
    Settext RadionButton%[5] , "dem Bundespräsidenten"'x
    Settext RadionButton%[6] , "dem Bundeskanzler"
    Settext RadionButton%[7] , "0 g"
    Settext RadionButton%[8] , "28 g"'x
    Settext RadionButton%[9] , "38 g"
    Settext RadionButton%[10] , "eine Methode des Buchsbaumtrimmens"
    Settext RadionButton%[11] , "ein Haarschnitt"'x
    Settext RadionButton%[12] , "eine Operationsmethode"
    Settext RadionButton%[13] , "Rom"
    Settext RadionButton%[14] , "Cremona"'x
    Settext RadionButton%[15] , "Pisa"
    Settext RadionButton%[16] , "den Wert von Zuchtperlen"
    Settext RadionButton%[17] , "die Sicherheit von Empfängnisverhütungsmethoden"'x
    Settext RadionButton%[18] , "die Lautstärke eines Schlagzeugs"
    count

endproc

proc erdkunde

    WhileLoop  18

        EnableWindow RadionButton%[&LOOP], 1
        SetCheck RadionButton%[&LOOP], 0
        EnableWindow Rahmen%[1], 1
        EnableWindow Rahmen%[2], 1
        EnableWindow Rahmen%[3], 1
        EnableWindow Rahmen%[4], 1
        EnableWindow Rahmen%[5], 1
        EnableWindow Rahmen%[6], 1

    EndWhile

    Settext Rahmen%[1] , "1) Welche US-amerikanische Stadt trägt den Beinamen ''Big Apple'' ?"
    Settext Rahmen%[2] , "2)Wie nennt man diejenige der Gezeiten, bei der das Wasser sich zurückzieht?"
    Settext Rahmen%[3] , "3) An welchem Fluss liegt München?"
    Settext Rahmen%[4] , "4)Wie nennt man den verzweigten Mündungsbereich eines Flusses??"
    Settext Rahmen%[5] , "5)Wie heißt die Insel Ceylon heute?"
    Settext Rahmen%[6] , "6) Wie heißt der Stoff, der flüssig aus einem Vulkan tritt?"
    Settext RadionButton%[1] , "Dallas "
    Settext RadionButton%[2] , "New York "'x
    Settext RadionButton%[3] , "Los Angeles "
    Settext RadionButton%[4] , "Elba "
    Settext RadionButton%[5] , "Erle "
    Settext RadionButton%[6] , "Ebbe"'x
    Settext RadionButton%[7] , "Neckar"
    Settext RadionButton%[8] , "Pegnitz "
    Settext RadionButton%[9] , "Isar "'x
    Settext RadionButton%[10] , "Einfluss "
    Settext RadionButton%[11] , "Einströmgebiet "
    Settext RadionButton%[12] , "Delta "'x
    Settext RadionButton%[13] , "Goa "
    Settext RadionButton%[14] , "Srinagar "
    Settext RadionButton%[15] , "Sri Lanka "'x
    Settext RadionButton%[16] , "Lama "
    Settext RadionButton%[17] , "Lava "'x
    Settext RadionButton%[18] , "Lada"
    count3

endproc

proc count

    Set("Decimals",1)
    var time%=&GetTickCount
    var text&=Create("Text",%hwnd,"", 850,%maxy - 180,120,20)

    while @xor(&GetTickCount-time%<60000, @getfocus(button_auswerten1%))

        Case &GetTickCount-time%<60000 : Settext text&,Str$((60000-(&GetTickCount-time%))/1000) + "  Sekunden"

    Endwhile

    EnableWindow Rahmen%[1], 0
    EnableWindow Rahmen%[2], 0
    EnableWindow Rahmen%[3], 0
    EnableWindow Rahmen%[4], 0
    EnableWindow Rahmen%[5], 0
    EnableWindow Rahmen%[6], 0
    auswerten1

Endproc

proc count2

    Set("Decimals",1)
    var time%=&GetTickCount
    var text&=Create("Text",%hwnd,"", 850,%maxy - 180,120,20)

    while @xor(&GetTickCount-time%<60000, @getfocus(button_auswerten2%))

        Case &GetTickCount-time%<60000 : Settext text&,Str$((60000-(&GetTickCount-time%))/1000) + "  Sekunden"

    Endwhile

    EnableWindow Rahmen%[1], 0
    EnableWindow Rahmen%[2], 0
    EnableWindow Rahmen%[3], 0
    EnableWindow Rahmen%[4], 0
    EnableWindow Rahmen%[5], 0
    EnableWindow Rahmen%[6], 0
    auswerten2

Endproc

proc count3

    Set("Decimals",1)
    var time%=&GetTickCount
    var text&=Create("Text",%hwnd,"", 850,%maxy - 180,120,20)

    while @xor(&GetTickCount-time%<60000, @getfocus(button_auswerten3%))

        Case &GetTickCount-time%<60000 : Settext text&,Str$((60000-(&GetTickCount-time%))/1000) + "  Sekunden"

    Endwhile

    EnableWindow Rahmen%[1], 0
    EnableWindow Rahmen%[2], 0
    EnableWindow Rahmen%[3], 0
    EnableWindow Rahmen%[4], 0
    EnableWindow Rahmen%[5], 0
    EnableWindow Rahmen%[6], 0
    auswerten3

Endproc

proc auswerten1

    If GetCheck(RadionButton%[2]) = 1

        EnableWindow RadionButton%[1], 0
        EnableWindow RadionButton%[3], 0

    EndIf

    If GetCheck(RadionButton%[5]) = 1

        EnableWindow RadionButton%[4], 0
        EnableWindow RadionButton%[6], 0

    EndIf

    If GetCheck(RadionButton%[8]) = 1

        EnableWindow RadionButton%[7], 0
        EnableWindow RadionButton%[9], 0

    EndIf

    If GetCheck(RadionButton%[11]) = 1

        EnableWindow RadionButton%[10], 0
        EnableWindow RadionButton%[12], 0

    EndIf

    If GetCheck(RadionButton%[14]) = 1

        EnableWindow RadionButton%[13], 0
        EnableWindow RadionButton%[15], 0

    EndIf

    If GetCheck(RadionButton%[17]) = 1

        EnableWindow RadionButton%[16], 0
        EnableWindow RadionButton%[18], 0

    EndIf

    Richtige% = 0

    If GetCheck(RadionButton%[2]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[5]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[8]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[11]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[14]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[17]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If Richtige% = 0

        @MessageBox("Du hast 0 von 6 richtig !","", 0)

    endif

    If Richtige% = 1

        @MessageBox("Du hast 1 von 6 richtig !","", 0)

    endif

    If Richtige% = 2

        @MessageBox("Du hast 2 von 6 richtig !","", 0)

    endif

    If Richtige% = 3

        @MessageBox("Du hast 3 von 6 richtig !","", 0)

    endif

    If Richtige% = 4

        @MessageBox("Du hast 4 von 6 richtig !","", 0)

    endif

    If Richtige% = 5

        @MessageBox("Du hast 5 von 6 richtig !","", 0)

    endif

    If Richtige% = 6

        @MessageBox("Du hast 6 von 6 richtig !","", 0)

    endif

endproc

proc auswerten2

    Richtige% = 0

    If GetCheck(RadionButton%[3]) = 1

        EnableWindow RadionButton%[1], 0
        EnableWindow RadionButton%[2], 0

    EndIf

    If GetCheck(RadionButton%[6]) = 1

        EnableWindow RadionButton%[4], 0
        EnableWindow RadionButton%[5], 0

    EndIf

    If GetCheck(RadionButton%[8]) = 1

        EnableWindow RadionButton%[7], 0
        EnableWindow RadionButton%[9], 0

    EndIf

    If GetCheck(RadionButton%[10]) = 1

        EnableWindow RadionButton%[11], 0
        EnableWindow RadionButton%[12], 0

    EndIf

    If GetCheck(RadionButton%[15]) = 1

        EnableWindow RadionButton%[13], 0
        EnableWindow RadionButton%[14], 0

    EndIf

    If GetCheck(RadionButton%[18]) = 1

        EnableWindow RadionButton%[16], 0
        EnableWindow RadionButton%[17], 0

    EndIf

    If GetCheck(RadionButton%[3]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[6]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[8]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[10]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[15]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[18]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If Richtige% = 0

        @MessageBox("Du hast 0 von 6 richtig !","", 0)

    endif

    If Richtige% = 1

        @MessageBox("Du hast 1 von 6 richtig !","", 0)

    endif

    If Richtige% = 2

        @MessageBox("Du hast 2 von 6 richtig !","", 0)

    endif

    If Richtige% = 3

        @MessageBox("Du hast 3 von 6 richtig !","", 0)

    endif

    If Richtige% = 4

        @MessageBox("Du hast 4 von 6 richtig !","", 0)

    endif

    If Richtige% = 5

        @MessageBox("Du hast 5 von 6 richtig !","", 0)

    endif

    If Richtige% = 6

        @MessageBox("Du hast 6 von 6 richtig !","", 0)

    endif

endproc

proc auswerten3

    Richtige% = 0

    If GetCheck(RadionButton%[2]) = 1

        EnableWindow RadionButton%[1], 0
        EnableWindow RadionButton%[3], 0

    EndIf

    If GetCheck(RadionButton%[6]) = 1

        EnableWindow RadionButton%[4], 0
        EnableWindow RadionButton%[5], 0

    EndIf

    If GetCheck(RadionButton%[9]) = 1

        EnableWindow RadionButton%[7], 0
        EnableWindow RadionButton%[8], 0

    EndIf

    If GetCheck(RadionButton%[12]) = 1

        EnableWindow RadionButton%[11], 0
        EnableWindow RadionButton%[10], 0

    EndIf

    If GetCheck(RadionButton%[15]) = 1

        EnableWindow RadionButton%[13], 0
        EnableWindow RadionButton%[14], 0

    EndIf

    If GetCheck(RadionButton%[17]) = 1

        EnableWindow RadionButton%[16], 0
        EnableWindow RadionButton%[18], 0

    EndIf

    If GetCheck(RadionButton%[2]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[6]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[9]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[12]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[15]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[17]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If Richtige% = 0

        @MessageBox("Du hast 0 von 6 richtig !","", 0)

    endif

    If Richtige% = 1

        @MessageBox("Du hast 1 von 6 richtig !","", 0)

    endif

    If Richtige% = 2

        @MessageBox("Du hast 2 von 6 richtig !","", 0)

    endif

    If Richtige% = 3

        @MessageBox("Du hast 3 von 6 richtig !","", 0)

    endif

    If Richtige% = 4

        @MessageBox("Du hast 4 von 6 richtig !","", 0)

    endif

    If Richtige% = 5

        @MessageBox("Du hast 5 von 6 richtig !","", 0)

    endif

    If Richtige% = 6

        @MessageBox("Du hast 6 von 6 richtig !","", 0)

    endif

endproc

proc hauptprogramm_run

    Repeat

        waitinput

        if @Clicked(button_auswerten2%)

            auswerten2

        endif

        if @Clicked(button_auswerten1%)

            auswerten1

        endif

        if @Clicked(button_auswerten3%)

            auswerten3

        endif

        If @Clicked (button_erde%)

            erdkunde

        endif

        If @Clicked(button_weiter1%)

            Allgemein

        endif

        If @Clicked(button_geschichte%)

            geschichte

        endif

        If @Clicked(button_löschen%)

            WhileLoop  18

                EnableWindow RadionButton%[&LOOP], 1
                SetCheck RadionButton%[&LOOP], 0
                EnableWindow Rahmen%[1], 1
                EnableWindow Rahmen%[2], 1
                EnableWindow Rahmen%[3], 1
                EnableWindow Rahmen%[4], 1
                EnableWindow Rahmen%[5], 1
                EnableWindow Rahmen%[6], 1

            EndWhile

        endif

    until @XOR(@Clicked(button_ende%), %scankey = 27)

endproc

proc hautprgramm_end

    @DestroyWindow(%hwnd)

endproc

hauptprogramm_skin
hauptprogramm_run
hautprgramm_end
end

EnableWindow Rahmen%[1], 1
EnableWindow Rahmen%[2], 1
EnableWindow Rahmen%[3], 1
EnableWindow Rahmen%[4], 1
EnableWindow Rahmen%[5], 1
EnableWindow Rahmen%[6], 1

whileloop 6

    EnableWindow welt%[&loop], 1

Endwhile