Twin Basic

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

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

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

I can · 30.10.2024, 15:54

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

буквенные работает

А зачем ты строку передаёшь, если нужно число?

@HackerVlad · 30.10.2024, 17:11

Если я передаю String но с числом 101 то vb6 врёт что ресурс 101 не найден

Добавлено через 31 секунду
Я тут посмотрел что Argus19 передаёт Integer и у него работает

Добавлено через 21 секунду
передавать Variant тоже не помогает

Добавлено через 53 секунды

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

А зачем ты строку передаёшь, если нужно число?

А вдруг будет буквенное название? Функция же заранее этого не знает.

Добавлено через 1 минуту
Получается что это косяк майкрософта в функции LoadResData что оно нормально определить число не может в строковой форме

Добавлено через 10 минут
Вообще если честно, первый раз вижу, чтобы VB6 не преобразовывало автоматически строку в число.

Добавлено через 25 минут
На ум приходит только регулярка для проверки является ли строка числом:

Visual Basic
1
2
3
Private Function StringIsDigits(ByVal s As String) As Boolean
    StringIsDigits = Len(s) And (s Like String(Len(s), "#"))
End Function

Добавлено через 27 минут
Всё, исправил я свою ошибку, теперь будет выглядеть так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim WaveData() As Byte
 
Private Function StringIsDigits(ByVal s As String) As Boolean
    StringIsDigits = Len(s) And (s Like String(Len(s), "#"))
End Function
 
' Проигрывание WAV-файла из ресурсов с помощью VB6
Public Function LoadResWaveVB(ByVal id As Variant, Optional section As String = "WAVE") As Boolean
    Dim RetValue As Long
    Dim setID As Long
    
    If StringIsDigits(id) = True Then
        setID = id
        WaveData() = LoadResData(setID, section)
    Else
        WaveData() = LoadResData(id, section)
    End If
    
    RetValue = sndPlaySound(WaveData(0), SND_ASYNC Or SND_MEMORY)
    
    If RetValue <> 0 Then
        LoadResWaveVB = True
    End If
End Function

Добавлено через 9 минут
Выложил в готовых решениях новый вариант модуля (который уже теперь поддерживает числовые значения)
Готовые решения и полезные коды на Visual Basic 6.0

I can · 30.10.2024, 17:13

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

Функция же заранее этого не знает.

Скорее всего там под капотом перегруженная сишная функция, поэтому возможно передавать и строку и число, но это разные вещи.

@HackerVlad · 30.10.2024, 17:13

По сути надо только это, если стандартными средствами VB:

Visual Basic
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
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
 
' Константы
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
 
Dim WaveData() As Byte
 
Private Function StringIsDigits(ByVal s As String) As Boolean
    StringIsDigits = Len(s) And (s Like String(Len(s), "#"))
End Function
 
' Проигрывание WAV-файла из ресурсов с помощью VB6
Public Function LoadResWaveVB(ByVal id As Variant, Optional section As String = "WAVE") As Boolean
    Dim RetValue As Long
    Dim setID As Long
    
    If StringIsDigits(id) = True Then
        setID = id
        WaveData() = LoadResData(setID, section)
    Else
        WaveData() = LoadResData(id, section)
    End If
    
    RetValue = sndPlaySound(WaveData(0), SND_ASYNC Or SND_MEMORY)
    
    If RetValue <> 0 Then
        LoadResWaveVB = True
    End If
End Function
 
' Освободить память
Public Sub ClearArrayWave()
    Erase WaveData
End Sub

I can · 30.10.2024, 17:14

У Анатолия надо спросить, он в курсе этих дел обычно.

@HackerVlad · 30.10.2024, 17:16

I can, да какая разница уже что там эти майкры напортачили и почему строка в число автоматически не преобразуется, пришлось вручную преобразовывать и проверять регуляркой число или не число

I can · 30.10.2024, 17:20

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

проверять регуляркой числ

А isNumeric чем не нравится?

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

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

s Like String(Len(s), "#")

Кстати, это не регулярка

@HackerVlad · 30.10.2024, 17:25

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

Кстати, это не регулярка

Да я знаю, в VB6 нет регулярки встроенной вообще) это я так просто назвал по приколу лайк этот)

Добавлено через 44 секунды
А про isNumeric я почему-то забыл, если честно

@Catstail · 01.11.2024, 10:46

I can, HackerVlad, вы TwinBasic обсуждаете или VB6?

@testuser2 · 01.11.2024, 12:08

Просматриваю список возможностей TB из интересного и того что понял.
Поддержка As Any при объявлении

Type Inference

Variables can now be declared As Any and their type will be inferred, similar to C++'s auto.
Dim x As Any = 5&' would result in x being a Long`.

This is only for the Dim statement; arguments cannot be As Any except in API declarations.

Visual Basic
1
2
3
4
5
6
7
8
Type Foo
   bar As Long
End Type
Public Declare PtrSafe Function MyFunc Lib "MyDLL" (pFoo As Foo) As Long
 
Private Sub CallMyFunc()
    Dim ret As Long = MyFunc(vbNullPtr)
End Sub

Новые операторы += -= /= *= ^= &= <<= >>=

Thread safety/multithreading support
While there's no native language syntax yet (planned), you can call CreateThread directly with no hacks. Previously, VBx and other BASIC languages typically required elaborate workarounds to be able to use CreateThread for anything but some specialized, extremely simple things. In twinBASIC, you can call it and all other threading APIs without any special steps, other than of course the careful management of doing threading at a low level like this.

AddressOf для членов класса

Visual Basic
1
2
Dim foo1 As New CFoo
Dim lpfn As LongPtr = AddressOf foo1.bar

Ну и т.д. )

Добавлено через 5 минут
Еще вот понравилось

The DeclareWide keyword, in place of Declare, disables ANSI<->Unicode conversion for API calls. This applies both directly to arguments, and to String arguments inside a UDT. For example, the following are equivalent in functionality:

Visual Basic
1
2
Public Declare PtrSafe Sub FooW Lib "some.dll" (ByVal bar As LongPtr)
Public DeclareWide PtrSafe Sub Foo Lib "some.dll" Alias "FooW" (ByVal bar As String)

CDecl support

The cdecl calling convention is supported both for API declares and methods in your code. This includes DLL exports in standard DLLs. Examples:

Visual Basic
1
Private DeclareWide PtrSafe Function _wtoi64 CDecl Lib "msvcrt" (ByVal psz As String) As LongLong

Добавлено через 5 минут
Ваиативные аргументы {ByRef | ByVal}, As Any
Вообще че ни смотришь, все прикольное

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

Добавлено через 3 минуты
Хотя с другой стороны если сравнить какой-нибудь код "классического" VB с обилием GetMem, PutMem и т.д. в ТВ наоброт это может интерпретироваться в какой-то более понятный вид..

@Argus19 · 01.11.2024, 12:40 **[ТС]**

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

Очень много новых возможностей

Не добавились ли инициализация массивов при объявлении?
В VB6 их очень нудно заполнять.

@testuser2 · 01.11.2024, 12:53

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

Не добавились ли инициализация массивов при объявлении?

_{Ваше сообщение слишком короткое. Оно должно быть не менее 3 символов.}

Inline variable initialization

You can now set initial values for variables inline, without needing a line-continuation character.

Visual Basic
1
2
3
4
5
6
7
Examples
 
Dim i As Long = 1
 
Dim foo As Boolean = bar()
 
Dim arr As Variant = Array(1, 2, 3)

Добавлено через 4 минуты
Вот более полная демонтрация возможностей массивов

Кликните здесь для просмотра всего текста

Destructuring assignment support for arrays

This feature allows you to assign the contents of an array to multiple variables in a single line:

Visual Basic
1
2
3
4
5
6
7
    Dim a As Long, b As Long, c As Long
    Dim d(2) As Long
    d(0) = 1
    d(1) = 2
    d(2) = 3
    Array(a, b, c) = d
    Debug.Print a, b, c

This would print 1 2 3. You could also assign multiple variables at once like this and get the same result:

Visual Basic
1
2
3
    Dim a As Long, b As Long, c As Long
    Array(a, b, c) = Array(1, 2, 3)
    Debug.Print a, b, c

You can now also do assignments like this:

Visual Basic
1
2
3
4
        Dim a As Long = 9
        Dim b As Long = 7
        Dim c() As Long = Array(a, b)
        Debug.Print c(1), UBound(c)

Which prints 7 1.

Добавлено через 4 минуты
В общем, у слова Array значительно расширились функции

@Argus19 · 01.11.2024, 12:55 **[ТС]**

Симпатично.
Осталось разобраться с редактором ресурсов и как вставить иконку проекта. В VB 6 можно поставить иконку из формы. В TB не сообразил. Пытался импортировать, ругается.

@HackerVlad · 01.11.2024, 15:48

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

вы TwinBasic обсуждаете или VB6?

резонное замечание конечно и то и то обсуждаем, а в TwinBasic есть регулярки? вполне может быть...

Добавлено через 7 минут
в TwinBasic много чего нового появилось конечно, но большие EXE меня отталкивают

@Argus19 · 02.11.2024, 11:12 **[ТС]**

Не поленился и сделал FAQ с сайта tB в двух форматах:

@Argus19 · 05.11.2024, 09:03 **[ТС]**

Написал автору tB по поводу редактора ресурсов. Вот что он ответил:
"Это не запланировано для выпуска v1. Это может быть добавлено когда-нибудь в цикле выпуска v1.xx."
На ждать.

@HackerVlad · 05.11.2024, 15:29

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

Написал автору tB по поводу редактора ресурсов. Вот что он ответил

Так ресурсы нельзя подключать вообще что ли в Twin Basic????

@Argus19 · 05.11.2024, 19:29 **[ТС]**

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

Так ресурсы нельзя подключать вообще что ли в Twin Basic????

Можно.
У меня не устанавливается WebView Control.
Наваял по-быстрому программку. Завтра попробую на работе.
Не могу найти редактор ресурсов от VS 2003-2005. Говорят он вкуснее, чем встроенный в VB.

@HackerVlad · 05.11.2024, 23:55

Argus19, чем тебя не устраивает обычный ResourceHacker?

Добавлено через 4 часа 20 минут
Это программа такая для просмотра и создания ресурсов ну, так зачем тогда встроенный в VB6 редактор ресурсов

@Argus19 · 06.11.2024, 06:09 **[ТС]**

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

чем тебя не устраивает обычный ResourceHacker?

Дело привычки.

Новые блоги и статьи Все статьи Все блоги /
Многофункциональное здание: как одно здание порождает конфликты требований, которые никто не планировал (мат мет мод 29) anaschu 23.06.2026 Многофункциональное здание: как одно здание порождает конфликты требований, которые никто не планировал Материалы для обсуждения с МГСУ · 2026 Рисунки внутри приложенного ворд файла. Что за. . .	28. Конкретное развертывание плана номер 1 из поста номер 27 anaschu 22.06.2026 Можно ли из модели получить конкретные строительные требования? Честно — напрямую из текущей модели такие ответы не получить. Но цепочка логики есть, и она не такая длинная. Где разрыв . . .	27. Планы на разработку функциональных требований к строительству внутри модели пищеблока (или не только его?) anaschu 22.06.2026 Что уже реализовано и даёт конфликты «бесплатно» Самый простой конфликт уже работает — конфликт за ресурс-работника. Заданий больше, чем доступных поваров → очередь в queue1. Это прямое отражение. . .	26. мед мат модель.Какие типы конфликтов функциональных требований можно рассчитать через ДЕС-моделирование (СМО) в AnyLogic? anaschu 22.06.2026 Что ДЕС/ СМО умеет считать напрямую: Конфликты за ресурсы (очереди, узкие места). Несколько типов агентов (повара, учителя, рабочие, пациенты) претендуют на один ресурс (лифт, вход, коридор,. . .
25 модель здравосохранения и функциональных требований к пищеблоку: конфликты функциональных требований. anaschu 22.06.2026 Есть ли данные о том, какие функциональные/ эксплуатационные требования или их сочетания труднее всего учитывать при проектировании зданий? Да, такие данные есть, и они хорошо описаны и в российской,. . .	Remote Connection Manager DevAlt 21.06.2026 Написал для себя небольшую прилагу: https:/ / github. com/ altbodhi/ ReConMan По итогу пришел к мысли, что DU не дружат с существующими технологиями. От сериализации до отображения в реляционную. . .	Администрация Хабра удаляет новые энергоэфективные алгоритмы, которые не западной школы кода, и вовсе никак не сгенерированы Hrethgir 20.06.2026 Делается это, как замечено, при правках - при объявлении концептуальных отличий в алгоримах. Делается это, по линейке событий - после дополнения публикации основными отличиями от основных западных. . .	Процесс ориентированная диалектика (не новость - просто системное обновление, философия). Hrethgir 20.06.2026 Однажды один участник в своём блоге, на этом форуме, сделал запись "О языках замолвите слово". Понимая, что язык - важная вещь, я решил хорошо подумать, прежде чем сказать, и сказал то, что вы видите. . .

@Argus19 1446 / 463 / 78 Регистрация: 24.09.2017 Сообщений: 2,542 Записей в блоге: 24

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

I can dive 4988 / 4735 / 849 Регистрация: 13.04.2015 Сообщений: 9,968
	30.10.2024, 17:14
	У Анатолия надо спросить, он в курсе этих дел обычно. 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	30.10.2024, 17:16
	I can, да какая разница уже что там эти майкры напортачили и почему строка в число автоматически не преобразуется, пришлось вручную преобразовывать и проверять регуляркой число или не число 0

@Catstail Супер-модератор 38208 / 21141 / 4311 Регистрация: 12.02.2012 Сообщений: 34,754 Записей в блоге: 14
	01.11.2024, 10:46
	I can, HackerVlad, вы TwinBasic обсуждаете или VB6? 0

@Argus19 1446 / 463 / 78 Регистрация: 24.09.2017 Сообщений: 2,542 Записей в блоге: 24
	01.11.2024, 12:55 [ТС]
	Симпатично. Осталось разобраться с редактором ресурсов и как вставить иконку проекта. В VB 6 можно поставить иконку из формы. В TB не сообразил. Пытался импортировать, ругается. 0

@Argus19 1446 / 463 / 78 Регистрация: 24.09.2017 Сообщений: 2,542 Записей в блоге: 24
	05.11.2024, 09:03 [ТС]
	Написал автору tB по поводу редактора ресурсов. Вот что он ответил: "Это не запланировано для выпуска v1. Это может быть добавлено когда-нибудь в цикле выпуска v1.xx." На ждать. 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	05.11.2024, 23:55
	Argus19, чем тебя не устраивает обычный ResourceHacker? Добавлено через 4 часа 20 минут Это программа такая для просмотра и создания ресурсов ну, так зачем тогда встроенный в VB6 редактор ресурсов 0