Generate QR-code VB6

@Vika7714 · Регистрация: 16.02.2016

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

Всем салют.
Возможна ли генерация QR-кода на VB6?
На C# и VB.NET существуют библиотеки, для работы с QR.
Существуют ли таковые на VB6?

@UBUNTU · 15.03.2018, 15:44

Michael_B, офис на компьютерах скольки битный.

@Michael_B · 16.03.2018, 12:50

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

офис на компьютерах скольки битный.

UBUNTU, прошу прощения за своё невежество, но не смог найти, где это посмотреть

Предположительно, 64, так как оба компьютера 64-битные и Windows 7 тоже 64-битный.

@sergeos · 16.03.2018, 13:35

Неее, ну это уже верх невежества...

@The trick · 16.03.2018, 20:55

Michael_B, скиньте лучше сюда проект.

@Michael_B · 17.03.2018, 20:08

sergeos, спасибо большое !

UBUNTU, Вы правы, удивительно, я не понимаю как это могло случиться, но на ноутбуке 32-разрядная версия, а на настольном 64-разрядная. Разные. Буду приводить в соответствие и потом уже отпишусь.

The trick, и Вам большое спасибо ! Если что-то будет не так после переустановки Office, обязательно выложу проект. Надеюсь, правда, что всё решится переустановкой.

@nouyana · 10.01.2020, 17:41

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

Visual Basic
1
2
3
4
5
6
7
8
Private Declare Sub GenerateBMP _
Lib "C:\Temp\quricol32.dll" _
Alias "GenerateBMPW" ( _
ByVal FileName As Long, _
ByVal Text As Long, _
ByVal Margin As Long, _
ByVal Size As Long, _
ByVal Level As TErrorCorretion)

The trick, не могли бы вы помочь мне скомпилировать библиотеки quricol32.dll и quricol64.dll? У меня нет C++, только VB.

@UBUNTU · 11.01.2020, 07:41

nouyana, Зачем ? Они как бы готовы используйте их или я не понял что то

@nouyana · 11.01.2020, 21:33

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

nouyana, Зачем ? Они как бы готовы используйте их или я не понял что то

UBUNTU, да, прошу прощения - немного запутался с гитхабом и увидел сначала только исходники.
Вот ссылка на релиз, если кому ещё нужно.
Спасибо!

@Wawan_ · 11.11.2021, 23:17

Доброго здравия!
Люди,добрые, сами мы не местные, отстали от поезда, помогите, кто чем может.
Проблема в следующем, сделал всё как было указано, но код читается "?????? ???? ????????? ???????" как-то так, а если латиница или цифры, то всё нормально.
Кто знает как исправить?

I can · 12.11.2021, 07:12

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

но код читается

Какой код? Покажи.

@Wawan_ · 12.11.2021, 07:54

Вот

@Alex77755 · 12.11.2021, 08:58

крутой код!!!

@Wawan_ · 12.11.2021, 09:07

даа, я такой.
Или нужен VBA код?
вот он

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
Private Declare Sub GenerateBMP _
                Lib "C:\Temp\Swelio32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
Private Sub Form_Load()
    GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr(П_Уважаем), 3, 5, QualityLow
End Sub

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

Visual Basic
1
Lib "C:\Temp\Swelio32.dll" _

Это новая версия, на том же сайте который указан выше по ттеме.

I can · 12.11.2021, 09:08

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

??????

Нормальный код, читается. "Уважаемый Абдюшев Ф.." (там больше информации, я сократил)

Добавлено через 49 секунд
Wawan_, выкиньте свой QR-сканер.

@Wawan_ · 12.11.2021, 09:10

И ещё, всё это в VBA Access.

Добавлено через 48 секунд
у меня телефон не читает, выдаёт ???????

I can · 12.11.2021, 09:11

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

у меня телефон не читает

И телефон тоже выкиньте...

Добавлено через 32 секунды
Точнее, программу - читалку кодов.

@Wawan_ · 12.11.2021, 09:11

мне нужно жестко прописать кодировку (правда не знаю какую ANSI или UNICOD)

I can · 12.11.2021, 09:12

Я же телефоном проверял, у меня читает.

@Wawan_ · 12.11.2021, 09:12

Новый, жалко-(

I can · 12.11.2021, 09:13

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

мне нужно жестко прописать кодировку

Какая разница, если ваш сканер не понимает?

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@Vika7714 0 / 0 / 0 Регистрация: 16.02.2016 Сообщений: 13

	Generate QR-code VB6 18.03.2016, 12:37. Показов 40852. Ответов 74 Метки нет (Все метки) Всем салют. Возможна ли генерация QR-кода на VB6? На C# и VB.NET существуют библиотеки, для работы с QR. Существуют ли таковые на VB6? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	15.03.2018, 15:44
	Michael_B, офис на компьютерах скольки битный. 0

@sergeos 207 / 23 / 6 Регистрация: 12.06.2012 Сообщений: 235
	16.03.2018, 13:35
	Неее, ну это уже верх невежества... 0

@The trick Модератор 10069 / 3914 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	16.03.2018, 20:55
	Michael_B, скиньте лучше сюда проект. 0

@Michael_B 1 / 1 / 0 Регистрация: 23.10.2015 Сообщений: 99
	17.03.2018, 20:08
	sergeos, спасибо большое ! UBUNTU, Вы правы, удивительно, я не понимаю как это могло случиться, но на ноутбуке 32-разрядная версия, а на настольном 64-разрядная. Разные. Буду приводить в соответствие и потом уже отпишусь. The trick, и Вам большое спасибо ! Если что-то будет не так после переустановки Office, обязательно выложу проект. Надеюсь, правда, что всё решится переустановкой. 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	11.01.2020, 07:41
	nouyana, Зачем ? Они как бы готовы используйте их или я не понял что то 0

@Wawan_ 2 / 2 / 0 Регистрация: 08.09.2014 Сообщений: 78
	11.11.2021, 23:17
	Доброго здравия! Люди,добрые, сами мы не местные, отстали от поезда, помогите, кто чем может. Проблема в следующем, сделал всё как было указано, но код читается "?????? ???? ????????? ???????" как-то так, а если латиница или цифры, то всё нормально. Кто знает как исправить? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	12.11.2021, 08:58
	крутой код!!! 0

@Wawan_ 2 / 2 / 0 Регистрация: 08.09.2014 Сообщений: 78
	12.11.2021, 09:10
	И ещё, всё это в VBA Access. Добавлено через 48 секунд у меня телефон не читает, выдаёт ??????? 0

@Wawan_ 2 / 2 / 0 Регистрация: 08.09.2014 Сообщений: 78
	12.11.2021, 09:11
	мне нужно жестко прописать кодировку (правда не знаю какую ANSI или UNICOD) 0

I can bite 5011 / 4841 / 852 Регистрация: 13.04.2015 Сообщений: 10,123
	12.11.2021, 09:12
	Я же телефоном проверял, у меня читает. 0

@Wawan_ 2 / 2 / 0 Регистрация: 08.09.2014 Сообщений: 78
	12.11.2021, 09:12
	Новый, жалко-( 0