Dubler Posted August 9, 2010 Posted August 9, 2010 (edited) 1. How to update a menuitem? 2. how can I shorten it: $1 = Random(1, $e, 1) Do $2 = Random(1, $e, 1) Until $2 <> $1 Do $3 = Random(1, $e, 1) Until $3 <> $1 And $3 <> $2 Do $4 = Random(1, $e, 1) Until $4 <> $1 And $4 <> $2 And $4 <> $3 Do $5 = Random(1, $e, 1) Until $5 <> $1 And $5 <> $2 And $5 <> $3 And $5 <> $4 $6 = "" $7 = "" $8 = "" $9 = "" $10 = "" EndIf If GUICtrlRead($Combo1) = "Duzy Lotek" Or GUICtrlRead($Combo1) = "Multi Lotek" Then Do $6 = Random(1, $e, 1) Until $6 <> $1 And $6 <> $2 And $6 <> $3 And $6 <> $4 And $6 <> $5 $7 = "" $8 = "" $9 = "" $10 = "" EndIf If GUICtrlRead($Combo1) = "Multi Lotek" Then Do $7 = Random(1, $e, 1) Until $7 <> $1 And $7 <> $2 And $7 <> $3 And $7 <> $4 And $7 <> $5 And $7 <> $6 Do $8 = Random(1, $e, 1) Until $8 <> $1 And $8 <> $2 And $8 <> $3 And $8 <> $4 And $8 <> $5 And $8 <> $6 And $8 <> $7 Do $9 = Random(1, $e, 1) Until $9 <> $1 And $9 <> $2 And $9 <> $3 And $9 <> $4 And $9 <> $5 And $9 <> $6 And $9 <> $7 And $9 <> $8 Do $10 = Random(1, $e, 1) Until $10 <> $1 And $10 <> $2 And $10 <> $3 And $10 <> $4 And $10 <> $5 And $10 <> $6 And $10 <> $7 And $10 <> $8 And $10 <> $9 EndIf ;;;;sortowanie;;;; $11 = "" $22 = "" $33 = "" $44 = "" $55 = "" $66 = "" $77 = "" $88 = "" $99 = "" $100 = "" If GUICtrlRead($Combo1) = "Expres Lotek" Then If $1 < $2 and $1 < $3 and $1 < $4 and $1 < $5 Then $11 = $1 Elseif $1 > $2 and $1 < $3 and $1 < $4 and $1 < $5 Then $22 = $1 ElseIf $1 < $2 and $1 > $3 and $1 < $4 and $1 < $5 Then $22 = $1 ElseIf $1 < $2 and $1 < $3 and $1 > $4 and $1 < $5 Then $22 = $1 ElseIf $1 < $2 and $1 < $3 and $1 < $4 and $1 > $5 Then $22 = $1 ElseIf $1 > $2 and $1 > $3 and $1 < $4 and $1 < $5 Then $33 = $1 ElseIF $1 > $2 and $1 < $3 and $1 > $4 and $1 < $5 Then $33 = $1 ElseIF $1 > $2 and $1 < $3 and $1 < $4 and $1 > $5 Then $33 = $1 ElseIF $1 < $2 and $1 > $3 and $1 > $4 and $1 < $5 Then $33 = $1 ElseIF $1 < $2 and $1 > $3 and $1 < $4 and $1 > $5 Then $33 = $1 ElseIF $1 < $2 and $1 < $3 and $1 > $4 and $1 > $5 Then $33 = $1 ElseIF $1 > $2 and $1 > $3 and $1 > $4 and $1 < $5 Then $44 = $1 ElseIF $1 > $2 and $1 > $3 and $1 < $4 and $1 > $5 Then $44 = $1 ElseIF $1 > $2 and $1 > $3 and $1 < $4 and $1 < $5 Then $44 = $1 ElseIF $1 > $2 and $1 < $3 and $1 > $4 and $1 > $5 Then $44 = $1 ElseIF $1 < $2 and $1 > $3 and $1 > $4 and $1 > $5 Then $44 = $1 ElseIf $1 > $2 and $1 > $3 and $1 > $4 and $1 > $5 Then $55 = $1 Else MsgBox ( 16, "Error", "Blad w bibliotece sortowania. Prosze zlozyc raport na nr gg 5169464 ze w numerkach " & $1 & ", " & $2 & ", " & 3 & ", " & $4 & " i " & $5 & " wystapil ten blad") endif If $2 < $1 and $2 < $3 and $2 < $4 and $2 < $5 Then $11 = $2 ElseIf $2 > $1 and $2 < $3 and $2 < $4 and $2 < $5 Then $22 = $2 ElseIf $2 < $1 and $2 > $3 and $2 < $4 and $2 < $5 Then $22 = $2 ElseIf $2 < $1 and $2 < $3 and $2 > $4 and $2 < $5 Then $22 = $2 ElseIf $2 < $1 and $2 < $3 and $2 < $4 and $2 > $5 Then $22 = $2 ElseIf $2 > $1 and $2 > $3 and $2 < $4 and $2 < $5 Then $33 = $2 ElseIF $2 > $1 and $2 < $3 and $2 > $4 and $2 < $5 Then $33 = $2 ElseIF $2 > $1 and $2 < $3 and $2 < $4 and $2 > $5 Then $33 = $2 ElseIF $2 < $1 and $2 > $3 and $2 > $4 and $2 < $5 Then $33 = $2 ElseIF $2 < $1 and $2 > $3 and $2 < $4 and $2 > $5 Then $33 = $2 ElseIF $2 < $1 and $2 < $3 and $2 > $4 and $2 > $5 Then $33 = $2 ElseIF $2 > $1 and $2 > $3 and $2 > $4 and $2 < $5 Then $44 = $2 ElseIF $2 > $1 and $2 > $3 and $2 < $4 and $2 > $5 Then $44 = $2 ElseIF $2 > $1 and $2 > $3 and $2 < $4 and $2 < $5 Then $44 = $2 ElseIF $2 > $1 and $2 < $3 and $2 > $4 and $2 > $5 Then $44 = $2 ElseIF $2 < $1 and $2 > $3 and $2 > $4 and $2 > $5 Then $44 = $2 ElseIf $2 > $1 and $2 > $3 and $2 > $4 and $2 > $5 Then $55 = $2 Else MsgBox ( 16, "Error", "Blad w bibliotece sortowania. Prosze zlozyc raport na nr gg 5169464 ze w numerkach " & $1 & ", " & $2 & ", " & 3 & ", " & $4 & " i " & $5 & " wystapil ten blad") endif If $3 < $1 and $3 < $2 and $3 < $4 and $3 < $5 Then $11 = $3 ElseIf $3 > $1 and $3 < $2 and $3 < $4 and $3 < $5 Then $22 = $3 ElseIf $3 < $1 and $3 > $2 and $3 < $4 and $3 < $5 Then $22 = $3 ElseIf $3 < $1 and $3 < $2 and $3 > $4 and $3 < $5 Then $22 = $3 ElseIf $3 < $1 and $3 < $2 and $3 < $4 and $3 > $5 Then $22 = $3 ElseIf $3 > $1 and $3 > $2 and $3 < $4 and $3 < $5 Then $33 = $3 ElseIF $3 > $1 and $3 < $2 and $3 > $4 and $3 < $5 Then $33 = $3 ElseIF $3 > $1 and $3 < $2 and $3 < $4 and $3 > $5 Then $33 = $3 ElseIF $3 < $1 and $3 > $2 and $3 > $4 and $3 < $5 Then $33 = $3 ElseIF $3 < $1 and $3 > $2 and $3 < $4 and $3 > $5 Then $33 = $3 ElseIF $3 < $1 and $3 < $2 and $3 > $4 and $3 > $5 Then $33 = $3 ElseIF $3 > $1 and $3 > $2 and $3 > $4 and $3 < $5 Then $44 = $3 ElseIF $3 > $1 and $3 > $2 and $3 < $4 and $3 > $5 Then $44 = $3 ElseIF $3 > $1 and $3 > $2 and $3 < $4 and $3 < $5 Then $44 = $3 ElseIF $3 > $1 and $3 < $2 and $3 > $4 and $3 > $5 Then $44 = $3 ElseIF $3 < $1 and $3 > $2 and $3 > $4 and $3 > $5 Then $44 = $3 ElseIf $3 > $1 and $3 > $2 and $3 > $4 and $3 > $5 Then $55 = $3 Else MsgBox ( 16, "Error", "Blad w bibliotece sortowania. Prosze zlozyc raport na nr gg 5169464 ze w numerkach " & $1 & ", " & $2 & ", " & 3 & ", " & $4 & " i " & $5 & " wystapil ten blad") endif If $4 < $1 and $4 < $2 and $4 < $3 and $4 < $5 Then $11 = $4 ElseIf $4 > $1 and $4 < $2 and $4 < $3 and $4 < $5 Then $22 = $4 ElseIf $4 < $1 and $4 > $2 and $4 < $3 and $4 < $5 Then $22 = $4 ElseIf $4 < $1 and $4 < $2 and $4 > $3 and $4 < $5 Then $22 = $4 ElseIf $4 < $1 and $4 < $2 and $4 < $3 and $4 > $5 Then $22 = $4 ElseIf $4 > $1 and $4 > $2 and $4 < $3 and $4 < $5 Then $33 = $4 ElseIF $4 > $1 and $4 < $2 and $4 > $3 and $4 < $5 Then $33 = $4 ElseIF $4 > $1 and $4 < $2 and $4 < $3 and $4 > $5 Then $33 = $4 ElseIF $4 < $1 and $4 > $2 and $4 > $3 and $4 < $5 Then $33 = $4 ElseIF $4 < $1 and $4 > $2 and $4 < $3 and $4 > $5 Then $33 = $4 ElseIF $4 < $1 and $4 < $2 and $4 > $3 and $4 > $5 Then $33 = $4 ElseIF $4 > $1 and $4 > $2 and $4 > $3 and $4 < $5 Then $44 = $4 ElseIF $4 > $1 and $4 > $2 and $4 < $3 and $4 > $5 Then $44 = $4 ElseIF $4 > $1 and $4 > $2 and $4 < $3 and $4 < $5 Then $44 = $4 ElseIF $4 > $1 and $4 < $2 and $4 > $3 and $4 > $5 Then $44 = $4 ElseIF $4 < $1 and $4 > $2 and $4 > $3 and $4 > $5 Then $44 = $4 ElseIf $4 > $1 and $4 > $2 and $4 > $3 and $4 > $5 Then $55 = $4 Else MsgBox ( 16, "Error", "Blad w bibliotece sortowania. Prosze zlozyc raport na nr gg 5169464 ze w numerkach " & $1 & ", " & $2 & ", " & 3 & ", " & $4 & " i " & $5 & " wystapil ten blad") endif If $5 < $1 and $5 < $2 and $5 < $3 and $5 < $4 Then $11 = $5 ElseIf $5 > $1 and $5 < $2 and $5 < $3 and $5 < $4 Then $22 = $5 ElseIf $5 < $1 and $5 > $2 and $5 < $3 and $5 < $4 Then $22 = $5 ElseIf $5 < $1 and $5 < $2 and $5 > $3 and $5 < $4 Then $22 = $5 ElseIf $5 < $1 and $5 < $2 and $5 < $3 and $5 > $4 Then $22 = $5 ElseIf $5 > $1 and $5 > $2 and $5 < $3 and $5 < $4 Then $33 = $5 ElseIF $5 > $1 and $5 < $2 and $5 > $3 and $5 < $4 Then $33 = $5 ElseIF $5 > $1 and $5 < $2 and $5 < $3 and $5 > $4 Then $33 = $5 ElseIF $5 < $1 and $5 > $2 and $5 > $3 and $5 < $4 Then $33 = $5 ElseIF $5 < $1 and $5 > $2 and $5 < $3 and $5 > $4 Then $33 = $5 ElseIF $5 < $1 and $5 < $2 and $5 > $3 and $5 > $4 Then $33 = $5 ElseIF $5 > $1 and $5 > $2 and $5 > $3 and $5 < $4 Then $44 = $5 ElseIF $5 > $1 and $5 > $2 and $5 < $3 and $5 > $4 Then $44 = $5 ElseIF $5 > $1 and $5 > $2 and $5 < $3 and $5 < $4 Then $44 = $5 ElseIF $5 > $1 and $5 < $2 and $5 > $3 and $5 > $4 Then $44 = $5 ElseIF $5 < $1 and $5 > $2 and $5 > $3 and $5 > $4 Then $44 = $5 ElseIf $5 > $1 and $5 > $2 and $5 > $3 and $5 > $4 Then $55 = $5 Else MsgBox ( 16, "Error", "Blad w bibliotece sortowania. Prosze zlozyc raport na nr gg 5169464 ze w numerkach " & $1 & ", " & $2 & ", " & 3 & ", " & $4 & " i " & $5 & " wystapil ten blad") endif 3. How to do imgsearch with half-transparent png file Plz move that to general help 4. How to complite file with images and sound to 1 .exe file? 5. How to do a self-excracting file? Edited August 9, 2010 by Dubler
kaotkbliss Posted August 9, 2010 Posted August 9, 2010 1. You probably want to use GuiCtrlSetData 4 and 5. Use FileInstall to include files into your exe (this will extract them to a location you specify when run) 010101000110100001101001011100110010000001101001011100110010000 001101101011110010010000001110011011010010110011100100001 My Android cat and mouse gamehttps://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek We're gonna need another Timmy!
Dubler Posted August 9, 2010 Author Posted August 9, 2010 1. You probably want to use GuiCtrlSetData 4 and 5. Use FileInstall to include files into your exe (this will extract them to a location you specify when run) 1. "Parameters controlID The control identifier (controlID) as returned by a GUICtrlCreate... function. data Combo, List, ListView, ListViewItem: An Opt("GUIDataSeparatorChar",...) separated list of items. Progress: The percentage. Slider: The value. Group, Label, Button, Checkbox, Radio, Combo, List, Input, Edit, TabItem, TreeViewItem: Replaces the text. Date : The date or time depending the style of the control. Dummy: The value. default [optional] Combo, List: The default value. Edit, Input: If non-empty (""), the string is inserted at the current insertion point (caret). " thx for 4 and 5
Quual Posted August 10, 2010 Posted August 10, 2010 For #2 Really didn't understand your code's purpose but this may help point in right direction Local $i = 1, $max = 5, $unique If GUICtrlRead($Combo1) = "Duzy Lotek" Then $max = 6 ElseIf GUICtrlRead($Combo1) = "Multi Lotek" Then $max = 10 ElseIf GUICtrlRead($Combo1) = "Expres Lotek" Then $max = 50 EndIf If $e < $max Then MsgBox(0,'','Error not possible') Do Do $unique = True Assign($i,Random(1,$e,1),1) For $n = 1 To $i - 1 If $i <> $n And Eval($n) = Eval($i) Then $unique = False Next Until $unique $i += 1 Until $i > $max
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now