Перейти к содержанию

pro_ger

Members
  • Постов

    1
  • Зарегистрирован

  • Посещение

    Никогда

Весь контент pro_ger

  1. Писать кроссплатформенные программы можно на языке PureBasic http://purebasic.info/ Вот пример программы ; Создаём окно.OpenWindow(1,0,0,200,90,"Заголовок окна",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)ButtonGadget(2,64,30,80,25,"Кнопка") Repeat ; Начало главного цикла. Event=WaitWindowEvent() ; Получаем идентификатор события. Gadget=EventGadget() ; Узнаём идентификатор активного гаджета. If Event=#PB_Event_Gadget And Gadget=2 ; Условие будет выполнено при щелчке по кнопке. MessageRequester("Сообщение","Была нажата кнопка") ; Выводим на экран сообщение. EndIf Until Event = #PB_Event_CloseWindow ; Прерываем цикл при закрытии окна Её можно без внесения изменений в код скомпилировать под платформы Windows х86, Windows х64, Linux, MacOS X и AmigaOS Компиляторы можно скачать здесь http://www.purebasic.com/download.php Исходник в месте с скомпилироваными программами для Windows и Linux можно скачать здесь http://narod.ru/disk/11519814000/PureBasic_Button.zip.html
×
×
  • Создать...