Inscription
23 janvier 2005
Dernière intervention
17 novembre 2009
Interventions
146
Signature

Problème de code. [Résolu]

Bonsoir à vous, Pourriez-vous m?aider à résoudre ce problème. Voilà, j'ai 2 textbox, Text1 et text2. Dans le Text1 j'ai : machin- Dans le Text2 j'ai : machin-1234 J'aimerais en les comparants qu'ils sont égaux, mais le souci c'est qu'ils ne le sont pas car le Text2 a le 1234 en plus. Est-il possible de ne pas tenir compte d... Lire la suite

maquette a base de pic16f877

bjr tout le monde et merci d'avance voila j'ai un projet a realise sous titre : REALISATION  D'UNE MAQUETTE A BASE DE  PIC16F877 AVEC APPLICATION DE BASE  (GESTION D'ENTREE SORTIE ,COMMUNICATION SERIE ,COMMUNICATION I2C) voila c'etai le sujet sachant ke j'ai deja travailer et  programmer des  PICs mais j ai jamai coçu la realisation d une... Lire la suite

alogorithme

bonjour j'ai besoin d'aide pour faire un alogorithme qui permet de passer d'un nombre binaire à un nombre reel. Quelqu'un peut m'aider?

Problème dans les conditions pour une textbox avec excel et VBA 6 [Résolu]

Bonjour à tous, Je développe un programme présentement avec aucune base mais je me débrouille quand même et j'aimerai savoir si quelqu'un peut m'aider à simplifier ce code qui est astronomiquement trop grand et j'en suis certain doit se simplifier énormément: J'ai une texte box dans une feuille ("Feuil1") ou l'on doit entrer le nombre ... Lire la suite

Parcourir chaine de caractere

Bonsoir, J'ai ine chaine de charactere (string)  qui prend le format suivant Dim chaine as String chaine= numero &  "-" nom  & " " & prenom  de telle façon que: numero est un entier (integer) nom est un chaine de caractères (string) prenom est un chaine de caractères (string) exemple: chaine="1- jean pierre"  ( dans cet exemple ... Lire la suite

aide carré somme des impaire vb6 [Résolu]

Bonjour j'aurais besoin d'aide pour un programme en vb6, pour calculer un nombre n au carré, on additionne les n premier termes ex 3²= 1+3+5 apres avoir declarer les variables, j'ai le code suivant : res = 0 n = txt1.Text i = 0 For i = 1 To n Step 2 res = res + 2 * n + 1 Next i txt2.Text = res mais j'ai un souci avec ce c... Lire la suite

Lire un bit précis dans les registre du port LPT

Bonjour J'arrive a lire les registre du port LPT mais j'aimerais etre capable de lire un bit spécifique au fond j'aimerais savoir si le bit est a 1 ou 0 sans a avoir a lire tous le registre voici la routine que j'utilise pour un registre Public Function read_DataReg() If Self Then Exit Function     initc = True   regist... Lire la suite

valeur inexactes avec "mod"

Bonjour, en vb.net je code ceci dans une fonction ---------------- dim paquet_clair as Integer paquet_clair = ((116 ^ 65)) Mod 133 msgbox(paquet_clair.ToString) ---------------- Et il m'affiche 59 ! Or si on prend la caltos de windows en mode scientifique (pour "mod") et que l'on fait l'opération il retourne 72 !! et ce 72 j'... Lire la suite

EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute [Résolu]

Bonjour à tous Je voudrai, sous excel, trouver l'inverse tangente pour avoir une cellule renseignée en degrés . exemple A=267 C=235.471867 A / C=1.133893418 Sur une calculatrice, en faisant inverse tangente de ce résultat, on obtient : 48.59037785 qui est l'angle que je cherche à obtenir dans une cellule. Merci de m'aider S... Lire la suite

communication avec le port parallèle ?

Bonjour a tous, J'ai réalisé un prog sous VB6 utilisant le port parallèle, seulement on dirai que la dll que j'ai utilisé (inpout32.dll) n'est pas compatible avec toutes les versions de windows (problème entre XP pro et familial) alors j'aimerais utiliser une autre dll permetant cette communication mais je ne connais que celle la... ... Lire la suite

Problème Cryptage Vigénère [Résolu]

Bonjour à tous ! J'ai commencé à faire seulement le code de cryptage Vigénère. Voici le code : Public Shared Function Cryptage(ByVal TextClair As String, ByVal Cle As String) As String         Dim Result As String         For i As Integer = 0 To TextClair.Length - 1             If Alphabet.IndexOf(TextClair(i)) -1 Then   ... Lire la suite

Copier-Coller

Slt ! Voila un code qui fonctionne mais ne donne pas le résultat voulu Sub egjio() Dim Table() As Double ReDim Table(2, 1) Dim ae As Integer Dim aebis As Integer Dim op As Integer Dim opbis As Integer For ae = 1 To 3     For aebis = 1 To 2         Table(op, opbis) = Cells(ae, aebis)     Next aebis Next ae... Lire la suite

Remplir tableau [Résolu]

Slt tout le monde, Dim total as integer Total=6 Dim Tableau() as integer redim Tableau (total) J'aimerai que mon tableau contient les valeur 0 1 2 3 4 5 c'est à dire que l'indice 0 du tableau = 0  l'indice 1 du tableau = valeur 1  l'indice 2 du tableau = valeur 2 etc .... J'ai essayé : tableau(0 to total) sa ne marche p... Lire la suite