какой бесик базовый?

@edcon2008 · Регистрация: 15.01.2010

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

здраствуйте я в програмировании еще мож казать ламер новечок,кто подскажет с какой версии нада начинать изучения бейсика(для самоучок-любителей).и если кто может подскажите где в инете можна скачать бейсик.
зарание всем спасиба

@PB · 17.02.2010, 13:12

Сообщение от кот Бегемот

начинать надо не с того, что красивее, а стого, что проще

Ну почему вы так уверены что PureBasic сложнее QB?
Тогда приводите конкретные примеры! А пока это лишь слова!

Сообщение от кот Бегемот

Во-вторых, плохо ты знаешь QB, окна можно создавать и там
и не таким сложным путем

А пример можно? А то пока это лишь слова! Но в любом случае, это будет DOS окно!
И что сложного в этой строке
Вот её справка

OpenWindow()

Syntax

Result = OpenWindow(#Window, x, y, InnerWidth, InnerHeight, Title$ [, Flags [, ParentWindowID]])
Description

Открывает новое окно согласно указанным параметрам. Если в качестве параметра '#Window' поставить #PB_Any, то универсальный идентификатор (id) будет возвращен в качестве 'Result'.

Вновь созданное окно становится активным, и нет необходимости использовать SetActiveWindow() (если окно не создано как invisible). Если 'Result' возвращает 0, то окно не может быть открыто.

'InnerWidth' и 'InnerHeight' определяют размер окна (без границ и украшений), для Windows XP, AmigaOS и Linux skinning compatibility. 'x' и 'y' определяют позицию окна. (если не используются флаги). Если один из них #PB_Ignore, то OS определяет позицию самостоятельно.

'ParentWindowID' - дополнительный параметр, который определяет какому окно принадлежит вновь созданное окно. Значение 'ParentWindowID' можно получить функцией WindowID().

Possible flags are:
#PB_Window_SystemMenu : Enables the system menu on the window title bar.
#PB_Window_MinimizeGadget: Adds the minimize gadget to the window title bar. #PB_Window_SystemMenu is automatically added.
#PB_Window_MaximizeGadget: Adds the maximize gadget to the window title bar. #PB_Window_SystemMenu is automatically added.
#PB_Window_SizeGadget : Adds the sizeable feature to a window.
#PB_Window_Invisible : Creates the window but don't display. Not supported on AmigaOS.
#PB_Window_TitleBar : Creates a window with a titlebar.
#PB_Window_BorderLess : Creates a window without any borders.
#PB_Window_ScreenCentered: Centers the window in the middle of the screen. x,y parameters are ignored.
#PB_Window_WindowCentered: Centers the window in the middle of the parent window ('ParentWindowID' must be specified). x,y parameters are ignored.
#PB_Window_Maximize : Opens the window maximized. (Note: on Linux, not all Windowmanagers support this)
#PB_Window_Minimize : Opens the window minimized.
#PB_Window_NoGadgets : Prevents the creation of a GadgetList. UseGadgetList() can be used to do this later.

Если параметр Flags не будет указан, то будет использоваться #PB_Window_SystemMenu.

Все события в окне отслеживаются функциями WindowEvent() и WaitWindowEvent(). В особых случаях для обратных вызовов используется функция SetWindowCallback(). На Windows, высота и ширина окна с titlebar не может быть меньше чем 100 pixels. Для открытия окна меньшего размера нужно использовать флаг "#PB_Window_BorderLess".

Примечание: При октрытии окна в параллельном потоке (thread), в этом же потоке нужно вызвать в цикле функции WindowEvent() или WaitWindowEvent(), для обработки событий этого окна, поскольку события окна не передаются в другие потоки!
Supported OS

All

@PB · 17.02.2010, 14:27

Ладно, вот парочку прог с QBasic переписал под PureBasic.

Найти сумму цифр числа

PureBasic
1
2
3
4
5
6
INPUT b
DO
s=s+b MOD 10
b=b\10
LOOP UNTIL b=0
PRINT s

Это на PureBasic

Code
1
2
3
4
5
6
7
8
9
If OpenConsole()
  b=Val(Input())
  Repeat
    s=s+b % 10
    b=b/10
  Until b=0
  Print(Str(s))
  Input()
EndIf

---------------------------------

Упорядочить одномерный массив по убыванию

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT "vvedite razmer masiva ", n
DIM a(n)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i = 1 TO n
a(i) = INT(100 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i=1 TO n
FOR j=2 TO n
IF a(j)>a(j-1)THEN SWAP a(j),a(j-1)
NEXT
NEXT
PRINT "novyj massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT i

Это на PureBasic

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
If OpenConsole()
  Print("Введите размер массива ")
  n=Val(Input())
  Dim a(n)
  PrintN("Исходный массив")
  For i = 1 To n
    a(i) = Random(1000)
    PrintN( Str(a(i)) )
  Next i
  PrintN("")
  
  For i=1 To n
    For j=2 To n
       If a(j)>a(j-1) 
          Swap a(j),a(j-1)
       EndIf
    Next j
  Next i
  PrintN("Новый массив")
  For i = 1 To n
    PrintN( Str(a(i)))
  Next i
  Input()
EndIf

Разве код стал намного сложнее? Единственное что изменилось, это преобразование типа данных с помощью функций Val и Str.

@кот Бегемот · 17.02.2010, 14:36

начнем с того, что строк стало на 5 больше
Это что, не усложнение?

If OpenConsole()

поймёт новичок эту фразу? а если и да, зачем ему она, если в QB и без неё всё работает?
Ну, зачем отвергать очевидное, я предлагаю чистый алгоритмический язык, а если с наворотами, тогда уж лучше СИ++ или Делфи, чего зря мучаться?

@PB · 17.02.2010, 14:53

Сообщение от кот Бегемот

поймёт новичок эту фразу?

Ну так дословно же переводится как открыть консоль. Чего тут непонятного?
А эта функция нужна потому, что PureBasic создаёт не только консольные, но и оконные, а так же полноэкранные (игровые) приложения и нужно указать что нужна консоль.
А если всё таки забудет эту команду использовать, то компилятор ему напомнит, см. скрин.

Но зато выучив PureBasic (который кстати, не сложнее QB) можно будет со временем, при появлении опыта, начинать полноценную работу с современными ОС, на что QB не способен.
Да что там говорить. Текущая версия PureBasic 4.41 выпущена в начале февраля этого года, т. е. две недели назад, а когда был последний релиз QB?

@BasicMan · 17.02.2010, 15:15

Не по теме:

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

Текущая версия PureBasic 4.41 выпущена в начале февраля этого года, т. е. две недели назад, а когда был последний релиз QB

новое не значит лучшее
не стоит путать

@PB · 17.02.2010, 15:28

Не по теме:

Сообщение от CyberБурундукЪ

новое не значит лучшее
не стоит путать

Для современных ОС однозначно лучше, т. к. позволяет полноценно использовать их возможности.

@edcon2008 · 17.02.2010, 21:26 **[ТС]**

КОЛЕГЫ Я ЕСТЬ ШТО ЧУТЬ ПОПРОЩЕ,ШТОБЫ ВЖЕ ПОТОМ ПЕРЕЕХОДИТЬ НА ДРУГОЕ ШТО ТО.
ПРОСТОЕ ТИПА ГДЕ МОЖНА ВЫУЧИТЬ СИНТАКСИКС ,ГРАМАТИКУ ,ОСНОВНЫЕ КОМАНДЫ БЕЙСИКА.

@BasicMan · 17.02.2010, 21:29

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

ГДЕ МОЖНА ВЫУЧИТЬ СИНТАКСИКС ,ГРАМАТИКУ ,ОСНОВНЫЕ КОМАНДЫ БЕСИКА.

Учебники по QBasic

@кот Бегемот · 17.02.2010, 21:46

edcon2008
не слушай никого, все новые версии - чистая реклама, работай спокойно в классическом простом и примитивном QBasic и станешь нормальным прогером

@PB · 17.02.2010, 21:53

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

ТИПА ГДЕ МОЖНА ВЫУЧИТЬ СИНТАКСИКС ,ГРАМАТИКУ ,ОСНОВНЫЕ КОМАНДЫ БЕЙСИКА

Так я же выше уже давал ссылку http://pure-basic.narod.ru/doc... tents.html
Это частичный перевод книги PureBasic - A Beginners Guide Саму книгу (на английском) можно скачать здесь
Ну и здесь есть немного на русском ftp://ftp.radio.ru/pub/2008/05/PureBasic.zip
Вот описание комнд http://purebasic.com/documentation/index.html Их больше 1000, но для начала все знать не нужно.

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

ЕСТЬ ШТО ЧУТЬ ПОПРОЩЕ

А что именно не понятно?
Понимаю, начинать сложно, но это только по началу.
Предлагаю тебе создать тему с именем "Вопросы новичка" здесь и спрашивать что не понятно.
Только сначала определись с компилятором, а то и та тема окажется в холиваре!

Сообщение от кот Бегемот

не слушай никого, все новые версии - чистая реклама, работай спокойно в классическом простом и примитивном QBasic и станешь нормальным прогером

Можешь ему ещё снести винду и поставить DOS?
Ведь винда это "чистая реклама"

@edcon2008 · 17.02.2010, 21:55 **[ТС]**

ВОТ Я И ПРО ЭТО МНЕ СНАЧАЛА НАДА САМЫЙ ПРОСТОЙ И ПРИМИТИВНЫЙ А ВСЕ ОСТАЛЬНОЕ ПОТОМ,ПОТОМУ ШТО Я ШТО В ШКОЛЕ ИЗУЧАЛ ТАК ТОГДА Я ЭТОМУ ЗНАЧЕНИЯ НЕ ПРИДАВАЛ,А ЩАС ХОТЕЛОСЬ БЫ НАГНАТЬ ЭТО ВСЕ И ВЫУЧИТЬ БОЛЬШЕ ,МНЕ ЭТО НРАВИТСЯ ТОЛЬКО НАДА БУДЕТ УСИЛИЯ И НАСТОЙЧЕВОСТЬ,И СОВЕТЫ ТАКИХ СПЕЦОВ КАК ВЫ.

@PB · 17.02.2010, 22:10

А что для начала написать хочешь?
Ведь обычно при обучении, сначала ставаят цель, а затем выполняют её.
Например, моей первой прогой на PureBasic, была программа, побайтно читающая файл и преобразующая данные из одного формата в другой.
Помню, писал её целый день, хотя сейчас сделал бы за 20 минут.

@edcon2008 · 17.02.2010, 22:22 **[ТС]**

Я ЭТУ ТЕМУ СОЗДАМ ВЖЕ В ПРОЦЕСЕ ИЗУЧЕНИЯ КОГДА БУДУТ КОНКРЕТНЫЕ ВОПРОС ,А НЕ В ОЩЕМ ВСЕ

@inter-admin · 17.02.2010, 22:23

edcon2008, отключите касп лок . ЗДЕСЬ НЕ ГЛУХИЕ, ЧТОБЫ ТАК КРИЧАТЬ.

@кот Бегемот · 17.02.2010, 22:28

Например, моей первой прогой на PureBasic, была программа, побайтно читающая файл и преобразующая данные из одного формата в другой.

думаю, его первой прогой будет

PureBasic
1
print"здравствуй, это я!"

и он будет прав

@PB · 17.02.2010, 22:39

Сообщение от кот Бегемот

думаю, его первой прогой будет

Нет, ну "Привет мир" это понятно.
Нужно что-то посерьёзнее для обучения. Ведь без практики, теория плохо усваивается.

PS.
А разве QBasic поддерживает кориллицу в консоли?

@кот Бегемот · 17.02.2010, 22:42

конечно поддерживает, любой русификатор установить - и всё, я пользуюсь keyrus.com

@PB · 17.02.2010, 22:44

Сообщение от кот Бегемот

конечно поддерживает, любой русификатор установить - и всё, я пользуюсь keyrus.com

Это если под DOS.
Но наверняка же edcon2008 будет запускать проги под виндой!
Не думаю что он ради этого будет разбиратся с примудростями DOS.

@inter-admin · 17.02.2010, 22:51

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

будет запускать проги под виндой!

если консольные в х16 машине, то прописка в autoexec.nt keyrus будет иметь тот же эффект

@кот Бегемот · 17.02.2010, 23:01

никаких проблем в XP с русским нет, даже keyrus не устанавливал, скачал вместе с ним из инета и работаю
и в винде он прекрасно себя чувствует, даром что dos-овская программа, никакой разницы, хоть в оконном режиме, хоть в полноэкранном

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@edcon2008 0 / 0 / 0 Регистрация: 15.01.2010 Сообщений: 14

	какой бесик базовый? 15.02.2010, 23:53. Показов 6419. Ответов 66 Метки нет (Все метки) здраствуйте я в програмировании еще мож казать ламер новечок,кто подскажет с какой версии нада начинать изучения бейсика(для самоучок-любителей).и если кто может подскажите где в инете можна скачать бейсик. зарание всем спасиба 0

@edcon2008 0 / 0 / 0 Регистрация: 15.01.2010 Сообщений: 14
	17.02.2010, 21:26 [ТС]
	КОЛЕГЫ Я ЕСТЬ ШТО ЧУТЬ ПОПРОЩЕ,ШТОБЫ ВЖЕ ПОТОМ ПЕРЕЕХОДИТЬ НА ДРУГОЕ ШТО ТО. ПРОСТОЕ ТИПА ГДЕ МОЖНА ВЫУЧИТЬ СИНТАКСИКС ,ГРАМАТИКУ ,ОСНОВНЫЕ КОМАНДЫ БЕЙСИКА. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	17.02.2010, 21:46
	edcon2008 не слушай никого, все новые версии - чистая реклама, работай спокойно в классическом простом и примитивном QBasic и станешь нормальным прогером 0

@edcon2008 0 / 0 / 0 Регистрация: 15.01.2010 Сообщений: 14
	17.02.2010, 21:55 [ТС]
	ВОТ Я И ПРО ЭТО МНЕ СНАЧАЛА НАДА САМЫЙ ПРОСТОЙ И ПРИМИТИВНЫЙ А ВСЕ ОСТАЛЬНОЕ ПОТОМ,ПОТОМУ ШТО Я ШТО В ШКОЛЕ ИЗУЧАЛ ТАК ТОГДА Я ЭТОМУ ЗНАЧЕНИЯ НЕ ПРИДАВАЛ,А ЩАС ХОТЕЛОСЬ БЫ НАГНАТЬ ЭТО ВСЕ И ВЫУЧИТЬ БОЛЬШЕ ,МНЕ ЭТО НРАВИТСЯ ТОЛЬКО НАДА БУДЕТ УСИЛИЯ И НАСТОЙЧЕВОСТЬ,И СОВЕТЫ ТАКИХ СПЕЦОВ КАК ВЫ. 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	17.02.2010, 22:10
	А что для начала написать хочешь? Ведь обычно при обучении, сначала ставаят цель, а затем выполняют её. Например, моей первой прогой на PureBasic, была программа, побайтно читающая файл и преобразующая данные из одного формата в другой. Помню, писал её целый день, хотя сейчас сделал бы за 20 минут. 0

@edcon2008 0 / 0 / 0 Регистрация: 15.01.2010 Сообщений: 14
	17.02.2010, 22:22 [ТС]
	Я ЭТУ ТЕМУ СОЗДАМ ВЖЕ В ПРОЦЕСЕ ИЗУЧЕНИЯ КОГДА БУДУТ КОНКРЕТНЫЕ ВОПРОС ,А НЕ В ОЩЕМ ВСЕ 0

@inter-admin 9715 / 6470 / 52 Регистрация: 06.03.2009 Сообщений: 28,500
	17.02.2010, 22:23
	edcon2008, отключите касп лок . ЗДЕСЬ НЕ ГЛУХИЕ, ЧТОБЫ ТАК КРИЧАТЬ. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	17.02.2010, 22:42
	конечно поддерживает, любой русификатор установить - и всё, я пользуюсь keyrus.com 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	17.02.2010, 23:01
	никаких проблем в XP с русским нет, даже keyrus не устанавливал, скачал вместе с ним из инета и работаю и в винде он прекрасно себя чувствует, даром что dos-овская программа, никакой разницы, хоть в оконном режиме, хоть в полноэкранном 0