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 не может вернуться назад
я правильно понял?

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства 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). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@Argus19 1728 / 472 / 78 Регистрация: 24.09.2017 Сообщений: 2,561 Записей в блоге: 25

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

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

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

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

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

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

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

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

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