Что нового

Создание диалогового окна, отображение в нём переменных, статистики работы

Andeangl

Новичок
Сообщения
62
Репутация
4
Всем доброго вечера! =) Подскажите пожалуйста, каким образом можно сделать следующее:

1) При начале работы скрипта появляется диалоговое окно, в котором можно задать определённые переменные (кроме того, есть некоторые комментарии)

2) Вывести статистику, в виде:

Статистика работы:

Собрано .... $kolicgestvo_sobrannih
Проведено боёв ... $kolicgestvo_bitv
Ошибок ... $kolicgestvo_error

Ну и в таком духе =) То есть идёт комментарий, далее идёт значение переменной-счётчика


Добавлено:
Сообщение автоматически объединено:

Да, совсем круто было бы, если бы такое окно можно было открыть и оставить где-то сбоку, чтобы цифры в нём менялись при изменении соответствующих переменных - счётчиков
 

ynbIpb

Скриптер
Сообщения
399
Репутация
109
Если я правильно понял,то вот:
Код:
$kolicgestvo_sobrannih = 73824
$kolicgestvo_bitv = 74926
$kolicgestvo_error = 72551
MsgBox (0, "", "Собрано: "&$kolicgestvo_sobrannih&@CRLF&"Проведено боёв: "&$kolicgestvo_bitv&@CRLF&"Ошибок: "&$kolicgestvo_error)


Второй вариант с изменением в реалтайме:
Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$kolicgestvo_sobrannih = 73824
$kolicgestvo_bitv = 74926
$kolicgestvo_error = 72551
$Form1 = GUICreate("Form1", 250, 91, -1, -1, $GUI_SS_DEFAULT_GUI, $WS_EX_TOOLWINDOW)
$Label1 = GUICtrlCreateLabel("Собрано: ", 8, 8, 92, 17)
$Label2 = GUICtrlCreateLabel("Проведено боёв: ", 8, 32, 92, 17)
$Label3 = GUICtrlCreateLabel("Ошибок: ", 8, 56, 100, 17)
$Label4 = GUICtrlCreateLabel($kolicgestvo_sobrannih, 144, 8, 84, 17)
$Label5 = GUICtrlCreateLabel($kolicgestvo_bitv, 144, 32, 92, 17)
$Label6 = GUICtrlCreateLabel($kolicgestvo_error, 144, 56, 92, 17)
GUISetState(@SW_SHOW)

$hTimer = TimerInit(); чисто для демонстрации изменения значений
$iDiff = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
	$iDiff = TimerDiff($hTimer)
	If $iDiff > 2000 Then
		_ChangeVal ()
	EndIf
	Sleep (30)
WEnd

Func _ChangeVal () ; функция изменения значений, чисто для демонстрации
	$kolicgestvo_sobrannih = Random (1000, 9000, 1)
	$kolicgestvo_bitv = Random (1000, 9000, 1)
	$kolicgestvo_error = Random (1000, 9000, 1)
	GUICtrlSetData ($Label4, $kolicgestvo_sobrannih)
	GUICtrlSetData ($Label5, $kolicgestvo_bitv)
	GUICtrlSetData ($Label6, $kolicgestvo_error)
	$hTimer = TimerInit()
EndFunc
 
Верх