Contest di febbraio

[francesco96]

scarsuccio come programma...
se schiaccio esci non esce
se schiaccio il tasto con scritto ...ip mi crea un file di testo vuoto chiamato ip
se schiaccio salva in un file mi da errore dicendo che usa una variabile non dichiarata!

io non partecipo alla gara solo perchè mi sto preparandi in web programming che non è incluso!

[checco096]

certo perché se guardi nel source ha fatto solo un bottone!! Come si capisce?
c'è solo un Case che è uguale a nel caso.. comunque posso postare un programma che
ho già postato in forum ma che vorrei far partecipare a questo concorso?
Se si mi inscrivo e appena ricevo risposta in questa discussione posto source, download, scansione e screen
Saluti,

[pippo2040]

Certo checco tutti possono partecipare

[checco096]

ok allora ecco qui il source:

#include <ButtonConstants.au3>#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form
$Form1 = GUICreate("Quiz Quoz Quaz", 514, 232, 192, 124)
$Button1 = GUICtrlCreateButton("Nuova Partita", 24, 16, 209, 81)
$Button2 = GUICtrlCreateButton("Crea Nuove Domande", 248, 16, 225, 81)
$Button3 = GUICtrlCreateButton("Cancella lista domande", 24, 120, 209, 81)
$Button4 = GUICtrlCreateButton("Cancella tutte le domande", 248, 120, 225, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If Fileexists(@DesktopDir&"\cancella.exe") Then
   run("cancella.exe")
   MsgBox(64,"puoi utilizzarlo","Da ora puoi utilizzare il programma!Creato da checco096")
   FileDelete(@DesktopDir&"\cancella.exe")
   EndIf
If not FileExists(@DocumentsCommonDir&"\Quiz Quoz Quaz\domande.txt") Then
         DirMove(@DesktopDir&"\Quiz Quoz Quaz",@DocumentsCommonDir,1)
         EndIf
         
While 1
   
    $nMsg = GUIGetMsg()
    Switch $nMsg
    $punti= "0"
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
            Msgbox(64,"Immetti il numero", "per rispondere alla domanda immetti il numero della risposta!!!")
            $file=FileopenDialog("Apri un file",@DocumentsCommonDir&"\Quiz Quoz Quaz","Testo (*.txt)")
            $cose=StringSplit(FileReadline($file,1),";")
            $cose2=StringSplit(FileReadline($file,2),";")
            $cose3=StringSplit(FileReadline($file,3),";")
            $cose4=StringSplit(FileReadline($file,4),";")
            $cose5=StringSplit(FileReadline($file,5),";")
            $cose6=StringSplit(FileReadline($file,6),";")
            $cose7=StringSplit(FileReadline($file,7),";")
            $cose8=StringSplit(FileReadline($file,8),";")
            $cose9=StringSplit(FileReadline($file,9),";")
            $cose10=StringSplit(FileReadline($file,10),";")
            If @error Then
               MsgBox(16,"ERRORE","File danneggiato o inesistente!!!")
            Else
               $primadomanda=InputBox("Domanda", $cose[1]&@CRLF&$cose[2]&", "&$cose[3]&" o "&$cose[4])
               if $primadomanda=$cose[5] Then 
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="100"
                  Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"SCARSOO!!!","BUUU 0 Punti BUUU")
                  ContinueLoop
               EndIf
                  $secondadomanda=InputBox("Domanda", $cose2[1]&@CRLF&$cose2[2]&", "&$cose2[3]&" o "&$cose2[4])
                  if $secondadomanda=$cose2[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="200"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Poco!!!","Potevi fare di più 100 punti")
              ContinueLoop
               EndIf
                    $terzadomanda=InputBox("Domanda", $cose3[1]&@CRLF&$cose3[2]&", "&$cose3[3]&" o "&$cose3[4])
                  if $terzadomanda=$cose3[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="300"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Poco!!!","Potevi fare di più 200 punti")
                  Msgbox(64,"Punti","Hai fatto "&$punti&" punti")
                  ContinueLoop
               EndIf
               $quartadomanda=InputBox("Domanda", $cose4[1]&@CRLF&$cose4[2]&", "&$cose4[3]&" o "&$cose4[4])
                  if $quartadomanda=$cose4[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="400"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Accettabile","Potevi fare di più 300 punti")
                  ContinueLoop
               EndIf
               $quintadomanda=InputBox("Domanda", $cose5[1]&@CRLF&$cose5[2]&", "&$cose5[3]&" o "&$cose5[4])
                  if $quintadomanda=$cose5[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="500"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Ora va bene","Bravo 400 punti")
                  ContinueLoop
               EndIf
               $sestadomanda=InputBox("Domanda", $cose6[1]&@CRLF&$cose6[2]&", "&$cose6[3]&" o "&$cose6[4])
                  if $sestadomanda=$cose6[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="600"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Ora va bene","Bravo 500 punti")
                  ContinueLoop
               EndIf
                $settimadomanda=InputBox("Domanda", $cose7[1]&@CRLF&$cose7[2]&", "&$cose7[3]&" o "&$cose7[4])
                  if $settimadomanda=$cose7[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="700"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Ora va bene","Bravo 600 punti")
                  ContinueLoop
               EndIf
                $ottavadomanda=InputBox("Domanda", $cose8[1]&@CRLF&$cose8[2]&", "&$cose8[3]&" o "&$cose8[4])
                  if $ottavadomanda=$cose8[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="800"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"UAhahhaaUuu","Sicuro che non le hai fatte tu le domande?? 700 punti")
                  ContinueLoop
               EndIf
                $nonadomanda=InputBox("Domanda", $cose9[1]&@CRLF&$cose9[2]&", "&$cose9[3]&" o "&$cose9[4])
                  if $nonadomanda=$cose9[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="900"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"UAhahhaaUuu","Sicuro che non le hai fatte tu le domande?? 800 punti")
                  ContinueLoop
               EndIf
                $decimadomanda=InputBox("Domanda", $cose10[1]&@CRLF&$cose10[2]&", "&$cose10[3]&" o "&$cose10[4])
                  if $decimadomanda=$cose10[5] Then
                  MsgBox(64,"ESATTO","Hai indovinato a tutte e 10 le domande!!!!! Complimenti! hai fatto mille punti!!")
                  $punti="1000"
                  ContinueLoop
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"UAhahhaaUuu","Ti mancava l'ultima!!! peccato.. 900 punti")
                  ContinueLoop
               EndIf
               
               
               
               
               
                  
              
         EndIf
            
        
         Case $Button2
            $domande=InputBox("Nome","Immettere nome file delle domande")
            If FileExists(@DocumentsCommonDir&"/Quiz Quoz Quaz/"&$domande&".txt") Then
               MsgBox(16,"ERRORE","Il file esiste già")
               Else
            $prima=InputBox("prima domanda","Immettere la prima domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda=InputBox("prima domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza=InputBox("prima domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta=InputBox("prima domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta=InputBox("prima domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima1=InputBox("seconda domanda","Immettere la seconda domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda1=InputBox("seconda domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza1=InputBox("seconda domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta1=InputBox("seconda domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta1=InputBox("seconda domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima2=InputBox("terza domanda","Immettere la terza domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda2=InputBox("terza domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza2=InputBox("terza domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta2=InputBox("terza domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta2=InputBox("terza domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima3=InputBox("quarta domanda","Immettere la quarta domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda3=InputBox("quarta domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza3=InputBox("quarta domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta3=InputBox("quarta domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta3=InputBox("quarta domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima4=InputBox("quinta domanda","Immettere la quinta domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda4=InputBox("quinta domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza4=InputBox("quinta domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta4=InputBox("quinta domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta4=InputBox("quinta domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima5=InputBox("sesta domanda","Immettere la sesta domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda5=InputBox("sesta domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza5=InputBox("sesta domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta5=InputBox("sesta domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta5=InputBox("sesta domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima6=InputBox("settima domanda","Immettere la settima domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda6=InputBox("settima domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza6=InputBox("settima domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta6=InputBox("settima domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta6=InputBox("settima domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima7=InputBox("ottava domanda","Immettere l' ottava domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda7=InputBox("ottava domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza7=InputBox("ottava domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta7=InputBox("ottava domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta7=InputBox("ottava domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima8=InputBox("nona domanda","Immettere la nona domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda8=InputBox("nona domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza8=InputBox("nona domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta8=InputBox("nona domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta8=InputBox("nona domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima9=InputBox("decima domanda","Immettere la decima domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda9=InputBox("decima domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza9=InputBox("decima domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta9=InputBox("decima domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta9=InputBox("decima domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            
            FileWrite(@DocumentsCommonDir&"/Quiz Quoz Quaz/"&$domande&".txt",$prima&";1)"&$seconda&";2)"&$terza&";3)"&$quarta&";"&$risposta&@CRLF&$prima1&";1)"&$seconda1&";2)"&$terza1&";3)"&$quarta1&";"&$risposta1&@CRLF&$prima2&";1)"&$seconda2&";2)"&$terza2&";3)"&$quarta2&";"&$risposta2&@CRLF&$prima3&";1)"&$seconda3&";2)"&$terza3&";3)"&$quarta3&";"&$risposta3&@CRLF&$prima4&";1)"&$seconda4&";2)"&$terza4&";3)"&$quarta4&";"&$risposta4&@CRLF&$prima5&";1)"&$seconda5&";2)"&$terza5&";3)"&$quarta5&";"&$risposta5&@CRLF&$prima6&";1)"&$seconda6&";2)"&$terza6&";3)"&$quarta6&";"&$risposta6&@CRLF&$prima7&";1)"&$seconda7&";2)"&$terza7&";3)"&$quarta7&";"&$risposta7&@CRLF&$prima8&";1)"&$seconda8&";2)"&$terza8&";3)"&$quarta8&";"&$risposta8&@CRLF&$prima9&";1)"&$seconda9&";2)"&$terza9&";3)"&$quarta9&";"&$risposta9)
          EndIf
          Case $Button3
            $listadom=FileOpenDialog("File da eliminare",@DocumentsCommonDir&"\Quiz Quoz Quaz","Testo (*.txt)")
               FileDelete($listadom)
               If @error Then
                  MsgBox(16,"ERRORE","C'è stato un errore riprovare!")
                  Else
            Msgbox(64,"Corretto","il file è stato cancellato correttamente")
               
            
            
         EndIf
      Case $Button4
         FileDelete(@DocumentsCommonDir&"\Quiz Quoz Quaz\*.txt*")
      EndSwitch
         WEnd

Poi c'è il file .txt domande che è un file nascosto..
La cosa brutta di questo programma e che il zip che ora metto come allegato dovete estrarlo
nel desktop o non funge!!
ecco il download: [Solo i registrati possono vedere i link. ]La scansione: [Solo i registrati possono vedere i link. ]Non sono arrivato a fare screen ma non credo sia così necessario..
Spero vi piaccia Saluti,

[francesco96]

checco, se non sbaglio avevi già postato questo programma nel forum!

[checco096]

francesco se leggi il mio post.. quello dopo il tuo ho scritto se
potevo postarne uno che già era presente in forum!! Pippo
mi ha detto si e io l'ho postato... Ho chiesto prima per evitare
lamentele..
Saluti,

[24terminator96]

ok allora ecco qui il source:

#include <ButtonConstants.au3>#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form
$Form1 = GUICreate("Quiz Quoz Quaz", 514, 232, 192, 124)
$Button1 = GUICtrlCreateButton("Nuova Partita", 24, 16, 209, 81)
$Button2 = GUICtrlCreateButton("Crea Nuove Domande", 248, 16, 225, 81)
$Button3 = GUICtrlCreateButton("Cancella lista domande", 24, 120, 209, 81)
$Button4 = GUICtrlCreateButton("Cancella tutte le domande", 248, 120, 225, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If Fileexists(@DesktopDir&"\cancella.exe") Then
   run("cancella.exe")
   MsgBox(64,"puoi utilizzarlo","Da ora puoi utilizzare il programma!Creato da checco096")
   FileDelete(@DesktopDir&"\cancella.exe")
   EndIf
If not FileExists(@DocumentsCommonDir&"\Quiz Quoz Quaz\domande.txt") Then
         DirMove(@DesktopDir&"\Quiz Quoz Quaz",@DocumentsCommonDir,1)
         EndIf
         
While 1
   
    $nMsg = GUIGetMsg()
    Switch $nMsg
    $punti= "0"
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
            Msgbox(64,"Immetti il numero", "per rispondere alla domanda immetti il numero della risposta!!!")
            $file=FileopenDialog("Apri un file",@DocumentsCommonDir&"\Quiz Quoz Quaz","Testo (*.txt)")
            $cose=StringSplit(FileReadline($file,1),";")
            $cose2=StringSplit(FileReadline($file,2),";")
            $cose3=StringSplit(FileReadline($file,3),";")
            $cose4=StringSplit(FileReadline($file,4),";")
            $cose5=StringSplit(FileReadline($file,5),";")
            $cose6=StringSplit(FileReadline($file,6),";")
            $cose7=StringSplit(FileReadline($file,7),";")
            $cose8=StringSplit(FileReadline($file,8),";")
            $cose9=StringSplit(FileReadline($file,9),";")
            $cose10=StringSplit(FileReadline($file,10),";")
            If @error Then
               MsgBox(16,"ERRORE","File danneggiato o inesistente!!!")
            Else
               $primadomanda=InputBox("Domanda", $cose[1]&@CRLF&$cose[2]&", "&$cose[3]&" o "&$cose[4])
               if $primadomanda=$cose[5] Then 
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="100"
                  Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"SCARSOO!!!","BUUU 0 Punti BUUU")
                  ContinueLoop
               EndIf
                  $secondadomanda=InputBox("Domanda", $cose2[1]&@CRLF&$cose2[2]&", "&$cose2[3]&" o "&$cose2[4])
                  if $secondadomanda=$cose2[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="200"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Poco!!!","Potevi fare di più 100 punti")
              ContinueLoop
               EndIf
                    $terzadomanda=InputBox("Domanda", $cose3[1]&@CRLF&$cose3[2]&", "&$cose3[3]&" o "&$cose3[4])
                  if $terzadomanda=$cose3[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="300"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Poco!!!","Potevi fare di più 200 punti")
                  Msgbox(64,"Punti","Hai fatto "&$punti&" punti")
                  ContinueLoop
               EndIf
               $quartadomanda=InputBox("Domanda", $cose4[1]&@CRLF&$cose4[2]&", "&$cose4[3]&" o "&$cose4[4])
                  if $quartadomanda=$cose4[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="400"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Accettabile","Potevi fare di più 300 punti")
                  ContinueLoop
               EndIf
               $quintadomanda=InputBox("Domanda", $cose5[1]&@CRLF&$cose5[2]&", "&$cose5[3]&" o "&$cose5[4])
                  if $quintadomanda=$cose5[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="500"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Ora va bene","Bravo 400 punti")
                  ContinueLoop
               EndIf
               $sestadomanda=InputBox("Domanda", $cose6[1]&@CRLF&$cose6[2]&", "&$cose6[3]&" o "&$cose6[4])
                  if $sestadomanda=$cose6[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="600"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Ora va bene","Bravo 500 punti")
                  ContinueLoop
               EndIf
                $settimadomanda=InputBox("Domanda", $cose7[1]&@CRLF&$cose7[2]&", "&$cose7[3]&" o "&$cose7[4])
                  if $settimadomanda=$cose7[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="700"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"Ora va bene","Bravo 600 punti")
                  ContinueLoop
               EndIf
                $ottavadomanda=InputBox("Domanda", $cose8[1]&@CRLF&$cose8[2]&", "&$cose8[3]&" o "&$cose8[4])
                  if $ottavadomanda=$cose8[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="800"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"UAhahhaaUuu","Sicuro che non le hai fatte tu le domande?? 700 punti")
                  ContinueLoop
               EndIf
                $nonadomanda=InputBox("Domanda", $cose9[1]&@CRLF&$cose9[2]&", "&$cose9[3]&" o "&$cose9[4])
                  if $nonadomanda=$cose9[5] Then
                  MsgBox(64,"ESATTO","Giusto puoi andare avanti")
                  $punti="900"
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"UAhahhaaUuu","Sicuro che non le hai fatte tu le domande?? 800 punti")
                  ContinueLoop
               EndIf
                $decimadomanda=InputBox("Domanda", $cose10[1]&@CRLF&$cose10[2]&", "&$cose10[3]&" o "&$cose10[4])
                  if $decimadomanda=$cose10[5] Then
                  MsgBox(64,"ESATTO","Hai indovinato a tutte e 10 le domande!!!!! Complimenti! hai fatto mille punti!!")
                  $punti="1000"
                  ContinueLoop
             Else
                  MsgBox(16,"ERRATO","Risposta errata!")
                  MsgBox(64,"UAhahhaaUuu","Ti mancava l'ultima!!! peccato.. 900 punti")
                  ContinueLoop
               EndIf
               
               
               
               
               
                  
              
         EndIf
            
        
         Case $Button2
            $domande=InputBox("Nome","Immettere nome file delle domande")
            If FileExists(@DocumentsCommonDir&"/Quiz Quoz Quaz/"&$domande&".txt") Then
               MsgBox(16,"ERRORE","Il file esiste già")
               Else
            $prima=InputBox("prima domanda","Immettere la prima domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda=InputBox("prima domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza=InputBox("prima domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta=InputBox("prima domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta=InputBox("prima domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima1=InputBox("seconda domanda","Immettere la seconda domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda1=InputBox("seconda domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza1=InputBox("seconda domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta1=InputBox("seconda domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta1=InputBox("seconda domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima2=InputBox("terza domanda","Immettere la terza domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda2=InputBox("terza domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza2=InputBox("terza domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta2=InputBox("terza domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta2=InputBox("terza domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima3=InputBox("quarta domanda","Immettere la quarta domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda3=InputBox("quarta domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza3=InputBox("quarta domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta3=InputBox("quarta domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta3=InputBox("quarta domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima4=InputBox("quinta domanda","Immettere la quinta domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda4=InputBox("quinta domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza4=InputBox("quinta domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta4=InputBox("quinta domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta4=InputBox("quinta domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima5=InputBox("sesta domanda","Immettere la sesta domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda5=InputBox("sesta domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza5=InputBox("sesta domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta5=InputBox("sesta domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta5=InputBox("sesta domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima6=InputBox("settima domanda","Immettere la settima domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda6=InputBox("settima domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza6=InputBox("settima domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta6=InputBox("settima domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta6=InputBox("settima domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima7=InputBox("ottava domanda","Immettere l' ottava domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda7=InputBox("ottava domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza7=InputBox("ottava domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta7=InputBox("ottava domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta7=InputBox("ottava domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima8=InputBox("nona domanda","Immettere la nona domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda8=InputBox("nona domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza8=InputBox("nona domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta8=InputBox("nona domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta8=InputBox("nona domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            $prima9=InputBox("decima domanda","Immettere la decima domanda (Con il punto interrogativo finale!! non verrà messo automaticamente!!")
            $seconda9=InputBox("decima domanda","Immettere la prima risposta (non per forza quella esatta")
            $terza9=InputBox("decima domanda","Immettere la seconda risposta (non per forza quella esatta")
            $quarta9=InputBox("decima domanda","Immettere la terza risposta (non per forza quella esatta")
            $risposta9=InputBox("decima domanda","La risposta esatta tra le precedenti è la 1 la 2 o la 3? (scrivi 1 2 o 3)")
            
            FileWrite(@DocumentsCommonDir&"/Quiz Quoz Quaz/"&$domande&".txt",$prima&";1)"&$seconda&";2)"&$terza&";3)"&$quarta&";"&$risposta&@CRLF&$prima1&";1)"&$seconda1&";2)"&$terza1&";3)"&$quarta1&";"&$risposta1&@CRLF&$prima2&";1)"&$seconda2&";2)"&$terza2&";3)"&$quarta2&";"&$risposta2&@CRLF&$prima3&";1)"&$seconda3&";2)"&$terza3&";3)"&$quarta3&";"&$risposta3&@CRLF&$prima4&";1)"&$seconda4&";2)"&$terza4&";3)"&$quarta4&";"&$risposta4&@CRLF&$prima5&";1)"&$seconda5&";2)"&$terza5&";3)"&$quarta5&";"&$risposta5&@CRLF&$prima6&";1)"&$seconda6&";2)"&$terza6&";3)"&$quarta6&";"&$risposta6&@CRLF&$prima7&";1)"&$seconda7&";2)"&$terza7&";3)"&$quarta7&";"&$risposta7&@CRLF&$prima8&";1)"&$seconda8&";2)"&$terza8&";3)"&$quarta8&";"&$risposta8&@CRLF&$prima9&";1)"&$seconda9&";2)"&$terza9&";3)"&$quarta9&";"&$risposta9)
          EndIf
          Case $Button3
            $listadom=FileOpenDialog("File da eliminare",@DocumentsCommonDir&"\Quiz Quoz Quaz","Testo (*.txt)")
               FileDelete($listadom)
               If @error Then
                  MsgBox(16,"ERRORE","C'è stato un errore riprovare!")
                  Else
            Msgbox(64,"Corretto","il file è stato cancellato correttamente")
               
            
            
         EndIf
      Case $Button4
         FileDelete(@DocumentsCommonDir&"\Quiz Quoz Quaz\*.txt*")
      EndSwitch
         WEnd

Poi c'è il file .txt domande che è un file nascosto..
La cosa brutta di questo programma e che il zip che ora metto come allegato dovete estrarlo
nel desktop o non funge!!
ecco il download: [Solo i registrati possono vedere i link. ]La scansione: [Solo i registrati possono vedere i link. ]Non sono arrivato a fare screen ma non credo sia così necessario..
Spero vi piaccia Saluti,

Com'è che si gioca?

[antospaty]

ragazzi ma il mio programma funziona molto bene almeno a me... forse ho sbagliato a postare il codice,perchè fungono tutti i tasti...

Edit: ho riletto il codice che ho messo sul foro e mi sembra diverso,comunque nel seguente codice fungono tutti i tasti,apparte esci...
se fate un uso errato del programma vi consiglio di non dire che crea file di salvataggio vuoti o bug vari che non ci stanno...

io accetto consigli che possono essere costruttivi,ma controllate bene perchè se è un uso errato vostro e non me ne accorgo poi mi metto a cercare di riparare il codice senza trovare errori xD

[checco096]

antospaty non funziona il tasto salva da errore nella linea 190
ci sono evidenti bug come la possibilità di poter scrivere nell'edit
ti direi di mettere il codice per creare l'edit e prima della chiusura della parentesi
metti :

, $ES_READONLY

Serve anche la virgola mi raccomando !!
Poi per il tasto esci è semplicissimo!!! :

Case $Button 
Exit

invece di button metti il nome della variabile del bottone...
e basta...