Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie] Rozwijana Lista Funkcji

adrick1197

Rekomendowane odpowiedzi

adrick1197 Pomocnik

adrick1197

Opublikowano
Pomocnik

adrick1197

Opublikowano

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 633, 447, 192, 124)

$Input1 = GUICtrlCreateInput("ilosc powt...", 8, 8, 121, 21)

$Button1 = GUICtrlCreateButton("OK", 136, 8, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

Global $lol

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

$ta = GUICtrlRead($Input1)

party()

EndSwitch

WEnd

 

i pod tym ilość stron aby była rozwijana lista funkcji i jak ktos np kliknie na zaloguj się to on wtedy uruchamia funkcje gdzie bot ma sie logować jesli wyloguj to włącza sie funkcja w której sie wyloguje :P

 

chodzi mi o takie coś ja w HTML

 

<form action="...">

<select name="nazwa">

<option>Możliwosc 1</option>

<option>Możliwosc 2</option>

<option>Możliwosc 3</option>

<option>Możliwosc 4</option>

<option>Możliwosc 6</option>

<option>Możliwosc 5</option>

(...)

</select>

</form>

 

i zeby do każdej możliwości była przypisana funkcja do wykonania po jej zaznaczeniu

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

nie wiem czy o to ci chodzi bo nieznam się na php

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Combo1 = GUICtrlCreateCombo("Combo1", 8, 8, 145, 25)
guictrlsetdata(-1,"jeeee")
$Button1 = GUICtrlCreateButton("Button1", 120, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	case $Button1
		$ta = guictrlread($combo1)
		if $ta = "Combo1" Then
			msgbox(0,"","123")
		EndIf
		if $ta = "jeeee" Then
			msgbox(0,"","asdf")
			EndIf
EndSwitch
WEnd

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

coś takiego?

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Combo1 = GUICtrlCreateCombo("Combo1", 8, 8, 145, 25)
guictrlsetdata(-1,"jeeee")
$Button1 = GUICtrlCreateButton("Button1", 120, 120, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("ok", 120, 150, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               case $Button1
                       $ta = guictrlread($combo1)
                       if $ta = "Combo1" Then
                               msgbox(0,"","123")
                       EndIf
                       if $ta = "jeeee" Then
                               msgbox(0,"","asdf")
						EndIf
					case $button2
						guisetstate(@SW_hide)
       EndSwitch
WEnd

"i jakies dymki z boku tych 2 pul z info co ma wpisać ?? " nie czaje tego. daj przyklad lub narysuj w paincie

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

chodzi mu o tooltipy np jak najedzie(kursorem) na input to wyswietli mu sie [tooltip]wpisz tu cos co potrzeba...itd[tt]

 

[edit] znalazlem

 

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Combo1 = GUICtrlCreateCombo("Combo1", 8, 8, 145, 25)
guictrlsetdata(-1,"jeeee")
$Button1 = GUICtrlCreateButton("Button1", 120, 120, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("ok", 120, 150, 75, 25, $WS_GROUP)
GUICtrlSetTip(-1,"wylacz program");<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<to ta linijka o to chodzi ??
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               case $Button1
                       $ta = guictrlread($combo1)
                       if $ta = "Combo1" Then
                               msgbox(0,"","123")
                       EndIf
                       if $ta = "jeeee" Then
                               msgbox(0,"","asdf")
						EndIf
					case $button2
						guisetstate(@SW_hide)
       EndSwitch
WEnd

 

najedz myszka na button ok i pojawi sie dymek z instrukcjia

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

powinna jesli chcesz dodac wiecej opcji wstawiasz (-1,"jee|beee|alllaa|aaaa")

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

adrick1197 Pomocnik

adrick1197

Opublikowano
Pomocnik

adrick1197

  • Autor
Opublikowano

a zrobił bys mi wersje z 5 opcjami bo jak chce zrobic tak :

 

 

HotKeySet("{Esc}","ext")
Func ext()
   Endfunc
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Combo1 = GUICtrlCreateCombo("Combo1", 8, 8, 145, 25)
guictrlsetdata(-1,"jeeee")
guictrlsetdata(-1,"jeee1")
guictrlsetdata(-1,"jeee2")
guictrlsetdata(-1,"jeee3")
$Button1 = GUICtrlCreateButton("Button1", 120, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               case $Button1
                       $ta = guictrlread($combo1)
                       if $ta = "Combo1" Then
                               msgbox(0,"","123")
                       EndIf
                       if $ta = "jeeee" Then
                               msgbox(0,"","asdf")
                       EndIf
                       if $ta = "jeee1" Then
                               msgbox(0,"","1234")
                       EndIf
                       if $ta = "jeee2" Then
                               msgbox(0,"","1235")
                       EndIf
                       if $ta = "jeee3" Then
                               msgbox(0,"","1236")
                       EndIf

       EndSwitch
Wend

 

to błąd wywala

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

popsolem post sry..........................................................................

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

adrick1197 Pomocnik

adrick1197

Opublikowano
Pomocnik

adrick1197

  • Autor
Opublikowano

wiec tak teraz mam wszystki tylko jak mam

 

HotKeySet("{Esc}","ext")
Func ext()
Endfunc
$HARDKOR = 25
$HARDKOR1 = 25
$HARDKOR2 = 25
$HARDKOR3 = 25
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Input1 = GUICtrlCreateInput("Strony ze znajmymi",8, 40, 121, 21)
$Combo1 = GUICtrlCreateCombo("Nastawienie", 8, 8, 145, 25)
guictrlsetdata(-1,"Przytul")
guictrlsetdata(-1,"Taniec")
guictrlsetdata(-1,"Bitka")
guictrlsetdata(-1,"Pocałunek")
guictrlsetdata(-1,"Straszna historia")
$Button1 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $lol
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       $ta1 = GUICtrlRead($Input1)
                       party()
					party1()
					party2()
					party3()
					party4()

       EndSwitch
       WEnd

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               case $Button1
                       $ta = guictrlread($combo1)
                       if $ta = "Wybieranie" Then
                       MsgBox(0,"błąd","proszę wybrać jedną z opcji") 
                       EndIf
                       if $ta = "Przytul" Then
						Func  party()

                               msgbox(0,"","asdf")
							EndFunc
					EndIf
					if $ta = "Taniec" Then
						Func  party1()
                               msgbox(0,"","1234")
							EndFunc
					EndIf
					if $ta = "Bitka" Then
						Func  party2()
                               msgbox(0,"","1235")
							EndFunc
					EndIf
					if $ta = "Pocałunek" Then
						Func  party3()
                               msgbox(0,"","1236")
							EndFunc
						EndIf
                       if $ta = "Straszna historia" Then
						Func  party4()
                               msgbox(0,"","1237")
							EndFunc
					EndIf							
       EndSwitch
Wend

 

 

i wybiorę taniec to uruchamia mi się funkcja z przytul wiek ktoś jak to napracić ??

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

czy to>>>

guictrlsetdata(-1,"jeeee|jeee2|jeee3")

 

 

 

wyglada tak jak ty to ulozyles?

$Combo1 = GUICtrlCreateCombo("Nastawienie", 8, 8, 145, 25)
guictrlsetdata(-1,"Przytul")
guictrlsetdata(-1,"Taniec")
guictrlsetdata(-1,"Bitka")
guictrlsetdata(-1,"Pocałunek")
guictrlsetdata(-1,"Straszna historia")

 

bo chyba nie wiec nie bedzie dzialalo:P jak powinno

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

adrick1197 Pomocnik

adrick1197

Opublikowano
Pomocnik

adrick1197

  • Autor
Opublikowano 

HotKeySet("{Esc}","ext")
Func ext()
   Endfunc
$HARDKOR = 25
$HARDKOR1 = 25
$HARDKOR2 = 25
$HARDKOR3 = 25
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Input1 = GUICtrlCreateInput("Strony ze znajmymi",8, 40, 121, 21)
$Combo1 = GUICtrlCreateCombo("Nastawienie", 8, 8, 145, 25)
guictrlsetdata(-1,"przytul|Taniec|Bitka|Pocałunek|Straszna historia")
$Button1 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $lol
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       $ta1 = GUICtrlRead($Input1)
       EndSwitch
       WEnd

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               case $Button1
                       $ta = guictrlread($combo1)
                       if $ta = "Nastawienie" Then
                       MsgBox(0,"błąd","proszę wybrać jedną z opcji") 
                   EndIf

                       if $ta = "Przytul" Then
                               msgbox(0,"","asdf")
                           EndIf

                       if $ta = "Taniec" Then
                               msgbox(0,"","1234")
                           EndIf

                       if $ta = "Bitka" Then
                               msgbox(0,"","1235")
                           EndIf

                       if $ta = "Pocałunek" Then
                               msgbox(0,"","1236")
                           EndIf

                       if $ta = "Straszna historia" Then
                               msgbox(0,"","1237")
                       EndIf                            
       EndSwitch
Wend

 

tak również nie działa :(

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano 

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Input1 = GUICtrlCreateInput("Strony ze znajmymi", 8, 40, 121, 21)
$Combo1 = GUICtrlCreateCombo("Nastawienie", 8, 8, 145, 25)
GUICtrlSetData(-1, "Przytul|Taniec|Bitka|Pocałunek|Straszna historia")
$Button1 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Button1
		czytaj()
EndSwitch


WEnd
Func czytaj()
$ta = GUICtrlRead($Combo1)
If $ta = "Wybieranie" Then
MsgBox(0, "błąd", "proszę wybrać jedną z opcji")
EndIf
If $ta = "Przytul" Then
MsgBox(0, "", "1236")
EndIf
If $ta = "Taniec" Then
MsgBox(0, "", "123")
EndIf
If $ta = "Bitka" Then
MsgBox(0, "", "1237")
EndIf
If $ta = "Pocałunek" Then
MsgBox(0, "", "1238")
EndIf
If $ta = "Straszna historia" Then
MsgBox(0, "", "1239")
EndIf
EndFunc   ;==>czytaj

teraz dziala:)

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

adrick1197 Pomocnik

adrick1197

Opublikowano
Pomocnik

adrick1197

  • Autor
Opublikowano

If $ta = "Taniec" Then

chcę dać funkcje

EndIf

 

 

więc robię

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

func funkcja1()

 

EndSwitch

WEnd

 

Func funkcja()

bla bla bla

EndFunc

 

i mi wywala

"Func" statement has no matching "EndFunc"

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

guictrlsetdata(-1,"jeeee") tutaj zawsze musi być -1 ? :P

nie to chodzi o to że opcja jest dodawana do funkcji wyżej tzn że może byc

guictrlsetdata($combo1,"jeeee")

 

@up nie zakończyłeś funkcji

 

 

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
func funkcja1()

EndSwitch
WEnd
EndFunc

Func funkcja()
bla bla bla
EndFunc

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

If $ta = "Taniec" Then

chcę dać funkcje

EndIf

 

 

więc robię

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

func funkcja1();<<<<<<<<<<<<<<<< <<<<<<<<<<<<tu tylko powinno byc funkcja1() bez func...

 

EndSwitch

WEnd

 

Func funkcja()

bla bla bla

EndFunc

 

i mi wywala

"Func" statement has no matching "EndFunc"

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

adrick1197 Pomocnik

adrick1197

Opublikowano
Pomocnik

adrick1197

  • Autor
Opublikowano 

HotKeySet("{Esc}","ext")
Func ext()
       Exit
EndFunc
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Input1 = GUICtrlCreateInput("Strony ze znajmymi", 8, 40, 121, 21)
$Combo1 = GUICtrlCreateCombo("Nastawienie", 8, 8, 145, 25)
GUICtrlSetData(-1, "Przytul|Taniec|Bitka|Pocałunek|Straszna historia")
$Button1 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$HARDKOR = 25
$HARDKOR1 = 25
$HARDKOR2 = 25
$HARDKOR3 = 25
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                     Func czytaj()
Func elo()
Func elo1()
Func elo2()
Func elo3()


       EndSwitch
WEnd

Func czytaj()
       $ta = GUICtrlRead($Combo1)
       If $ta = "Wybieranie" Then
       MsgBox(0, "błąd", "proszę wybrać jedną z opcji")
EndIf

If $ta = "Przytul" Then
coś tam 
EndI


If $ta = "Przytul" Then
Func elo1()
coś tam 
EndI

If $ta = "Przytul" Then
Func elo2()
coś tam 
EndI

If $ta = "Przytul" Then
Func elo3()
coś tam 
EndI

If $ta = "Przytul" Then
Func elo()
coś tam 
EndI

 

i błą wywala

 

może być tak ??

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

po cholere pchasz tyle funkcji pod jeden button ??? zrob kilka buttonow i to kazdego po 1 wsadzasz a nie 5 do 1:P ktorych nawet nie masz wpisanych... musza byc skoro dajesz je ju zdo buttona:) pocwicz jeszcze:D

 

 

 

[edit] funkcjia zaczyna sie od"func"i konczy "endfunc" a nie endi :P ale to tak przy okazji hehe

 

 

po drugie wszysto tu jest zle;/ zaczynasz funkcjie nie konczysz ich i jesli buton ma wywolac funkcjie to 

case $button 1
elo1()

A NIE!!! 

case $button 1
func elo1() 

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

adrick1197 Pomocnik

adrick1197

Opublikowano
Pomocnik

adrick1197

  • Autor
Opublikowano

no ale po co mi 5 buttonów skoro jak kliknie ok to ma robic wybraną funkcje z listy

 

zrobiłem

 

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                      czytaj()
       EndSwitch
WEnd
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button2
                      party()
       EndSwitch
WEnd



Func czytaj()
       $ta = GUICtrlRead($Combo1)
       If $ta = "Wybieranie" Then
       MsgBox(0, "błąd", "proszę wybrać jedną z opcji")
EndIf
If $ta = "Przytul" Then
Func Party()
blabla bla 
endFunc
endFunc

i dalej wywala to samo

u góry jest

$Button1 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)

$Button2 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano 

global $GUI_EVENT_CLOSE,$button1,$Combo1,$ta,$Button2
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                      czytaj()
       EndSwitch
       WEnd
       While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button2
                      party()
       EndSwitch
       WEnd



Func czytaj()
       $ta = GUICtrlRead($Combo1)
       If $ta = "Wybieranie" Then
       MsgBox(0, "błąd", "proszę wybrać jedną z opcji")
       EndIf
If $ta = "Przytul" Then
EndIf
endFunc

Func Party()
msgbox(0,"","")
endFunc

endif nie wpisałeś po "if" i zrobiles funkcje w funkcji...

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

rozumien ze w kazdej funkcji chcesz uzywac tej zmiennej $ta?? wiec zrob jeden buton i jedna funkcjie w ktorej bedziesz mial ify z $ta:)

 

domyslam sie ze chodzi ci o to ze masz wybrac jaka funkcjie z combo1 kliknac "ok" i zacznie sie jakas funkcjia przypisana do tego wyrazu?? wiec to sie sie przyda:

 


$HARDKOR = 25
$HARDKOR1 = 25
$HARDKOR2 = 25
$HARDKOR3 = 25
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Input1 = GUICtrlCreateInput("Strony ze znajmymi", 8, 40, 121, 21)
$Combo1 = GUICtrlCreateCombo("Nastawienie", 8, 8, 145, 25)
GUICtrlSetData(-1, "Przytul|Taniec|Bitka|Pocałunek|Straszna historia")
$Button1 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Button1
		czytaj()
EndSwitch


WEnd
Func czytaj()
$ta = GUICtrlRead($Combo1)
If $ta = "Wybieranie" Then
	MsgBox(0, "błąd", "proszę wybrać jedną z opcji")
EndIf
If $ta = "Przytul" Then
	dodaje()
EndIf
If $ta = "Taniec" Then
	odejmuje()
EndIf
If $ta = "Bitka" Then
	mnozy()
EndIf
If $ta = "Pocałunek" Then
	dzieli()
EndIf
If $ta = "Straszna historia" Then
	Sleep(10000)
EndIf
EndFunc   ;==>czytaj

Func dodaje()
$x = 0
Do
	Sleep(10)
	$x = $x + 1
	ToolTip($x)
Until $x = 400
EndFunc   ;==>dodaje
Func odejmuje()
$x = 400
Do
	Sleep(10)
	$x = $x - 1
	ToolTip($x)
Until $x = 0
EndFunc   ;==>odejmuje
Func mnozy()
$x = 1
Do
	Sleep(10)
	$x = $x * 2
	ToolTip($x)
Until $x >= 400
EndFunc   ;==>mnozy
Func dzieli()
$x = 400
Do
	Sleep(10)
	$x = $x / 2
	ToolTip($x)
Until $x <= 0
EndFunc   ;==>dzieli

 

 

 

tylko zamiast moich przykladowych funkcji wklej swoje :)

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

Opublikowano

Tak się męczycie, tak próbujecie, tak grząźnięcie...

 

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Input1 = GUICtrlCreateInput("Strony ze znajmymi", 8, 40, 121, 21)
$Combo1 = GUICtrlCreateCombo("Nastawienie", 8, 8, 145, 25)
GUICtrlSetData(-1, "Przytul|Taniec|Bitka|Pocałunek|Straszna historia")
$Button1 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("OK", 120, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Global $Array = StringSplit("Nastawienie|Przytul|Taniec|Bitka|Pocałunek|Straszna historia", "|")


While 1
    Switch GUIGetMsg()
       Case -3
           Exit
       Case $Button1
		czytaj()
EndSwitch
WEnd



Func czytaj()
ToolTip($Array[_ArraySearch($Array, GUICtrlRead($Combo1))])
EndFunc

 

Do usług.

Ta sygnatura jest pusta.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...