Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.83/1200: Рейтинг темы: голосов - 1200, средняя оценка - 4.83
fever brain
oh my god
1377 / 732 / 154
Регистрация: 05.01.2016
Сообщений: 2,228
Записей в блоге: 7
25.11.2017, 18:09 221
Битовые операции

Решил тоже показать как это работает



хотя многие и так знают

Топик:

Добавлено через 15 минут
Ниже архив в котором скомпилированный exe (это если у кого нет редактора VB6)
3
Вложения
Тип файла: rar Xor.rar (5.0 Кб, 15 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2017, 18:09
Ответы с готовыми решениями:

Продам готовые коды и решения на Visual Basic за 400 рублей
душу продаю:cry: Продам коды исходные на VB !!10 лет копил за 400р !!размер тока кодов 312метров...

Коды на Visual Basic
Ребята всем привет,я начел изучать "Visual Basic"! Очень буду благодарен за коды по этому языку,...

Вывод решения вместо Immediate в textbox (visual basic 6.0)
программа выводит решение в Immediate а я хочу разместить на форме text1 и что бы решение...

Visual Basic .NET FAQ. Готовые решения, полезные коды
Предлагаю в этой теме размещать ответы на часто задаваемые вопросы и просто делиться полезными...

Готовые коды для решения лабораторных работ
Доброго времени суток всем! Очень срочно нужны готовые коды для решения лабораторных работ в С# по...

234
Pro_grammer
Модератор
6235 / 2329 / 452
Регистрация: 24.04.2011
Сообщений: 4,158
Записей в блоге: 10
29.11.2017, 17:03 222
Если приходиться переписывать код с других языков программирования на VB6, то знаете, что все константы из WinApi нужно обязательно декларировать в своём коде. А перед этим их значения надо ещё найти (если не помните их все наизусть ). Я тут заметил, что в PureBasic очень неплохой список встроенных констант, около 15 000. Конечно, не все относятся к WinApi, но и запас карман не трет.
Набросал простенькую программу, которая по этой базе ищет значение константы, и записывает её в формате VB6.
Вот пример работы с кодом на Делфи:
Готовые решения и полезные коды на Visual Basic 6.0

Вписываем в поле поиска константы по очереди, ищем их значения. Все значения собираются в текстовом поле 2, после чего мы просто копируем его и вставляем в свою программу!
Исходный код и готовая программа прилагается
4
Вложения
Тип файла: zip Consnant.zip (228.8 Кб, 24 просмотров)
fever brain
oh my god
1377 / 732 / 154
Регистрация: 05.01.2016
Сообщений: 2,228
Записей в блоге: 7
04.12.2017, 12:23 223
Шифрование текста методом Вернама

Топик:

2
kreotodr
30 / 28 / 8
Регистрация: 15.08.2014
Сообщений: 570
05.12.2017, 08:43 224
Иногда бывает необходимо загрзиуть ком, загрузить кучу приложений, и в какойто момент заблокировать комп...

Блокировка компьютера..
Просто и "быстро" всего 7кБ кода

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Declare Function LockWorkStation Lib "user32" () As Long
 
Private Sub Form_Load()
 
      If Command = "" Or Val(Command) <= 0 Or Val(Command) > 65 Then
            MsgBox "Ошибка: Неверный синтаксис командной строки!" & vbCrLf & vbCrLf & "В качестве агрумента должно быть задано в сек, время блокировки рабочей станции. " _
                    & "Допустимые значения 1-65 сек", vbOKOnly, "prgLockAfter"
            Unload frmMain
            End
      End If
 
    tmrTm.Interval = Val(Trim(Command)) * 1000
 
End Sub
 
Private Sub tmrTm_Timer()
    LockWorkStation: Unload frmMain: End
End Sub
0
Вложения
Тип файла: rar prgLockAfter.rar (6.5 Кб, 14 просмотров)
05.12.2017, 08:43
CharlyChaplin
173 / 24 / 3
Регистрация: 28.05.2015
Сообщений: 141
05.03.2018, 12:37 225
Упражнения для ребёнка младших классов

Выложил сюда свою программу, которую написал для своей 9-и летней дочери, т.к. у неё проблемы с написанием(произношением) английских чисел от 0 до 100 и арифметическим счётом от 0 до 100. Программа ей хорошо помогла и теперь она лучше считает. Соответственно и оформление детское. Произношение английских чисел реализовано при помощи ivona-voice.


Описание:
Реализовано отображение статистики пройденных упражнений, которая сохраняется в самой программе. Никаких дополнительных файлов нет. Появлялась проблема с OCX-календарём, которую обошёл путём создания собственного календаря. Но таблицу MSFlexGrid.ocx пришлось записать в ресурсы программы и при каждом запуске регистрировать, предварительно создав сам OCX-файл, путём чтения файла-ресурса(MSFlexGrid.OCX) из двоичного массива. Файл создаётся во временной папке пользователя.

Реализована привязка статистических данных по имени пользователя Windows и по серийному номеру жёсткого диска. Здесь имеется ввиду серийный номер не логического диска, а физического диска, на котором может располагаться множество логических дисков со своими временными номерами, не имеющими значения после переустановки ОС или форматирования диска. Привязка осуществляется по желанию пользователя. Она нужна для того, чтобы другой пользователь не мог посмотреть(стереть) статистику; том числе и ребёнок без ведома родителей. Если один человек пользовался программой и внёс пароль на изменение статистики, то прежде чем поделиться программой с другим человеком, ему следует очистить статистику, иначе просмотреть её будет нельзя и она не будет накапливаться. Либо можно скачать чистый файл отсюда.

Привязка к компьютеру реализована при помощи шифрования BlowFish и алгоритма хеширования SHA-2(256). По этой причине данные статистики будут недоступны на другом компьютере, т.к. хеши имени пользователя и хеши серийных номеров, являющиеся ключами к шифрованию, будут уникальными. Рекомендуется использовать сразу 2 привязки. Думаю, что вскрывать программу также бесполезно, т.к. кроме зашифрованной строки в ней ничего не будет. "Правильных" ключей программа не знает и расшифровывает с любым ключом. Только результат может оказаться бессмысленным из-за неправильности ключа.

Модули, реализовывающие шифрование BlowFish и хеш SHA-2(256), взяты из открытых источников. В частности BlowFish был взят с официального сайта создателя данного алгоритма, на котором есть ссылка на сайт с исходником, реализованном на VB6. Есть смысл доверять этим исходным кодам, т.к. они располагаются на официальном сайте разработчика алгоритма (Брюса Шнайера) и к тому же код BlowFish исправлялся спустя год после его первого опубликования на том же сайте.
2
Вложения
Тип файла: 7z Masha.7z (5.38 Мб, 17 просмотров)
The trick
Модератор
8082 / 2798 / 776
Регистрация: 22.02.2013
Сообщений: 3,945
Записей в блоге: 77
07.05.2018, 00:16 226
Процедурная генерация фигур, камера, выбор мышью Direct3D9.

Простой пример 3D сцены с генерируемой геометрией, выбором мышью объектов, управлением камерой, трансформацией объектов с использованием DirectX9. В примере показана базовая работа с нацеленной камерой (вращение вокруг цели, зум, панорама), и объектами (трансформации, генерация). Каждый объект помимо позиции также имеет точку опоры, вокруг которой и осуществляется ориентация его в пространстве. В примере процедурно генерируются сферы, усеченные конусы и параллелепипеды. Для работы нужна библиотека типов (после компиляции не требуется) и модули-аналоги D3DX функций (там же).

4
Вложения
Тип файла: rar SimpleScene.rar (49.9 Кб, 17 просмотров)
The trick
Модератор
8082 / 2798 / 776
Регистрация: 22.02.2013
Сообщений: 3,945
Записей в блоге: 77
07.05.2018, 00:27 227
Рендеринг объектов в отдельном потоке Direct3D9.

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


Один человек однажды интересовался как можно в основном потоке просчитывать логику, а в другом визуализировать сцену. В данном примере создается дополнительный поток, в котором происходит рендеринг вертексного буфера, заполняемого из основного потока. Для синхронизации используется критическая секция. Логика в примере выстроена так, что основное приложение пытается захватить общий ресурс и ведется количество неудачных попыток (если поток рендера уже захватил его), при превышение порогового значения неудачных попыток поток рендера принудительно отдает ресурс основному для обновления данных. В основном потоке при неудачных попытках рассчитанные данные теряются, в реальном приложении их можно использовать для просчета физики, теней или кешировать и т.п. Пример требует две библиотеки типов Direct3D9 и модуль для работы с многопоточностью.
6
Вложения
Тип файла: rar SharedResources.rar (17.5 Кб, 11 просмотров)
The trick
Модератор
8082 / 2798 / 776
Регистрация: 22.02.2013
Сообщений: 3,945
Записей в блоге: 77
26.05.2018, 11:39 228
Direct2D, DirectWrite, WIC.

Всем привет.

Представляю библиотеки типов для работы с Direct2D, DirectWrite и Windows Imaging Component. Также в архиве содержатся вспомогательные модули и примеры работы с данными библиотеками типов. Библиотеки довольно "сырые" поэтому будут дополнятся (новые сущности доступные в Win8 и позже, вспомогательные функции и т.д.) и исправляться различные баги.

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


Скачать.
4
CharlyChaplin
173 / 24 / 3
Регистрация: 28.05.2015
Сообщений: 141
07.06.2018, 08:03 229
Пользовательский таймер.

Через заданное время: выключает, перезагружает, завершает сеанс, входит в спящий/ждущий режимы, завершает процесс(ы).
Можно задавать время действия, используя календарь, а также делать screenshot перед выполнением действия.
4
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: 7z UserEventTimer.7z (305.5 Кб, 26 просмотров)
The trick
Модератор
8082 / 2798 / 776
Регистрация: 22.02.2013
Сообщений: 3,945
Записей в блоге: 77
12.06.2018, 20:17 230
Модуль для работы с многопоточностью на VB6

Всем привет!
Представляю модуль для работы с многопоточностью на VB6 для Standard EXE проектов. Данный модуль разработан на основе этого решения в котором исправлены некоторые баги и добавлен дополнительный функционал. Модуль не требует никаких дополнительных зависимостей и библиотек типов, работает как в IDE (все функции работают в главном потоке) так и в скомпилированном виде.



Описание работы и сам модуль.
3
The trick
Модератор
8082 / 2798 / 776
Регистрация: 22.02.2013
Сообщений: 3,945
Записей в блоге: 77
22.08.2018, 14:34 231
Библиотека для работы с 2D графикой cairo.

Название: arc_negative.png
Просмотров: 253

Размер: 4.6 КбНазвание: fill_style.png
Просмотров: 255

Размер: 6.0 КбНазвание: gradient.png
Просмотров: 255

Размер: 7.6 Кб

Порт кроссплатформенной библиотеки для работы с 2D графикой cairo для VB6. Также в репозитории содержится библиотека типов и множество примеров использования. На основе cairo написан фреймворк vbRichClient для VB6.
Оригинальное описание
Cairo is a 2D graphics library with support for multiple output devices. Currently supported output targets include the X Window System (via both Xlib and XCB), Quartz, Win32, image buffers, PostScript, PDF, and SVG file output. Experimental backends include OpenGL, BeOS, OS/2, and DirectFB.

Cairo is designed to produce consistent output on all output media while taking advantage of display hardware acceleration when available (eg. through the X Render Extension).

The cairo API provides operations similar to the drawing operators of PostScript and PDF. Operations in cairo including stroking and filling cubic Bézier splines, transforming and compositing translucent images, and antialiased text rendering. All drawing operations can be transformed by any affine transformation (scale, rotation, shear, etc.)

Cairo is implemented as a library written in the C programming language, but bindings are available for several different programming languages.

Cairo is free software and is available to be redistributed and/or modified under the terms of either the GNU Lesser General Public License (LGPL) version 2.1 or the Mozilla Public License (MPL) version 1.1 at your option.


Скачать.
3
The trick
Модератор
8082 / 2798 / 776
Регистрация: 22.02.2013
Сообщений: 3,945
Записей в блоге: 77
01.09.2018, 12:22 232
DirectShow аудио-визуализатор для мультимедиа с использованием фильтра Sample Grabber.

Пример использует DirectShow для проигрывания мультимедиа файлов с визуализацией аудиоданных посредством фильтра Sample Grabber. Для IDE и скомпилированного варианта используются 2 разных подхода. Поскольку колбек метод ISampleGrabberCB::BufferCB может вызываться из произвольных потоков то отладка в IDE такого способа напрямую опасна. Для этого в IDE используется метод ISampleGrabber::GetCurrentBuffer который вызывается из основного потока, но имеет ограничения связанные с невозможностью узнать время буфера и получение только последнего буфера. Для компенсации задержки в IDE используется константа IDE_DELAY_TIME которая задает время опережения курсора записи в буфер перед курсором считывания. В скомпилированном варианте используется пользовательский объект CSampleGrabberBuffer с интерфейсом ISampleGrabberBuffer который может обслуживать вызовы из разных потоков. Поскольку этот объект принимает вызовы из разных потоков то его реализация затруднена с использованием Implements, поэтому используется "ручное" создание и реализация объекта в стандартном модуле.
Данный объект использует круговой буфер (когда курсор доходит до конца буфера он опять начинает запись сначала) для текущей позиции записи также привязывается метка времени проигрывания буфера. Согласно этой метки вычисляется позиция для курсора воспроизведения. Для сброса метки используется метод ISampleGrabberBuffer::Reset пользовательского объекта (к примеру при первом включении или изменении позиции воспроизведения).
3
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: zip DirectShow_AudioVisualizer.zip (10.9 Кб, 15 просмотров)
The trick
Модератор
8082 / 2798 / 776
Регистрация: 22.02.2013
Сообщений: 3,945
Записей в блоге: 77
24.01.2019, 00:37 233
PNG изображения в стандартных контролах VB6.



Всем привет.
Как известно встроенные средства Visual Basic 6.0 не поддерживают возможности работы с PNG изображениями, т.е. к примеру нельзя ипользовать Png картинку в качестве свойства Form.Picture. Я представляю небольшую библиотеку и Add-in которые позволяют обойти эти ограничения. Данная библиотека позволяет загружать и сохранять Png изображения (с альфа каналом) стандартными средствами (LoadPicture / SavePicture), а также включает поддержку Png изображений (с альфа каналом) в контролы. Любой контрол который в своей работе использует стандарнтые Ole Picture объекты будет поддерживать загрузку Png изображений. В свою очередь если изображение выводится посредством IPicture::Render то картинка будет отрисовываться с учетом альфа канала. Данная библиотека должна работать на всех версиях Windows начиная с XP.

Скачать/описание.
6
The trick
Модератор
8082 / 2798 / 776
Регистрация: 22.02.2013
Сообщений: 3,945
Записей в блоге: 77
11.06.2019, 01:23 234
Класс таймера.

Класс который реализует функцию таймера для VBA/VB6. Совместим с 64 битным офисом. Для использования нужно просто добавить модуль в проект, задать интервал и ловить события Tick. Модуль имеет небольшую проверку позволяющего уменьшить количество сбоев при отладке.

Ссылка.
3
oplrox
1 / 1 / 0
Регистрация: 27.11.2015
Сообщений: 10
22.06.2019, 04:34 235
Загрузка файла по URL в асинхронном режиме, методом AsyncRead через UserControl.
1
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: zip URL_Downloader.zip (3.7 Кб, 17 просмотров)
22.06.2019, 04:34
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.06.2019, 04:34

Написать программу решения квадратного уравнения. В Office Visual Basic
Написать программу решения квадратного уравнения. В Office Visual Basic

Полезные коды и проекты на VBA
В этой теме предлагаю выкладывать различные коды и готовые проекты VBA, которые, на Ваш взгляд,...

Полезные коды для PascalABC.NET
В этой теме размещаются полезные исходники программ, различные процедуры и функции, а так же...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
235
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru