purebasic.info

PureBasic forum
Текущее время: Пт окт 19, 2018 8:00 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: по процедурам
СообщениеДобавлено: Ср июл 13, 2011 7:09 pm 
Не в сети
ассистент

Зарегистрирован: Вс июл 03, 2011 9:01 pm
Сообщений: 16
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
здравствуйте.помогите пожалуйста.У меня есть код.программа создаёт файл конфигурации .ini и пустой файл .txt.Можете написать,чтобы это было в отдельных процедурах или подпрограммах,а то у меня не особо выходит.Чтобы создание каждого файла было отдельно,а не в одном цикле.Вот код

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
;- Window Constants 
;{Окна
Enumeration
 #Window_1
 #Window_2
 #Window_3
EndEnumeration
;}
 
;- Gadget Constants
;{Гаджеты
Enumeration
 #Ser1
 #Ser
 #LC
 #Num
 #Model1
 #Model
 #Upr
 #Button_1
 #Save
 #Audit
 #Dlt
EndEnumeration
;}
;{Переменные
FileName.s
Ser.s
Num.s
Mod.s
;}
 
 
;- Fonts
;{Оформление окна и гаджетов
Global FontID1
FontID1 = LoadFont(1, "Tahoma", 14, #PB_Font_Bold | #PB_Font_Underline)
Global FontID2
FontID2 = LoadFont(2, "Arial Black", 12, #PB_Font_Bold | #PB_Font_Underline)
Global FontID3
FontID3 = LoadFont(3, "Script MT Bold", 12, #PB_Font_Bold | #PB_Font_Italic | #PB_Font_Underline)
Global FontID4
FontID4 = LoadFont(4, "Sylfaen", 12, #PB_Font_Bold)
;}
 
 
Procedure Open_Window_1()
 If OpenWindow(#Window_1, 392, 138, 337, 627, "Управление тестом LogyCom", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
 
 TextGadget(#Ser1, 5, 15, 105, 35, "Серия ПК", #PB_Text_Border)
 SetGadgetFont(#Ser1, FontID1)
 
 TextGadget(#LC, 210, 15, 55, 35, "-LC-", #PB_Text_Center | #PB_Text_Border)
 SetGadgetFont(#LC, FontID1)
 
 TextGadget(#Model1, 5, 70, 115, 35, "Модель ПК", #PB_Text_Border)
 SetGadgetFont(#Model1, FontID1)
 
 StringGadget(#Ser, 130, 15, 70, 35, "", #PB_String_Numeric)
 SendMessage_(GadgetID(#Ser), #EM_LIMITTEXT, 5, 0)
 SetGadgetFont(#Ser, FontID1)
 
 StringGadget(#Num, 275, 15, 45, 35, "001", #PB_String_Numeric)
 SendMessage_(GadgetID(#Num), #EM_LIMITTEXT, 3, 0)
 SetGadgetFont(#Num, FontID1)
 
 StringGadget(#Model, 130, 70, 200, 35, "", #PB_String_UpperCase)
 SendMessage_(GadgetID(#Model), #EM_LIMITTEXT, 14, 0)
 SetGadgetFont(#Model, FontID1)
 
 ButtonGadget(#Upr, 65, 275, 205, 50, "Управление компьютером", #PB_Button_Default | #PB_Button_MultiLine | #PB_Button_Toggle)
 SetGadgetFont(#Upr, FontID4)
 
 ButtonGadget(#Button_1, 65, 345, 205, 50, "", #PB_Button_Default | #PB_Button_MultiLine | #PB_Button_Toggle)
 
 ButtonGadget(#Save, 65, 415, 205, 50, "Сохранить отчёт", #PB_Button_Default | #PB_Button_MultiLine | #PB_Button_Toggle)
 SetGadgetFont(#Save, FontID4)
 
 ButtonGadget(#Audit, 65, 485, 205, 50, "Просмотреть результат", #PB_Button_Default | #PB_Button_MultiLine | #PB_Button_Toggle)
 SetGadgetFont(#Audit, FontID4)
 
 ButtonGadget(#Dlt, 65, 555, 205, 50, "Удалить данные", #PB_Button_Default | #PB_Button_MultiLine | #PB_Button_Toggle)
 SetGadgetFont(#Dlt, FontID4)
 EndIf
EndProcedure
 
Open_Window_1()
 SetActiveGadget(#Num)
 OpenPreferences("options.ini")
 SetGadgetText(#Ser, ReadPreferenceString ("Серия ПК", ""))
 SetGadgetText(#Model,ReadPreferenceString ("Модель ПК",""))
 ClosePreferences()
 
 ;{-Event loop
Repeat
 Event = WaitWindowEvent() ; Узнаём текущее событие в программе.
 Select Event
 
 ;//////////////////////////////
Case #PB_Event_Gadget
 EventGadget = EventGadget()
 EventType = EventType()
 If EventGadget=#Save
 
 FileName.s=GetGadgetText(#Ser)+"-LC-"+GetGadgetText(#Num)+".txt";Имя файла
 CreateFile(1,FileName)
 CloseFile(1)
 
 EndIf
 Ser.s=GetGadgetText(#Ser)
 Num.s=GetGadgetText(#Num)
 Mod.s=GetGadgetText(#Model)
 
 CreatePreferences("options.ini")
 
 WritePreferenceString ("Серия ПК",Ser)
 WritePreferenceString ("Номер ПК",Num)
 WritePreferenceString ("Модель ПК",Mod)
 WritePreferenceString ("Сетевой путь", "\\sip\TEST")
 
 ClosePreferences()
 
 ;/////////////////////////////////
Case #PB_Event_CloseWindow
 EventWindow = EventWindow()
 If EventWindow = #Window_1
 Break
 EndIf
 EndSelect
ForEver
;}



Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB