begin process at 2012 02 10 20:27:58
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

 > CHR$ FINDER

CHR$ FINDER


 Information sur la source

Note :
Aucune note
Catégorie :Texte Classé sous :chr, ascii, caractere Niveau :Débutant Date de création :30/08/2002 Date de mise à jour :10/09/2002 22:51:51 Vu / téléchargé :3 862 / 145

Auteur : madcow41

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

 Description

Ce petit (très petit) soft sert à trouver les numéros de code de charactères que vous ne connaissez pas... Il suffit de rentrer le charactère dans une TextBox, de cliquer sur le Bouton 'Go' et le numéro est trouvé...

Source

  • Private Sub Command1_Click()
  • Dim i As Integer
  • For i = 1 To 255
  • Label1 = "Chr$(" & i & ") = " & Chr$(i)
  • If Chr$(i) = Text1 Then
  • MsgBox Label1, vbInformation, "Charactère Trouvé"
  • Exit Sub
  • End If
  • Next i
  • MsgBox "Aucune Correspondance trouvée pour '" & Text1 & "'.", vbInformation, "Charactère Introuvable"
  • End Sub
Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 255
        Label1 = "Chr$(" & i & ") = " & Chr$(i)
        If Chr$(i) = Text1 Then
            MsgBox Label1, vbInformation, "Charactère Trouvé"
            Exit Sub
        End If
    Next i
    MsgBox "Aucune Correspondance trouvée pour '" & Text1 & "'.", vbInformation, "Charactère Introuvable"
End Sub 

 Conclusion

Je vous avait prévenu... C'est vraiment un tout petit soft...

 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 du même auteur

ETEINDRE SON PC SOUS TOUTES LES VERSIONS DE WINDOWS
Source avec Zip Source avec une capture MSGBOX MAKER
Source avec Zip ACTIVER, DÉSACTIVER ET VÉRIFIER LE LANCEMENT D'UNE APPLICATI...

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) TABLEAU ASCII - RETROUVER FACILEMENT LE CODE ASCII D'UN CARA... par raffika
Source avec Zip Source .NET (Dotnet) FACTURE CLASSIQUE POUR DÉBUTANTS par spameur_tn1
Source avec Zip Source avec une capture Source .NET (Dotnet) EDITION DE CARACTÈRES MATRICIELS (POUR BITMAP, CF CODE 128) par Blodox
Source avec Zip Source avec une capture HEXA/ASCII AVEC POSSIBILITÉ DE FICHIER par XRaph
Source avec Zip Source avec une capture COUPEUR DE FICHIERS par boukake

Commentaires et avis

Commentaire de erreurs404 le 30/08/2002 10:05:54

euh ... est ce que tu connais la fonction Asc(string) ... je pense qu'elle va plus vite que la boucle sur 0->255

Commentaire de Alan71 le 30/08/2002 14:55:59

Une Erreur 404 !

Commentaire de Zog2002 le 30/08/2002 20:23:10

c'est vrai qu'avec ASC() ça marcherait mieux à mon avis.

Commentaire de madcow41 le 30/08/2002 23:22:49

Merci pour Asc()... Je connaissait pô !

Commentaire de BobBigBoss le 31/08/2002 01:48:44

J'ai une question : existe-t'il réellement des caractères introuvables ?

Commentaire de erreurs404 le 02/09/2002 10:35:58

BobBigBoss > introuvables ??? tu veux pas plutôt dire non imprimables ?

Commentaire de madcow41 le 07/09/2002 08:19:10

Je ne pense pas en effet qu'il y ait des caractères introuvables... Mais bon, j'essaye de gérer tt les cas possibles dans mes applications donc il est normal que cette commande apparaisse. En fait elle est utile si le Text1 n'a pas la propriété MaxLengh=1 Si ce n'est pas comme ça l'utilisateur peut rentrer 2 caractères par mégarde... Donc une chaine de caractères introuvables...
M'enfin bon, voilà

Commentaire de madcow41 le 07/09/2002 08:20:31

Je ne pense pas en effet qu'il y ait des caractères introuvables... Mais bon, j'essaye de gérer tt les cas possibles dans mes applications donc il est normal que cette commande apparaisse. En fait elle est utile si le Text1 n'a pas la propriété MaxLengh=1 Si ce n'est pas comme ça l'utilisateur peut rentrer 2 caractères par mégarde... Donc une chaine de caractères introuvables...
M'enfin bon, voilà

Commentaire de psykocrash le 07/09/2002 13:47:14

si t'a peur ke l'user mett

Commentaire de psykocrash le 07/09/2002 13:53:07

si t'a peur ke l'user mette + d'un caractère t'a ka faire soit une autre boucle pour chaque caractère soit Left(Text1.Text, 1)
Voila (juste pour l'info, si tu connais pas Asc(), vo mieu te ke Left(String, 1) prend le 1er caractère de String a partir de la gauche, et Right(String, 5) prend les 5 1ers caractères de String ms cette fois a partir de la droite)
@+

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Asc() / Chr(), et autres fonctions ASCII [ par tekila_bandita ] Est-ce qu'il existe une fonction de type Asc() qui renvoi la valeur ASCII hexadecimale (et non décimale...) d'un caractere...?? Merci ! ;) Caractere ASCII x barre (moyenne) [ par Patrik ] Bonjour,Je souhaiterai obtenir le code latin ou ascii pour obtenir le symbole x barre représente l'abréviation de la moyenne.Patrik comment connaitre le code ascii d'un caractere? [ par nawel_tunisie ] s'il vous plait je voudrais connaitre la fonction qui peut me retouner le code ascii d'un caracteremerciNawel codes ASCII [ par prof_orthographe ] Je veux dessiner des cadres pour imprimer de façon lisible un tableau de nombres.Je voulais me servir des codes ascii avec chr(218) :"┌," c Comment obtenir une valeur Ascii étendu [ par titounours ] Bonjour à tous,mon problème est que dans vb.NET je n'arrive pas à avoir un code Ascii étendu avec Chr().le code Ascii est bon tant que la valeur est e utilisation de Chr() & ascii étendue dans VB 2005 [ par supergalaboy ] Bonjour, Je suis entrain de développer une application sous VB2005. J'utilise le serialport pour communiquer avec un automate. Je dois envoyer sur l Convertir byte() en caractere ASCII [ par Grinvald ] Bonjour,Je souhaiterai convertir un tableaux de byte en caractère ASCII.Le tableaux est le résultat d'un hachage.Merci de votre aide. Caractere et valeur ASCII [ par eric_piccaut ] Bonjour Pour me famliariseer avec l inverssion des codes et caracteres aider svp a resoudre ce qui suit.Une boite de texte permet d entrer un nombre e Convertir ASCII en caracteres [ par pilopew ] Salut, je veux decoder un string, du genre Chr(41) & Chr(58) & Chr(61) & Chr(64) & Chr(51) etc... Je suis entierement nouveau a Visual Basic, mais j' calcul nbre caractere [ par himabra ] salut la j aimerais ds mon textbox une fois qu on saisit 5 caracteres declenche le test pour ca j ai fait : If (CStr(CSng(id.Text) = 1)) Then


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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 : 0,718 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales