For Statement

Dieuz · April 9, 2007

I was wondering why this is not working. I have 20 buttons and when I click on a certain one, I want that the images of each buttons become blank. My buttons are all named Button_1, Button_2, Button_3 etc.. Why this code is not working?

Func Blank()
            For $a = 1 to 20
            GuiCtrlSetImage($Button_[$a], @ScriptDir & "\Radio\blankitem.bmp)
        Next
        EndFunc

martin · April 9, 2007

I was wondering why this is not working. I have 20 buttons and when I click on a certain one, I want that the images of each buttons become blank. My buttons are all named Button_1, Button_2, Button_3 etc.. Why this code is not working?
Func Blank()
            For $a = 1 to 20
            GuiCtrlSetImage($Button_[$a], @ScriptDir & "\Radio\blankitem.bmp)
        Next
        EndFunc

missing closing quotes?

Dieuz · April 9, 2007

huh? I'm getting a variable error because I did not declare $Button_ but I want it so it's $Button_[1,2,3,4,5,6,7,8,9,...]

martin · April 10, 2007

huh? I'm getting a variable error because I did not declare $Button_ but I want it so it's $Button_[1,2,3,4,5,6,7,8,9,...]

If you want an array of buttons you will have to do something like this at the start of your script

Dim $Button_[12]; assuming you know how many buttons you want

For $n =0 to UBound($Button_) - 1
 $Button_[$n] =  guictrlcreateButton(.......
next

Edited April 10, 2007 by martin

Dieuz · April 10, 2007

but How could I do it if my buttons are already made?

$Button_1 = GuiCtrlCreateButton("", 350, 30, 35, 35, $BS_BITMAP)
$Button_2 = GuiCtrlCreateButton("", 100, 10, 35, 35, $BS_BITMAP)
$Button_3 = GuiCtrlCreateButton("", 200, 20, 35, 35, $BS_BITMAP)
$Button_4 = GuiCtrlCreateButton("", 300, 30, 35, 35, $BS_BITMAP)
$Button_5 = GuiCtrlCreateButton("", 400, 40, 35, 35, $BS_BITMAP)
$Button_6 = GuiCtrlCreateButton("", 500, 50, 35, 35, $BS_BITMAP)
$Button_7 = GuiCtrlCreateButton("", 600, 60, 35, 35, $BS_BITMAP)
;...

I just want the $n to be the numbers 1 to 20, so it will do it for buttons 1 to 20.

Edited April 10, 2007 by Dieuz

BrettF · April 10, 2007

but How could I do it if my buttons are already made?

$Button_1 = GuiCtrlCreateButton("", 350, 30, 35, 35, $BS_BITMAP)
$Button_2 = GuiCtrlCreateButton("", 100, 10, 35, 35, $BS_BITMAP)
$Button_3 = GuiCtrlCreateButton("", 200, 20, 35, 35, $BS_BITMAP)
$Button_4 = GuiCtrlCreateButton("", 300, 30, 35, 35, $BS_BITMAP)
$Button_5 = GuiCtrlCreateButton("", 400, 40, 35, 35, $BS_BITMAP)
$Button_6 = GuiCtrlCreateButton("", 500, 50, 35, 35, $BS_BITMAP)
$Button_7 = GuiCtrlCreateButton("", 600, 60, 35, 35, $BS_BITMAP)
;...
oÝ÷ Øî²ÜÛa{MúÚzØ^éz»5¶´²Â)ev~ÛºÛhÍm£m?ªê-xé»-¡ö¥Múëm¢x¬Zªëk!rî¶Ú'«-éî·«)¶¬Ó~ºÛh]7è¶öÒÊ2¢êß¢¹h¢(ºWe¢%GºÚ"µÍÛØ[   ÌÍØÛÝ[HBBQÜ   ÌÍÛLHÈ  ÌÍØÛÝ[BBQÝZPÝÙ][XYÙJ   ÌÍÐ]ÛÉÌÍÛØÜ   [È ][ÝÉÌLÔY[ÉÌLØ[Ú][K  ][ÝÊBBS^

Try that and see how you go.

Dieuz · April 10, 2007

I'm getting:

WARNING: $Button_: possibly used before declaration.

xcal · April 10, 2007

Func Blank ()
    For $a = 1 To 20
        GUICtrlSetImage(Eval('Button_' & $a), @ScriptDir & "\Radio\blankitem.bmp)
    Next
EndFunc

edit - oops, forgot a closing bracket. If you already tried it, try again.

Edited April 10, 2007 by xcal

Dieuz · April 10, 2007

Wooot ! It work, does this will work everytime? I mean If I use Eval() to declare a group of control.

McGod · April 10, 2007

Well if $Button_ were an array $Button_[$a] would work. But when there each a seperate variable, you need to use Eval to grab the variable.

Dieuz · April 10, 2007

Fine, Thanks guys !

Edited April 10, 2007 by Dieuz

Dieuz · April 11, 2007

Using Eval(), Im getting an error here:

It read each values from my Ini file and write it for the path of each pictures.

For $a = 0 to 4
Eval('Read' & $a) = IniRead(@ScriptDir & "\Radio.ini", "Pic", $a, "")
Next

$Pic_0 = GuiCtrlCreatePic(('Read' & $a), 9, 450, 35, 35)
$Pic_1 = GuiCtrlCreatePic(('Read' & $a) 43, 450, 35, 35)
$Pic_2 = GuiCtrlCreatePic(('Read' & $a), 77, 450, 35, 35)
$Pic_3 = GuiCtrlCreatePic(('Read' & $a), 111, 450, 35, 35)
$Pic_4 = GuiCtrlCreatePic(('Read' & $a), 145, 450, 35, 35)
oÝ÷ ØýÚòx-¢È¦¦XÊØb±«¢+Ø(ÀÌØíIÀô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÀÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíIÄô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÄÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíIÈô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÈÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíIÌô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÌÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíIÐô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤((ÀÌØí1±|ÀôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÀ°ä°ÐÔÀ°ÌÔ°ÌÔ¤(ÀÌØí1±|ÄôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÄ°ÐÌ°ÐÔÀ°ÌÔ°ÌÔ¤(ÀÌØí1±|ÈôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÈ°ÜÜ°ÐÔÀ°ÌÔ°ÌÔ¤(ÀÌØí1±|ÌôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÌ°ÄÄÄ°ÐÔÀ°ÌÔ°ÌÔ¤(ÀÌØí1±|ÐôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÐ°ÄÐÔ°ÐÔÀ°ÌÔ°ÌÔ¤

How can I correct it?

Edited April 11, 2007 by Dieuz

BrettF · April 11, 2007

Using Eval(), Im getting an error here:

It read each values from my Ini file and write it for the path of each pictures.

For $a = 0 to 4
Eval('Read' & $a) = IniRead(@ScriptDir & "\Radio.ini", "Pic", $a, "")
Next

$Pic_0 = GuiCtrlCreatePic(('Read' & $a), 9, 450, 35, 35)
$Pic_1 = GuiCtrlCreatePic(('Read' & $a) 43, 450, 35, 35)
$Pic_2 = GuiCtrlCreatePic(('Read' & $a), 77, 450, 35, 35)
$Pic_3 = GuiCtrlCreatePic(('Read' & $a), 111, 450, 35, 35)
$Pic_4 = GuiCtrlCreatePic(('Read' & $a), 145, 450, 35, 35)
oÝ÷ ØýÚòx-¢È¦¦XÊØb±«¢+Ø(ÀÌØíIÀô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÀÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíIÄô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÄÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíIÈô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÈÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíIÌô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÌÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíIÐô%¹¥I¡MÉ¥ÁÑ¥ÈµÀìÅÕ½ÐìÀäÈíI¥¼¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíA¥ÅÕ½Ðì°ÅÕ½ÐìÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤((ÀÌØí1±|ÀôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÀ°ä°ÐÔÀ°ÌÔ°ÌÔ¤(ÀÌØí1±|ÄôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÄ°ÐÌ°ÐÔÀ°ÌÔ°ÌÔ¤(ÀÌØí1±|ÈôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÈ°ÜÜ°ÐÔÀ°ÌÔ°ÌÔ¤(ÀÌØí1±|ÌôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÌ°ÄÄÄ°ÐÔÀ°ÌÔ°ÌÔ¤(ÀÌØí1±|ÐôÕ¥
ÑÉ±
ÉÑA¥ ÀÌØíIÐ°ÄÐÔ°ÐÔÀ°ÌÔ°ÌÔ¤

Dieuz · April 11, 2007

Untested:

For $a = 0 To 4
    Assign('Read' & $a, IniRead(@ScriptDir & "\Radio.ini", "Pic", $a, ""))
Next

It doesnt work :shocked:

Paulie · April 11, 2007

It doesnt work

Is your INI formated correctly?

Dieuz · April 11, 2007

Is your INI formated correctly?

Yes on that point , Im 100% sure.

Ini File

[Pic]
0=C:\Documents and Settings\Images\Radio.bmp
1=C:\Documents and Settings\Images\Radio1.bmp
2=C:\Documents and Settings\Images\Radio2.bmp
3=C:\Documents and Settings\Images\Radio3.bmp
4=C:\Documents and Settings\Images\Radio4.bmp

My question was, how can I shorter this code:

$Read0 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "0", "")
$Read1 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "1", "")
$Read2 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "2", "")
$Read3 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "3", "")
$Read4 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "4", "")

$Label_0 = GuiCtrlCreatePic($Read0, 9, 450, 35, 35)
$Label_1 = GuiCtrlCreatePic($Read1, 43, 450, 35, 35)
$Label_2 = GuiCtrlCreatePic($Read2, 77, 450, 35, 35)
$Label_3 = GuiCtrlCreatePic($Read3, 111, 450, 35, 35)
$Label_4 = GuiCtrlCreatePic($Read4, 145, 450, 35, 35)

Edited April 11, 2007 by Dieuz

therks · April 12, 2007

You weren't Eval()ing in your CreatePic functions.

Using the code from your last post:

For $i = 0 to 4
  Assign('Read' & $i, IniRead(@ScriptDir & "\Radio.ini", "Pic", $i, ""))
  Assign('Label_' & $i, GuiCtrlCreatePic(Eval('Read' & $i), 9 + 35 * $i, 450, 35, 35))
NextoÝ÷ Ù:ò¶b¢é]j[(v)¶¬ü¨¹Ú'ßÛgyçmí7évö«¦åzÆ®¶sdf÷"b33c¶ÒFò@¢b33c·F×Òæ&VB67&DF"f×²gV÷C²b3#µ&FòæægV÷C²ÂgV÷Cµ2gV÷C²Âb33c¶ÂgV÷C²gV÷C²¢76vâb33´Æ&VÅòb33²f×²b33c¶ÂwV7G&Ä7&VFU2b33c·F×Â²3R¢b33c¶ÂCSÂ3RÂ3R¤æW

That would probably run a little faster (assuming that Assign()ing and Eval()ing is slower than using static variable names).

*Edit: Messed up some brackets.

*Edit 2: Missed some closing brackets. :shocked:

Edited April 14, 2007 by Saunders

Dieuz · April 12, 2007

For $i = 0 to 4
  $tmp = IniRead(@ScriptDir & "\Radio.ini", "Pic", $i, "")
  Assign('Label_' & $i, GuiCtrlCreatePic($tmp, 9 + 35 * $i, 450, 35, 35)
Next

PsaltyDS · April 12, 2007

Dump that mangled Assign/Eval stuff and learn to use arrays.

The following creates a GUI with twenty buttons, and the control ids of the buttons are in an array called $avButtons:

#include <guiconstants.au3>
#include <array.au3>

; Create a GUI
Opt("GuiOnEventMode", 1)
$hGUI = GUICreate("20 Buttons", 190, 235)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")

; Twenty buttons, coming up...
Dim $avButtons[1] = [0]
Dim $Left = 10, $Top = 10

For $b = 1 To 20
    _ArrayAdd($avButtons, GUICtrlCreateButton($b, $Left, $Top, 35, 35, $BS_BITMAP))
    $Left += 45
    If $Left > 155 Then
        $Left = 10
        $Top += 45
    EndIf
Next
$avButtons[0] = UBound($avButtons) - 1

GUISetState()

While 1
    Sleep(20)
WEnd

Func _Quit()
    Exit
EndFunc   ;==>_QuitoÝ÷ ØÚ-Ç«lw!Æ§ºÇ)¶"½ëazZjØ¨Çè®Ø^nëm¢{-ç(uè¬ç!²+µêÀ)¶¶Ø^¶©'(ëÞ¯*'zíæî¶Ú'³
.Ùh¢IbëaÆ®¶sbb33c´&×fÆRÒgV÷C´3¢b3#µFV×b3#´×'WGFöâæ&×gV÷C°¤f÷"b33c¶"ÒFòb33c¶d'WGFöç5³Ð uT7G&Å6WDÖvRb33c¶d'WGFöç5²b33c¶%ÒÂb33c´&×fÆR¤æW

See how much easier they are to work with, once you get them in an array?

:shocked:

Dieuz · April 13, 2007

Yes an array shorter the code alot but it would be very hard to make an array with my pictures because they are almost randomly positioned. Well as I can see, the only things that I need to shorter is this:

$Read0 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "0", "")
$Read1 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "1", "")
$Read2 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "2", "")
$Read3 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "3", "")
$Read4 = IniRead(@ScriptDir & "\Radio.ini", "Pic", "4", "")

If im able to shorter this, I will be happy.

Sign In

For Statement

Recommended Posts

Dieuz

martin

Dieuz

martin

Dieuz

BrettF

Dieuz

xcal

Dieuz

McGod

Dieuz

Dieuz

BrettF

Dieuz

Paulie

Dieuz

therks

Dieuz

PsaltyDS

Dieuz

Create an account or sign in to comment

Create an account

Sign in

Browse

AutoIt Resources

Release

Beta