Что нового

Меню-Борд для плазм

TOSTER

Новичок
Сообщения
4
Репутация
0
AutoIt: 3.
Версия: 1.0

Категория: Графика, Строки, Элементы GUI, Разное

Описание: Выводит меню с видео или картинками на плазмы
Программа написана под разрешение экрана 1920х1080.
Ролики ширина кадра:850 и высота кадра:1080.
Фон на котором отображается наименование с ценой: размер 960х1080, размер одной строки 960х100.(название fon.jpg, должен лежать в папке с программой).

Был проект, потом сплыл :smile:
Писал долго.
Может кто под себя переделает.
Сильно не пинайте.
файлы обозначил ini, чтобы их выделить.
Ролики к сожалению не грузятся (Много весят).
Тестировалось всего несколько часов.
Я знаю, что есть косяки :smile:

Код/Пример Конфигуратора:
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <WINAPI.au3>
#include <Misc.au3>
#include <File.au3>
#include <Restart.au3>
#Region ### START Koda GUI section ### Form=
$vFile = @ScriptDir &'\'&'видео.ini'
$Form1 = GUICreate("Управление плазмами", 254, 272, 192, 124)
$Button1 = GUICtrlCreateButton("Выбор экрана", 48, 32, 153, 49)
$Button2 = GUICtrlCreateButton("Настройки видео", 50, 92, 153, 49)
$Button3 = GUICtrlCreateButton("Ввод наименования", 50, 156, 153, 49)

GUISetState(@SW_SHOW)

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

;~ 		Case $Button1
		Case $Button2
