AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • 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 07 12 10:55:25
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 !

43 commentaire(s) de xamax12 sur des sources sur tout CodeS-SourceS

Le : 17/05/2009 11:15:08
Source : LECTEUR DE NEWS (RSS, XML..)
Salut a tous!
Frentchy je te conseille ça: http://www.vbfrance.com/codes/MANIPULATION-XML-DOM-TUTORIEL-SUR-FOND-FLUX-RSS_41131.aspx
Moi j'ai trouvé ça super bien expliqué et en vb6

@+

Le : 28/08/2008 19:12:40
Source : TÉLÉCHARGEMENT DE PAGES WEB
marche pas désolé:
il ne trouve pas ma connection internet -> donc pas de téléchargement!

dommage, mais tu as peut être une solution?


Le : 27/05/2007 13:08:22
Source : LOADPICTURE("ZIP1.ZIP::BMP1.BMP...
Dommage!
Mais merci quand même pour ta réponse!
Si un jour je trouve le moyen tout seul je te tiendrai au courant!
@+

Le : 26/05/2007 18:04:05
Source : LOADPICTURE("ZIP1.ZIP::BMP1.BMP...
Juste une question à la con!!! (désolé)
Peut on charger directement un gif dans un contrôle image à partir d'une ressource compris dans le projet?
Je n'y arrive pas!
merci d'avance!
et Ebravo pour ta source!

Le : 09/08/2006 21:47:34
Source : STARGATE ATLANTIS SIMULATION (SAS) HTTP://NIPROD.FREE.FR/PRJSAS.PHP
Tu as vu ce qu'il y a marqué dans description tout en haut de la page?
Sinon va sur le site: http://niprod.free.fr/index.php?center=news
C’est le nouveau site du projet!
Va voir c plutôt sympa, puis sur le forum je répondrais à t question plus en détail!

Bonne continuation dans la programmation!!!

Le : 10/06/2006 13:51:32
Source : OCX ALLOCINE (INFO COMPLETE + MINIATURE)
Salut pcpunch!
J'utilise ta source depuis un certain temp et j'ai fait quelque modif:

    '---------------------------------------------------------------------------
    'Synopsis
    Nb1 = InStr(1, CodeSrc, "<DIV align=justify>")
    nb2 = InStr(Nb1, CodeSrc, "<H4>")
    Nb1 = InStr(nb2, CodeSrc, "</H4>")
    tmp = Mid(CodeSrc, nb2, Nb1 - nb2)
    'suppresion des balises
    tmp = Replace(tmp, "<H4>", "")
    tmp = Replace(tmp, "<B>", "")
    tmp = Replace(tmp, "</B>", "")
    tmp = Replace(tmp, "<BR>", vbCrLf)
    tmp = Replace(tmp, "<I>", Chr(34))
    tmp = Replace(tmp, "</I>", Chr(34))
    If tmp = ">" Then Synopsis = "Pas de Sysnopsis disponible" Else Synopsis = tmp

    '---------------------------------------------------------------------------
    'genre se trouve entre  nb2+4 et duree delimité par <FONT class=size2> et <
     tmp = ""
    Nb1 = InStr(1, CodeSrc, "<H4>Genre :")
    nb2 = InStr(Nb1, CodeSrc, "</H4>")
    tmp = Mid(CodeSrc, Nb1 + 12, nb2 - Nb1 - 12)
    Dim travail_Genre() As String
    travail_Genre = Split(tmp, ">")
    
    If UBound(travail_Genre) > 1 Then
        For i = 1 To UBound(travail_Genre) Step 2
            Genre = Genre & travail_Genre(i) & ", "
        Next i
        Genre = Replace(Genre, "</A", "")
        Genre = Left(Genre, Len(Genre) - 2)
    Else
        Genre = tmp
    End If

Quand a la miniature défoi on ne tombe pas sur la bonne mais il y a plusieur images sur la page dont celle du DVD en vente, donc je me suis amusé a répertorier toutes les images de la page, puis grace a un bouton sur la form je change d'image!
Voila le code pour la modif:

dans l'ocx a la place de ton code de recherche d'image

    '------------------------------------------------------------------------
    'Aperçu de l affiche miniature
  
    Nb1 = InStr(1, CodeSrc, "acmedia/medias") 'point repere a tous
    nb2 = InStr(Nb1 - 100, CodeSrc, "http://")
    Nb1 = InStr(nb2, CodeSrc, Chr(34))
    UrlMini = Mid(CodeSrc, nb2, Nb1 - nb2)
    TablURL = Split(CodeSrc, "http://")
    NombreDePhoto = 0
    For i = 1 To UBound(TablURL)
        Nb1 = InStr(1, TablURL(i), Chr(34))
        TablURL(i) = Mid(TablURL(i), 1, Nb1 - 1)
        If LCase(Right(TablURL(i), 4)) = ".jpg" Then
            ReDim Preserve TablImageUrl(NombreDePhoto + 1)
            TablImageUrl(UBound(TablImageUrl)) = "http://" & TablURL(i)
            If NombreDePhoto = 0 Then
                TablImageUrl(0) = UrlMini
                FrmInfoAllocine.CmdAutreMiniature.Enabled = True
            End If
            NombreDePhoto = NombreDePhoto + 1
            FrmInfoAllocine.Label1.Caption = "Image 0/" & NombreDePhoto
        End If
    Next i
    'Affiche miniatures
    NumMiniature = 0
    Dim Tmp1() As Byte
    Erase Tmp1
     RaiseEvent Evenement("Téléchargement de la miniature")
    Tmp1() = Inet1.OpenURL(UrlMini, icByteArray)
    Do While Inet1.StillExecuting = True
    DoEvents
    Loop
  
    Open App.Path & "\tmp.jpg" For Binary Access Write As #1
    Put #1, , Tmp1()
    Close #1
    If UrlMini <> "" Then Set Miniature = LoadPicture(App.Path & "\tmp.jpg") Else Set Miniature = LoadPicture(Nothing)
    RaiseEvent Evenement("Téléchargement miniature Terminée")
    Kill App.Path & "\tmp.jpg"

toujour dans l'ocx j'ai rajouté la fonction:

Public Function AfficheAutreMiniature()
'Affiche miniatures
    If NumMiniature < NombreDePhoto Then
        NumMiniature = NumMiniature + 1
    Else
        NumMiniature = 0
    End If
        
    Dim Tmp1() As Byte
    Erase Tmp1
     RaiseEvent Evenement("Téléchargement de la miniature")
    Tmp1() = Inet1.OpenURL(TablImageUrl(NumMiniature), icByteArray)
    Do While Inet1.StillExecuting = True
    DoEvents
    Loop
  
    Open App.Path & "\tmp.jpg" For Binary Access Write As #1
    Put #1, , Tmp1()
    Close #1
    If UrlMini <> "" Then Set Miniature = LoadPicture(App.Path & "\tmp.jpg") Else Set Miniature = LoadPicture(Nothing)
    RaiseEvent Evenement("Téléchargement miniature Terminée")
    Kill App.Path & "\tmp.jpg"
    UrlMini = TablImageUrl(NumMiniature)
    FrmInfoAllocine.Image1.Picture = Miniature
    FrmInfoAllocine.Label1.Caption = "Image = " & NumMiniature & "/" & NombreDePhoto
End Function

sur la form j'ai rajouté un label: label1
et un bouton : CmdAutreMiniature

quand on appuis sur le bouton sa donne:

Private Sub CmdAutreMiniature_Click()
     Allocine1.AfficheAutreMiniature
End Sub

Le : 01/05/2006 12:35:24
Source : STARGATE ATLANTIS SIMULATION (SAS) HTTP://NIPROD.FREE.FR/PRJSAS.PHP
sinon tu peux toujour aller voir ce site(ok il est en allemand) http://www.scifi-games.com/include.php?path=content/overview.php&type=4

il y a tous les petit jeux sur stargate

voila voila

Le : 01/05/2006 12:10:44
Source : STARGATE ATLANTIS SIMULATION (SAS) HTTP://NIPROD.FREE.FR/PRJSAS.PHP
Je suis aussi fan de stargate et je pense qu'il te faut d'abord penser au but de ton logiciel car la il n'y en a aucun!
va voir sa : http://www.sgfp.spielenebel.de/ sa te donnera une petite idée de ce que tu peux faire! moi je peux peut être t'aider donc dit moi si je peux faire quelquechose pour toi!

Le : 30/12/2005 09:22:53
Source : XAMAX PLAYER V4 (WMP, BASE DE DONNÉES, X10NET.DLL ( TÉLÉCOMMANDE X10 REMOTE) )
Salut Rufian!
Désolé mais la place imposé par le site ne me permet pas de déposer la dll mais tu peux la trouver sur une autre source: http://www.vbfrance.com/code.aspx?id=31852

Pour la télécommande je l'ai eu avec ma carte télé, X10 est un standard de communication pour beaucoup de carte télé. si tu en recherche une tu peux toujours aller voir la: http://www.leguide.com/sb/leguide/recherche/str_MotCle/X10/1081300.htm
Mais à mon avis tu peux trouver mieu!

Bonne continuation à toi!

PS: Je suis en train de finir une mise à jour assez interressante:
Enregistrement de l'historique des films visionnés + recherche des infos sur allociné pour chaque film + quelques petites mises à jour de fonctionnalité comme les tags mp3

Le : 14/12/2005 12:28:34
Source : GESTION D'ENTREPRISE (CUISINOX PILIP)
Je ne sauve pas dutout l'humanité j'aide juste les petit comme moi à avencé!!!
Et je n'est pas du tout la prétention d'aitre pédagogue comme vous l'avez été!

et en ce qui concerne IUT de rodez et PILIP sa fait un peut de pub car grace à cette source j'ai eu des offres d'emploi! mais en dehor du forum! donc sa je tien à le gardé si sa peut vous aidez!

Maintenant si vous me demandez tout simplement de l'enlever je le ferai!

Quand à vautre Phrase " n'oubliez pas que les enseignants aussi font des recherches sur Internet !"
je pense que vous voulez dire "N'oubliez pas que les profs surveillent les élèves en classe et que c'est facile d'en choper un!"

Et j'avous que de programmé en même temps que faire les commentaires n'est pas mot fort! Mais je pense que le faire après à aussi ses aventage car on à une meilleure vu d'ensemble du projet et cela permé de bien voir les répétion qui peuvent devenir des fonction, et cela ma aussi permis de clarifier mon code car ce n'est pas toujours évident sur le moment!

Enfin, moi, je ne vous fais aucun reproche, bien au contraire, alors ne me déssandez pas!

désolé d'insister mais pourquoi ne voulez-vous pas répondre au passage à VB net?
A cause de la programmation objet peut être qui allourdiré le programme!


1 2 3 4


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


HTC Touch HD
Entre 25€ et 605€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto femme, plage, bien être, soleil, vacances, été, détente, repos
Photo femme, plage, bien être, soleil, vacances, été, détente, reposPhoto poire de lavement bleu

Visiter la photothèque


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
Temps d'éxécution de la page : 0,172 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é.