Решение

@fever brain · 14.04.2020, 15:44

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

Комбинаторика - методы перестановки элементов массива
Программа XComb и несколько алгоритмов на VB

Ссылка на блог

@The trick · 15.04.2020, 19:39

Super Mario World Maker

https://github.com/DirectY1996... WorldMaker

Dragokas · 11.05.2020, 18:09 **[ТС]**

Нормализация строки с HTML сущностями в ASCII.

HTML Entity => ASCII

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

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
37
38
39
40
Sub Sample()
 
    Dim s$: s = "&quot;this &amp; that&quot;"
    
    Debug.Print HtmlDeEscape(s) ' return = "this & that"
End Sub
 
' Convert HTML entity to ASCII
'
' @param s      input buffer (Read only)
'
' @noerror
' @return       converted string
'
Function HtmlDeEscape(ByVal s As String) As String 'https://ascii.cl/htmlcodes.htm
    
    Static af(), at(), bInit As Boolean
    
    If Not bInit Then
        bInit = True
 
        af = Array("&quot;", "&amp;", "&lt;", "&gt;", "&nbsp;", "&iexcl;", "&cent;", "&pound;", "&curren;", "&yen;", "&brvbar;", "&sect;", _
            "&uml;", "&copy;", "&ordf;", "&laquo;", "&not;", "­", "&reg;", "&macr;", "&deg;", "&plusmn;", "&sup2;", "&sup3;", "&acute;", _
            "&micro;", "&para;", "&middot;", "&cedil;", "&sup1;", "&ordm;", "&raquo;", "&frac14;", "&frac12;", "&frac34;", "&iquest;", "&Agrave;", _
            "&Aacute;", "&Acirc;", "&Atilde;", "&Auml;", "&Aring;", "&AElig;", "&Ccedil;", "&Egrave;", "&Eacute;", "&Ecirc;", "&Euml;", "&Igrave;", _
            "&Iacute;", "&Icirc;", "&Iuml;", "&ETH;", "&Ntilde;", "&Ograve;", "&Oacute;", "&Ocirc;", "&Otilde;", "&Ouml;", "&times;", "&Oslash;", _
            "&Ugrave;", "&Uacute;", "&Ucirc;", "&Uuml;", "&Yacute;", "&THORN;", "&szlig;", "&agrave;", "&aacute;", "&acirc;", "&atilde;", "&auml;", _
            "&aring;", "&aelig;", "&ccedil;", "&egrave;", "&eacute;", "&ecirc;", "&euml;", "&igrave;", "&iacute;", "&icirc;", "&iuml;", "&eth;", _
            "&ntilde;", "&ograve;", "&oacute;", "&ocirc;", "&otilde;", "&ouml;", "&divide;", "&oslash;", "&ugrave;", "&uacute;", "&ucirc;", "&uuml;", _
            "&yacute;", "&thorn;", "&yuml;", "&euro;")
            
        at = Array(34, 38, 60, 62, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, _
            182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, _
            209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, _
            236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 136)
    End If
    
    Dim i&: For i = 0 To UBound(at): s = Replace$(s, af(i), Chr$(at(i))): Next
    HtmlDeEscape = s
 End Function

Создано из таблицы: https://ascii.cl/htmlcodes.htm
Оптимизация скорости не выполнялась.
От стандарта отошел только на символе "Евро", где вместо юникодного символа вставил его аналог, код 136.

@CharlyChaplin · 07.08.2020, 10:30

Закрытие кредита или ипотеки за счёт дивидендов от акций

Написал для себя небольшую программу для упрощения рассчётов.
Выкладываю, если кому пригодится.

Двойной клик на процентах изменяет их. В txt-файле есть методика рассчёта.

@Pro_grammer · 27.08.2020, 20:08

Сборник различных кодов на VB с сайта planetsourcecode.com за 2002 год.
Сам сайт к сожалению на данный момент не работает. Жалко, если всё богатое наследие пропадёт.
У кого есть все диски, но нет доступа к содержимому по какой либо причине, (у меня не запускается оболочка даже в ДЕМО режиме, ошибки в OCX) можно использовать мой метод.
Конвертировать из всей базы PscEnc.mdb одну таблицу Submission в Submission.xlsx.
Применить к ней код, который я выкладываю, плюс программу конвертер из .psc в .zip.

Готовые решения и полезные коды на Visual Basic 6.0

У кого нет дисков, то можете скачать примерно 479 МБ (1 диск)из облака, там 5,8 тысяч архивов различных программ.

