Самостоятельное изучение Basic

@nvr21 · Регистрация: 13.09.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте. Вопрос от чайника - а на сколько похожи или различаются Vizual и Liberty Basic.Дело в том, что мне сподручнее было бы учить Либерти Бэйсик. Есть хорошее руководство по азам программирования, в которое я уже "въехал". Но не могу найти никак бесплатную пробную версию LB. А по VB ,вроде бы дела обстоят лучше.

@locm · 21.08.2017, 21:27

Сообщение от ironXmaydan

чуть по проще

Простота должна быть не в ущерб функциональности. Координаты и размер окна не заданы. Где оно будет создано и с каким размером неизвестно.

Добавлено через 21 минуту

Сообщение от ironXmaydan

мной написанный самоучитель

Посмотрел его и... похвально конечно что вы его написали, но стиль 40 летней давности сейчас никто так не пишет. Сплошные GOTO и "макаронный" код. часто в неявном виде.
Неужели Liberty Basic не поддерживает процедуры/функции, и структурный метод программирования?

@ironXmaydan · 21.08.2017, 22:04

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

Добавлено через 45 секунд
окно и так откроется но можно и указать все что надо

@locm · 21.08.2017, 22:55

Сообщение от ironXmaydan

поддерживает

Примеры можно?

Сообщение от ironXmaydan

все недостатки я для новичков в введении указал

Это хорошо, но новичков нужно изначально приучать к "правильному" коду, иначе потом будет тяжело переучиваться. Таким образом им можно оказать "медвежью услугу" испортив их образ мышления что в дальнейшем помешает правильно писать программы.

Сообщение от ironXmaydan

я не понял что вы посмотрели

Ваш самоучитель (лучше бы вы его прикрепили к сообщению в теме про Liberty Basic). Вот к примеру один из кодов из него

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
.nomainwin: WindowWidth = 260: WindowHeight = 160
zncb$=”” 'Переменная для хранения значения чекбокса
checkbox #win.cbox, "- Отметьте чекбокс.", [postavit], [ubrat], 10, 10, 130, 20
button #win, "Поставить отметку", [postavit], UL, 10 , 30, 120, 25
button #win, "Убрать отметку", [ubrat], UL, 10, 60, 120, 25
textbox #win.ttb, 10, 90, 180, 24
button #win, "&Ok", [EXIT], UL, 200, 90, 40, 25
OPEN "Текстовое окно" FOR dialog AS #win
PRINT #win, "trapclose [exit]" 'Куда перейти при нажатии кнопки закрытия окна
WAIT
[postavit]
PRINT #win.cbox, "set" 'Устанавливает значение чекбокса как отмеченое
GOTO [proverka]
[ubrat]
PRINT #win.cbox, "reset" 'Устанавливает значение чекбокса как убранное
GOTO [proverka]
END
[proverka]
PRINT #win.cbox, "value? zncb$" 'Читает значение чекбокса
PRINT #win.ttb, "Чек бокс имеет значение - ";zncb$
WAIT
[EXIT] 'Действия по нажатию книпки закрытия окна
CLOSE #win 'Освобождение памяти от нашего окна
END

Очень много GOTO. Много раз вызывается WAIT.
Я перепишу эту программу на PB (LB к сожалению не знаю) и покажу что код может быть структурированный и без единого GOTO.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Declare Check_State(cbox, ttb)
 
