wxBasic
 |
| Разработчик(и) | Дэвид Куни |
|---|---|
| Первоначальный выпуск | 2002 год |
| Стабильная версия | |
| Операционная система | Кросс-платформенный |
| Лицензия | Меньшая стандартная общественная лицензия GNU |
| Веб-сайт | wxbasic |
wxBasic — это бесплатное программное обеспечение с открытым исходным кодом , кроссплатформенный BASIC интерпретатор . Поскольку он основан на синтаксисе языка BASIC, он прост в изучении и понимании и позволяет начинающим программистам писать приложения для графических сред, таких как Windows и Linux, с минимальными усилиями. wxBasic — это язык на основе байт-кода , такой как Perl или Java . Он распространяется по лицензии LGPL , поэтому проприетарного программного обеспечения с ним можно связывать исходный код .
Он может создавать автономные исполняемые файлы путем связывания исходного кода с интерпретатором . В отличие от исполняемых файлов, созданных аналогичными коммерческими программами, такими как Visual Basic , исполняемые файлы, созданные wxBasic, не требуют для запуска какого-либо внешнего файла DLL , файла ресурсов или установщика . Исполняемый файл распространяется отдельно и может быть немедленно запущен конечными пользователями . Как и программы, написанные на любом интерпретируемом языке , программы wxBasic также можно запускать прямо из исходного кода на любой платформе, если wxBasic присутствует.
wxBasic написан в основном на C , с некоторым добавлением C++, связывающим его с библиотекой wxWidgets . wxWidgets предоставляет кроссплатформенные функции. Он работает в Microsoft Windows с использованием собственных элементов управления, а также в Linux и macOS с использованием библиотеки GTK+ . [2] wxBasic также является основой проекта SdlBasic .
Пример
[ редактировать ]Следующая программа реализует средство просмотра текста:
' from http://wxbasic.sourceforge.net/phpBB2/viewtopic.php?t=554
' Simple Text Viewer written in wxBasic
dim AppName = "Text Viewer"
fileName = ""
' Main window
dim frame = new wxFrame( Nothing, -1, AppName & " - Untitled Document" )
' Text edit control
dim control = new wxTextCtrl( frame, -1, "", wxPoint( 0, 0 ),
wxSize( 100, 100 ), wxTE_MULTILINE | wxTE_READONLY | wxTE_RICH)
' Status bar - The one at the bottom of the window
dim status = frame.CreateStatusBar( 1 )
frame.SetStatusText("Ready")
'
' Dialog used for Open
dim fileDialog = new wxFileDialog( frame )
'
' add menubar to the frame
dim mBar = new wxMenuBar()
frame.SetMenuBar(mBar)
'
' build the "File" dropdown menu
dim mFile = new wxMenu()
mBar.Append(mFile, "&File")
' make it
'
mFile.Append( wxID_OPEN, "&Open...", "Loads an existing file from disk" )
'
mFile.AppendSeparator()
mFile.Append( wxID_EXIT, "E&xit\tAlt-X", "Exit Application" )
Sub onFileOpen( event )
fileDialog.SetMessage("Open File")
fileDialog.SetStyle( wxOPEN )
If fileDialog.ShowModal() = wxID_OK Then
fileName = fileDialog.GetPath()
Ext = fileDialog.GetFilename()
control.Clear()
control.LoadFile( fileName )
frame.SetTitle( AppName & " - " & fileName )
frame.SetStatusText(Ext)
End If
End Sub
'
Connect( frame, wxID_OPEN, wxEVT_COMMAND_MENU_SELECTED, "onFileOpen" )
Sub onFileExit( event )
frame.Close(True)
End Sub
'
Connect( frame, wxID_EXIT, wxEVT_COMMAND_MENU_SELECTED, "onFileExit" )
' build the "Help" dropdown menu
dim mHelp = new wxMenu()
mBar.Append(mHelp, "&Help")
mHelp.Append( wxID_HELP, "&About\tF1", "About this program" )
'
Sub onHelpAbout( event )
Dim msg = "Text View allows any text file\n" &
"to be viewed regardless of its extension.\n" &
"If the file being opened isn't a text file\n" &
"then it won't be displayed. There will be a\n" &
"little garbage shown and that's all."
wxMessageBox( msg, "About Text View", wxOK + wxICON_INFORMATION, frame )
End Sub
Connect( frame, wxID_HELP, wxEVT_COMMAND_MENU_SELECTED, "onHelpAbout" )
frame.Show(True)
Ссылки
[ редактировать ]- ^ Jump up to: а б «Вести, ноябрь 2016» . wxbasic.net . Проверено 25 сентября 2017 г.
- ^ "Скачать" . wxbasic.net . Проверено 25 сентября 2017 г.