Тут только исходник на VB6 в папке submission, программа управления и конвертации + Submission.xlsx. Их надо положить в одну папку с папками Pictures, Zips.

@The trick · 27.08.2020, 22:36

Pro_grammer, Тут 7 дисков (спасибо Argus19).
Комментарий пользователя Bobbles с vbforums который собрал данный архив:

DETAILS OF 7 PSC CDs
1 Start - 2002
2 2002 - 2004
3 2004 - 2005
4 2005 - 2006
5 2007 - 2008
6 2008 - 2009
7 2009 - 2012

I don't know if Google drive gets huffy, with too many downloads.
If you know that it won't then go for it.

There ere two threads in vbforums.
In the other one, I raised suggestion of members offering to donate something to get Ian, to help one of our members host the real PSC Stuff.
Can you get your friends to help fan the flames ?
Don't donate, but get them to post that they would be interested in donating

@CharlyChaplin · 29.08.2020, 17:31

Фракталы из хаоса

Результат моего небольшого увлечения фракталами их хаоса случайностей. :-) В качестве развлечения.

@The trick · 05.11.2020, 09:25

DirectX 11 for VB6 1.0 Type Library

https://github.com/wqweto/VBD3D11

@Pro_grammer · 05.11.2020, 11:14

Сообщение от The trick

DirectX 11 for VB6 1.0 Type Library

У кого примеры не заработали, но они постеснялись спросить!
The trick подсказал, что нужно исправить
#Const DebugBuild = True
на
#Const DebugBuild = False

@The trick · 12.01.2021, 00:34

Библиотека secp256k1 для VB6 - генерация ключей сети Bitcoin.

Репозиторий содержит исходники и скомпилированную библиотеку secp256k1 адаптированную для VB6. Также там содержится маленькая библиотека для хеширования (RIPEMD-160/SHA256). В качестве маленького примера использования приведены исходные коды генератора ключей и соответствующих адресов сети Bitcoin.

Ссылка.

@The trick · 02.02.2021, 03:36

Add-in для работы с CDECL функциями.

Моя попытка исправить баг в VB6 из-за которого при использование CDECL функций объявленных в tlb происходит вылет среды. Тестировался только в "тепличных" условиях, поэтому скорее всего будут баги. О них пишите либо здесь либо на гитхабе.

Добавлен фикс ключевого слова CDecl - теперь CDecl функции можно вызывать через Declare.

https://github.com/thetrik/VBCDeclFix

Обновление.

Добавлена поддержка слова CDecl в пользовательские функции. Теперь можно полноценно использовать callback-функции из C-библиотек.

Добавлены примеры:

qsort - использование C-функции qsort с пользовательской callback функцией;
cairo - использование оригинальной cairo.dll;
sqlite - использование оригинальной sqlite3.dll

Тест Add-in производил только на 2-х версиях vba6.dll поэтому если у вас что-то не работает, сообщайте мне я обновлю сигнатуры.

@Argus19 · 18.02.2021, 01:14

Цвет пикселя, на который указывает курсор.
Когда-то написал программу, но благополучно её потерял.
Программа предназначена для начинающих, чтобы понять суть функции RGB. После запуска программа отображает позицию курсора по координатам X и Y, цвет пикселя, на который указывает курсор (визуально в Shape, в шестнадцатеричном виде и в формате RGB). В архиве полно прокомментированный исходный код, сама программа, скриншот и текстовый файл с пояснениями.

@Pro_grammer · 18.02.2021, 10:57

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

визуально в Shape, в шестнадцатеричном виде и в формате RGB)

Такой функционал встречается часто. А как часто вы видели программы, которые не только в цифровом формате отображают цвет, но и в текстовом? Думаю многим будет интересно. Дополнил Ваш код, теперь цвет пишется ещё и текстом.

@Argus19 · 27.06.2021, 00:52

Практика показывает, что сайты иногда пропадают. Занялся изучением работы с файлами Word в VB 6.0. Нашёл и сохранил лекции. Часть оказалась на старом сайте: http://old.intuit.ru. Надеюсь, на этом форуме файлы не пропадут

.

@Argus19 · 27.06.2021, 22:19

Смена курсора
В Windows7, вместо курсора в виде песочных часов, крутится непонятный синий круг. Если в программе требуется длительное выполнение каких-либо действий, лучше заменить курсор в стиле WindowsXP.
Я скопировал файл из WindowsXP с:\WINDOWS\Cursors\hourglas.ani (во вложении) в папку с приложением. И написал вот такой код для смены курсора. При запуске приложения курсор меняется на анимированные песочные часы и после завершения работы программы курсор меняется обратно.

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
Option Explicit
Private Declare Function CopyCursor Lib "user32" Alias "CopyIcon" (ByVal hcur As Integer) As Integer
Private Declare Function GetCursor Lib "user32" () As Integer
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Integer
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Integer, ByVal id As Integer) As Integer
 
Private Const OCR_NORMAL = 32512
Dim hCursor As Long, hOldCursor As Long
Dim lRet As Long
 
Dim lRet As Long
'укажите правильную директорию для курсора
hCursor = LoadCursorFromFile(App.Path & "\hourglas.ani")
If hCursor Then
lRet = GetCursor()
hOldCursor = CopyCursor(lRet)
'Новый курсор
lRet = SetSystemCursor(hCursor, OCR_NORMAL)
End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'Востановить системный курсор
lRet = SetSystemCursor(hOldCursor, OCR_NORMAL)
End Sub

@The trick · 05.07.2021, 17:12

Внедрение DLL и подключение к ресурсам EXE.

Данный пример содержит модуль инжекта ActiveX DLL в нужный поток процесса, а также показывает как подсоединится к работающему EXE и получить доступ к его VB.Global объекту. Это позволяет к примеру вызывать методы открытых форм/контролов/App и т.д.

Модуль инжекта позволяет создавать объекты в других потоках и получать отмаршаленую ссылку - методы можно вызывать прямо из IDE. В примере запускается EXE и вызываются методы его формы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    If CreateProcess(StrPtr(App.Path & "\..\dummy\dummy.exe"), 0, ByVal 0&, ByVal 0&, 0, 0, ByVal 0&, 0, tSI, tPI) = 0 Then
        MsgBox "CreateProcess failed"
        Exit Sub
    End If
   
   . . .
   
    Set cVBGetGlobal = CreateVBObjectInThread(tPI.dwThreadId, App.Path & "\..\dll\GetVBGlobal.dll", "CExtractor")
    Set cForms = cVBGetGlobal.Forms
   
    Set frmMain = cForms(0)
   
    ' // Change back color of picturebox
    frmMain.Controls("picTest").BackColor = vbRed
   
    ' // Draw line on picturebox
    frmMain.Controls("picTest").Line (0, 0)-Step(100, 50), vbGreen, BF
    frmMain.Caption = "Test"

Сам код доступа к объекту VB.Global находится в ActiveX DLL, которая внедряется в процесс с помощью модуля инжекта. Вообще доработав логику можно еще дополнительно поизвлекать переменные и в модулях.

Ссылка.

@Argus19 · 24.07.2021, 19:17

Работа с библиотекой Dxva2.dll
Получение параметров монитора. Кроме этого, можно получить и изменить значения контрастности и цветности.
Описание здесь:
https://www.cyberforum.ru/blog... g7189.html

Добавлено через 1 минуту
Определение количества строк и столбцов листов книги Excel
Два варианта проектов для этой задачи.
Описание и коды здесь:
https://www.cyberforum.ru/blog... g7204.html

@Argus19 · 08.10.2021, 18:25

Сделал некорректную, но очень простую демонстрацию анимированных GIF с помощью WIA.
https://www.cyberforum.ru/blog... g7295.html

Dragokas · 04.11.2021, 18:47 **[ТС]**

Typer - эмуляция ввода текста

Полезен для копирования текста в окно, где недоступен буфер обмена - путем низкоуровневой эмуляции ввода с клавиатуры.
Поддерживаются все символы, кроме юникодных, русский и английский языки.

Использование:
- вставить текст в окно программы
- перейти в нужное окно
- нажать Ctrl + Enter.

Настройки доп. задержек ввода / на кол-во символов предназначены для предотвращения переполнения буфера на принимающей стороне.

Для эмуляции используется SendInput, которой передаётся структура INPUT со скан-кодами клавиш, полученные путём преобразования из виртуальных кодов, которые в свою очередь получены из ASCII кода символа с учётом раскладки клавиатуры у окна-получателя.
Перед началом ввода проверяется состояние модификаторов Ctrl, Alt, Shift. Если они зажаты, ввод отменяется.
Также, если включена CAPS LOCK, её состояние будет сброшено.
Каждый символ проверяется на принадлежность диапазону ASCII, и если он расширенный, то раскладка клавиатуры для этого символа переключается на русскую, и наоборот (для английского).
При необходимости ввода спецсимволов, дополнительно зажимается кнопка Shift.
Опционально, игнорируется ввод CR для предотвращения двойных переносов строки.
Также поддерживается вставка текста из Linux файлов.

