Infinito [yuotube - hacking - informatica - grafica - programmazione -netlog - contest - msn - hentay - autoit source - yuoporn]

Fare due o piu form, Autoit

« Older   Newer »
  Share  
Kinder-Pinguì
view post Posted on 2/2/2008, 02:28




Ciao raga,
Volevo fare un programma x la sQuola, che calcoli l'errore di un tot di misure...
Vorrei però che nel primo form si scelga il numero di misure e in base alla risposta si apra un nuovo form.
Il codice che ho fatto è:

CODICE
#include <GUIConstants.au3>

$Form1 = GUICreate("Numero Dati", 244, 253, 271, 260)
GUISetBkColor(0x000000)
$testo = GUICtrlCreateLabel("Numero di misure fatte", 16, 8, 217, 32)
GUICtrlSetFont(-1, 16, 800, 2, "Palatino Linotype")
GUICtrlSetColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("2", 16, 48, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button3 = GUICtrlCreateButton("3", 72, 48, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button4 = GUICtrlCreateButton("4", 128, 48, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button5 = GUICtrlCreateButton("5", 184, 48, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button6 = GUICtrlCreateButton("6", 16, 88, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button7 = GUICtrlCreateButton("7", 72, 88, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button8 = GUICtrlCreateButton("8", 128, 88, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button9 = GUICtrlCreateButton("9", 184, 88, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button10 = GUICtrlCreateButton("10", 16, 128, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button11 = GUICtrlCreateButton("11", 72, 128, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button12 = GUICtrlCreateButton("12", 128, 128, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button13 = GUICtrlCreateButton("13", 184, 128, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button14 = GUICtrlCreateButton("14", 16, 168, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button15 = GUICtrlCreateButton("15", 72, 168, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button16 = GUICtrlCreateButton("16", 128, 168, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button17 = GUICtrlCreateButton("17", 184, 168, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button18 = GUICtrlCreateButton("18", 48, 208, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button19 = GUICtrlCreateButton("19", 104, 208, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
$Button20 = GUICtrlCreateButton("20", 160, 208, 41, 33, 0)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $button2
$Form2 = GUICreate("Errore Assoluto", 279, 283, 202, 181)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Calcolo Dell' Errore Assoluto", 16, 8, 251, 28)
GUICtrlSetFont(-1, 16, 400, 0, "Modern No. 20")
GUICtrlSetColor(-1, 0x0000FF)
$Label2 = GUICtrlCreateLabel("Inserisci i dati", 80, 40, 99, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
$Dato1 = GUICtrlCreateInput("", 32, 72, 73, 21)
GUICtrlSetCursor (-1, 5)
$Dato2 = GUICtrlCreateInput("", 168, 72, 73, 21)
GUICtrlSetCursor (-1, 5)
$errore = GUICtrlCreateLabel("Errore assoluto", 64, 168, 149, 32)
GUICtrlSetFont(-1, 18, 800, 2, "Monotype Corsiva")
GUICtrlSetColor(-1, 0xFF0000)
$calcola = GUICtrlCreateButton("Calcola", 88, 112, 105, 41, 0)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)
$fine = GUICtrlCreateInput("", 48, 200, 177, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
EndSelect
WEnd


Non so se fin qui è sbagliato, ma non riesco a continuare...
Praticamente una volta cliccato sul tasto "2" dovrebbe creare un altro form dove si inseriscono due dati e calcoli l' errore.
Spero mi aiutate :(
CiAuZzZz
 
Top
metalmode
view post Posted on 4/2/2008, 01:27




ok, nn capisco cosa deve calcolare e se hai fatto un errore o ti devo mettere il resto del codice che lo calcoli!?
 
Top
Kinder-Pinguì
view post Posted on 4/2/2008, 09:38




Metal dovresti continuarlo, perchè vorrei che nel secondo form quando clicchi su $calcola, fa la media dei due dati ($Dato1 ; $Dato2 ).
 
Top
Alienx89
view post Posted on 4/2/2008, 12:44




Ecco il programma funzionanate


invece che 100 bottoni basta un up down cosi puoi arrivare al valore che vuoi


poi ti apre un imputbox per ogni valore

vengono inseriti i valori in un array

poi devi fare tu il calcolo degli errori nel codice ho scritto dove lo devi fare.... dato che io nn so come si fa.... ehehe

e poi ti apre una nuova form con il risultato in una imputbox

CODICE
; calcolo errori by Alienx89

#include <GUIConstants.au3>
#include <Array.au3>


$Form1 = GUICreate("", 120, 101, 193, 125)
$Button1 = GUICtrlCreateButton("Go", 24, 66, 75, 20, 0)
$Label1 = GUICtrlCreateLabel("Numero valori", 25, 10, 100, 25)
$input = GUICtrlCreateInput ("2",30,35, 50, 20)
$updown = GUICtrlCreateUpdown($input)
GUISetState(@SW_SHOW)


While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $button1
                       $val= GUICtrlRead($input)
                       GUIDelete()
                       calcola($val)

       EndSwitch
WEnd

Func calcola($val)
       Dim $avArray[$val]
       $Form2 = GUICreate("", 120, 50, 193, 125)
       For $i = 0 to $val - 1 Step +1
               $avArray[$i] =InputBox("", "Valore "& $i+1, "", "", 60, 120, 0, 0)        
       Next
       ; qui ci va il calcolo dell errore devi far scorre tt l arraylist prendere i valori
       ; e calcolare l errore
       ;metti per esempio che l errore sara 10
       $errore= 10 ; < - qui va il calcolo
       ; otterrai una imput box con il valore 10
       GUICtrlCreateLabel("Errore",20,20)
       GUICtrlCreateInput(""& $errore,60,20,40)
       GUISetState(@SW_SHOW)
EndFunc

;fine
 
Top
Kinder-Pinguì
view post Posted on 4/2/2008, 15:02




Grazie mille Alien, cosi' va meglio ^_^

THX :woot_jump.gif:
 
Top
Alienx89
view post Posted on 4/2/2008, 16:34




prego....
 
Top
5 replies since 2/2/2008, 02:28   176 views
  Share