AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 09 07:10:46
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

14 commentaire(s) de sephiro sur des sources sur vbfrance

Le : 03/12/2006 10:06:58
Source : COMMUNICATION INTER-PROCESS COMMUNICATION
Tu sais il n'y a pas 10 000 méthodes pour partager des données entre process. Il y a le stricte nécessaire, trouver le N° du process et envoyer un message, et pour le serveur comment attendre et recevoir les données. Le reste c'est de la déco, s'il vous faut plus de commentaire utiliser la touche F8 vous debbugger et ça remplace tout les commentaires.  
OGAUDE va voir mon prog multi thread en VB on vera si mon niveau est de la copie MSDN.

Si ce bout de code a pu vous aider j'en suis tres heureux.
Sephiro

Le : 23/10/2006 08:18:15
Source : MULTI THREAD
Attention j'ai fais cette exemple juste pour prouver que du multi thread en VB 6 était possible, l'environnement de Debug est TRES instable. Utilise VB.net plus adapté

Le : 15/10/2006 11:22:01
Source : MSN PLUG-IN (TRÈS GROS PROJET FINI)
tres fort

Le : 31/01/2005 10:13:29
Source : MODIFIER COULEURS D'UN TREEVIEW
Et en plus tu utilises les API, je cherche à faire la meme chose mais en C et je n'ai rien trouvé je vais tester tes API.
Sephiro

Le : 28/01/2005 14:49:11
Source : BMP2JPG CONVERTIR UNE IMAGE BITMAP EN JPEG AVEC UNE DLL ( CODE SOURCE DE LA DLL FOURNI AVEC ;) )
Genial
Mais je recherche l'inverse JPG2BMP, sais tu ou je peux trouver une source en C.
Encore bravo
Sephiro

Le : 09/03/2004 11:58:44
Source : CODE BARRE EAN13
Voici un code permettant de calculer la clef et de générer la conversion des 13 digites d'un EAN 13 en binaire, a toi ensuite de transformer les 1 en barre et les 0 en espace vers ton ecran ou imprimante.

' ----- Calcul Clef ( le 13eme code )
Public Function ClefEAN(Code As String) As Integer
Dim TabCode(13) As String
Dim Ope1 As Integer
Dim Ope2 As Integer
Dim Ope3 As Integer
Dim Ope4 As Integer

TabCode(1) = Mid(Code, 1, 1)
TabCode(2) = Mid(Code, 2, 1)
TabCode(3) = Mid(Code, 3, 1)
TabCode(4) = Mid(Code, 4, 1)
TabCode(5) = Mid(Code, 5, 1)
TabCode(6) = Mid(Code, 6, 1)
TabCode(7) = Mid(Code, 7, 1)
TabCode(8) = Mid(Code, 8, 1)
TabCode(9) = Mid(Code, 9, 1)
TabCode(10) = Mid(Code, 10, 1)
TabCode(11) = Mid(Code, 11, 1)
TabCode(12) = Mid(Code, 12, 1)


Ope1 = CInt(TabCode(1)) + CInt(TabCode(3)) + CInt(TabCode(5))
Ope1 = Ope1 + CInt(TabCode(7)) + CInt(TabCode(9)) + CInt(TabCode(11))

Ope2 = CInt(TabCode(2)) + CInt(TabCode(4)) + CInt(TabCode(6))
Ope2 = Ope2 + CInt(TabCode(8)) + CInt(TabCode(10)) + CInt(TabCode(12))

Ope2 = Ope2 * 3

Ope3 = Ope2 + Ope1
Ope4 = CInt(Right(CStr(Ope3), 1)) ' Recupeaire les unitées.
If Ope4 = 0 Then
    ClefEAN = 0
Else
    ClefEAN = 10 - Ope4
End If
End Function


