forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)

- PureBasic (http://forum.boolean.name/forumdisplay.php?f=90)

- - HELP (http://forum.boolean.name/showthread.php?t=14356)

Может у кого нибудь есть русский HELP(на PureBasic)
Но не такой где тупо вся страничка на русский переведена(Например оператор IF переведён как ЕСЛИ)

Ответ: HELP

В пурике я пока нуб .....объясните люди !!!
Как надо написать чтобы выводило на экран сообщение как в блитце какая клавиша нажата...
На уроках остановился на этом пункте и чёт-то команды не работают

Ответ: HELP

Вот справка, переведенная на русский http://pure-basic.narod.ru/PureBasic.chm

Цитата:

Сообщение от }{@KeR (Сообщение 181598)

Как надо написать чтобы выводило на экран сообщение как в блитце какая клавиша нажата...

Это что-ль надо?

Код:

OpenWindow(0,0,0,230,150,"", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 

EditorGadget(0,10,10,210,130 )

Repeat

  Event=WaitWindowEvent()

  If Event=#WM_KEYDOWN                            ; Была нажата кнопка

    AddGadgetItem(0,-1,Str( EventwParam())+"  " ) ; Помещаем её код в редактор

    SendMessage_(GadgetID(0),#EM_SETSEL,-1,-1)    ; Прокрутка текста

  EndIf

Until Event=#PB_Event_CloseWindow

Ответ: HELP

Неее...Допустим нажал "1" на экране появилось 1......Нажал "Escape" появилось Escape

Ответ: HELP

Я вот чёт непойму....в Blitz"e набрал Print или Text и у тебя на экране текст появился.....как же это сделать в PureBasic???

Как вот в этом примере сделать чтобы текст под ProgressBar'ом появился????

Код:

If OpenWindow(0, 0, 0, 410, 70, "Window", #PB_Window_ScreenCentered | #PB_Window_Tool)

    ProgressBarGadget(0, 10, 10, 380, 20, 0, 10000)

    SetWindowColor(0,RGB(12,12,12))

    StickyWindow(0,1)

    

  Repeat

  For i=0 To 10000 Step 1

  SetGadgetState(0,i)

  Next 

    Event = WaitWindowEvent()



    If Event = #PB_Event_CloseWindow  

      Quit = 1

    EndIf



  Until Quit = 1

  

EndIf



End

Ответ: HELP

Ладно то забыли....уже разобрался

Как вот сделать проверку на существование процесса???
Если .ехе запущен то его уже не надо запускать....если вырубился то запустить

Ответ: HELP

Цитата:

Сообщение от }{@KeR (Сообщение 181869)

Написать сервис для системы, который будет осуществлять необходимую проверку, и вызывать процесс по необходимости..

Ответ: HELP

Цитата:

Неее...Допустим нажал "1" на экране появилось 1......Нажал "Escape" появилось Escape

Код:

If OpenWindow(0, 0, 0, 240, 70, "ShortcutGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  ShortcutGadget(0, 20, 20, 200, 25, #PB_Shortcut_Control|#PB_Shortcut_A)

  SetActiveGadget(0)

    Repeat

      Event = WaitWindowEvent()

    Until Event = #PB_Event_CloseWindow

  EndIf

Цитата:

Как вот в этом примере сделать чтобы текст под ProgressBar'ом появился????

Код:

If OpenWindow(0, 0, 0, 410, 70, "Window", #PB_Window_ScreenCentered | #PB_Window_Tool)

  ProgressBarGadget(0, 10, 10, 380, 20, 0, 20)

  TextGadget(1,10,40,200,16,"")

  SetGadgetColor(1,#PB_Gadget_FrontColor,$FFFFFF)

  SetGadgetColor(1,#PB_Gadget_BackColor,RGB(12,12,12))

  SetWindowColor(0,RGB(12,12,12))

  StickyWindow(0,1)

  

  AddWindowTimer(0,0,10)

  

  Coint=0

  

  Repeat

    

    Event = WaitWindowEvent()

    

    If event = #PB_Event_Timer

      If EventTimer() = 0

        SetGadgetState(0,Coint)

        SetGadgetText(1,"Текущий прогресс - "+Str(Coint))

        Coint +1

        If Coint>20

          Coint=0

        EndIf

      EndIf

    EndIf

    

  Until Event = #PB_Event_CloseWindow

  

EndIf



End

Цитата:

Как вот сделать проверку на существование процесса???
Если .ехе запущен то его уже не надо запускать

Код:

If GetPidProcess("Explorer.exe") 

  MessageRequester("", "Прога запущена", #MB_OK)

Else

  MessageRequester("", "Прога НЕ запущена", #MB_OK)

EndIf

Ответ: HELP

Вообщето антивирус......Баннеры из инета задолбали

If GetPidProcess("Explorer.exe")???-у меня что-то нет этой функции

Ответ: HELP

Цитата:

Сообщение от }{@KeR (Сообщение 182026)

If GetPidProcess("Explorer.exe")???-у меня что-то нет этой функции

Друпию поставь.
Скачать можно здесь http://pure-basic.narod.ru/libs.html

Ответ: HELP