GUICreate("Таймер SNAIYA",308,197) ; размер окна
$tab=GUICtrlCreateTab (4,5, 300,190) ; размер вкладки
$tab0=GUICtrlCreateTabitem ("Рассчёт") ; имя вкладки
GUICtrlCreateGroup("Направление убывания", 21, 40, 140, 106)
$Radio1 = GUICtrlCreateRadio("Справа налево", 30, 60, 110, 20)
GUICtrlSetState($Radio1, 1)
$Radio2 = GUICtrlCreateRadio("Слева направо", 30, 80, 110, 20)
$Radio3 = GUICtrlCreateRadio("Сверху вниз", 30, 100, 110, 20)
$Radio4 = GUICtrlCreateRadio("Снизу вверх", 30, 120, 110, 20)
GUICtrlCreateGroup("Полоска прогресса", 166, 40, 120, 106)
GUICtrlCreateLabel ("Высота:", 175,58,60,20)
$inputHeight=GUICtrlCreateInput ("6", 235,57,35,19) ; высота рисунка head.jpg, head_a.jpg
GUICtrlCreateLabel ("Ширина:", 175,80,60,20)
$inputWidth=GUICtrlCreateInput ("800", 235,80,35,19) ; ширина рисунка head.jpg, head_a.jpg
GUICtrlCreateLabel ("Кол. шагов", 175,103,60,20)
$amount=GUICtrlCreateInput ("100", 235,103,35,19)
GUICtrlCreateLabel ("AZJIO 16.8.2009", 30,150,137,22)
$start=GUICtrlCreateButton ("Выполнить", 195,160,87,22)
GUICtrlSetTip(-1, "Рассчитать и показать информацию.")
GUICtrlCreateTabitem ("") ; конец вкладок
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $start
If FileExists(@ScriptDir&'\info.txt') Then FileDelete ( @ScriptDir&'\info.txt' )
IniWriteSection(@ScriptDir&'\info.txt', "Создание таймера SNAIYA", '')
$amount0=GUICtrlRead ($amount)
$inputHeight0=GUICtrlRead ($inputHeight)
$inputWidth0=GUICtrlRead ($inputWidth)
If GUICtrlRead ($Radio1)=1 Then $blok=$inputWidth0/$amount0
If GUICtrlRead ($Radio2)=1 Then $blok=$inputWidth0/$amount0
If GUICtrlRead ($Radio3)=1 Then $blok=$inputHeight0/$amount0
If GUICtrlRead ($Radio4)=1 Then $blok=$inputHeight0/$amount0
If GUICtrlRead ($Radio1)=1 And mod($inputWidth0, $amount0)<>'0' Then
MsgBox(0, "Мелкая ошибка", 'Введите кратные числа Ширина и Количество шагов'&@CRLF&'Число параметра Ширина должно быть больше,'&@CRLF&'чем число Количество шагов')
ContinueLoop
EndIf
If GUICtrlRead ($Radio2)=1 And mod($inputWidth0, $amount0)<>'0' Then
MsgBox(0, "Мелкая ошибка", 'Введите кратные числа Ширина и Количество шагов'&@CRLF&'Число параметра Ширина должно быть больше,'&@CRLF&'чем число Количество шагов')
ContinueLoop
EndIf
If GUICtrlRead ($Radio3)=1 And mod($inputHeight0, $amount0)<>'0' Then
MsgBox(0, "Мелкая ошибка", 'Введите кратные числа Высота и Количество шагов'&@CRLF&'Число параметра Высота должно быть больше,'&@CRLF&'чем число Количество шагов')
ContinueLoop
EndIf
If GUICtrlRead ($Radio4)=1 And mod($inputHeight0, $amount0)<>'0' Then
MsgBox(0, "Мелкая ошибка", 'Введите кратные числа Высота и Количество шагов'&@CRLF&'Число параметра Высота должно быть больше,'&@CRLF&'чем число Количество шагов')
ContinueLoop
EndIf
$xy1=0
$file = FileOpen(@ScriptDir&'\info.txt', 1)
; проверка открытия файла для записи строки
If $file = -1 Then
MsgBox(0, "Ошибка", "Не возможно открыть файл.")
Exit
EndIf
FileWrite($file, 'Координаты рисунка head.jpg, head_a.jpg' & @CRLF)
FileWrite($file, 'В файле common.inc строка 1197' & @CRLF)
FileWrite($file, '/head.x 100 def - отступ слева' & @CRLF)
FileWrite($file, '/head.y 15 def - отступ сверху' & @CRLF)
FileWrite($file, '-------------------------' & @CRLF)
FileWrite($file, 'Размеры рисунка head.jpg, head_a.jpg' & @CRLF)
FileWrite($file, 'Они же указываются в окне утилиты' & @CRLF)
FileWrite($file, $inputHeight0&' - Высота' & @CRLF)
FileWrite($file, $inputWidth0&' - Ширина' & @CRLF)
FileWrite($file, '-------------------------' & @CRLF)
FileWrite($file, 'Размеры закрашивающего блока' & @CRLF)
FileWrite($file, 'В файле timeout.inc строка 105' & @CRLF)
FileWrite($file, 'Заменить "8 8 savescreen" на' & @CRLF)
If GUICtrlRead ($Radio1)=1 Then FileWrite($file, $blok&' '&$inputHeight0&' savescreen' & @CRLF)
If GUICtrlRead ($Radio2)=1 Then FileWrite($file, $blok&' '&$inputHeight0&' savescreen' & @CRLF)
If GUICtrlRead ($Radio3)=1 Then FileWrite($file, $inputWidth0&' '&$blok&' savescreen' & @CRLF)
If GUICtrlRead ($Radio4)=1 Then FileWrite($file, $inputWidth0&' '&$blok&' savescreen' & @CRLF)
FileWrite($file, '-------------------------' & @CRLF)
FileWrite($file, 'Таблица перемещения закрашивающего блока' & @CRLF)
FileWrite($file, 'В файле timeout.inc строка 123' & @CRLF)
FileWrite($file, ' y x' & @CRLF)
FileWrite($file, '-------------------------' & @CRLF)
$amount0-=1
For $i=0 To $amount0
If GUICtrlRead ($Radio1)=1 Then $xy2=$inputWidth0-$i*$blok-$blok
If GUICtrlRead ($Radio2)=1 Then $xy2=$i*$blok
If GUICtrlRead ($Radio3)=1 Then $xy2=$inputHeight0-$i*$blok-$blok
If GUICtrlRead ($Radio4)=1 Then $xy2=$i*$blok
If GUICtrlRead ($Radio1)=1 Then FileWrite($file, ' [ '&$xy2&' '&$xy1&' .undef ]' & @CRLF)
If GUICtrlRead ($Radio2)=1 Then FileWrite($file, ' [ '&$xy2&' '&$xy1&' .undef ]' & @CRLF)
If GUICtrlRead ($Radio3)=1 Then FileWrite($file, ' [ '&$xy1&' '&$xy2&' .undef ]' & @CRLF)
If GUICtrlRead ($Radio4)=1 Then FileWrite($file, ' [ '&$xy1&' '&$xy2&' .undef ]' & @CRLF)
Next
FileClose($file)
ShellExecute(@ScriptDir&'\info.txt', "", @ScriptDir, "open")
Case $msg = -3
ExitLoop
EndSelect
WEnd |
