» Utilizator
LAMP
» Parteneri» De citit» Recomandari» Taskuri securitate » Statistici
  • 65486 de mesaje.
  • 7732 de topicuri.
  • 1230 de utilizatori.
  •  
  • Joistestisket8 e ultimul utilizator inregistrat.
[Detalii]

 

| |
Pagini: [1]
Print

Un pic de ajutor in AutoIT [1028 afisari]

Meteora
*


Mesaje: 132
OfflineOffline

WWW
Am inceput sa invat si eu AutoIT...am facut un program "care vrea" sa calculeze suma a 3 numere date de la tastaura(a,b,c) dar numai ca nu-mi iese
Uitati codul sursa:

Code:
#include<guiconstants.au3>

$gui = GUICreate("Adunare",250,75)
$a_label = GUICtrlCreateLabel("a=",4,5,15,18)
$a_input=GUICtrlCreateInput("",20,4,30,19)
$b_label = GUICtrlCreateLabel("b=",54,5,15,18)
$b_input = GUICtrlCreateInput("",70,4,30,19)
$c_label = GUICtrlCreateLabel("c=",104,515,18)
$c_input = GUICtrlCreateInput("",120,4,30,19)
$calculate = GUICtrlCreateButton("Calculeaza",154,4,94,19)
$adunare_box = GUICtrlCreateLabel("Rezultatul=",4,30,50,19)
GUISetState()

Dim $a, $b, $c, $adunare

Func adunare()
$a = GUICtrlRead($a_input)
$b = guictrlread($b_input)
$c = GUICtrlRead($c_input)
$adunare = $a + $b + $c
GUICtrlSetData($adunare_box,"Rezultatul=" & $adunare)
EndFunc

while 1
$msg = GUIGetMsg()
Select
Case $msg = $calculate
GUICtrlSetData($adunare_box, "")
adunare()
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
endSelect
WEnd
Intru in program si scriu 3 cifre dar numai ca nu calculeaza..nu se intampla nimic..si in plus labelul c nici nu apare...spuneti-mi unde am gresit

poza programului:
Logged
http://meteora.blogabet.com/
21-06-2008, 16:34 Twitt ::
Smash
*


Mesaje: 1173
OfflineOffline

WWW
Varianta corecta
Code:
#include<guiconstants.au3>
$gui = GUICreate("Adunare", 250, 75)
$a_label = GUICtrlCreateLabel("a=", 4, 5, 15, 18)
$a_input = GUICtrlCreateInput("", 20, 4, 30, 19)
$b_label = GUICtrlCreateLabel("b=", 54, 5, 15, 18)
$b_input = GUICtrlCreateInput("", 70, 4, 30, 19)
$c_label = GUICtrlCreateLabel("c=", 104, 515, 18)
$c_input = GUICtrlCreateInput("", 120, 4, 30, 19)
$calculate = GUICtrlCreateButton("Calculeaza", 154, 4, 94, 19)
$adunare_box = GUICtrlCreateLabel("Rezultatul=", 4, 30, 220, 20)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $calculate
adunare()
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
Func adunare()
Local $a, $b, $c, $adunare
$a = GUICtrlRead($a_input)
$b = GUICtrlRead($b_input)
$c = GUICtrlRead($c_input)
$adunare = $a + $b + $c
GUICtrlSetData($adunare_box,"Rezultatul=" & $adunare)
EndFunc   ;==>adunare
Logged


21-06-2008, 17:18 Twitt ::
Meteora
*


Mesaje: 132
OfflineOffline

WWW
mersi mult Smash..acum imi calculeaza suma dar totusi nus tiu de ce tot nu apare labelul "c"

uite:
Logged
http://meteora.blogabet.com/
21-06-2008, 17:40 Twitt ::
Smash
*


Mesaje: 1173
OfflineOffline

WWW
pune
Code:
$c_label = GUICtrlCreateLabel("c=", 104, 5, 18)
in loc de
Code:
$c_label = GUICtrlCreateLabel("c=", 104, 515, 18)
Logged


21-06-2008, 18:17 Twitt ::
Muzet
*


Mesaje: 268
OfflineOffline
Dacă vrei să scoţi c foloseşte asta:

Code:
#include<guiconstants.au3>
$gui = GUICreate("Adunare", 250, 75)
$a_label = GUICtrlCreateLabel("a=", 4, 5, 15, 18)
$a_input = GUICtrlCreateInput("", 20, 4, 30, 19)
$b_label = GUICtrlCreateLabel("b=", 54, 5, 15, 18)
$b_input = GUICtrlCreateInput("", 70, 4, 30, 19)
$calculate = GUICtrlCreateButton("Calculeaza", 154, 4, 94, 19)
$adunare_box = GUICtrlCreateLabel("Rezultatul=", 4, 30, 220, 20)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $calculate
            adunare()
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd
Func adunare()
    Local $a, $b, $c, $adunare
    $a = GUICtrlRead($a_input)
    $b = GUICtrlRead($b_input)
    $adunare = $a + $b
    GUICtrlSetData($adunare_box,"Rezultatul=" & $adunare)
EndFunc   ;==>adunare
Logged
21-06-2008, 18:17 Twitt ::
Meteora
*


Mesaje: 132
OfflineOffline

WWW


acum merge...Laughing am pus in loc de 5 - 515..normal aparea c-ul dar nu se putea vedea din cauza formului care avea dimensiuni mai miic Smile
Logged
http://meteora.blogabet.com/
21-06-2008, 18:23 Twitt ::
Muzet
*


Mesaje: 268
OfflineOffline
Credeam că vrei să scoţi C în cazul meu va fi suma a două numere a şi b.
Logged
21-06-2008, 18:25 Twitt ::
Meteora
*


Mesaje: 132
OfflineOffline

WWW
am vazut in unele programe :

Opt('MustDeclareVars', 1)

ce inseaman?> Opt-ul ala?
Logged
http://meteora.blogabet.com/
21-06-2008, 18:47 Twitt ::
shadow-hacker
*


Mesaje: 59
OfflineOffline

WWW
opt(...) este o comanda care o dai optional unui program schimbandu-i anumite caracteristici, ex: Opt(Mustdecalrevars, 1) spune ca trebuie sa declari toate variabilele obligatoriu
Logged
27-06-2008, 21:14 Twitt ::
Smash
*


Mesaje: 1173
OfflineOffline

WWW
Gata s-a rezovat, acum se vede bine
Logged


22-02-2009, 20:48 Twitt ::
Pagini: [1]
Print
SkullBox Forum  |  Development  |  AutoIt  |  Topic: Un pic de ajutor in AutoIT