begin process at 2013 06 19 19:13:32
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Périphériques

 > CRÉER QR CODES

CRÉER QR CODES


 Information sur la source

Note :
8 / 10 - par 2 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Périphériques Classé sous :QR code, visual basic, free dll Niveau :Débutant Date de création :05/03/2013 Vu / téléchargé :2 139 / 261
Auteur : amando

Ecrire un message privé
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

Bon jour, je suis espagnol et je vous en prie, ne soyez trop critiques avec mon niveau de langue francaise.
J'ai trouvé une DLL (QRCodeLib.dll) qui permet créer des codes QR, et je vais ajouter un pétit programme qui l'utilise en VB6.
J'espère qui soie utile.

Source

  • premièrement il faut déclarer la DLL:
  • Private Declare Sub FastQRCode Lib "QRCodeLib.dll" (ByVal Texto As String, ByVal filename As String)
  • Private Declare Function QRCodeLibVer Lib "QRCodeLib.dll" () As String
  • Je connais seulement ces deux parties, la première pour créer le QR code, et la deuxième pour montrer la version.
  • Et maintenant, il faut appeler la DLL avec un code comme ça:
  • 'pour créer le fichier
  • FastQRCode Text1.Text, App.Path & "\QRCODE.bmp"
  • 'pour charger le fichier dans un Picture
  • Set Picture1.Picture = LoadPicture(App.Path & "\QRCODE.bmp")
  • 'pour montrer la version
  • MsgBox QRCodeLibVer
  • et c'est tout.
  • J'ajoute le code pour appeler aussi un programme "Zbar" qui permet de lire les codes QR avec la webcam et montrer la sortie dans un textbox multiline.
  • Merci pour tout ce que j'ai appri dans cet forum.
premièrement il faut déclarer la DLL:

Private Declare Sub FastQRCode Lib "QRCodeLib.dll" (ByVal Texto As String, ByVal filename As String)
Private Declare Function QRCodeLibVer Lib "QRCodeLib.dll" () As String

Je connais seulement ces deux parties, la première pour créer le QR code, et la deuxième pour montrer la version.
Et maintenant, il faut appeler la DLL avec un code comme ça:
'pour créer le fichier
FastQRCode Text1.Text, App.Path & "\QRCODE.bmp"
'pour charger le fichier dans un Picture
Set Picture1.Picture = LoadPicture(App.Path & "\QRCODE.bmp")
'pour montrer la version
MsgBox QRCodeLibVer

et c'est tout.
J'ajoute le code pour appeler aussi un programme "Zbar" qui permet de lire les codes QR avec la webcam et montrer la sortie dans un textbox multiline.
Merci pour tout ce que j'ai appri dans cet forum.


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) CROUZET M3 XN05 ECHANGE DE DONNÉES MODBUS par bali
Source avec Zip Source .NET (Dotnet) EJECTER UNE CLEF USB par sofiane2
Source .NET (Dotnet) EJECTER CLÉ USB OU CD par Erudix
Source avec Zip Source .NET (Dotnet) LIRE ET CHANGER LA LUMINOSITÉ DES ÉCRANS LCD (DE PORTABLE) C... par ShareVB
Source avec Zip Source avec une capture VISUAL BASIC ET MICROPROCESSEUR MBED par ccllee
Toutes les sources de la catégorie Périphériques

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) LECTEUR AUDIO EN VB par Galopinou
Source avec Zip SPLASH SCREEN, SIMPLE ET COMPLEXE par bitshifter
Source avec Zip Source avec une capture Source .NET (Dotnet) VBFILEFIND : RECHERCHE DE FICHIERS POUR REMPLACER CELLE DE W... par Patrice99
Source avec Zip Source avec une capture FAIRE DES PETITS DESSINS AVEC VISUAL BASIC par zulrigh
Source avec Zip Source avec une capture L'HEURE DE PLUSIEUR PAYS - HORLOGE MONDIALE par zulrigh

Commentaires et avis

Commentaire de drissou le 06/03/2013 11:13:57 8/10

Bonjour Amando. Très bonne librairie. merci

Commentaire de gillescadiou le 06/03/2013 12:05:35

Très bien vu.  Pour la langue française, tout est pardonné d'avance.  Il est des jours où je ne
supporte plus de lire du français sous forme de texto(s) ou du "pur" français qui n'y ressemble
plus tellement les fautes d'orthographe sont légion.

  Bonne suite , je suis moi aussi débutant.  

  Dans le style VB , j'aimerais plutôt m'intéresser à "LAZARUS" qui tente d'être l'équivalent de "DELPHI" en libre.  Il a l'avantage de la portabilité et d'être accessible à tous puisque libre.  D'autre part, le langage de base est le PASCAL, relativement simple à "ingurgiter".

Commentaire de amando le 07/03/2013 12:02:27

Bon jours mes amis:
J'ai découvert aussi que cette DLL a une autre procedure:
Private Declare Sub FullQRCode Lib "QRCodeLib.dll" (ByVal autoConfigurate As Boolean, ByVal AutoFit As Boolean, ByVal backcolor As SystemColorConstants, ByVal barColor As SystemColorConstants, ByVal Texto As String, ByVal CorrectionLevel As Integer, ByVal encoding As Integer, ByVal marginpixels As Integer, ByVal modulewidth As Integer, ByVal Height As Integer, ByVal Width As Integer, ByVal FileName As String)
avec laquelle, on peut modifier les couleurs, texte, correction, etc, mais j'ai l'impresion que ne fonctionne pas aprés quelque jours.

Commentaire de Sylvio le 12/03/2013 00:25:49 8/10

Cool!
Merci.
Salut.
Sylvio.

Commentaire de dheroux le 18/03/2013 08:48:08

Bonjour,
QRCodeLib.dll fonctionne bien en VB6
Malheureusement ce n'est pas le cas en VB Net.
Après recherche, je n'ai pas trouvé son équivalent en VB Net.
Quelqu'un saurait-il ?
Merci

Commentaire de Danette le 19/03/2013 02:27:46

Hello, très bon prog... La fonction webcam par contre n'a pas l'air de fonctionner. 8/10

Commentaire de amando le 19/03/2013 08:47:36

Bonjour Danette:
Pour utiliser la fonction webcam, il faut installer le programme Zbarcam; on peut le trouver dans la web, il est gratuit et à mon cas il fonctionne très bien.
Si tu as des problèmes pour le trouver, je peut le chercher pour toi.
Au revoir.

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Juin 2013
LMMJVSD
     12
3456789
10111213141516
17181920212223
24252627282930

Consulter la suite du CalendriCode

Photothèque

Photo Natur genießenPhoto Tropical Fishes near Colorful Coral Reef
Photo Underwater sea-life 

Visiter la photothèque

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,076 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib [FR] AndroLib [US] FormidApps [FR] FormidApps [US]