В целом код можно оптимизировать, передавая более 1 структуры INPUT при вызове SendInput.

Спасибо The Trick за некоторые кусочки кода.

@Argus19 · 05.11.2021, 16:52

С помощью найденного в интернете модуля, способного загружать изображения в стандартных форматах, а при работе в Windows10, ещё и в формате .webp, написал простой конвертер изображений:
https://www.cyberforum.ru/blog... g7328.html

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

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	14.04.2020, 15:44
	Комбинаторика - методы перестановки элементов массива Программа XComb и несколько алгоритмов на VB Ссылка на блог 2

@The trick Модератор 10065 / 3910 / 885 Регистрация: 22.02.2013 Сообщений: 5,860 Записей в блоге: 79
	15.04.2020, 19:39
	Сообщение было отмечено Catstail как решение Решение Super Mario World Maker https://github.com/DirectY1996... WorldMaker 8

@The trick Модератор 10065 / 3910 / 885 Регистрация: 22.02.2013 Сообщений: 5,860 Записей в блоге: 79
	05.11.2020, 09:25
	DirectX 11 for VB6 1.0 Type Library https://github.com/wqweto/VBD3D11 3

@The trick Модератор 10065 / 3910 / 885 Регистрация: 22.02.2013 Сообщений: 5,860 Записей в блоге: 79
	12.01.2021, 00:34
	Библиотека secp256k1 для VB6 - генерация ключей сети Bitcoin. Репозиторий содержит исходники и скомпилированную библиотеку secp256k1 адаптированную для VB6. Также там содержится маленькая библиотека для хеширования (RIPEMD-160/SHA256). В качестве маленького примера использования приведены исходные коды генератора ключей и соответствующих адресов сети Bitcoin. Ссылка. 1

@The trick Модератор 10065 / 3910 / 885 Регистрация: 22.02.2013 Сообщений: 5,860 Записей в блоге: 79
	02.02.2021, 03:36
	Add-in для работы с CDECL функциями. Моя попытка исправить баг в VB6 из-за которого при использование CDECL функций объявленных в tlb происходит вылет среды. Тестировался только в "тепличных" условиях, поэтому скорее всего будут баги. О них пишите либо здесь либо на гитхабе. Добавлен фикс ключевого слова CDecl - теперь CDecl функции можно вызывать через Declare. https://github.com/thetrik/VBCDeclFix Обновление. Добавлена поддержка слова CDecl в пользовательские функции. Теперь можно полноценно использовать callback-функции из C-библиотек. Добавлены примеры: qsort - использование C-функции qsort с пользовательской callback функцией; cairo - использование оригинальной cairo.dll; sqlite - использование оригинальной sqlite3.dll Тест Add-in производил только на 2-х версиях vba6.dll поэтому если у вас что-то не работает, сообщайте мне я обновлю сигнатуры. 3

@Argus19 1728 / 472 / 78 Регистрация: 24.09.2017 Сообщений: 2,561 Записей в блоге: 25
	24.07.2021, 19:17
	Работа с библиотекой Dxva2.dll Получение параметров монитора. Кроме этого, можно получить и изменить значения контрастности и цветности. Описание здесь: https://www.cyberforum.ru/blog... g7189.html Добавлено через 1 минуту Определение количества строк и столбцов листов книги Excel Два варианта проектов для этой задачи. Описание и коды здесь: https://www.cyberforum.ru/blog... g7204.html 3

@Argus19 1728 / 472 / 78 Регистрация: 24.09.2017 Сообщений: 2,561 Записей в блоге: 25
	08.10.2021, 18:25
	Сделал некорректную, но очень простую демонстрацию анимированных GIF с помощью WIA. https://www.cyberforum.ru/blog... g7295.html 2

@Argus19 1728 / 472 / 78 Регистрация: 24.09.2017 Сообщений: 2,561 Записей в блоге: 25
	05.11.2021, 16:52
	С помощью найденного в интернете модуля, способного загружать изображения в стандартных форматах, а при работе в Windows10, ещё и в формате .webp, написал простой конвертер изображений: https://www.cyberforum.ru/blog... g7328.html 0