Twin Basic

@Argus19 · Регистрация: 24.09.2017

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

Несмотря на то, что проект Twin Basic по словам авторов в заключительной стадии "бета", скачал и попробовал.
Непривычный интерфейс.
Открыл проект, созданный в IDE Visual Basic 6.0, скомпилировал и 32 и 64 разрядные версии. По объёму результирующего кода получилось больше. Может быть нет оптимизации кода.
Кто-нибудь из форумчан может что-то сказать об этой IDE ?

@Замабувараев · 07.12.2024, 19:48

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

Это не работает даже в TwinBasic, не говоря уже про VB6

В бесиках из 1998 года не работает, в чём‐нибудь посовременнее (FreeBASIC, VB.Net) работает.

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

Удобнее искать

InStr вернёт индекс подстроки в буфере, а как потом вычислить индекс в массиве?

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

Или заменить какую-то подстроку во всем массиве

Если «а» заменяем на «аааа», то оно в буфер не влезет = лишние манипуляции с памятью и копированием всего буфера.
Если «аааа» заменяем на «а», остаются неиспользованные куски памяти (мусор), которые нельзя вернуть системе. Кстати, как вы после такой замены отличите мусор от настоящей строки?

@testuser2 · 08.12.2024, 03:08

Сообщение от Замабувараев

InStr вернёт индекс подстроки в буфере, а как потом вычислить индекс в массиве?

Надо смотреть по ситуации, но для более общего случая, просто берем этот индекс, и делим его на средний делитель(заранее вычисленный) = длина буфера / количество строк. От полученого значения можно быстро найти нужный элемент, в котором свопадет указатель. В таком бы случае я еще бы держал массив смещений.. Но, это если нужен индекс в массиве, а он не всегда нужен. Но плюс таких строк не только в этом, они совместимы с С-шным стандартом строк, т.е. можно работать с такими строками на прямую, без преобразования. Единственно, что мне не нравится, что строка обязательно должна быть нультерминальной (или не обзязательно?). Ведь в заголовке содержится размер. Как бы я хотел видеть, допустим, есть длинная строка, нам нужна какая-то ее часть, просто мапим другую переменную на часть этой строки и пользуемся.

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

Сообщение от Замабувараев

Если «а» заменяем на «аааа», то оно в буфер не влезет = лишние манипуляции с памятью и копированием всего буфера.
Если «аааа» заменяем на «а», остаются неиспользованные куски памяти (мусор), которые нельзя вернуть системе. Кстати, как вы после такой замены отличите мусор от настоящей строки?

Это опять же разговор, если нужно чего-то изменять, что не всегда нужно. Для этого можно написать специальный класс. Если заменяется какая-то строка и она не влазит, значит выделяем еще одни аллок.. Любой мусор нужно просто занулять.

@Mikle Quits · 08.12.2024, 08:17

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

Это не работает даже в TwinBasic, не говоря уже про VB6

Сообщение от Замабувараев

В бесиках из 1998 года не работает

Работает несколько не так, через Variant:

Visual Basic
1
2
  Dim Vector As Variant
  Vector = Array("Первый", "Второй", "Третий")

@testuser2 · 08.12.2024, 08:46

В ТВ так можно

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

Dim a As Long = 9
Dim b As Long = 7
Dim c() As Long = Array(a, b)

Добавлено через 11 минут
На VB cтроковый можно так инициализировать

Visual Basic
1
Dim Vector$(): Vector = Split("Строка1, Строка2, Строка3", ", ")

@testuser2 · 10.12.2024, 18:45

Интересная была последний недельный обзор, в сообществе TB начали обсуждать реализацию Excel XLL на TB

@testuser2 · 16.12.2024, 16:55

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

Для этого можно написать специальный класс.

Заморочился я чутка с этой темой, было такое дело в общем..

@HackerVlad · 17.12.2024, 16:33

Twin Basic - это очень хорошая вещь, очень удобные подсказки в IDE

Я, например, всегда раньше думал что объявив

Visual Basic
1
Dim i, i2 As Long

то будет 2 переменные As Long, а оказывается As Long будет только вторая, а первая будет Variant такую проблему сразу подчёркивает TwinBasic например и предлагает переписать более правильно код, например на

