|
Programmation Visual Basic |
Voici, brutes de décoffrage, quelques routines que j'utilise. Il y a sûrement (et même
certainement) des bugs. N'hésitez pas à me les signaler. Toutes ces routines sont
rassemblées dans un fichier module que vous pouvez télécharger.
| Nom | Version | Description |
| BeginMonth | 1.0 | Renvoie une date qui est le premier jour du mois de la date passée en paramètre. |
| Bin$ | 1.0 | Renvoie une chaine représentant en binaire le nombre passé en paramètre. |
| BinToDéc | 1.0 | Renvoie un entier long égal au nombre binaire passé sous forme de chaine. |
| BitMax% | 1.1 | Renvoie le N° (0 à 15) du bit de poids le plus fort qui est à 1. |
| BytesToDec& | 1.0 | Transforme une chaine de 1 à 4 octets en nombre. |
| Ceil | 1.0 | Arrondi par excès. |
| CentreFocus | 1.0 | Cette routine sert à centrer deux controles l'un par rapport à l'autre. Par exemple un cadre pointillé (indiquant la présence du focus) autour d'une image. |
| CheckConnection | 1.0 | Vérifie qu'une URL répond, donc qu'on est connecté à Internet |
| Chemin$ | 1.0 | Renvoie le chemin d'un nom de fichier complet. |
| ComputerName$ | 2.1 | Renvoie le nom de l'ordinateur sur le réseau. |
| DecToBin$ | 1.0 | Transforme un nombre en chaine binaire. |
| DecToBytes$ | 1.0 | Transforme un nombre en chaine de caractères représentant le nombre en base 16. |
| DecToHex$ | 2.0 | Renvoie une chaine représentant en héxadécimal le nombre passé en paramètre. |
| EmptyToZero$ | 1.1 | Si la chaine passée en paramètre est vide, renvoie 0, sinon renvoie la chaine. |
| Encode64$ | 1.0 | Encode une chaine en base 64 selon RFC2045 |
| EncodeURL$ | 1.0 | Encode une chaine au format requis pour un URL. |
| EndMonth | 1.0 | Renvoie une date qui est le dernier jour du mois de la date passée en paramètre. |
| Exist | 1.1 | Renvoie VRAI si un fichier donné existe. |
| FiltreSaisie | 3.1 | Routine à placer dans l'évenement KEYPRESS d'un controle TEXTBOX permet de filtrer la saisie. |
| FormatTel$ | 1.0 | Formate un numéro de téléphone au standard international. |
| GetDiskSpaceFree | 1.0 | Renvoie un entier long qui est le nombre d'octets disponibles sur le lecteur passé en paramètre. Renvoie -1 si une erreur s'est produite. Cette fonction nécessite la librairie STKIT416.DLL ainsi que sa déclaration. |
| GetIni | 1.1 | Transfère le fichier INI dans une arborescence de collections |
| HexToDec& | 1.0 | Nombre égal à la chaine passée en héxadécimal (Plus lisible que la formulation &H...) |
| IsInteger | 1.0 | Vrai si le paramètre est entier |
| Max | 1.1 | Renvoie le plus grand des deux nombres passés en paramètres. |
| MidPrint | 1.0 | Routine permettant d'écrire un texte centré par rapport à une colonne sur un objet acceptant la méthode PRINT. |
| Min | 1.1 | Renvoie le plus petit des deux nombres passés en paramètres. |
| NomFichier$ | 1.1 | Renvoie le nom de fichier seul d'un nom de fichier complet. |
| NoNul$ | 1.1 | Cette fonction remplace NULL par une chaine vide; elle est utile avec les bases de données. |
| NotNumber | 1.0 | Renvoie VRAI si le code ASCII passé en paramètre ne correspond pas à un chiffre. |
| NoVide$ | 1.1 | Cette fonction remplace une chaine vide par 0. |
| Nozero$ | 1.1 | Remplace 0 par une chaine vide. |
| NullToString$ | 1.0 | Renvoie une chaine vide si NULL en entrée, sinon renvoie la chaine. |
| Odd | 1.0 | Renvoie Vrai si le paramètre est un nombre entier impair. |
| Position | 2.1 | Cette routine centre une fenêtre sur une autre; cette autre fenêtre peut être une fenêtre modale, une fenêtre MDI ou une fenêtre fille. |
| PrinterName$ | 1.0 | Retourne le nom de l'imprimante et de l'ordinateur sur lequel elle se trouve. |
| PrintLeftWithDot | 1.0 | Routine permettant d'écrire un texte aligné à gauche par rapport à une colonne sur un objet acceptant la méthode PRINT et suivi par un motif répété. |
| RightPrint | 1.0 | Routine permettant d'écrire un texte justifié à droite par rapport à une colonne sur un objet acceptant la méthode PRINT. |
| SaveIni | 1.0 | Sauvegarde un fichier INI. |
| SelectText | 2.0 | Sélectionne le texte d'un TextBox. |
| ShareName$ | 4.0 | Renvoie le nom de partage d'une imprimante. |
| SIRENtoTVA$ | 1.0 | Calculer le numéro de TVA intracommunautaire à partir du numéro SIREN ou SIRET |
| Sort | 1.0 | Routine de trie d'un tableau. Demanderais à être optimisé. |
| StripSpace$ | 1.0 | Retire les espaces de la chaine. |
| StrReplace$ | 1.0 | Chaine1 dans laquelle toutes les occurences de Chaine2 sont remplacées par Chaine3. |
| TestCleRIB | 1.0 | Renvoie VRAI si la clé du R.I.B. (Relevé d'Identité Bancaire) passé en paramètre est correcte. |
| TestSIRET | 1.0 | Vérifier que la clé d'un numéro SIREN ou SIRET est valide. |
| UserName$ | 1.1 | Renvoie le nom de l'utilisateur de la session. |
| ValideCB | 1.0 | Renvoie VRAI si numéro de carte CB valide. |
| ValideDate | 2.0 | Renvoie VRAI si une date est valide et la reformate proprement. |
| ValideItem | 1.2 | Cette routine recherche le texte d'un controle TEXTBOX dans une LISTBOX et s'il le trouve positionne l'index dessus. Au départ l'index de la LISTBOX doit obligatoirement être positionné à -1. |
| ValideMontant | 1.1 | Renvoie VRAI si une TextBox contient un montant et le reformate. |
| ValideURL | 1.0 | Renvoie VRAI si une TextBox contient une URL valide. |
| VideToZero | 1.1 | Transforme une chaine vide ou représentant une valeur ou nombre (0 si chaine vide en entrée). |
| ZeroToEmpty$ | 1.0 | Transforme une valeur en chaine mais chaine vide si valeur = 0 |
Peut-être souhaitez vous maintenant télécharger le module nommé
BIBLIO.BAS (26 Ko) qui contient toutes ces fonctions ?
| Description | Fichier |
| Une ComboBox qui se déroule avec la touche "flêche vers le bas" et avec saisie assistée. | AUTOCB.ZIP (5 383 octets) |
| Retrouver le nom de votre ordinateur sur le réseau ainsi que le nom d'utilisateur. | NAME.ZIP (5 159 octets) |
| Recherche et sélection d'un répertoire | DIRSELECT.ZIP (2 655 octets) |
| Ne permettre qu'une seule instance d'un programme et la ré-activer en cas d'essai de lancement d'une deuxième instance. | ONE_INST.ZIP (5 125 octets) |
| Retrouver les paramètres d'une imprimante. | PRINTCAP.ZIP (9 640 octets) |
| Retrouver les imprimantes connectées et choisir l'imprimante par défaut. | PRINTERS.ZIP (8 321 octets) |
| Créer silencieusement un fichier PDF en commandant PDFCréator par son interface COM. Nécessite la présence de PDFCréator sur la machine. |
Avec PDFcreator V 1.2.3 : PRINTPDF-1.ZIP (11 420 octets) Avec PDFcreator V 2.1 : PRINTPDF-2.ZIP (2 220 octets) |
| Apprendre à faire une requête HTTP, envoyer un SMS et encoder un URL | REQUETEHTTP.ZIP (11 544 octets) |
| Recevoir un fichier selon le protocole HTTP, gérer "Content-length" et le mode "chunked" | GETHTTP.ZIP (3 343 octets) |
| Un serveur TCP basic appelé par un client écrit en PHP. C'est les bases d'un service web. | TCP_SERVEUR.ZIP (1 973 octets) |
| Envoyer un mail avec Winsock en utilisant le protocole SMTP; joindre un fichier PDF (ou autre) en l'encodant en base64. | SENDMAIL.ZIP (14 756 octets) |
| Tester les numéros SIRET et SIREN, calculer le numéro de TVA intracommunautaire à partir du SIRET. | TESTSIREN.ZIP (7 172 octets) |
| Tester la clé d'un R.I.B. (Relevé d'Identité Bancaire) | TESTRIB.ZIP (6 620 octets) |
| Echange sur le réseau local par protocole UDP. Controler une machine; par exemple l'arreter; à partir d'une autre. | UDP_CONTROLE.ZIP (4 632 octets) |
| Tester un numéro de carte bancaire. | CB.ZIP (5 860 octets) |
| Tester si la connexion internet est active par la seule méthode sûre : lancer une requête | WEBCONNECT.ZIP (4 609 octets) |
| Exemple de D.D.E. avec le gestionnaire de programme de Windows 3.x | PMAN_DDE.ZIP (13 341 octets) |
| Gérer de grandes listes provenant d'une base de données , avec recherche automatique, en utilisant soit une LISTBOX soit une PICTUREBOX. | LISTES.ZIP (50 965 octets) |
| Controler la validité des saisies en déjouant les pièges de l'événement LOSTFOCUS | VERIF.ZIP (14 707 octets) |
| Ecriture et lecture d'un fichier INI, transfert dans une collection | FICHIERINI.ZIP (12 203 octets) |
| Travailler avec une base MySQL en mode ADO | MYSQL-ADO.ZIP (9 491 octets) |
