PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Помогите пожалуйста

Помогите пожалуйста

Страница:   1 2 3

Сообщений 61 страница 82 из 82

61

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11

У меня окно, 3 текстовых поля и кнопка. Мне надо проверить текст в текстовых полях.

Отредактировано ANTON (24.04.2011 13:15:49)

0

62

  • Автор: Иван26
  • Участник
  • Иван26
  • Зарегистрирован: 13.04.2011
  • Приглашений: 0
  • Сообщений: 13
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Возраст: 39 [1984-08-08]
  • Провел на форуме:
    4 часа 34 минуты
  • Последний визит:
    15.05.2011 15:47:37
Код:
String$ = GetGadgetText(#Gadget) ;#Gadget - имя текстового поля
;возвращает содержимое StringGadget

0

63

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11

Спасибо помогло!

0

64

  • Автор: Дмитрий
  • Активный участник
  • Дмитрий
  • Зарегистрирован: 25.09.2010
  • Приглашений: 0
  • Сообщений: 126
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    2 дня 16 часов
  • Последний визит:
    07.05.2012 00:38:36

пользуйся чаще справкой.

0

65

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11
Код:
Enumeration  
  #Window_0 
  #tray 
  #icon 
  #But:#Text:#Text2:#Text3
 EndEnumeration 
 OpenWindow (#Window_0, 0, 0, 123, 80, "Окно", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered |#PB_Window_Invisible)  
  SetWindowLongPtr_(WindowID(#Window_0),#GWL_EXSTYLE, #WS_EX_TOOLWINDOW)  
  AddSysTrayIcon(#tray, WindowID(#Window_0),ExtractIcon_(0,"netshell.dll",8))
  CreatePopupMenu(0) 
  MenuItem(1,"Инфо.") 
  MenuItem(2,"Настройки") 
  MenuBar() 
  MenuItem(3,"Выход") 
  ButtonGadget(#But,0,60,123,23,"кнопка 1")
  EditorGadget(#Text, 0, 0, 123, 20)
  EditorGadget(#Text2, 0, 20, 123, 20)
  EditorGadget(#Text3, 0, 40, 123, 20)
 HideWindow(#Window_0,0) 
 Repeat 
 Event = WaitWindowEvent()  
  Select Event 
  Case #PB_Event_Gadget 
Select EventGadget() 
  Case #But 
    Select GetGadgetText(#Text)
      Case "Поиск"
        Debug "111"
    EndSelect 
Case #PB_Event_SysTray 
If EventType() = #PB_EventType_RightClick ; Обработка правый клик мышки  
  DisplayPopupMenu(0, WindowID(#Window_0)) ; показ вспывающего меню 
  EndIf 
If EventType() = #PB_EventType_LeftClick ; Обработка левый клик мышки
 HideWindow(#Window_0,0) ; показать окно
EndIf
 Case #PB_Event_Menu 
  Select EventMenu() 
  Case 1 
  ;код 
  Case 2 
  ;код 
  Case 3 
  Break 
  EndSelect 
  EndSelect 
 If Event = #PB_Event_CloseWindow 
 HideWindow(#Window_0,1)  
 EndIf 
 ForEver

В чём ошибка?

0

66

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
ANTON написал(а):

В чём ошибка?

В неправильной расстановке операторов EndSelect.

Код:
Enumeration  
  #Window_0 
  #tray 
  #icon 
  #But:#Text:#Text2:#Text3
EndEnumeration 
OpenWindow (#Window_0, 0, 0, 123, 80, "Окно", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered |#PB_Window_Invisible)  
SetWindowLongPtr_(WindowID(#Window_0),#GWL_EXSTYLE, #WS_EX_TOOLWINDOW)  
AddSysTrayIcon(#tray, WindowID(#Window_0),ExtractIcon_(0,"netshell.dll",8))
CreatePopupMenu(0) 
MenuItem(1,"Инфо.") 
MenuItem(2,"Настройки") 
MenuBar() 
MenuItem(3,"Выход") 
ButtonGadget(#But,0,60,123,23,"кнопка 1")
EditorGadget(#Text, 0, 0, 123, 20)
EditorGadget(#Text2, 0, 20, 123, 20)
EditorGadget(#Text3, 0, 40, 123, 20)
HideWindow(#Window_0,0) 
Repeat 
  Event = WaitWindowEvent()  

  Select Event 
    Case #PB_Event_Gadget 
      Select EventGadget() 
        Case #But 
          Select GetGadgetText(#Text)
            Case "Поиск"
              Debug "111"
          EndSelect
      EndSelect 
    Case #PB_Event_SysTray 
      If EventType() = #PB_EventType_RightClick ; Обработка правый клик мышки  
        DisplayPopupMenu(0, WindowID(#Window_0)) ; показ вспывающего меню 
      EndIf 
      If EventType() = #PB_EventType_LeftClick ; Обработка левый клик мышки
        HideWindow(#Window_0,0) ; показать окно
      EndIf
    Case #PB_Event_Menu 
      Select EventMenu() 
        Case 1 
          ;код 
        Case 2 
          ;код 
        Case 3 
          Break 
      EndSelect 

    Case #PB_Event_CloseWindow 
      HideWindow(#Window_0,1) 
  EndSelect
  
ForEver

0

67

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11

Где можно найти инфу по PureSMTP и PurePOP3?

Отредактировано ANTON (02.06.2011 20:12:55)

0

68

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
ANTON написал(а):

Где можно найти инфу по PureSMTP и PurePOP3?

В справке.
Ставишь курсор на функцию и нажимаешь на F1. Открывается справка....
Примеры есть здесь Работа с почтой

0

69

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11

Где ошибка?

Код:
Enumeration  
  #Window_0 
  #tray 
  #icon 
  #But:#Text:#Text2:#Text3
EndEnumeration 
OpenWindow (#Window_0, 0, 0, 123, 80, "Окно", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered |#PB_Window_Invisible)  
SetWindowLongPtr_(WindowID(#Window_0),#GWL_EXSTYLE, #WS_EX_TOOLWINDOW)  
AddSysTrayIcon(#tray, WindowID(#Window_0),ExtractIcon_(0,"netshell.dll",8))
CreatePopupMenu(0) 
MenuItem(1,"Инфо.") 
MenuItem(2,"Настройки") 
MenuBar() 
MenuItem(3,"Выход") 
ButtonGadget(#But,0,60,123,23,"кнопка 1")
EditorGadget(#Text, 0, 0, 123, 20)
EditorGadget(#Text2, 0, 20, 123, 20)
EditorGadget(#Text3, 0, 40, 123, 20)
HideWindow(#Window_0,0) 
Repeat 
  Event = WaitWindowEvent()  

  Select Event 
    Case #PB_Event_Gadget 
      Select EventGadget() 
        Case #But 
          Select GetGadgetText(#Text)
            Case "Поиск"
              Select GetGadgetText(#Text2)
                Case "Google"
                  RunProgram("http://www.google.com/webhp?hl=ru#sclient=psy&hl=ru&site=webhp&source=hp&q=" + GetGadgetText(#Text3))
              EndSelect    
          EndSelect
      EndSelect 
    Case #PB_Event_SysTray 
      If EventType() = #PB_EventType_RightClick ; Обработка правый клик мышки  
        DisplayPopupMenu(0, WindowID(#Window_0)) ; показ вспывающего меню 
      EndIf 
      If EventType() = #PB_EventType_LeftClick ; Обработка левый клик мышки
        HideWindow(#Window_0,0) ; показать окно
      EndIf
    Case #PB_Event_Menu 
      Select EventMenu() 
        Case 1 
          ;код 
        Case 2 
          ;код 
        Case 3 
          Break 
      EndSelect 

    Case #PB_Event_CloseWindow 
      HideWindow(#Window_0,1) 
  EndSelect
  
ForEver

0

70

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
ANTON написал(а):

Где ошибка?

Уточни вопрос.
Программа компилируется и вроде работает.

0

71

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11
Пётр написал(а):

Уточни вопрос

http://static.video.yandex.ru/lite/anton-kolodich/eilctx21fi.3029/

Отредактировано ANTON (20.06.2011 22:00:47)

0

72

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11
Пётр написал(а):

Ставишь курсор на функцию и нажимаешь на F1. Открывается справка....

А можно справку на руском?
Ну, или, хотя бы примерчик?

0

73

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
ANTON написал(а):

Где ошибка?

У меня такой ошибки не наблюдается.
Попробуй поиграться с началом адреса.
wwwgoogle.com....
http://google.com....
google.com....

ANTON написал(а):

А можно справку на руском?

http://pure-basic.narod.ru/PureBasic.chm

ANTON написал(а):

Ну, или, хотя бы примерчик?

http://purebasic.ucoz.ru/publ/uchebnye_ … ra/4-1-0-9

0

74

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11
Пётр написал(а):

http://pure-basic.narod.ru/PureBasic.chm

Где можно найти справку на русском по PureSMTP и PurePOP3?

0

75

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
ANTON написал(а):

Где можно найти справку на русском по PureSMTP и PurePOP3?

Переводить надо.

0

76

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11

А я английского не знаю! :dontknow:

0

77

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01

Есть программы-переводчики, например Сократ интернет, умеющие переводить справку.
Так что это не проблема.

0

78

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11

Перевидите пожалуйста

0

79

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01

Сократ переводит в режиме реального времени без сохранения.

0

80

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11

А дайте саму прогу, Пожалуйста!  :blush:

0

81

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01

Вот http://depositfiles.com/files/i7y22d1gj
Сначала надо установить sрers41, а затем SINТ30Р.

0

82

  • Автор: ANTON
  • Активный участник
  • Зарегистрирован: 05.03.2011
  • Приглашений: 0
  • Сообщений: 63
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 дня 12 часов
  • Последний визит:
    02.05.2012 17:46:11

В какой главе инфы можно найти справку о 3D?
Может на другом сайте?
И как рисовать само пространство (земля, деревья, герои, враги)?

0

Страница:   1 2 3

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Помогите пожалуйста