Visual Basic
1
Dim i As Long, i2 As Long

@HackerVlad · 17.12.2024, 16:36

Вот это мне очень понравилось, так сказать подсказки для чайников. Я вот сейчас вспомнил, что раньше, давно, у меня были проблемы в коде из-за этого и не понимал, помню, долгое время, почему у меня не работал скрипт, как раз из-за такого ошибочного объявления переменных...

@HackerVlad · 17.12.2024, 16:39

Но с ресайзингом я там и не разобрался в TwinBasic. Если в VB6 всё понятно и легко прописать в Form_Resize изменение положения элементов формы, то в Твине этот код обречён на провал почему-то, разбираться некогда было с этим, но просто факт.

I can · 17.12.2024, 16:42

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

оказывается As Long будет только вторая,

А что эту "фичу" из VB6 так и оставили?

@HackerVlad · 17.12.2024, 16:51

Сообщение от I can

А что эту "фичу" из VB6 так и оставили?

Похоже на то. Логически же вроде, если так подумать, то два Long должно быть, ну может это я просто всегда так глупо мыслил...

@The trick · 17.12.2024, 16:57

I can, обратная совместимость с существующем кодом.
HackerVlad, логически как раз два Longа не должно быть, т.к. при объявлении Dim I, I- Variant.

@testuser2 · 17.12.2024, 17:17

Если сделать так, то можно добавить фичу и не терять обратной совместимости
Dim As Long: l1, l2, l3
или так
Dim (l1, l2, l3) As Long

Добавлено через 3 минуты
Почему они этого не сделали, ведь там уже много чего сделали грамотного, +=, Return res, причем они не убрали старый Return, Если без аргумента то он работает по старому, с аргументом - по новому.

@HackerVlad · 17.12.2024, 17:19

Кто знает как расайзинг прописывать в Твине? Я так и не понял этого.

Добавлено через 45 секунд
Тут уже обратной совместимости ну просто нет с ресайзингом элементов...

@testuser2 · 17.12.2024, 17:31

Я не знаю на счет ресайзинга. Но я бы еще хотел добавить, что с указателями там поубавили функционала. В TB не работает трюк со стеком аргументов как в VB/VBA, там аргументы ссылки хранятся где-то в другом месте. Там добавили
CType(Of Type)(Ptr), но эта тема завернута в вариант (возвращает вариант). Но у них вроде идут дискуссии насчет указателей, может быть в будущем что-то добавят.

Добавлено через 5 минут
Еще там траблы с обявлением.
Если объявить так, Dim lAr&() , а не As Long
То массив будет завернут в вариант

@HackerVlad · 17.12.2024, 17:31

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

они не убрали старый Return

Я не знал что в VB6 есть Return как он работает там? "по-старому"?

@testuser2 · 17.12.2024, 17:32

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

Return как он работает там?

Прочитай про GoSub (подпрограммы)

@HackerVlad · 17.12.2024, 17:41

Я не любитель этого короткого кода с объявлениями & как Long $ как String и так далее...

Добавлено через 1 минуту
Одно дело оператор GoTo или GoSub и совсем другое дело Return

Добавлено через 2 минуты
Короче я просто ничего не знаю про Return в vb6

Добавлено через 23 секунды
и GoSub я никогда не пользовался

Добавлено через 3 минуты
В MSDN только худо-бедно мельком написали про это: https://learn.microsoft.com/ru... -statement

Пример из MSDN:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub GosubDemo() 
Dim Num 
' Solicit a number from the user. 
 Num = InputBox("Enter a positive number to be divided by 2.") 
' Only use routine if user enters a positive number. 
 If Num > 0 Then GoSub MyRoutine 
 Debug.Print Num 
 Exit Sub ' Use Exit to prevent an error. 
MyRoutine: 
 Num = Num/2 ' Perform the division. 
 Return ' Return control to statement. 
End Sub ' following the GoSub statement.

Добавлено через 1 минуту
Короче я всё равно ничего не понял.

@testuser2 · 17.12.2024, 17:55

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

Короче я всё равно ничего не понял.

https://vbaplanet.com/gosub.php

@HackerVlad · 17.12.2024, 18:19

testuser2, спасибо большое, тут понятнее

