PureBasic - форум

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

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

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Обработка текста

Обработка текста

Страница: 1

Сообщений 1 страница 9 из 9

1

  • Автор: Arei
  • Активный участник
  • Зарегистрирован: 21.08.2010
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    29.11.2011 17:25:22

Пётр объясни пожалуйста как работает этот код

Код:
Procedure GUI_CallBack(hWnd.l,Msg.l,wParam.l,lParam.l) 
  
  Result.l=#PB_ProcessPureBasicEvents 
  
  Select Msg 
    Case #WM_KEYDOWN 
      If GetAsyncKeyState_(#VK_ESCAPE) 
        QuitRec = 1 
      EndIf 
    Case #WM_SIZE     : GUI_Resize() 
    Case #WM_TIMER    : DRAW_Scope() 
    Case #MM_WIM_DATA : CAPTURE_Read(wParam,lParam) 
    Case #WM_COMMAND 
      Select wParam & $FFFF 
        Case #gadStart      : FILE_Create() ; Начало записи (кнопка "Record") 
        Case #gadStop       : FILE_Close()  ; Конец записи (кнопка "Stop") 
        Case #gadFile       : FILE_Select() ; Сохранение данных в файл (кнопка "Create a file") 
        Case #gadSndVol     : RunProgram(Config\SndVol,"","") 
        Case #gadFrequence  : If EventType()=9 : CAPTURE_Start() : EndIf 
        Case #gadResolution : If EventType()=9 : CAPTURE_Start() : EndIf 
        Case #gadChannel    : If EventType()=9 : CAPTURE_Start() : EndIf 
        Case #gadDevice     : If EventType()=9 : CAPTURE_Start() : EndIf 
      EndSelect 
    Case #WM_GETMINMAXINFO 
      *mmi.MINMAXINFO=lParam 
      *mmi\ptMinTrackSize\x=#MinWidth 
      *mmi\ptMinTrackSize\y=#MinHeight 
  EndSelect 
  
  ProcedureReturn Result 
  
EndProcedure

и можешь сделать и объяснить  извини я неправильно написал первое запись* я имел в виду когда файл изменился т.е изменился текст в нём и тогда только все эти действия, а насчёт микрофона да.

0

2

  • Автор: Arei
  • Активный участник
  • Зарегистрирован: 21.08.2010
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    29.11.2011 17:25:22

а что помочь форуму нельзя Яндекс Деньгами?

0

3

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 19:53:41
Arei написал(а):

Пётр объясни пожалуйста как работает этот код

Ну если в двух словах, то эта процедура является системным обработчиком событий программы.
Это значит что при возникновении события в окне, скажем клик по гаджету, тик таймера или просто перемещение мышки над окном, операционная система вызывает эту процедуру и сообщает код события. Он передаётся через аргументы процедуры hWnd.l,Msg.l,wParam.l,lParam.l

hWnd -идентификатр окна (присвоеный системой), в котором произошло событие.
Msg - код события
wParam и lParam - дополнительные параметры, описывающие событие. Их значения определяются типом события.

В данной процедуре, обрабатываются несколько типов событий.

#WM_KEYDOWN - Событие возникает при нажати любой кнопки на клавиатуре. Код кнопки находится в переменной wParam.
#WM_SIZE - Событие происходит при изменении размеров окна.
#WM_TIMER - тик таймера
#MM_WIM_DATA - хз, нестандартное событие. Никогда раньше не встречал
#WM_COMMAND - событие в гаджете, меню, панели инстументов.

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

а что помочь форуму нельзя Яндекс Деньгами

ЯДа нету,но есть веб мани.

0

4

  • Автор: Arei
  • Активный участник
  • Зарегистрирован: 21.08.2010
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    29.11.2011 17:25:22

Завтра или послезавтра скину вам 300 рублей, а вот ты писал что если звук на одном уровне то она выключается такое возможно сделать?

0

5

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 19:53:41
Arei написал(а):

если звук на одном уровне то она выключается такое возможно сделать

Для этого нужно некоторое время (скажем, секунду) измерять уровень звука от микрофона и если он ниже уровня, предварительно заданого пользователем, то выключать запись.

0

6

  • Автор: Arei
  • Активный участник
  • Зарегистрирован: 21.08.2010
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    29.11.2011 17:25:22

я сейчас все ролики скачаю с сайта daiomika и буду смотреть и изучать Что лучше на счёт телефона или вебманей?

0

7

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 19:53:41

Номер кошелька вебмани есть  в верху странички http://pure-basic.narod.ru между логотипом и меню

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

скачаю с сайта

так же можешь прочитать это http://pure-basic.narod.ru/docs/books/contents.html
Там самые основы.

0

8

  • Автор: daiomik
  • Активный участник
  • Зарегистрирован: 30.01.2010
  • Приглашений: 0
  • Сообщений: 601
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    17 дней 23 часа
  • Последний визит:
    07.09.2015 11:08:26

интересный код создал - всего 19 строк. Думаю, что кому то пригодится:

Код:
If OpenWindow(0, 357, 211, 260, 69, "Naoborot",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
  StringGadget(1, 135, 25, 115, 20, "")
  TextGadget(2, 10, 5, 120, 15, "Введите текст:")
  StringGadget(3, 10, 25, 115, 20, "")
  TextGadget(4, 135, 10, 120, 15, "Ответ:")
EndIf
Repeat
  event=WaitWindowEvent()
  gadget=EventGadget()
  type=EventType()
  
  If event=#PB_Event_Gadget
    If gadget=3
      If type=#PB_EventType_Change
        SetGadgetText(1,ReverseString(GetGadgetText(3)))
      EndIf 
    EndIf 
  EndIf
Until event=#PB_Event_CloseWindow

0

9

  • Автор: haav
  • Активный участник
  • haav
  • Зарегистрирован: 20.12.2009
  • Приглашений: 0
  • Сообщений: 440
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    6 дней 22 часа
  • Последний визит:
    02.12.2012 09:07:36

А так еще меньше:

Код:
If OpenWindow(0, 357, 211, 260, 69, "Naoborot",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
  StringGadget(1, 135, 25, 115, 20, "")
  TextGadget(2, 10, 5, 120, 15, "Введите текст:")
  StringGadget(3, 10, 25, 115, 20, "")
  TextGadget(4, 135, 10, 120, 15, "Ответ:")
EndIf
Repeat
  event=WaitWindowEvent()

  If event=#PB_Event_Gadget
    If EventGadget()=3
        SetGadgetText(1,ReverseString(GetGadgetText(3)))
    EndIf 
  EndIf
Until event=#PB_Event_CloseWindow

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Обработка текста