win     = OpenWindow(#PB_Any, 0, 0, 260, 130, "Текстовое окно", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
cbox    = CheckBoxGadget(#PB_Any, 10, 10, 130, 20, "- Отметьте чекбокс.")
b_set   = ButtonGadget(#PB_Any, 10, 30, 120, 25, "Поставить отметку")
b_reset = ButtonGadget(#PB_Any, 10, 60, 120, 25, "Убрать отметку")
ttb     = StringGadget(#PB_Any, 10, 90, 180, 24, "")
b_ok    = ButtonGadget(#PB_Any, 200, 90, 40, 25, "Ok")
 
Repeat ; Основной цикл окна с обработкой событий.
  Event = WaitWindowEvent() ; Ожидание события.
  
  If Event = #PB_Event_Gadget ; Событие в одном из гаджетов
    Select EventGadget() ; Идентификатор гаджета в котором произошло событие.
      Case cbox
        Check_State(cbox, ttb)
      Case b_set
        SetGadgetState(cbox, 1)
        Check_State(cbox, ttb)
      Case b_reset
        SetGadgetState(cbox, 0)
        Check_State(cbox, ttb)
      Case b_ok
        Break           ; Прерывание цикла что приведет к завершению работы программы.
    EndSelect
  EndIf
  
Until Event = #PB_Event_CloseWindow
End
 
 
Procedure Check_State(cbox, ttb)
  str.s = ""
  
  If GetGadgetState(cbox)
    str="set"
  Else
    str="reset"
  EndIf
  
  SetGadgetText(ttb, "Чек бокс имеет значение "+str)
EndProcedure

Нужно стремится к подобному стилю, и по возможности не использовать goto в явном или неявном виде.

@ironXmaydan · 22.08.2017, 08:49

ссылку я в разные места на самоучитель вставлял, удалили, все обсуждается на форуме, прикрепить файл!?? (хотелось бы что бы на сайт кто нибудь заглянул, т.к. помимо самоучителя есть другие файлы, да и LB здесь не особо обсуждают)

у каждого есть свои недостатки
перехват событий по действиям с элементами диалогового окна в LB организован через неявные GOTO
(злостная нелюбовь к GOTO это тоже перебор, писал одну прогу и для сокращения кода и GOTO скомпановал все в один код с параметрами, посмотрел на него и подумал зачем мне такой монстр, и разделил его опять на части, подписал комментариями и ничего и сам ориентируюсь и другие понимают)
case - тот же goto с параметрами

если разрешите коротки пример по функциям

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
n=30
a=TIME$("ms")
PRINT fid(n)
PRINT TIME$("ms")-a
WAIT
 
FUNCTION fid(n)
    IF n<2 THEN
        fid=1
    ELSE
        fid=fid(n-1)+fid(n-2)
    END IF
END FUNCTION

Добавлено через 10 минут
щас перепишу выбранный вами пример через функции

Добавлено через 20 минут
вот пример без goto
(возможно вы правы, хотя я большой разницы не вижу)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
nomainwin: WindowWidth = 260: WindowHeight = 160
zncb$="" 'Переменная для хранения значения чекбокса
checkbox #win.cbox, "- Отметьте чекбокс.", postavit, ubrat, 10, 10, 130, 20
button #win, "Поставить отметку", postavit, UL, 10 , 30, 120, 25
button #win, "Убрать отметку", ubrat, UL, 10, 60, 120, 25
textbox #win.ttb, 10, 90, 180, 24
button #win, "&Ok", exitt, UL, 200, 90, 40, 25
OPEN "Текстовое окно" FOR dialog AS #win
PRINT #win, "trapclose exitt" 'Куда перейти при нажатии кнопки закрытия окна
WAIT
SUB postavit cbhandle$
    PRINT #win.cbox, "set" 'Устанавливает значение чекбокса как отмеченое
    CALL proverka
END SUB
SUB ubrat cbhandle$
    PRINT #win.cbox, "reset" 'Устанавливает значение чекбокса как убранное
    CALL proverka
END SUB
SUB proverka
    PRINT #win.cbox, "value? zncb$" 'Читает значение чекбокса
    PRINT #win.ttb, "Чек бокс имеет значение - ";zncb$
END SUB
SUB exitt exhandle$'Действия по нажатию книпки закрытия окна
    CLOSE #win 'Освобождение памяти от нашего окна
END SUB

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@nvr21 0 / 0 / 0 Регистрация: 13.09.2015 Сообщений: 1

	Самостоятельное изучение Basic 13.09.2015, 19:28. Показов 3919. Ответов 23 Метки нет (Все метки) Здравствуйте. Вопрос от чайника - а на сколько похожи или различаются Vizual и Liberty Basic.Дело в том, что мне сподручнее было бы учить Либерти Бэйсик. Есть хорошее руководство по азам программирования, в которое я уже "въехал". Но не могу найти никак бесплатную пробную версию LB. А по VB ,вроде бы дела обстоят лучше. 0

@ironXmaydan 2 / 2 / 0 Регистрация: 17.08.2017 Сообщений: 30
	21.08.2017, 22:04
	поддерживает все недостатки я для новичков в введении указал я не понял что вы посмотрели Добавлено через 45 секунд окно и так откроется но можно и указать все что надо 0