Добавлено через 14 секунд
буду учить

Добавлено через 1 минуту
Как я понял GoSub лучше чем GoTO тем что он может вернуться назад через Return, а GoTo не может вернуться назад
я правильно понял?

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке 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. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Argus19 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,570 Записей в блоге: 26

	Twin Basic 27.10.2024, 20:05. Показов 35823. Ответов 335 Метки нет (Все метки) Несмотря на то, что проект Twin Basic по словам авторов в заключительной стадии "бета", скачал и попробовал. Непривычный интерфейс. Открыл проект, созданный в IDE Visual Basic 6.0, скомпилировал и 32 и 64 разрядные версии. По объёму результирующего кода получилось больше. Может быть нет оптимизации кода. Кто-нибудь из форумчан может что-то сказать об этой IDE ? 3

@testuser2 1412 / 874 / 93 Регистрация: 08.02.2017 Сообщений: 3,726 Записей в блоге: 2
	10.12.2024, 18:45
	Интересная была последний недельный обзор, в сообществе TB начали обсуждать реализацию Excel XLL на TB 0

@HackerVlad Вернулся 1777 / 672 / 46 Регистрация: 10.09.2021 Сообщений: 2,820
	17.12.2024, 16:36
	Вот это мне очень понравилось, так сказать подсказки для чайников. Я вот сейчас вспомнил, что раньше, давно, у меня были проблемы в коде из-за этого и не понимал, помню, долгое время, почему у меня не работал скрипт, как раз из-за такого ошибочного объявления переменных... Миниатюры 0

@HackerVlad Вернулся 1777 / 672 / 46 Регистрация: 10.09.2021 Сообщений: 2,820
	17.12.2024, 16:39
	Но с ресайзингом я там и не разобрался в TwinBasic. Если в VB6 всё понятно и легко прописать в Form_Resize изменение положения элементов формы, то в Твине этот код обречён на провал почему-то, разбираться некогда было с этим, но просто факт. 0

@The trick Модератор 10068 / 3913 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	17.12.2024, 16:57
	I can, обратная совместимость с существующем кодом. HackerVlad, логически как раз два Longа не должно быть, т.к. при объявлении Dim I, I- Variant. 1

@testuser2 1412 / 874 / 93 Регистрация: 08.02.2017 Сообщений: 3,726 Записей в блоге: 2
	17.12.2024, 17:17
	Если сделать так, то можно добавить фичу и не терять обратной совместимости Dim As Long: l1, l2, l3 или так Dim (l1, l2, l3) As Long Добавлено через 3 минуты Почему они этого не сделали, ведь там уже много чего сделали грамотного, +=, Return res, причем они не убрали старый Return, Если без аргумента то он работает по старому, с аргументом - по новому. 1

@HackerVlad Вернулся 1777 / 672 / 46 Регистрация: 10.09.2021 Сообщений: 2,820
	17.12.2024, 17:19
	Кто знает как расайзинг прописывать в Твине? Я так и не понял этого. Добавлено через 45 секунд Тут уже обратной совместимости ну просто нет с ресайзингом элементов... 0

@testuser2 1412 / 874 / 93 Регистрация: 08.02.2017 Сообщений: 3,726 Записей в блоге: 2
	17.12.2024, 17:31
	Я не знаю на счет ресайзинга. Но я бы еще хотел добавить, что с указателями там поубавили функционала. В TB не работает трюк со стеком аргументов как в VB/VBA, там аргументы ссылки хранятся где-то в другом месте. Там добавили CType(Of Type)(Ptr), но эта тема завернута в вариант (возвращает вариант). Но у них вроде идут дискуссии насчет указателей, может быть в будущем что-то добавят. Добавлено через 5 минут Еще там траблы с обявлением. Если объявить так, `Dim lAr&()` , а не As Long То массив будет завернут в вариант 0

@HackerVlad Вернулся 1777 / 672 / 46 Регистрация: 10.09.2021 Сообщений: 2,820
	17.12.2024, 18:19
	testuser2, спасибо большое, тут понятнее Добавлено через 14 секунд буду учить Добавлено через 1 минуту Как я понял GoSub лучше чем GoTO тем что он может вернуться назад через Return, а GoTo не может вернуться назад я правильно понял? 0