' ----- Conversion du code barres de 13 digites vers un code Binaire
'*
    '----- Function  : EAN2Bin
    '
    '----- Objective : Convertir le code en 0 et 1
    '
    '
    Public Function EAN2Bin(ByVal strEANCode As String) As String

        Dim K As Integer
        Dim strAux As String
        Dim strExit As String
        Dim strCode As String

        strEANCode = Trim(strEANCode)
        strAux = strEANCode

        
        If (Len(strAux) <> 13) And (Len(strAux) <> 8) Then
            '
            '----- Code ean8 ou 13
            '
            MsgBox "La taille du code n'est pas correcte: & straux", vbCritical, "Warning"
            EAN2Bin = ""
            Exit Function
        End If

        '
        '----- Est un code numerique
        '
        For K = 0 To Len(strEANCode) - 1
            Select Case (Mid(strAux, K + 1, 1))
                Case Is < "0", Is > "9"
                    '
                    '----- Code invalide
                    '
                    MsgBox "Le code doit etre numerique: & straux", vbCritical, "EAN INVALIDE"
                    EAN2Bin = ""
                Exit Function
            End Select
        Next

        '
        '----- C'est un EAN 13
        '
        If (Len(strAux) = 13) Then
            '
            '
            '-----     CnnnnnnnnnnnK
            '
            '  Where : C - Code pays
            '          n - Data
            '          K - Clef de controle
            '
            '----- Si le code EAN Commence par 0, il devient un code UPC(12 digits)

            '
            '----- Coupe le 1er digite
            '
            strAux = Mid(strAux, 2)

            '
            '----- Recherche le code Pays par rapport au 1er digite
            '----- Ce code sera utiliser pour coder les Datas
            '
            Select Case CInt(Left(strEANCode, 1))
                Case 0
                    strCode = "000000"
                Case 1
                    strCode = "001011"
                Case 2
                    strCode = "001101"
                Case 3
                    strCode = "001110"
                Case 4
                    strCode = "010011"
                Case 5
                    strCode = "011001"
                Case 6
                    strCode = "011100"
                Case 7
                    strCode = "010101"
                Case 8
                    strCode = "010110"
                Case 9
                    strCode = "011010"
            End Select
        Else
            strCode = "0000"
        End If
        
        '
        '----- Le code EAN commence par un code de départ
        '
        
        '----- Code de debut Position 0 sur 6
        strExit = "000101"

        '
        '----- 1er partie du code Digite 1 vers 7 (le code pays étant le digite 0
        '
        For K = 1 To Len(strAux) \ 2
            Select Case CInt(Mid(strAux, K, 1))
                Case 0
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0001101"
                    Else
                        strExit = strExit & "0100111"
                    End If
                    
                Case 1
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0011001"
                    Else
                        strExit = strExit & "0110011"
                    End If
                    
                Case 2
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0010011"
                    Else
                        strExit = strExit & "0011011"
                    End If
                    
                Case 3
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0111101"
                    Else
                        strExit = strExit & "0100001"
                    End If
                    
                Case 4
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0100011"
                    Else
                        strExit = strExit & "0011101"
                    End If
                    
                Case 5
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0110001"
                    Else
                        strExit = strExit & "0111001"
                    End If
                    
                Case 6
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0101111"
                    Else
                        strExit = strExit & "0000101"
                    End If
                    
                Case 7
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0111011"
                    Else
                        strExit = strExit & "0010001"
                    End If
                    
                Case 8
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0110111"
                    Else
                        strExit = strExit & "0001001"
                    End If
                    
                Case 9
        
                    If Mid(strCode, K, 1) = "0" Then
                        strExit = strExit & "0001011"
                    Else
                        strExit = strExit & "0010111"
                    End If
                    
            End Select
        Next K

        '
        '----- Code de séparation
        '  Position 48 sur 5
      
        strExit = strExit & "01010"
        
        '
        '----- Seconde partie du code
        '  Pas d'utilisation du code Pays
        '

        For K = Len(strAux) \ 2 + 1 To Len(strAux)
            
            Select Case CInt(Mid(strAux, K, 1))
                Case 0
                    strExit = strExit & "1110010"
                Case 1
                    strExit = strExit & "1100110"
                Case 2
                    strExit = strExit & "1101100"
                Case 3
                    strExit = strExit & "1000010"
                Case 4
                    strExit = strExit & "1011100"
                Case 5
                    strExit = strExit & "1001110"
                Case 6
                    strExit = strExit & "1010000"
                Case 7
                    strExit = strExit & "1000100"
                Case 8
                    strExit = strExit & "1001000"
                Case 9
                    strExit = strExit & "1110100"
            End Select
        Next K

        '
        '----- Le code fini par un code de fin
        '    Position 95 sur 6
      
        strExit = strExit & "101000"

        EAN2Bin = strExit

    End Function

Le : 08/03/2004 14:23:36
Source : CODE BARRE EAN13
Il y a dix sources comme celui la sur le site,
utiliser une police code barres sur Word ou Excel je veux bien le comprendre mais sous VB il y a des methodes plus sympa, comme généré le code binaire de tes datas et remplacer les 1 par une barres et les 0 par des espaces.

Sephiro

Le : 08/09/2003 08:57:09
Source : TUTORIEL OPTIMISATION AVANCÉES : COMPILATION, COMPILATEUR ET APIS
Ce type d'infos est TOUJOURS interressant, c'est complet en restant simple, beau travail , ==> 10.


Le : 03/10/2002 10:04:38
Source : COMMUNICATION INTER-PROCESS COMMUNICATION
Ce n'est pas une reponse du 4um, j'avais besoin d'une tel function pour un programme tous simplement.

Le : 01/10/2002 19:13:08
Source : MULTI THREAD
Pour savoir si ton thread est toujours la tu peux utiliser une API qui va te lister les handles ou les ID.
De plus à la fin de ta function Toto, le thread se termine. Si tu veux qu'il reste il est obligatoire de faire une boucle pour l'empécher de sortir.


1


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,094 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.