purebasic.info

PureBasic forum
Текущее время: Пт янв 19, 2018 6:35 pm

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




Начать новую тему Ответить на тему  [ Сообщений: 32 ]  На страницу Пред.  1, 2, 3
Автор Сообщение
СообщениеДобавлено: Пн май 05, 2014 10:38 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Вс дек 09, 2012 9:02 pm
Сообщений: 768
Откуда: Дагестан
Благодарил (а): 0 раз.
Поблагодарили: 11 раз.
Пункты репутации: 0
Не знал куда внедрить но думаю что нужно решил, сюда :D :mrgreen: Что скажете?
Код:
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
 
EnableExplicit
 
Procedure.s Rus(EngSlovo.s)
Protected AngliyyskieBukvi.s="yo:yu:ya:ts:ch:sh:sh:ph:ii:a:b:v:g:d:e:g:z:i:y:k:l:m:n:o:p:r:s:t:u:h:2:1:e:_:A:B:V:G:D:E:Yo:G:Z:I:Y:K:L:M:N:O:P:R:S:T:U:Ph:H:Ts:Ch:Sh:Sh:`:I:':E:Yu:Ya"
Protected RusskieBukvi.s=    "ё:ю:я:ц:ч:ш:щ:ф:ы:а:б:в:г:д:е:ж:з:и:й:к:л:м:н:о:п:р:с:т:у:х:ъ:ь:э: :А:Б:В:Г:Д:Е:Ё:Ж:З:И:Й:К:Л:М:Н:О:П:Р:С:Т:У:Ф:Х:Ц:Ч:Ш:Щ:Ъ:Ы:Ь:Э:Ю:Я"
Protected Simvol
Repeat
       Simvol+1
       EngSlovo=ReplaceString(EngSlovo,  StringField(AngliyyskieBukvi,Simvol, ":"),StringField(RusskieBukvi, Simvol, ":"))
     
    Until Simvol=74
ProcedureReturn EngSlovo
EndProcedure
 
Procedure$ ULCase(String$)
 String$=InsertString(UCase(Left(String$,1)), LCase(Right(String$,Len(String$)-1)), 2)
 ProcedureReturn String$
EndProcedure
 
Macro DQ
 "
EndMacro
 
Macro Object(GadgetName,ID,x,y,w,h,Flag=0)
Global ID = GadgetName#Gadget(#PB_Any,x,y,w,h, Rus(DQ#ID#DQ)+" ID="+DQ#ID#DQ,Flag)
EndMacro
 
Macro Button(name,x,y,w,h,Text="",Flag=0)
Global name = ButtonGadget(#PB_Any,x,y,w,h, ULCase(Rus(DQ#name#DQ#)),Flag)
EndMacro
 
 
 
OpenWindow(1, 330, 330, 300, 1300, "Window")
 
Button(kriishka, 5, 5, 144, 22)
 
Button(imya, 5, 225, 144, 22)
 
Button(Knopka, 5, 255, 144, 22)
 
Button(dobavit1_tovar1_na_sklad, 5, 285, 144, 22)
 
Object(Button,Knopka, 5, 55, 144, 22)
Object(String,PoleVvoda, 5, 155, 144, 22)
 
 Repeat ;
  Define EventID=WaitWindowEvent()
   If EventID=#PB_Event_Gadget
     If EventGadget()=Knopka
      Debug "Нажали на у которого ID ="+Knopka
     ElseIf EventGadget()=dobavit1_tovar1_na_sklad
      Debug "Нажали на у которого ID ="+dobavit1_tovar1_na_sklad
     ElseIf EventGadget()=imya
      Debug "Нажали на у которого ID ="+imya
     EndIf
   EndIf  
 Until EventID=#PB_Event_CloseWindow


Можно пойти дальше добавить событие не отходя от кассы :D
Код:
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
EnableExplicit
 
Procedure.s Rus(EngSlovo.s)
Protected AngliyyskieBukvi.s="yo:yu:ya:ts:ch:sh:sh:ph:ii:a:b:v:g:d:e:g:z:i:y:k:l:m:n:o:p:r:s:t:u:h:2:1:e:_:A:B:V:G:D:E:Yo:G:Z:I:Y:K:L:M:N:O:P:R:S:T:U:Ph:H:Ts:Ch:Sh:Sh:`:I:':E:Yu:Ya"
Protected RusskieBukvi.s=    "ё:ю:я:ц:ч:ш:щ:ф:ы:а:б:в:г:д:е:ж:з:и:й:к:л:м:н:о:п:р:с:т:у:х:ъ:ь:э: :А:Б:В:Г:Д:Е:Ё:Ж:З:И:Й:К:Л:М:Н:О:П:Р:С:Т:У:Ф:Х:Ц:Ч:Ш:Щ:Ъ:Ы:Ь:Э:Ю:Я"
Protected Simvol
Repeat
       Simvol+1
       EngSlovo=ReplaceString(EngSlovo,  StringField(AngliyyskieBukvi,Simvol, ":"),StringField(RusskieBukvi, Simvol, ":"))
     
    Until Simvol=74
ProcedureReturn EngSlovo
EndProcedure
 
Procedure$ ULCase(String$)
 String$=InsertString(UCase(Left(String$,1)), LCase(Right(String$,Len(String$)-1)), 2)
 ProcedureReturn String$
EndProcedure
 
Macro DQ
 "
EndMacro
 
Macro Button(name,x,y,w,h,Text="",Flag=0)
 Global name# = ButtonGadget(#PB_Any,x,y,w,h, ULCase(Rus(DQ#name#DQ#)),Flag)
 Declare name#()
 BindGadgetEvent(name#,@name#())
EndMacro
 
 
OpenWindow(1, 330, 330, 300, 1300, "Window")
 
 
Button(imya, 5, 225, 144, 22)
Procedure imya()
  Debug imya
EndProcedure
 
Button(Knopka, 5, 255, 144, 22)
Procedure Knopka()
  Debug Knopka
EndProcedure
 
Button(dobavit_tovar1_na_sklad, 5, 285, 144, 22)
Procedure dobavit_tovar1_na_sklad()
  Debug dobavit_tovar1_na_sklad
EndProcedure
 
Repeat :Until WaitWindowEvent()=#PB_Event_CloseWindow



Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Ср май 14, 2014 3:41 pm 
Не в сети
PureBasic Coder
Аватар пользователя

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 80 раз.
Пункты репутации: 24
Сообщения, касающиеся отображения окон, были перенесены в отдельную тему, т.к. это не является трюками/советами: viewtopic.php?f=1&t=3815

_________________
Пурик - лучший язык программирования


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

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


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

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


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

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