Devenir membre club
Connectez vous
Aide & règlement
Votre 1ère visite
Le règlement
Contacter les admins
Contacter le webmaster
Questions & réponses
Comment soutenir CodeS-SourceS
Comment faire un lien vers CodeS-SourceS
Autres questions
A propos & don
A propos du réseau
Les modérateurs
Remerciements
Faire un don
Le livre d'or
Tous les livres
Les dernières parutions
Les plus consultés
Les critiques
Le top des ventes
Le top favoris des membres
Recevoir des livres blancs
Tous les thèmes
Les derniers messages
Les nouveaux messages
Poser une question
Le Chat - IRC
Tous les tutoriels
Ajouter un tutoriel
Les tutoriels en vidéo
Les formations vidéos
Tous les codes
Ajouter un code
Filtrer par catégorie
Filtrer par date
Les plus récents
Les mis à jour
Les codes par jour
Filtrer par niveau
Niveau débutant
Niveau initié
Niveau expert
Filtrer par type
Les codes avec capture
Les codes avec zip
Les codes .Net
Filtrer par qualité
Les plus populaires
Les plus populaires du mois
Les plus téléchargés
Les mieux notés
Top par catégorie
Top des favoris
Filtrer par auteur
Tous les auteurs
Le top des membres
Les snippets
Déposer votre CV
Consulter les offres d'emploi ou de stage
Consulter les CVs
Déposer une offre d'emploi ou de stage
Modèles de CV et lettres
Trouver une convention collective
Les écoles d'informatique
Toutes les écoles
Ajouter une école
Les outils
Outils pour développeurs
Trouver des ressources
Base de données de CodeS-SourceS
Télécharger les meilleurs logiciels
Comparer les prix
Envoyer des ecards
Création de bannières
Annuaire de la prog
Tous les sites
Ajouter votre site
Le dico de la prog
Toutes les définitions
Ajouter une définition
Les évènements
Tous les évènements
Les évènements à venir
Ajouter un évènement
Téléchargements
CodeS-SourceS Toolbox
CodeS-SourceS Toolbar
Toolbar pour FireFox
Fonds d'écran
Les compil's
Nos partenaires
Magazine Programmez
Frontier.fr
Xiti
ProgOnline
Winwise
Editions Eyrolles
Toute la liste
Les RFC
CS
VB, VB.NET
ASP.NET,ASP
C, C++
ColdFusion
PHP
Javascript
Delphi
Flash
Java
Graphisme
Irc
Assembleur
C#
Mobilité
SQL
Foxpro
Python
Regex
Flex
Windev
Ce site au démarrage
begin process at 2012 02 12 16:48:22
Accueil
Codes
Tutoriels
Forum
Livres
Emploi
Services
Connexion
Trouver un code source :
dans
Tout le site
Codes
Tutoriels
Forum
Blogs
Livres
RFC
Icones
News .NET
Boutique
[ Dernières recherches ]
Veuillez saisir votre recherche... Ex: smtp, lire un fichier, rs232
Options de recherche :
Tous les codes
Tous les codes en .Net
Tous les codes sauf .Net
Langages disponibles :
Tous les langages
ASP / ASP.NET
Assembleur
C / C++ / C++.NET
C# / C#.NET
ColdFusion
Delphi
Flash
Flex, Air, ActionScript
Foxpro
Graphisme
IRC
JAVA / J2EE
Javascript / Ajax / DHTML
PDA / PocketPC
PHP
Python
Regex, Regular Expression, Expression régulière
SQL
Visual Basic, VB6, VB.NET, VB 2005, VB
8 commentaire(s) de keke4483
sur des sources sur tout
CodeS-SourceS
Déposé sur
Deviner le mot ;; un jeu avec trois niveaux "facile // moyen ...
Bonjour à tous,
pour essayer de résoudre ton problème, il faut te dire que la fonction split("texte",argument) permet de transferer une chaine de caractere en un table de string. Le principe est le suivant la chaine est scanner et à chaque fois que le caractère argument est trouvé le morceaux du mot scanner auparavant est transmis dans une colonne de tableau.
Ex :
Dim strTableauMot() as string
mot = "Je fais un test"
strTableauMot = Split(mot," ")
'alors le tableau de string strTableauMot contiendra les 'infos suivantes :
'strTableauMot (0) <=> "Je"
'strTableauMot (1) <=> "fais"
'strTableauMot (2) <=> "un"
'strTableauMot (3) <=> "test"
Donc ce que je te suggère de faire est une boucle :
Private function Split() as string()
Dim intBoucle as integer
Dim tMots() as string
redim tMots(0)
For intBoucle = 1 to len(mot)
if Mid(mot,intBoucle,1) = vbCrLf) then
redim preserve tMots(ubound(tMots)+1)
else
tMots(ubound(tMots))=Mid(mot,intBoucle,1)
end if
next intBoucle
split=tMots
end function
Bon voila je sais pas si ca marche mais la logique c'est a peux près ca, le mieux c meme de passer en parametre le mot et son argument, mais comme g plus VB6 j'ai pas pu tester, désolé.
Je suis pas sur que le code marche directe apres un copier coller dans votre source, n'hésitez pas a poster vos correction.
@++
Posté le :
11/12/2004 14:37:34
Déposé sur
Redimensionnement de control
Pour tout vous dire je ne pensais pas ouvrir, par l'intermédiaire de cette source, un débat sur les languages de programmation. Mais bon, comme dis si bien notre collègue Scalpweb :"Chacun ses gouts c'est tout", l'essentiel c'est d'être animé de la même passion ;)
Posté le :
13/11/2004 01:45:08
Déposé sur
Gestion des stagiaires
Salut j'ai observé ton code, et j'ai quelques obrservations.
Attention tout ce que je dis ci-dessous n'est pas fait pour critiquer ta méthode de programmation
mais pour te proposer d'autre solution qui sur le moment m'ony semblées plus efficace.
- La première remarque concerne les différents control que tu as placé :
Presque aucun des contrôles présent sur tes feuilles n'ont été renommé, rien ne vaut un bon NAME parlant, l'habitude veut
qu'ils soient préfixé de trois lettres et qu'ils aient un nom parlant.
Exemple pour un CommandButton : cmdValider, une Textbox : txtNom ...
Actuellement rien ne me dis que le Command4 est le bouton Modifier, alors que cmdModifier est très parlant.
- J'ai vu que dans ton module tu as créé une fonction pour faire ta connexion à ta BDD, excellent. Mais si la base est défectueuse
tu ne sais pas d'ou viens le problème l'appli se ferme violemment. Une gestion d'erreur aurait été nécessaire :
Tu transforme ta sub en function booléenne
"Public function connectionbd() as boolean
connectionbd = false
On error goto GESTIONERROR
connection.Provider = "microsoft.jet.oledb.4.0;"
connection.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\" & "mlr1.mdb;"
commande.ActiveConnection = connection
record.CursorLocation = adUseClient
record.CursorType = adOpenDynamic
record.LockType = adLockOptimistic
connectionbd = true
exit function
GESTIONERROR:
connectionbd = false
MsgBox Err.Description
End Sub"
Et la tu sais si ta connexion s'est bien passée. Nhésite pas aussi à faire une fonction de déconnexion.
Parce que avec Acces par exemple si ton appli se faire violemment, il est possible que ta base reste ouvert, et là
c'est terminé ta base est morte.
- Dans le load de ta fenetre principale, tu écris Module1.connectionbd. L'extension Module1 n'est pas nécessaire
Pour la suite j'ai parcouru les fenetres les une apres les autres.
"ajouter" --> personnellement je préfère mettre frmAjouter
- Ici "ajouter.Command2.Caption" ajouter est inutile car tu es déjà dans "ajouter"
- Dans la sub "Command2_Click", le problème de renommage de control est très visible : a quoi correspond tel TextBox ?
- Pour l'insertion de données l'update de record n'est pas conseillé, mieux vaut un bon INSERT SQL.
commande.CommandText = "INSERT INTO stagiaire (NOMSTAGIAIRE, PRENOMSTAGIAIRE,....) VALUES ('TOTO','TATA',....)"
- De plus apparamment tu sais que tel TextBox sert pour tel requete alors fais des contrôles indexés pour ainsi faire des
boucles :
for i = 1 to 16
txtSalarie(i) = Record.Fields(i)
next i
-Pour finir sur la form "ajouter", n'hésite pas à encadrer tes insertions par une transaction (ca évite de mettre en l'air
ta base quand seulement la moitié des actions se font suite à une erreur).
"infoetab", "infomaitre", "infostagiaire"
- Ne charge pas les informations à partir de la fenêtre appelante, crée des sub de chargement dans chaque fenetre, et passe
l'identifiant de la personne traité par le module "Public intIdentPersonne as integer"
"main"
- La première chose que j'ai fais, c'est de saisir du texte dans la combo et de cliquer sur Modifier....
Plantage, il faudra rajouter un petit control sur la validité de la saisie ou tout simplement l'empeché.
- J'ai remarqué aussi que tu faisais des "select * from ..." évite, précise les champs ramenés, parce que si tu rajoutes
le champs PSEUDOSALARIE dans ta table entre le nom et le prenom, tout tes "select" deviennent bancales.
- L'appel de ta fenetre "ajouter" n'est pas modal je peux donc ouvrir deux fenêtres de modification en même temps.
Voila j'en ai terminé pour les solutions possibles.
Je te souhaite une bonne continuation et bonne prog.
Posté le :
10/11/2004 21:14:02
Déposé sur
Ma cam to jpg : capture de webcam et sauvegarde au format jpg.
"Est t'il possible de gerer plusieurs webcams avec l'api intel? "
L'API Intel ne sert pas pour gerer la webcam mais pour faire la conversion en JPG, la webcam est gerer par un transfert d'image dans le presse papier.
"Quels sont les avantages d'utiliser cet api?"
Tout dépend de ce que tu faire avec tes JPG.
La conversion par API est apparemment plus rapide mais propose un taux de compression inférieur, à l'inverse la class que notre collègue programmeur jack nous a proposé :
"Ca peut toujours être interessant
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=50065&lngWId=1"
est apparemment moins rapide pour faire la conversion mais propose un meilleur taux.
Pour la gestion multi cam, il faut réussir à récupérer dans le presse papier l'image de l'une puis de l'autre.
Voila j'espere avoir repondu aux questions.
Bonne prog.
Posté le :
09/11/2004 17:57:02
Déposé sur
Ma cam to jpg : capture de webcam et sauvegarde au format jpg.
"Est t'il possible de gerer plusieurs webcams avec l'api intel? "
L'API Intel ne sert pas pour gerer la webcam mais pour faire la conversion en JPG, la webcam est gerer par un transfert d'image dans le presse papier.
"Quels sont les avantages d'utiliser cet api?"
Tout dépend de ce que tu faire avec tes JPG.
La conversion par API est apparemment plus rapide mais propose un taux de compression inférieur, à l'inverse la class que notre collègue programmeur jack nous a proposé :
"Ca peut toujours être interessant
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=50065&lngWId=1"
est apparemment moins rapide pour faire la conversion mais propose un meilleur taux.
Pour la gestion multi cam, il faut réussir à récupérer dans le presse papier l'image de l'une puis de l'autre.
Voila j'espere avoir repondu aux questions.
Bonne prog.
Posté le :
09/11/2004 17:56:57
Déposé sur
Ma cam to jpg : capture de webcam et sauvegarde au format jpg.
Voila une nouvelle mis a jour
Maintenant, un nouvel élément de comparaison est disponible : le temps de traitement.
A bientot surement
Posté le :
07/11/2004 20:05:12
Déposé sur
Ma cam to jpg : capture de webcam et sauvegarde au format jpg.
"Dans un cas comme dans l'autre, pourrais-tu nous tenir au courant de tes essais et conclusions ?"
Voila, je ne répondrais pas volontairement à cette question (du moins pas directement). J'ai rajouté un petit module de comparaison entre les deux méthodes, ainsi vous pourrez vous même juger les cotés positifs et négatifs de chaque méthode (notez que le taux de compression et la qualité d'image ne sont pas les seuls éléments à prendre ne compte...).
Je ne voulais pas vous imposer une conclusion (la mienne) qui ne va peut être pas dans le sens de ce que vous recherchez, je vous laisse la liberté de juger par vous même.
Bonne prog à tous.
Posté le :
07/11/2004 17:00:09
Déposé sur
Ma cam to jpg : capture de webcam et sauvegarde au format jpg.
Salut jack,
C'est fait la slidebar est mise en place.
J'ai été voir le lien que tu a déposé et la source à l'air vraiment pas mal.
Avant de la mettre en place je vais quand même vérifier qu'elle donne d'aussi bon résultat que l'API INTEL. Si elle mieux c'est clair que je l'utiliserais
Posté le :
06/11/2004 13:11:57
1
Nos sponsors
Derniers Blogs
SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS
SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS
par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article
par Groc
[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES
[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES
par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article
par gpommier
[SHAREPOINT] LES SESSIONS TECHDAYS 2012.
[SHAREPOINT] LES SESSIONS TECHDAYS 2012.
par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article
par Patrick Guimonet
TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3
TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3
par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article
par ROMELARD Fabrice
MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !
MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !
par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article
par Vko
La suite
RSS
Côté IT
Utiliser Office 365 pour un projet d?équipe - PART 2
Utiliser Office 365 pour un projet d?équipe - PART 1
SharePoint 2007 : Installation du Service Pack 3 de MOSS
SharePoint 2007 : Installation du Service Pack 3 de WSS V3
Installation de SQL Server DENALI CTP3
Mise à jour de Windows 2003 R2 vers Windows 2008 R2
Upgrade de SQL Server 2005 vers SQL Server 2008 R2
La suite
RSS
Offres d'emploi
Recherche Recherche développeur web ASP et ASP.Net
Recherche Analyste Programmeur Adélia
Recherche Développeur eZ Publish confirmé
Recherche AP (H/F) ACCESS EXCEL VBA
Recherche SUPPORT INFORMATIQUE / DEVELOPPEUR
Recherche Developpeur web
Recherche développeur Web
Déposer une offre
La suite
RSS
Formations Video
Coffret : Ateliers sur la mode
Atelier sur la mode : Motifs et matières
Atelier sur la mode : La planche tendance
Atelier sur la mode : De retour de pige et repérage
Corel Painter 12 : Les fondamentaux
Coffret : Microsoft Office 2010 de A à Z
De Microsoft Office 2003 à 2007 et 2010
La suite
RSS
Appels d'offres
Passerelle Pericles sur site Joomla 17
Budget :
499€
Infogerance Serveur Debian Linux
Budget :
2 400€
Developpeur applications iphone - ipad - android
Budget :
800€
La suite
RSS
Logiciels
Tribler (2012)
TRIBLER (2012)
Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...
Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)
Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...
Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...
Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)
Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...
Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)
Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...
Cliquez pour télécharger Easy-Planning
+ de logiciels à télécharger
Vidéos drôles
Halloween Party
Terry Tate Office Linebacker Superbowl 2003
Jeu vidéo instructif
C'est un véritable vol !
Banana Song
Comment attraper la grippe A
Parodie Pub Window 7
La suite
RSS
Sondage...
Votre navigateur n'utilise pas le javascript, pour
voter aux sondages de ce site, cliquez ici
Statistiques
1 873 833
membres
115
nouveaux aujourd'hui
16 151
membres club
Comparez les prix
Acer Liquid (noir) (XP.H480Q.013)
Entre 300€ et 346€
Visiter le guide achat
CalendriCode
Février
2012
L
M
M
J
V
S
D
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Consulter la suite du CalendriCode
Photothèque
Visiter la photothèque
CS Tool Box