Global $vFile = @ScriptDir &'\'&'видео.ini'
;~ Чтение из файла txt
$r1 = FileReadline($vFile,1)
$r2 = FileReadline($vFile,2)
$r3 = FileReadline($vFile,3)
$r4 = FileReadline($vFile,4)
$r5 = FileReadline($vFile,5)
$r6 = FileReadline($vFile,6)
$r7 = FileReadline($vFile,7)
$r8 = FileReadline($vFile,8)
$r9 = FileReadline($vFile,9)
$r10 = FileReadline($vFile,10)
$r11= FileReadline($vFile,11)
$r12= FileReadline($vFile,12)
$r13 = FileReadline($vFile,13)
$r14 = FileReadline($vFile,14)
$r15 = FileReadline($vFile,15)
$r16 = FileReadline($vFile,16)
$r17 = FileReadline($vFile,17)
$r18 = FileReadline($vFile,18)
$r19 = FileReadline($vFile,19)
$r20 = FileReadline($vFile,20)
$r21 = FileReadline($vFile,21)
$r22 = FileReadline($vFile,22)
$r23 = FileReadline($vFile,23)
$r24 = FileReadline($vFile,24)
$r25 = FileReadline($vFile,25)
$r26 = FileReadline($vFile,26)
$r27 = FileReadline($vFile,27)
$r28 = FileReadline($vFile,28)
$r29 = FileReadline($vFile,29)
$r30 = FileReadline($vFile,30)
$r31 = FileReadline($vFile,31)
$r32 = FileReadline($vFile,32)
$r33 = FileReadline($vFile,33)
$r34 = FileReadline($vFile,34)
$r35 = FileReadline($vFile,35)
$r36 = FileReadline($vFile,36)
$r37 = FileReadline($vFile,37)
$r38 = FileReadline($vFile,38)
$r39 = FileReadline($vFile,39)
$r40 = FileReadline($vFile,40)
$r41 = FileReadline($vFile,41)
$r42 = FileReadline($vFile,42)
;~ Форма отображения настроек видео
$Form3 = GUICreate("Настройки видео", 597, 410, 192, 124)
$Button5 = GUICtrlCreateButton("Сохранить", 40, 352, 129, 41)
;~ Пути к роликам
$Input81 = GUICtrlCreateInput($r1, 8, 40, 185, 21)
$Input82 = GUICtrlCreateInput($r2, 8, 72, 185, 21)
$Input83 = GUICtrlCreateInput($r3, 8, 104, 185, 21)
$Input84 = GUICtrlCreateInput($r4, 8, 136, 185, 21)
$Input85 = GUICtrlCreateInput($r5, 8, 168, 185, 21)
$Input86 = GUICtrlCreateInput($r6, 8, 200, 185, 21)
$Label3 = GUICtrlCreateLabel("Путь для роликов", 8, 8, 136, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ Время отображения роликов
$Button6 = GUICtrlCreateButton("...", 224, 232, 33, 25)
$Label1 = GUICtrlCreateLabel("Цвет текста наименования", 8, 232, 206, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("...", 224, 289, 33, 25)
$Label2 = GUICtrlCreateLabel("Цвет текста заголовка", 8, 289, 176, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button8 = GUICtrlCreateButton("...", 224, 320, 33, 25)
$Label5 = GUICtrlCreateLabel("Цвет фона заголовка", 10, 320, 165, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input87 = GUICtrlCreateInput($r7, 272, 232, 65, 21)
GUICtrlSetBkColor(-1, $r7)
$Input88 = GUICtrlCreateInput($r8, 272, 290, 65, 21)
GUICtrlSetBkColor(-1, $r8)
$Input96 = GUICtrlCreateInput($r39, 272, 323, 65, 21)
GUICtrlSetBkColor(-1, $r39)
$Button9 = GUICtrlCreateButton("...", 224, 259, 33, 25)
$Label6 = GUICtrlCreateLabel("Цвет текста цены", 8, 259, 135, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input97= GUICtrlCreateInput($r40, 272, 259, 65, 21)
GUICtrlSetBkColor(-1, $r40)
$Button10 = GUICtrlCreateButton("...", 417, 232, 33, 25)
$Input98 = GUICtrlCreateInput($r41, 465, 232, 65, 21)
$Label7 = GUICtrlCreateLabel("Шрифт", 352, 232, 54, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("Пример шрифта", 360, 272, 144, 24)
GUICtrlSetFont(-1, 12, 800, 0, $r41)
$Label9 = GUICtrlCreateLabel("Размер шрифта", 360, 320, 121, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input99 = GUICtrlCreateInput($r42, 488, 320, 41, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
$Input89 = GUICtrlCreateInput($r9, 208, 40, 65, 21)
$Input90 = GUICtrlCreateInput($r10, 208, 72, 65, 21)
$Input91 = GUICtrlCreateInput($r11, 208, 104, 65, 21)
$Input92 = GUICtrlCreateInput($r12, 208, 136, 65, 21)
$Input94 = GUICtrlCreateInput($r13, 208, 200, 65, 21)
$Input93 = GUICtrlCreateInput($r14, 208, 168, 65, 21)
$Label4 = GUICtrlCreateLabel("Время отображения", 185, 8, 152, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlDelete($input85)
GUICtrlDelete($input86)
GUICtrlDelete($input93)
GUICtrlDelete($input94)

;~ с каким списком отображаются ролики

$Checkbox41 = GUICtrlCreateCheckbox("", 360, 36, 17, 25)
$Checkbox42 = GUICtrlCreateCheckbox("", 384, 36, 17, 25)
$Checkbox43 = GUICtrlCreateCheckbox("", 408, 36, 17, 25)
$Checkbox44 = GUICtrlCreateCheckbox("", 432, 36, 17, 25)
$Checkbox45 = GUICtrlCreateCheckbox("", 360, 68, 17, 25)
$Checkbox46 = GUICtrlCreateCheckbox("", 384, 68, 17, 25)
$Checkbox47 = GUICtrlCreateCheckbox("", 408, 68, 17, 25)
$Checkbox48 = GUICtrlCreateCheckbox("", 432, 68, 17, 25)
$Checkbox49 = GUICtrlCreateCheckbox("", 360, 104, 17, 25)
$Checkbox50 = GUICtrlCreateCheckbox("", 384, 104, 17, 25)
$Checkbox51 = GUICtrlCreateCheckbox("", 432, 104, 17, 25)
$Checkbox52 = GUICtrlCreateCheckbox("", 408, 104, 17, 25)
$Checkbox53 = GUICtrlCreateCheckbox("", 360, 136, 17, 25)
$Checkbox54 = GUICtrlCreateCheckbox("", 384, 136, 17, 25)
$Checkbox55 = GUICtrlCreateCheckbox("", 408, 136, 17, 25)
$Checkbox56 = GUICtrlCreateCheckbox("", 432, 136, 17, 25)
$Checkbox57 = GUICtrlCreateCheckbox("", 360, 164, 17, 25)
$Checkbox58 = GUICtrlCreateCheckbox("", 384, 164, 17, 25)
$Checkbox59 = GUICtrlCreateCheckbox("", 408, 164, 17, 25)
$Checkbox60 = GUICtrlCreateCheckbox("", 432, 164, 17, 25)
$Checkbox61 = GUICtrlCreateCheckbox("", 360, 196, 17, 25)
$Checkbox62 = GUICtrlCreateCheckbox("", 384, 196, 17, 25)
$Checkbox63 = GUICtrlCreateCheckbox("", 408, 196, 17, 25)
$Checkbox64 = GUICtrlCreateCheckbox("", 432, 196, 17, 25)
GUICtrlDelete($Checkbox57)
GUICtrlDelete($Checkbox58)
GUICtrlDelete($Checkbox59)
GUICtrlDelete($Checkbox60)
GUICtrlDelete($Checkbox61)
GUICtrlDelete($Checkbox62)
GUICtrlDelete($Checkbox63)
GUICtrlDelete($Checkbox64)
if $r15=1 Then
GUICtrlDelete($Checkbox45)
GUICtrlDelete($Checkbox49)
GUICtrlDelete($Checkbox53)
EndIf
if $r16=1 Then
GUICtrlDelete($Checkbox45)
GUICtrlDelete($Checkbox49)
GUICtrlDelete($Checkbox53)
GUICtrlDelete($Checkbox46)
GUICtrlDelete($Checkbox50)
GUICtrlDelete($Checkbox54)
EndIf
if $r17=1 Then
GUICtrlDelete($Checkbox45)
GUICtrlDelete($Checkbox49)
GUICtrlDelete($Checkbox53)
GUICtrlDelete($Checkbox46)
GUICtrlDelete($Checkbox50)
GUICtrlDelete($Checkbox54)
GUICtrlDelete($Checkbox47)
GUICtrlDelete($Checkbox52)
GUICtrlDelete($Checkbox55)
EndIf
if $r18=1 Then
GUICtrlDelete($Checkbox45)
GUICtrlDelete($Checkbox49)
GUICtrlDelete($Checkbox53)
GUICtrlDelete($Checkbox46)
GUICtrlDelete($Checkbox50)
GUICtrlDelete($Checkbox54)
GUICtrlDelete($Checkbox47)
GUICtrlDelete($Checkbox52)
GUICtrlDelete($Checkbox55)
GUICtrlDelete($Checkbox48)
GUICtrlDelete($Checkbox51)
GUICtrlDelete($Checkbox56)
EndIf
if $r20=1 Then
GUICtrlDelete($Checkbox49)
GUICtrlDelete($Checkbox53)
GUICtrlDelete($Checkbox50)
GUICtrlDelete($Checkbox54)
GUICtrlDelete($Checkbox54)
EndIf
if $r21=1 Then
GUICtrlDelete($Checkbox49)
GUICtrlDelete($Checkbox53)
GUICtrlDelete($Checkbox50)
GUICtrlDelete($Checkbox54)
GUICtrlDelete($Checkbox52)
GUICtrlDelete($Checkbox55)
EndIf
if $r22=1 Then

GUICtrlDelete($Checkbox49)
GUICtrlDelete($Checkbox53)
GUICtrlDelete($Checkbox50)
GUICtrlDelete($Checkbox54)
GUICtrlDelete($Checkbox52)
GUICtrlDelete($Checkbox55)
GUICtrlDelete($Checkbox51)
GUICtrlDelete($Checkbox56)
EndIf
if $r26=1 Then
GUICtrlDelete($Checkbox55)
EndIF
if $r25=1 Then
GUICtrlDelete($Checkbox55)
GUICtrlDelete($Checkbox56)
EndIF
GUISetState(@SW_SHOW)
;~ Заполнение checkbox'ов из txt
If $r15=1 Then
ControlCommand("Настройки видео","",11,"Check")
EndIf
If $r16=1 Then
ControlCommand("Настройки видео","",12,"Check")
EndIf
If $r17=1 Then
ControlCommand("Настройки видео","",36,"Check")
EndIf
If $r18=1 Then
ControlCommand("Настройки видео","",37,"Check")
EndIf
If $r19=1 Then
ControlCommand("Настройки видео","",39,"Check")
EndIf
If $r20=1 Then
ControlCommand("Настройки видео","",40,"Check")
EndIf
If $r21=1 Then
ControlCommand("Настройки видео","",41,"Check")
EndIf
If $r22=1 Then
ControlCommand("Настройки видео","",42,"Check")
EndIf
If $r23=1 Then
ControlCommand("Настройки видео","",43,"Check")
EndIf
If $r24=1 Then
ControlCommand("Настройки видео","",44,"Check")
EndIf
If $r25=1 Then
ControlCommand("Настройки видео","",45,"Check")
EndIf
If $r26=1 Then
ControlCommand("Настройки видео","",46,"Check")
EndIf
If $r27=1 Then
ControlCommand("Настройки видео","",47,"Check")
EndIf
If $r28=1 Then
ControlCommand("Настройки видео","",48,"Check")
EndIf
If $r29=1 Then
ControlCommand("Настройки видео","",49,"Check")
EndIf
If $r30=1 Then
ControlCommand("Настройки видео","",50,"Check")
EndIf
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
_ScriptRestart()

;~ чтение с формы и сохранение в txt
		Case $Button5
			FileClose($vFile)
			FileDelete('видео.ini')
            _FileCreate("видео.ini")
$rol1=GUICtrlRead($Input81)
$rol2=GUICtrlRead($Input82)
$rol3=GUICtrlRead($Input83)
$rol4=GUICtrlRead($Input84)
$rol5=GUICtrlRead($Input85)
$rol6=GUICtrlRead($Input86)
$fon=GUICtrlRead($Input87)
$fons=GUICtrlRead($Input88)
$vr1=GUICtrlRead($Input89)
$vr2=GUICtrlRead($Input90)
$vr3=GUICtrlRead($Input91)
$vr4=GUICtrlRead($Input92)
$vr5=GUICtrlRead($Input93)
$vr6=GUICtrlRead($Input94)
$fon1=GUICtrlRead($Input96)
$fon2=GUICtrlRead($Input97)
$Shrift=GUICtrlRead($Input98)
$rshr=GUICtrlRead($Input99)
;~ Запись названия роликов в txt
FileWrite($vFile,$rol1& @CRLF)
FileWrite($vFile,$rol2& @CRLF)
FileWrite($vFile,$rol3& @CRLF)
FileWrite($vFile,$rol4& @CRLF)
FileWrite($vFile,$rol5& @CRLF)
FileWrite($vFile,$rol6& @CRLF)
FileWrite($vFile,$fon& @CRLF)
FileWrite($vFile,$fons& @CRLF)
;~ Запись времени роликов
FileWrite($vFile,$vr1& @CRLF)
FileWrite($vFile,$vr2& @CRLF)
FileWrite($vFile,$vr3& @CRLF)
FileWrite($vFile,$vr4& @CRLF)
FileWrite($vFile,$vr5& @CRLF)
FileWrite($vFile,$vr6& @CRLF)
If GUICtrlRead($Checkbox41) = 1 Then
$iCheck41 = "1"
Else
$iCheck41 = "0"
EndIf
FileWrite($vFile,$iCheck41& @CRLF)
If GUICtrlRead($Checkbox42) = 1 Then
$iCheck42 = "1"
Else
$iCheck42 = "0"
EndIf
FileWrite($vFile,$iCheck42& @CRLF)
If GUICtrlRead($Checkbox43) = 1 Then
$iCheck43 = "1"
Else
$iCheck43 = "0"
EndIf
FileWrite($vFile,$iCheck43& @CRLF)
If GUICtrlRead($Checkbox44) = 1 Then
$iCheck44 = "1"
Else
$iCheck44 = "0"
EndIf
FileWrite($vFile,$iCheck44& @CRLF)
If GUICtrlRead($Checkbox45) = 1 Then
$iCheck45 = "1"
Else
$iCheck45 = "0"
EndIf
FileWrite($vFile,$iCheck45& @CRLF)
If GUICtrlRead($Checkbox46) = 1 Then
$iCheck46 = "1"
Else
$iCheck46 = "0"
EndIf
FileWrite($vFile,$iCheck46& @CRLF)
If GUICtrlRead($Checkbox47) = 1 Then
$iCheck47 = "1"
Else
$iCheck47 = "0"
EndIf
FileWrite($vFile,$iCheck47& @CRLF)
If GUICtrlRead($Checkbox48) = 1 Then
$iCheck48 = "1"
Else
$iCheck48 = "0"
EndIf
FileWrite($vFile,$iCheck48& @CRLF)
If GUICtrlRead($Checkbox49) = 1 Then
$iCheck49 = "1"
Else
$iCheck49 = "0"
EndIf
FileWrite($vFile,$iCheck49& @CRLF)
If GUICtrlRead($Checkbox50) = 1 Then
$iCheck50 = "1"
Else
$iCheck50 = "0"
EndIf
FileWrite($vFile,$iCheck50& @CRLF)
If GUICtrlRead($Checkbox51) = 1 Then
$iCheck51 = "1"
Else
$iCheck51 = "0"
EndIf
FileWrite($vFile,$iCheck51& @CRLF)
If GUICtrlRead($Checkbox52) = 1 Then
$iCheck52 = "1"
Else
$iCheck52 = "0"
EndIf
FileWrite($vFile,$iCheck52& @CRLF)
If GUICtrlRead($Checkbox53) = 1 Then
$iCheck53 = "1"
Else
$iCheck53 = "0"
EndIf
FileWrite($vFile,$iCheck53& @CRLF)
If GUICtrlRead($Checkbox54) = 1 Then
$iCheck54 = "1"
Else
$iCheck54 = "0"
EndIf
FileWrite($vFile,$iCheck54& @CRLF)
If GUICtrlRead($Checkbox55) = 1 Then
$iCheck55 = "1"
Else
$iCheck55 = "0"
EndIf
FileWrite($vFile,$iCheck55& @CRLF)
If GUICtrlRead($Checkbox56) = 1 Then
$iCheck56 = "1"
Else
$iCheck56 = "0"
EndIf
FileWrite($vFile,$iCheck56& @CRLF)
If GUICtrlRead($Checkbox57) = 1 Then
$iCheck57 = "1"
Else
$iCheck57 = "0"
EndIf
FileWrite($vFile,$iCheck57& @CRLF)
If GUICtrlRead($Checkbox58) = 1 Then
$iCheck58 = "1"
Else
$iCheck58 = "0"
EndIf
FileWrite($vFile,$iCheck58& @CRLF)
If GUICtrlRead($Checkbox59) = 1 Then
$iCheck59 = "1"
Else
$iCheck59 = "0"
EndIf
FileWrite($vFile,$iCheck59& @CRLF)
If GUICtrlRead($Checkbox60) = 1 Then
$iCheck60 = "1"
Else
$iCheck60 = "0"
EndIf
FileWrite($vFile,$iCheck60& @CRLF)
If GUICtrlRead($Checkbox61) = 1 Then
$iCheck61 = "1"
Else
$iCheck61 = "0"
EndIf
FileWrite($vFile,$iCheck61& @CRLF)
If GUICtrlRead($Checkbox62) = 1 Then
$iCheck62 = "1"
Else
$iCheck62 = "0"
EndIf
FileWrite($vFile,$iCheck62& @CRLF)
If GUICtrlRead($Checkbox63) = 1 Then
$iCheck63 = "1"
Else
$iCheck63 = "0"
EndIf
FileWrite($vFile,$iCheck63& @CRLF)
If GUICtrlRead($Checkbox64) = 1 Then
$iCheck64 = "1"
Else
$iCheck64 = "0"
EndIf
FileWrite($vFile,$iCheck64& @CRLF)
FileWrite($vFile,$fon1& @CRLF)
FileWrite($vFile,$fon2& @CRLF)
FileWrite($vFile,$Shrift& @CRLF)
FileWrite($vFile,$rshr& @CRLF)
_ScriptRestart()
		Case $Button6
$ChooseColor = _ChooseColor(2, '0x000000', 2, GUICreate(''))
GUICtrlSetBkColor($Input87, $ChooseColor)
    GuiCtrlSetData($Input87,$ChooseColor)
			Case $Button7
$ChooseColor = _ChooseColor(2, '0x000000', 2, GUICreate(''))
GUICtrlSetBkColor($Input88, $ChooseColor)
    GuiCtrlSetData($Input88,$ChooseColor)
			Case $Button8
$ChooseColor = _ChooseColor(2, '0x000000', 2, GUICreate(''))
GUICtrlSetBkColor($Input96, $ChooseColor)
    GuiCtrlSetData($Input96,$ChooseColor)
				Case $Button9
$ChooseColor = _ChooseColor(2, '0x000000', 2, GUICreate(''))
GUICtrlSetBkColor($Input97, $ChooseColor)
    GuiCtrlSetData($Input97,$ChooseColor)
	Case $Button10
	$Font = _ChooseFont()
		    GuiCtrlSetData($Input98,$Font[2])
			If @error Then ContinueLoop
            GUICtrlSetFont($Label8, $Font[3], $Font[4], $Font[1], $Font[2])
            GUICtrlSetColor($Label8, $Font[7])
	EndSwitch
WEnd
;~ 	Создание Формы для ввода наименования
		Case $Button3
;~ Путь к файлу с наименованием
$nFile = @ScriptDir &'\'&'наименование.ini'
;~ Чтение из файла
$tov = FileReadline($nFile,1)
$cen = FileReadline($nFile,2)
$tov1 = FileReadline($nFile,3)
$cen1 = FileReadline($nFile,4)
$tov2 = FileReadline($nFile,5)
$cen2 = FileReadline($nFile,6)
$tov3 = FileReadline($nFile,7)
$cen3 = FileReadline($nFile,8)
$tov4 = FileReadline($nFile,9)
$cen4 = FileReadline($nFile,10)
$tov5 = FileReadline($nFile,11)
$cen5 = FileReadline($nFile,12)
$tov6 = FileReadline($nFile,13)
$cen6 = FileReadline($nFile,14)
$tov7 = FileReadline($nFile,15)
$cen7 = FileReadline($nFile,16)
$tov8 = FileReadline($nFile,17)
$cen8 = FileReadline($nFile,18)
$tov9 = FileReadline($nFile,19)
$cen9 = FileReadline($nFile,20)
$tov10 = FileReadline($nFile,21)
$cen10 = FileReadline($nFile,22)
$tov11 = FileReadline($nFile,23)
$cen11 = FileReadline($nFile,24)
$tov12 = FileReadline($nFile,25)
$cen12 = FileReadline($nFile,26)
$tov13 = FileReadline($nFile,27)
$cen13 = FileReadline($nFile,28)
$tov14 = FileReadline($nFile,29)
$cen14 = FileReadline($nFile,30)
$tov15 = FileReadline($nFile,31)
$cen15 = FileReadline($nFile,32)
$tov16 = FileReadline($nFile,33)
$cen16 = FileReadline($nFile,34)
$tov17 = FileReadline($nFile,35)
$cen17 = FileReadline($nFile,36)
$tov18 = FileReadline($nFile,37)
$cen18 = FileReadline($nFile,38)
$tov19 = FileReadline($nFile,39)
$cen19 = FileReadline($nFile,40)
$tov20 = FileReadline($nFile,41)
$cen20 = FileReadline($nFile,42)
$tov21 = FileReadline($nFile,43)
$cen21 = FileReadline($nFile,44)
$tov22 = FileReadline($nFile,45)
$cen22 = FileReadline($nFile,46)
$tov23 = FileReadline($nFile,47)
$cen23 = FileReadline($nFile,48)
$tov24 = FileReadline($nFile,49)
$cen24 = FileReadline($nFile,50)
$tov25 = FileReadline($nFile,51)
$cen25 = FileReadline($nFile,52)
$tov26 = FileReadline($nFile,53)
$cen26 = FileReadline($nFile,54)
$tov27 = FileReadline($nFile,55)
$cen27 = FileReadline($nFile,56)
$tov28 = FileReadline($nFile,57)
$cen28 = FileReadline($nFile,58)
$tov29 = FileReadline($nFile,59)
$cen29 = FileReadline($nFile,60)
$tov30 = FileReadline($nFile,61)
$cen30 = FileReadline($nFile,62)
$tov31 = FileReadline($nFile,63)
$cen31 = FileReadline($nFile,64)
$tov32 = FileReadline($nFile,65)
$cen32 = FileReadline($nFile,66)
$tov33 = FileReadline($nFile,67)
$cen33 = FileReadline($nFile,68)
$tov34 = FileReadline($nFile,69)
$cen34 = FileReadline($nFile,70)
$tov35 = FileReadline($nFile,71)
$cen35 = FileReadline($nFile,72)
$tov36 = FileReadline($nFile,73)
$cen36 = FileReadline($nFile,74)
$tov37 = FileReadline($nFile,75)
$cen37 = FileReadline($nFile,76)
$tov38 = FileReadline($nFile,77)
$cen38 = FileReadline($nFile,78)
$tov39 = FileReadline($nFile,79)
$cen39 = FileReadline($nFile,80)
;~ чтение заголовка из txt
$z1= FileReadline($nFile,81)
$z2= FileReadline($nFile,82)
$z3= FileReadline($nFile,83)
$z4= FileReadline($nFile,84)
$z5= FileReadline($nFile,85)
$z6= FileReadline($nFile,86)
$z7= FileReadline($nFile,87)
$z8= FileReadline($nFile,88)
$z9= FileReadline($nFile,89)
$z10= FileReadline($nFile,90)
$z11= FileReadline($nFile,91)
$z12= FileReadline($nFile,92)
$z13= FileReadline($nFile,93)
$z14= FileReadline($nFile,94)
$z15= FileReadline($nFile,95)
$z16= FileReadline($nFile,96)
$z17= FileReadline($nFile,97)
$z18= FileReadline($nFile,98)
$z19= FileReadline($nFile,99)
$z20= FileReadline($nFile,100)
$z21= FileReadline($nFile,101)
$z22= FileReadline($nFile,102)
$z23= FileReadline($nFile,103)
$z24= FileReadline($nFile,104)
$z25= FileReadline($nFile,105)
$z26= FileReadline($nFile,106)
$z27= FileReadline($nFile,107)
$z28= FileReadline($nFile,108)
$z29= FileReadline($nFile,109)
$z30= FileReadline($nFile,110)
$z31= FileReadline($nFile,111)
$z32= FileReadline($nFile,112)
$z33= FileReadline($nFile,113)
$z34= FileReadline($nFile,114)
$z35= FileReadline($nFile,115)
$z36= FileReadline($nFile,116)
$z37= FileReadline($nFile,117)
$z38= FileReadline($nFile,118)
$z39= FileReadline($nFile,119)
$z40= FileReadline($nFile,120)
;~ Лейблы с наименованием в форме настройки
$Form3 = GUICreate("Ввод наименования", 784, 691, 376, 0)
$Button4 = GUICtrlCreateButton("Сохранить", 24, 640, 121, 33)
$Label1 = GUICtrlCreateLabel("Наименование товара", 8, 16, 172, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Цена товара", 264, 16, 98, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ Список наименования и цен
$Input1 = GUICtrlCreateInput($tov, 8, 48, 209, 21)
$Input2 = GUICtrlCreateInput($cen, 8, 77, 209, 21)
$Input3 = GUICtrlCreateInput($tov1, 8, 106, 209, 21)
$Input4 = GUICtrlCreateInput($cen1, 8, 135, 209, 21)
$Input5 = GUICtrlCreateInput($tov2, 8, 164, 209, 21)
$Input6 = GUICtrlCreateInput($cen2, 8, 193, 209, 21)
$Input7 = GUICtrlCreateInput($tov3, 8, 222, 209, 21)
$Input8 = GUICtrlCreateInput($cen3, 8, 251, 209, 21)
$Input9 = GUICtrlCreateInput($tov4, 8, 280, 209, 21)
$Input10 = GUICtrlCreateInput($cen4, 8, 309, 209, 21)
$Input11 = GUICtrlCreateInput($tov5, 8, 337, 209, 21)
$Input12 = GUICtrlCreateInput($cen5, 8, 366, 209, 21)
$Input13 = GUICtrlCreateInput($tov6, 8, 395, 209, 21)
$Input14 = GUICtrlCreateInput($cen6, 8, 424, 209, 21)
$Input15 = GUICtrlCreateInput($tov7, 8, 453, 209, 21)
$Input16 = GUICtrlCreateInput($cen7, 8, 482, 209, 21)
$Input17 = GUICtrlCreateInput($tov8, 8, 511, 209, 21)
$Input18 = GUICtrlCreateInput($cen8, 8, 540, 209, 21)
$Input19 = GUICtrlCreateInput($tov9, 8, 569, 209, 21)
$Input20 = GUICtrlCreateInput($cen9, 8, 598, 209, 21)
$Input21 = GUICtrlCreateInput($tov10, 256, 48, 105, 21)
$Input22 = GUICtrlCreateInput($cen10, 256, 77, 105, 21)
$Input23 = GUICtrlCreateInput($tov11, 256, 106, 105, 21)
$Input24 = GUICtrlCreateInput($cen11, 256, 135, 105, 21)
$Input25 = GUICtrlCreateInput($tov12, 256, 164, 105, 21)
$Input26 = GUICtrlCreateInput($cen12, 256, 192, 105, 21)
$Input27 = GUICtrlCreateInput($tov13, 256, 221, 105, 21)
$Input28 = GUICtrlCreateInput($cen13, 256, 250, 105, 21)
$Input29 = GUICtrlCreateInput($tov14, 256, 279, 105, 21)
$Input30 = GUICtrlCreateInput($cen14, 256, 308, 105, 21)
$Input31 = GUICtrlCreateInput($tov15, 256, 337, 105, 21)
$Input32 = GUICtrlCreateInput($cen15, 256, 366, 105, 21)
$Input33 = GUICtrlCreateInput($tov16, 256, 395, 105, 21)
$Input34 = GUICtrlCreateInput($cen16, 256, 424, 105, 21)
$Input35 = GUICtrlCreateInput($tov17, 256, 453, 105, 21)
$Input36 = GUICtrlCreateInput($cen17, 256, 481, 105, 21)
$Input37 = GUICtrlCreateInput($tov18, 256, 510, 105, 21)
$Input38 = GUICtrlCreateInput($cen18, 256, 539, 105, 21)
$Input39 = GUICtrlCreateInput($tov19, 256, 568, 105, 21)
$Input40 = GUICtrlCreateInput($cen19, 256, 597, 105, 21)
$Label3 = GUICtrlCreateLabel("Наименование товара", 391, 15, 172, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Цена товара", 647, 15, 98, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input41 = GUICtrlCreateInput($tov20, 391, 47, 209, 21)
$Input42 = GUICtrlCreateInput($cen20, 391, 76, 209, 21)
$Input43 = GUICtrlCreateInput($tov21, 391, 105, 209, 21)
$Input44 = GUICtrlCreateInput($cen21, 391, 134, 209, 21)
$Input45 = GUICtrlCreateInput($tov22, 391, 163, 209, 21)
$Input46 = GUICtrlCreateInput($cen22, 391, 192, 209, 21)
$Input47 = GUICtrlCreateInput($tov23, 391, 221, 209, 21)
$Input48 = GUICtrlCreateInput($cen23, 391, 250, 209, 21)
$Input49 = GUICtrlCreateInput($tov24, 391, 279, 209, 21)
$Input50 = GUICtrlCreateInput($cen24, 391, 308, 209, 21)
$Input51 = GUICtrlCreateInput($tov25, 391, 336, 209, 21)
$Input52 = GUICtrlCreateInput($cen25, 391, 365, 209, 21)
$Input53 = GUICtrlCreateInput($tov26, 391, 394, 209, 21)
$Input54 = GUICtrlCreateInput($cen26, 391, 423, 209, 21)
$Input55 = GUICtrlCreateInput($tov27, 391, 452, 209, 21)
$Input56 = GUICtrlCreateInput($cen27, 391, 481, 209, 21)
$Input57 = GUICtrlCreateInput($tov28, 391, 510, 209, 21)
$Input58 = GUICtrlCreateInput($cen28, 391, 539, 209, 21)
$Input59 = GUICtrlCreateInput($tov29, 391, 568, 209, 21)
$Input60 = GUICtrlCreateInput($cen29, 391, 597, 209, 21)
$Input61 = GUICtrlCreateInput($tov30, 639, 47, 105, 21)
$Input62 = GUICtrlCreateInput($cen30, 639, 76, 105, 21)
$Input63 = GUICtrlCreateInput($tov31, 639, 105, 105, 21)
$Input64 = GUICtrlCreateInput($cen31, 639, 134, 105, 21)
$Input65 = GUICtrlCreateInput($tov32, 639, 163, 105, 21)
$Input66 = GUICtrlCreateInput($cen32, 639, 191, 105, 21)
$Input67 = GUICtrlCreateInput($tov33, 639, 220, 105, 21)
$Input68 = GUICtrlCreateInput($cen33, 639, 249, 105, 21)
$Input69 = GUICtrlCreateInput($tov34, 639, 278, 105, 21)
$Input70 = GUICtrlCreateInput($cen34, 639, 307, 105, 21)
$Input71 = GUICtrlCreateInput($tov35, 639, 336, 105, 21)
$Input72 = GUICtrlCreateInput($cen35, 639, 365, 105, 21)
$Input73 = GUICtrlCreateInput($tov36, 639, 394, 105, 21)
$Input74 = GUICtrlCreateInput($cen36, 639, 423, 105, 21)
$Input75 = GUICtrlCreateInput($tov37, 639, 452, 105, 21)
$Input76 = GUICtrlCreateInput($cen37, 639, 480, 105, 21)
$Input77 = GUICtrlCreateInput($tov38, 639, 509, 105, 21)
$Input78 = GUICtrlCreateInput($cen38, 639, 538, 105, 21)
$Input79 = GUICtrlCreateInput($tov39, 639, 567, 105, 21)
$Input80 = GUICtrlCreateInput($cen39, 639, 596, 105, 21)

;~ Вставка наименования из txt

GuiCtrlSetData($Input1,$tov)
GuiCtrlSetData($Input2,$tov1)
GuiCtrlSetData($Input3,$tov2)
GuiCtrlSetData($Input4,$tov3)
GuiCtrlSetData($Input5,$tov4)
GuiCtrlSetData($Input6,$tov5)
GuiCtrlSetData($Input7,$tov6)
GuiCtrlSetData($Input8,$tov7)
GuiCtrlSetData($Input9,$tov8)
GuiCtrlSetData($Input10,$tov9)
GuiCtrlSetData($Input11,$tov10)
GuiCtrlSetData($Input12,$tov11)
GuiCtrlSetData($Input13,$tov12)
GuiCtrlSetData($Input14,$tov13)
GuiCtrlSetData($Input15,$tov14)
GuiCtrlSetData($Input16,$tov15)
GuiCtrlSetData($Input17,$tov16)
GuiCtrlSetData($Input18,$tov17)
GuiCtrlSetData($Input19,$tov18)
GuiCtrlSetData($Input20,$tov19)
GuiCtrlSetData($Input21,$cen)
GuiCtrlSetData($Input22,$cen1)
GuiCtrlSetData($Input23,$cen2)
GuiCtrlSetData($Input24,$cen3)
GuiCtrlSetData($Input25,$cen4)
GuiCtrlSetData($Input26,$cen5)
GuiCtrlSetData($Input27,$cen6)
GuiCtrlSetData($Input28,$cen7)
GuiCtrlSetData($Input29,$cen8)
GuiCtrlSetData($Input30,$cen9)
GuiCtrlSetData($Input31,$cen10)
GuiCtrlSetData($Input32,$cen11)
GuiCtrlSetData($Input33,$cen12)
GuiCtrlSetData($Input34,$cen13)
GuiCtrlSetData($Input35,$cen14)
GuiCtrlSetData($Input36,$cen15)
GuiCtrlSetData($Input37,$cen16)
GuiCtrlSetData($Input38,$cen17)
GuiCtrlSetData($Input39,$cen18)
GuiCtrlSetData($Input40,$cen19)
GuiCtrlSetData($Input41,$tov20)
GuiCtrlSetData($Input42,$tov21)
GuiCtrlSetData($Input43,$tov22)
GuiCtrlSetData($Input44,$tov23)
GuiCtrlSetData($Input45,$tov24)
GuiCtrlSetData($Input46,$tov25)
GuiCtrlSetData($Input47,$tov26)
GuiCtrlSetData($Input48,$tov27)
GuiCtrlSetData($Input49,$tov28)
GuiCtrlSetData($Input50,$tov29)
GuiCtrlSetData($Input51,$tov30)
GuiCtrlSetData($Input52,$tov31)
GuiCtrlSetData($Input53,$tov32)
GuiCtrlSetData($Input54,$tov33)
GuiCtrlSetData($Input55,$tov34)
GuiCtrlSetData($Input56,$tov35)
GuiCtrlSetData($Input57,$tov36)
GuiCtrlSetData($Input58,$tov37)
GuiCtrlSetData($Input59,$tov38)
GuiCtrlSetData($Input60,$tov39)
GuiCtrlSetData($Input61,$cen20)
GuiCtrlSetData($Input62,$cen21)
GuiCtrlSetData($Input63,$cen22)
GuiCtrlSetData($Input64,$cen23)
GuiCtrlSetData($Input65,$cen24)
GuiCtrlSetData($Input66,$cen25)
GuiCtrlSetData($Input67,$cen26)
GuiCtrlSetData($Input68,$cen27)
GuiCtrlSetData($Input69,$cen28)
GuiCtrlSetData($Input70,$cen29)
GuiCtrlSetData($Input71,$cen30)
GuiCtrlSetData($Input72,$cen31)
GuiCtrlSetData($Input73,$cen32)
GuiCtrlSetData($Input74,$cen33)
GuiCtrlSetData($Input75,$cen34)
GuiCtrlSetData($Input76,$cen35)
GuiCtrlSetData($Input77,$cen36)
GuiCtrlSetData($Input78,$cen37)
GuiCtrlSetData($Input79,$cen38)
GuiCtrlSetData($Input80,$cen39)
;~ Выбор загаловка
$Checkbox1 = GUICtrlCreateCheckbox("", 224, 48, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("", 224, 77, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("", 224, 107, 17, 17)
$Checkbox4 = GUICtrlCreateCheckbox("", 224, 136, 17, 17)
$Checkbox5 = GUICtrlCreateCheckbox("", 224, 168, 17, 17)
$Checkbox6 = GUICtrlCreateCheckbox("", 224, 197, 17, 17)
$Checkbox7 = GUICtrlCreateCheckbox("", 224, 227, 17, 17)
$Checkbox8 = GUICtrlCreateCheckbox("", 224, 256, 17, 17)
$Checkbox9 = GUICtrlCreateCheckbox("", 224, 280, 17, 17)
$Checkbox10 = GUICtrlCreateCheckbox("", 224, 309, 17, 17)
$Checkbox11 = GUICtrlCreateCheckbox("", 224, 339, 17, 17)
$Checkbox12 = GUICtrlCreateCheckbox("", 224, 368, 17, 17)
$Checkbox13 = GUICtrlCreateCheckbox("", 224, 399, 17, 17)
$Checkbox14 = GUICtrlCreateCheckbox("", 224, 428, 17, 17)
$Checkbox15 = GUICtrlCreateCheckbox("", 224, 458, 17, 17)
$Checkbox16 = GUICtrlCreateCheckbox("", 224, 487, 17, 17)
$Checkbox17 = GUICtrlCreateCheckbox("", 224, 511, 17, 17)
$Checkbox18 = GUICtrlCreateCheckbox("", 224, 540, 17, 17)
$Checkbox19 = GUICtrlCreateCheckbox("", 224, 570, 17, 17)
$Checkbox20 = GUICtrlCreateCheckbox("", 224, 599, 17, 17)
$Checkbox21 = GUICtrlCreateCheckbox("", 611, 47, 17, 17)
$Checkbox22 = GUICtrlCreateCheckbox("", 611, 76, 17, 17)
$Checkbox23 = GUICtrlCreateCheckbox("", 611, 106, 17, 17)
$Checkbox24 = GUICtrlCreateCheckbox("", 611, 135, 17, 17)
$Checkbox25 = GUICtrlCreateCheckbox("", 611, 167, 17, 17)
$Checkbox26 = GUICtrlCreateCheckbox("", 611, 196, 17, 17)
$Checkbox27 = GUICtrlCreateCheckbox("", 611, 226, 17, 17)
$Checkbox28 = GUICtrlCreateCheckbox("", 611, 255, 17, 17)
$Checkbox29 = GUICtrlCreateCheckbox("", 611, 279, 17, 17)
$Checkbox30 = GUICtrlCreateCheckbox("", 611, 308, 17, 17)
$Checkbox31 = GUICtrlCreateCheckbox("", 611, 338, 17, 17)
$Checkbox32 = GUICtrlCreateCheckbox("", 611, 367, 17, 17)
$Checkbox33 = GUICtrlCreateCheckbox("", 611, 398, 17, 17)
$Checkbox34 = GUICtrlCreateCheckbox("", 611, 427, 17, 17)
$Checkbox35 = GUICtrlCreateCheckbox("", 611, 457, 17, 17)
$Checkbox36 = GUICtrlCreateCheckbox("", 611, 486, 17, 17)
$Checkbox37 = GUICtrlCreateCheckbox("", 611, 510, 17, 17)
$Checkbox38 = GUICtrlCreateCheckbox("", 611, 539, 17, 17)
$Checkbox39 = GUICtrlCreateCheckbox("", 611, 569, 17, 17)
$Checkbox40 = GUICtrlCreateCheckbox("", 611, 598, 17, 17)
GUISetState(@SW_SHOW)
If $z1=1 Then
ControlCommand("Ввод наименования","",91,"Check")
EndIf
If $z2=1 Then
ControlCommand("Ввод наименования","",92,"Check")
EndIf
If $z3=1 Then
ControlCommand("Ввод наименования","",93,"Check")
EndIf
If $z4=1 Then
ControlCommand("Ввод наименования","",94,"Check")
EndIf
If $z5=1 Then
ControlCommand("Ввод наименования","",95,"Check")
EndIf
If $z6=1 Then
ControlCommand("Ввод наименования","",96,"Check")
EndIf
If $z7=1 Then
ControlCommand("Ввод наименования","",97,"Check")
EndIf
If $z8=1 Then
ControlCommand("Ввод наименования","",98,"Check")
EndIf
If $z9=1 Then
ControlCommand("Ввод наименования","",99,"Check")
EndIf
If $z10=1 Then
ControlCommand("Ввод наименования","",100,"Check")
EndIf
If $z11=1 Then
ControlCommand("Ввод наименования","",101,"Check")
EndIf
If $z12=1 Then
ControlCommand("Ввод наименования","",102,"Check")
EndIf
If $z13=1 Then
ControlCommand("Ввод наименования","",103,"Check")
EndIf
If $z14=1 Then
ControlCommand("Ввод наименования","",104,"Check")
EndIf
If $z15=1 Then
ControlCommand("Ввод наименования","",105,"Check")
EndIf
If $z16=1 Then
ControlCommand("Ввод наименования","",106,"Check")
EndIf
If $z17=1 Then
ControlCommand("Ввод наименования","",107,"Check")
EndIf
If $z18=1 Then
ControlCommand("Ввод наименования","",108,"Check")
EndIf
If $z19=1 Then
ControlCommand("Ввод наименования","",109,"Check")
EndIf
If $z20=1 Then
ControlCommand("Ввод наименования","",110,"Check")
EndIf
If $z21=1 Then
ControlCommand("Ввод наименования","",111,"Check")
EndIf
If $z22=1 Then
ControlCommand("Ввод наименования","",112,"Check")
EndIf
If $z23=1 Then
ControlCommand("Ввод наименования","",113,"Check")
EndIf
If $z24=1 Then
ControlCommand("Ввод наименования","",114,"Check")
EndIf
If $z25=1 Then
ControlCommand("Ввод наименования","",115,"Check")
EndIf
If $z26=1 Then
ControlCommand("Ввод наименования","",116,"Check")
EndIf
If $z27=1 Then
ControlCommand("Ввод наименования","",117,"Check")
EndIf
If $z28=1 Then
ControlCommand("Ввод наименования","",118,"Check")
EndIf
If $z29=1 Then
ControlCommand("Ввод наименования","",119,"Check")
EndIf
If $z30=1 Then
ControlCommand("Ввод наименования","",120,"Check")
EndIf
If $z31=1 Then
ControlCommand("Ввод наименования","",121,"Check")
EndIf
If $z32=1 Then
ControlCommand("Ввод наименования","",122,"Check")
EndIf
If $z33=1 Then
ControlCommand("Ввод наименования","",123,"Check")
EndIf
If $z34=1 Then
ControlCommand("Ввод наименования","",124,"Check")
EndIf
If $z35=1 Then
ControlCommand("Ввод наименования","",125,"Check")
EndIf
If $z36=1 Then
ControlCommand("Ввод наименования","",126,"Check")
EndIf
If $z37=1 Then
ControlCommand("Ввод наименования","",127,"Check")
EndIf
If $z38=1 Then
ControlCommand("Ввод наименования","",128,"Check")
EndIf
If $z39=1 Then
ControlCommand("Ввод наименования","",129,"Check")
EndIf
If $z40=1 Then
ControlCommand("Ввод наименования","",130,"Check")
EndIf
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
;~ 			Exit
_ScriptRestart()
;~ чтение с формы и сохранение в txt
Case $Button4
	FileClose($vFile)
 FileDelete('наименование.ini')
 _FileCreate("наименование.ini")
$n1=GUICtrlRead($Input1)
$n2=GUICtrlRead($Input2)
$n3=GUICtrlRead($Input3)
$n4=GUICtrlRead($Input4)
$n5=GUICtrlRead($Input5)
$n6=GUICtrlRead($Input6)
$n7=GUICtrlRead($Input7)
$n8=GUICtrlRead($Input8)
$n9=GUICtrlRead($Input9)
$n10=GUICtrlRead($Input10)
$n11=GUICtrlRead($Input11)
$n12=GUICtrlRead($Input12)
$n13=GUICtrlRead($Input13)
$n14=GUICtrlRead($Input14)
$n15=GUICtrlRead($Input15)
$n16=GUICtrlRead($Input16)
$n17=GUICtrlRead($Input17)
$n18=GUICtrlRead($Input18)
$n19=GUICtrlRead($Input19)
$n20=GUICtrlRead($Input20)
$c1=GUICtrlRead($Input21)
$c2=GUICtrlRead($Input22)
$c3=GUICtrlRead($Input23)
$c4=GUICtrlRead($Input24)
$c5=GUICtrlRead($Input25)
$c6=GUICtrlRead($Input26)
$c7=GUICtrlRead($Input27)
$c8=GUICtrlRead($Input28)
$c9=GUICtrlRead($Input29)
$c10=GUICtrlRead($Input30)
$c11=GUICtrlRead($Input31)
$c12=GUICtrlRead($Input32)
$c13=GUICtrlRead($Input33)
$c14=GUICtrlRead($Input34)
$c15=GUICtrlRead($Input35)
$c16=GUICtrlRead($Input36)
$c17=GUICtrlRead($Input37)
$c18=GUICtrlRead($Input38)
$c19=GUICtrlRead($Input39)
$c20=GUICtrlRead($Input40)
$n21=GUICtrlRead($Input41)
$n22=GUICtrlRead($Input42)
$n23=GUICtrlRead($Input43)
$n24=GUICtrlRead($Input44)
$n25=GUICtrlRead($Input45)
$n26=GUICtrlRead($Input46)
$n27=GUICtrlRead($Input47)
$n28=GUICtrlRead($Input48)
$n29=GUICtrlRead($Input49)
$n30=GUICtrlRead($Input50)
$n31=GUICtrlRead($Input51)
$n32=GUICtrlRead($Input52)
$n33=GUICtrlRead($Input53)
$n34=GUICtrlRead($Input54)
$n35=GUICtrlRead($Input55)
$n36=GUICtrlRead($Input56)
$n37=GUICtrlRead($Input57)
$n38=GUICtrlRead($Input58)
$n39=GUICtrlRead($Input59)
$n40=GUICtrlRead($Input60)
$c21=GUICtrlRead($Input61)
$c22=GUICtrlRead($Input62)
$c23=GUICtrlRead($Input63)
$c24=GUICtrlRead($Input64)
$c25=GUICtrlRead($Input65)
$c26=GUICtrlRead($Input66)
$c27=GUICtrlRead($Input67)
$c28=GUICtrlRead($Input68)
$c29=GUICtrlRead($Input69)
$c30=GUICtrlRead($Input70)
$c31=GUICtrlRead($Input71)
$c32=GUICtrlRead($Input72)
$c33=GUICtrlRead($Input73)
$c34=GUICtrlRead($Input74)
$c35=GUICtrlRead($Input75)
$c36=GUICtrlRead($Input76)
$c37=GUICtrlRead($Input77)
$c38=GUICtrlRead($Input78)
$c39=GUICtrlRead($Input79)
$c40=GUICtrlRead($Input80)
;~ Запись в txt файл
FileWrite($nFile,$n1& @CRLF)
FileWrite($nFile,$c1& @CRLF)
FileWrite($nFile,$n2& @CRLF)
FileWrite($nFile,$c2& @CRLF)
FileWrite($nFile,$n3& @CRLF)
FileWrite($nFile,$c3& @CRLF)
FileWrite($nFile,$n4& @CRLF)
FileWrite($nFile,$c4& @CRLF)
FileWrite($nFile,$n5& @CRLF)
FileWrite($nFile,$c5& @CRLF)
FileWrite($nFile,$n6& @CRLF)
FileWrite($nFile,$c6& @CRLF)
FileWrite($nFile,$n7& @CRLF)
FileWrite($nFile,$c7& @CRLF)
FileWrite($nFile,$n8& @CRLF)
FileWrite($nFile,$c8& @CRLF)
FileWrite($nFile,$n9& @CRLF)
FileWrite($nFile,$c9& @CRLF)
FileWrite($nFile,$n10& @CRLF)
FileWrite($nFile,$c10& @CRLF)
FileWrite($nFile,$n11& @CRLF)
FileWrite($nFile,$c11& @CRLF)
FileWrite($nFile,$n12& @CRLF)
FileWrite($nFile,$c12& @CRLF)
FileWrite($nFile,$n13& @CRLF)
FileWrite($nFile,$c13& @CRLF)
FileWrite($nFile,$n14& @CRLF)
FileWrite($nFile,$c14& @CRLF)
FileWrite($nFile,$n15& @CRLF)
FileWrite($nFile,$c15& @CRLF)
FileWrite($nFile,$n16& @CRLF)
FileWrite($nFile,$c16& @CRLF)
FileWrite($nFile,$n17& @CRLF)
FileWrite($nFile,$c17& @CRLF)
FileWrite($nFile,$n18& @CRLF)
FileWrite($nFile,$c18& @CRLF)
FileWrite($nFile,$n19& @CRLF)
FileWrite($nFile,$c19& @CRLF)
FileWrite($nFile,$n20& @CRLF)
FileWrite($nFile,$c20& @CRLF)
FileWrite($nFile,$n21& @CRLF)
FileWrite($nFile,$c21& @CRLF)
FileWrite($nFile,$n22& @CRLF)
FileWrite($nFile,$c22& @CRLF)
FileWrite($nFile,$n23& @CRLF)
FileWrite($nFile,$c23& @CRLF)
FileWrite($nFile,$n24& @CRLF)
FileWrite($nFile,$c24& @CRLF)
FileWrite($nFile,$n25& @CRLF)
FileWrite($nFile,$c25& @CRLF)
FileWrite($nFile,$n26& @CRLF)
FileWrite($nFile,$c26& @CRLF)
FileWrite($nFile,$n27& @CRLF)
FileWrite($nFile,$c27& @CRLF)
FileWrite($nFile,$n28& @CRLF)
FileWrite($nFile,$c28& @CRLF)
FileWrite($nFile,$n29& @CRLF)
FileWrite($nFile,$c29& @CRLF)
FileWrite($nFile,$n30& @CRLF)
FileWrite($nFile,$c30& @CRLF)
FileWrite($nFile,$n31& @CRLF)
FileWrite($nFile,$c31& @CRLF)
FileWrite($nFile,$n32& @CRLF)
FileWrite($nFile,$c32& @CRLF)
FileWrite($nFile,$n33& @CRLF)
FileWrite($nFile,$c33& @CRLF)
FileWrite($nFile,$n34& @CRLF)
FileWrite($nFile,$c34& @CRLF)
FileWrite($nFile,$n35& @CRLF)
FileWrite($nFile,$c35& @CRLF)
FileWrite($nFile,$n36& @CRLF)
FileWrite($nFile,$c36& @CRLF)
FileWrite($nFile,$n37& @CRLF)
FileWrite($nFile,$c37& @CRLF)
FileWrite($nFile,$n38& @CRLF)
FileWrite($nFile,$c38& @CRLF)
FileWrite($nFile,$n39& @CRLF)
FileWrite($nFile,$c39& @CRLF)
FileWrite($nFile,$n40& @CRLF)
FileWrite($nFile,$c40& @CRLF)
If GUICtrlRead($Checkbox1) = 1 Then
$iCheck1 = "1"
Else
$iCheck1 = "0"
EndIf
FileWrite($nFile,$iCheck1& @CRLF)
If GUICtrlRead($Checkbox2) = 1 Then
$iCheck2 = "1"
Else
$iCheck2 = "0"
EndIf
FileWrite($nFile,$iCheck2& @CRLF)
If GUICtrlRead($Checkbox3) = 1 Then
$iCheck3 = "1"
Else
$iCheck3 = "0"
EndIf
FileWrite($nFile,$iCheck3& @CRLF)
If GUICtrlRead($Checkbox4) = 1 Then
$iCheck4 = "1"
Else
$iCheck4 = "0"
EndIf
FileWrite($nFile,$iCheck4& @CRLF)
If GUICtrlRead($Checkbox5) = 1 Then
$iCheck5 = "1"
Else
$iCheck5 = "0"
EndIf
FileWrite($nFile,$iCheck5& @CRLF)
If GUICtrlRead($Checkbox6) = 1 Then
$iCheck6 = "1"
Else
$iCheck6 = "0"
EndIf
FileWrite($nFile,$iCheck6& @CRLF)
If GUICtrlRead($Checkbox7) = 1 Then
$iCheck7 = "1"
Else
$iCheck7 = "0"
EndIf
FileWrite($nFile,$iCheck7& @CRLF)
If GUICtrlRead($Checkbox8) = 1 Then
$iCheck8 = "1"
Else
$iCheck8 = "0"
EndIf
FileWrite($nFile,$iCheck8& @CRLF)
If GUICtrlRead($Checkbox9) = 1 Then
$iCheck9 = "1"
Else
$iCheck9 = "0"
EndIf
FileWrite($nFile,$iCheck9& @CRLF)
If GUICtrlRead($Checkbox10) = 1 Then
$iCheck10 = "1"
Else
$iCheck10 = "0"
EndIf
FileWrite($nFile,$iCheck10& @CRLF)
If GUICtrlRead($Checkbox11) = 1 Then
$iCheck11 = "1"
Else
$iCheck11 = "0"
EndIf
FileWrite($nFile,$iCheck11& @CRLF)
If GUICtrlRead($Checkbox12) = 1 Then
$iCheck12 = "1"
Else
$iCheck12 = "0"
EndIf
FileWrite($nFile,$iCheck12& @CRLF)
If GUICtrlRead($Checkbox13) = 1 Then
$iCheck13 = "1"
Else
$iCheck13 = "0"
EndIf
FileWrite($nFile,$iCheck13& @CRLF)
If GUICtrlRead($Checkbox14) = 1 Then
$iCheck14 = "1"
Else
$iCheck14 = "0"
EndIf
FileWrite($nFile,$iCheck14& @CRLF)
If GUICtrlRead($Checkbox15) = 1 Then
$iCheck15 = "1"
Else
$iCheck15 = "0"
EndIf
FileWrite($nFile,$iCheck15& @CRLF)
If GUICtrlRead($Checkbox16) = 1 Then
$iCheck16 = "1"
Else
$iCheck16 = "0"
EndIf
FileWrite($nFile,$iCheck16& @CRLF)
If GUICtrlRead($Checkbox17) = 1 Then
$iCheck17 = "1"
Else
$iCheck17 = "0"
EndIf
FileWrite($nFile,$iCheck17& @CRLF)
If GUICtrlRead($Checkbox18) = 1 Then
$iCheck18 = "1"
Else
$iCheck18 = "0"
EndIf
FileWrite($nFile,$iCheck18& @CRLF)
If GUICtrlRead($Checkbox19) = 1 Then
$iCheck19 = "1"
Else
$iCheck19 = "0"
EndIf
FileWrite($nFile,$iCheck19& @CRLF)
If GUICtrlRead($Checkbox20) = 1 Then
$iCheck20 = "1"
Else
$iCheck20 = "0"
EndIf
FileWrite($nFile,$iCheck20& @CRLF)
If GUICtrlRead($Checkbox21) = 1 Then
$iCheck21 = "1"
Else
$iCheck21 = "0"
EndIf
FileWrite($nFile,$iCheck21& @CRLF)
If GUICtrlRead($Checkbox22) = 1 Then
$iCheck22 = "1"
Else
$iCheck22 = "0"
EndIf
FileWrite($nFile,$iCheck22& @CRLF)
If GUICtrlRead($Checkbox23) = 1 Then
$iCheck23 = "1"
Else
$iCheck23 = "0"
EndIf
FileWrite($nFile,$iCheck23& @CRLF)
If GUICtrlRead($Checkbox24) = 1 Then
$iCheck24 = "1"
Else
$iCheck24 = "0"
EndIf
FileWrite($nFile,$iCheck24& @CRLF)
If GUICtrlRead($Checkbox25) = 1 Then
$iCheck25 = "1"
Else
$iCheck25 = "0"
EndIf
FileWrite($nFile,$iCheck25& @CRLF)
If GUICtrlRead($Checkbox26) = 1 Then
$iCheck26 = "1"
Else
$iCheck26 = "0"
EndIf
FileWrite($nFile,$iCheck26& @CRLF)
If GUICtrlRead($Checkbox27) = 1 Then
$iCheck27 = "1"
Else
$iCheck27 = "0"
EndIf
FileWrite($nFile,$iCheck27& @CRLF)
If GUICtrlRead($Checkbox28) = 1 Then
$iCheck28 = "1"
Else
$iCheck28 = "0"
EndIf
FileWrite($nFile,$iCheck28& @CRLF)
If GUICtrlRead($Checkbox29) = 1 Then
$iCheck29 = "1"
Else
$iCheck29 = "0"
EndIf
FileWrite($nFile,$iCheck29& @CRLF)
If GUICtrlRead($Checkbox30) = 1 Then
$iCheck30 = "1"
Else
$iCheck30 = "0"
EndIf
FileWrite($nFile,$iCheck30& @CRLF)
If GUICtrlRead($Checkbox31) = 1 Then
$iCheck31 = "1"
Else
$iCheck31 = "0"
EndIf
FileWrite($nFile,$iCheck31& @CRLF)
If GUICtrlRead($Checkbox32) = 1 Then
$iCheck32 = "1"
Else
$iCheck32 = "0"
EndIf
FileWrite($nFile,$iCheck32& @CRLF)
If GUICtrlRead($Checkbox33) = 1 Then
$iCheck33 = "1"
Else
$iCheck33 = "0"
EndIf
FileWrite($nFile,$iCheck33& @CRLF)
If GUICtrlRead($Checkbox34) = 1 Then
$iCheck34 = "1"
Else
$iCheck34 = "0"
EndIf
FileWrite($nFile,$iCheck34& @CRLF)
If GUICtrlRead($Checkbox35) = 1 Then
$iCheck35 = "1"
Else
$iCheck35 = "0"
EndIf
FileWrite($nFile,$iCheck35& @CRLF)
If GUICtrlRead($Checkbox36) = 1 Then
$iCheck36 = "1"
Else
$iCheck36 = "0"
EndIf
FileWrite($nFile,$iCheck36& @CRLF)
If GUICtrlRead($Checkbox37) = 1 Then
$iCheck37 = "1"
Else
$iCheck37 = "0"
EndIf
FileWrite($nFile,$iCheck37& @CRLF)
If GUICtrlRead($Checkbox38) = 1 Then
$iCheck38 = "1"
Else
$iCheck38 = "0"
EndIf
FileWrite($nFile,$iCheck38& @CRLF)
If GUICtrlRead($Checkbox39) = 1 Then
$iCheck39 = "1"
Else
$iCheck39 = "0"
EndIf
FileWrite($nFile,$iCheck39& @CRLF)
If GUICtrlRead($Checkbox40) = 1 Then
$iCheck40 = "1"
Else
$iCheck40 = "0"
EndIf
FileWrite($nFile,$iCheck40& @CRLF)
_ScriptRestart()

EndSwitch
Wend

		EndSwitch

WEnd

Файл:
Исходники
Мануал
Снимок:
Снимок1
Снимок2
Источник: autoit-script.ru
 
Верх