 | *Sym98* |
| | Ciao a tutti, visto che oggi sembravate in letargo, ho deciso di creare questo topic e di postare un vecchio script che ho fatto qualche mese fa. Non è niente di che, ma mi ha aiutato a ridurre lo stress durante il periodo degli esami. xD Si tratta di una specie di Quiz: si aprirà una GUI a schermo intero, che potete chiudere solo risolvendo l'enigma (o premendo "ESC"  ), cliccando in determinati punti nell'ordine prestabilito. Comunque, oltre all'aiuto fornitovi dalle diverse frequenze dei Beep, avete a disposizione il Source del programma, che sarà caricato in un Edit all'interno della GUI. I valori delle variabili più importanti saranno caricati in un Input con auto-refresh. Oltre che nel File .au3, inserite il seguente Source in un file "Text.txt": CODICE #include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Pass1 = False, $Pass2 = False, $Pass3 = False, $Pass4 = False, $Error = 0
$String = "Pass1 = " & $Pass1 & " | Pass2 = " & $Pass2 & " | Pass3 = " & $Pass3 & " | Pass4 = " & $Pass4 & " | Error = " & $Error
Global $sEx
Global $Form = GUICreate("",@DesktopWidth ,@DesktopHeight,0,0,$WS_POPUP)
GUISetBkColor(0x000000)
Global $Edit1 = GUICtrlCreateEdit("", 100, 60, 1110, 633)
GUICtrlSetData(-1, FileRead("Text.txt"))
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xC8C8C8)
Global $InputFlag = GUICtrlCreateInput("", 100, 30, 1110, 20)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xC8C8C8)
GUICtrlSetData(-1, $String)
Global $Ex_1 = GUICtrlCreateLabel("", 0, 0, 1, 1)
Global $Ex_2 = GUICtrlCreateLabel("", 0, @DesktopHeight-1, 1, 1)
Global $Ex_3 = GUICtrlCreateLabel("", @DesktopWidth-1, 0, 1, 1)
Global $Ex_4 = GUICtrlCreateLabel("", @DesktopWidth-1, @DesktopHeight-1, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
$String = "Pass1 = " & $Pass1 & " | Pass2 = " & $Pass2 & " | Pass3 = " & $Pass3 & " | Pass4 = " & $Pass4 & " | Error = " & $Error
If GUICtrlRead($InputFlag) <> $String Then GUICtrlSetData($InputFlag, $String)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Ex_1
If $Pass2 = False AND $Pass3 = False And $Pass4 = False AND $Pass1 = False Then
$Pass1 = True
Beep(1000)
$sEx = True
EndIf
If $sEx = False Then $Error += 1
$sEx = False
Case $Ex_2
If $Pass1 = True Then
$Pass2 = True
$Pass1 = False
Beep(1000)
$sEx = True
EndIf
If $sEx = False Then $Error += 1
$sEx = False
Case $Ex_3
If $Pass2 = True And $Pass1 = True And $Pass4 = True Then
$Pass3 = True
Beep(1000)
$sEx = True
EndIf
If $sEx = False Then $Error += 1
$sEx = False
Case $Ex_4
If $Pass2 = True AND $Pass1 = False AND $Pass3 = False AND $Pass4 = True Then
$Pass1 = True
Beep(1000)
$sEx = True
Else
If $Pass3 = True Then $Pass4 = False
If $Pass3 = False Then $Pass4 = True
$sEx = True
Beep(500)
If $Pass3 = True AND $Pass4 = False Then
Beep(2000)
$sEx = True
Exit
EndIf
EndIf
If $sEx = False Then $Error += 1
$sEx = False
EndSwitch
WEnd P.S = Non ho provato il Source oltre che nel mio computer, quindi non sono sicuro del fatto che la modalità schermo intero funzioni. P.S2 = Se volete, create altri quiz simili sulla base di questo Source e postateli, il mio è semplice perchè non avevo molto tempo per renderlo più complesso. Detto questo, buona fortuna per il brain test. ^^  | | | |
| |
|
ok ora guardo