Forum | | | | diimool25 | CompileMarkSeparationDeclare 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
has Perhaps someone verbässerungsvorschläge or what I Change ought to ? |
| | | | |
| | Julian Schmidt | | | | | |
| | E.T. | Hm, is the for 'ne Monster-dissolution geproggt ?? with Standart 1024x786 fit nothing More in's Window:
there missing The Anpassung on The dissolution. The Radiobuttons are already activate. here another Shot with Texten (whom background find I anyhow savage):
and one missfällt me gänzlich: The "dumme" question on the Start: would I the Progg not started want, had I not klicked
The Texts würd I in a .INI or 'ne .DLL auslagern... |
| | | Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 04/08/14 ▲ |
| |
| | Nico Madysa | diimool25 (07.04.14)
has Perhaps someone verbässerungsvorschläge or what I Change ought to ?
Please schließe your View source always in CODE- instead of QUOTE-Blöcken one. for your Posting here have I me allows, the already time To make. |
| | | | |
|
AnswerThemeninformationenthis Topic has 4 subscriber: |