Что нового

прибавление Input чисел

0xfff

Новичок
Сообщения
10
Репутация
0
добрый день
столкнулся с такой проблемой: не могу прибавить в инпут число.(как то так)
ну типа
Код:
While 1
        If GUICtrlRead($Input1) < 9999 Then
            Send(GUICtrlRead($Input1))
                GUICtrlSetData($Input1, +1); вот здесь и проблема  
        EndIf
WEnd
скрипт должен прибавлять значение "+ 1"
ну тесть
Код:
0001
0002
0003
....
9999
и тп...
заранее спасибо
 

axlwor

Скриптер
Сообщения
657
Репутация
147
Код:
GUICtrlSetData($Input1, GUICtrlRead($Input1)+1)

где то так
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
0xfff
Попробуйте так:
Код:
#include <GUIConstantsEx.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 150, 150, -1, -1)
$Input1 = GUICtrlCreateInput("0", 35, 10, 80, 20)
$Button1 = GUICtrlCreateButton("Click", 30, 50, 90, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			For $i = 1 To 1000
				GUICtrlSetData($Input1, Number(GUICtrlRead($Input1)) + 1)
				Sleep(50)
			Next
	EndSwitch
WEnd
 
Автор
0

0xfff

Новичок
Сообщения
10
Репутация
0
спс, все работает, только б ещё хотелось что бы числа прибавлялись типа
Код:
0001
0002
0003 
0099
9999
и тп..
а не
Код:
1
2
3
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
0xfff,
Поменяйте в моем коде:
Код:
;...
$Input1 = GUICtrlCreateInput("0000", 35, 10, 80, 20)
;...
GUICtrlSetData($Input1, StringFormat("%04d", Number(GUICtrlRead($Input1)) + 1))
;...
 
Верх