Profil de thejell1 - CodeS SourceS

liaison RS232 et PICBASIC

Bonjour Electronicien et pas du tout informaticien, je recherche une aide pour mon problème : comment programmer en VB6 une liaison RS232 sur mon PC, afin de recevoir/envoyer des données de/vers un microcontroleur PICBASIC 3B de chez Comfile Technology (signal émis/reçu par le Picbasic : 8 bits, 1 bit de Stop, sans bit de parité). Merc... Lire la suite

Bonjour, voilà comment j'aurais fait: Commence par ajouter le composant MS Comm Control 6.0 à ton projet. Ensuite, ajoute un control MS Comm sur la form désirée Dans la propriété "Settings" du control MS Comm ajouté, tape 9600,n,8,1 (pour un baudrate de 9600, pas de parity bit, 8 bits de données, 1 stop bit) Ne pas oublier de pré...

la fontion replace

bonjour; serai t il possible de corriger ce code ce ke j veu faire c la fonction QQUOTTE pour controller kke caractere et les remplacer et apres je fait un appel le probleme c kil prend ke la premiere condition en compte voila le code (j'ai jamais utilsé la fontion replace ) Private Function QQuoteSQL(str As String) As ... Lire la suite

"Et la prochaine fois, évite le langage SMS stp !" qu'il a dit.

créer le HELP

salut les amis , SVP je veux créer un fichier help pour une application, comment faire? merci de m'aider

Excellent, je connaissais pas. En effet, simple d'utilisation, il fait pour l'instant tout ce qui m'intéresse.

quitter une application Résolu

salut a tous j utilise vb6 avec excel, (pas vba) et mon petit souci est que lorsque je quitte mon application par la croix (situé en haut a droite"windows") ou lors d'un bug , mon fichier excel reste ouvert (dans le gestionnaire des tâches je retrouve EXCEL.EXE) mais lorsque je quitte par le bouton quitter ca fonctionne parfaitement ... Lire la suite

Est-ce que tu fermes bien Excel à un moment donné? '----------------Fermeture de l'application Excel--------------------- Public Sub FermerExcel() On Error GoTo FermerExcel_Error If Not (appExcel Is Nothing) Then 'appExel ne s'appelle pas forcement comme ca chez toi! appExcel.Quit End If ...

Oups en fait tu DOIS pas le mettre partout Le mieux: - dans ta frm principale: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim frm As Form 'Fermer excel 'Pour s'assurer que toutes les autres formes sont bien fermées For Each frm In Forms Unload frm Set frm = Nothing Ne...

Probablement tu n'as pas défini de fonction Form_Unload. Par exemple Private Sub Form_Unload(Cancel As Integer) Dim frm As Form 'Fermer excel For Each frm In Forms Unload frm Set frm = Nothing Next End Sub

'Si tu fermes une fenetre avec la petite croix, le code suivant l'interceptera Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormControlMenu Then Form_Unload (Cancel) End If End Sub

Création de listbox automatique dans un formulaire

Bonjour, Je voulais savoir s'il était possible de créer à la volée des listbox en fonction d'un paramètre entré par l'utilisateur, j'ai fait des recherches à ce sujet sur le forum malheureusement, je n'ai pas trouvé mon bonheur.... Je m'explique, par exemple, sur le Form1, l'utilisateur entre un nombre de pommes (ici 5) ... Lire la suite

Par exemple, crée une ListBox lstMaListe dans ta form2, et donne lui un l'indice 0 Ensuite, dans ta fomction form2_load, tu peux ajouter: dim i as integer for i = 1 to NombreDeListBoxes-1 load lstMaListe(i) next Les nombre infinis, sinon, ca n'existe pas avec VB. Tu dois imposer des limites! Imagine toi travailler avec 10000...

Impossible d'ajouter des références

Bonjour, je voulais commencer un nouveau projet, mais je ne peux plus ajouter de références. L'option ne s'affiche plus lorsque je clique sur le menu Projet. De même, l'option composants ne s'affiche plus non plus, mais il reste Ctrl+T. Par contre, pas de raccourci vers références. Y'a-t-il moyen de pouvoir afficher de nouvea... Lire la suite

Je pensais essayer quelque chose de moins brutal pour commencer. Bon, pour les références, j'ai trouvé un truc. J'ouvre le gestionnaire d'objets, et je clique droit. Mais bon, c'est quand même étrange ces menus qui ont disparu.

J'utilise VB6

modifier un objet, mais pas sa copie

Bonjour, mon problème est le suivant. J'ai un objet , que je modifie au cours du programme. Je veux ensuite comparer l'objet modifié à l'objet original. je fais quelque chose du genre: Set mObjet = Objet Set mObjetCopy = Objet mObjet = Modifier mObjet Comparer mObjet, mObjetCopy Mais le probleme est que, quand ... Lire la suite

Ben en fait j'ai un objet qui a une propriete InputImage. Ce que je fais c'est: Set mObjet = Objet Set mObjetCopy = Objet set mObjet.InputImage = mImage 'image au format bitmap Ainsi, je peux comparer l'image de mObjetCopy et la nouvelle image de mObjet. Donc y'a pas vraiment de byVal ou byRed, ou alors je vois pas ou

comment dessiner des onglets?

Je voudrais réaliser une IHM avec des onglets, seulement, je ne sais pas quoi faire pour qu'ils apparaissent dans ma barre d'outils... Merci de m'aider!

dans projet->composants (ou CTRL+T je crois), tu as une liste avec des composants que tu peux ajouter. La, tu peux choisir Microsoft Tabbed Dialog Control, qui te permettra d'utiliser le controle SSTab. Sinon, y'a Microsoft Common Controls 6.0, qui donne acces au composant TabStrip. Avec ca, tu pourra ajouter des onglets a ton IHM

Declarer une variable

Bonjour, Je cherche a declarer une variable, dont je ne connais pas a priori le type. Cela peut etre un entier, un string... Mais je ne veux pas utiliser de Variant En fait, le type de la variable est stocké sous forme de string. (strType = "Integer"), et je voudrais ecrire quelque chose du genre dim maVariable as strType.... Lire la suite

Il me reste aussi object, mais bon je crois que je vais chercher autrement, ca me mene nulle part tout ca.

Oui, sauf que je veux pas faire 50 cases! c'est pas joli, et c'est trop long.

mouai, en fait j'ai ecrit string ou entier comme exemple, mais c'est des objets que j'utilise. ca peut etre des rectangles, des cercles, ou encore d'autres objets plus complexes. et je connais juste le type de l'objet pendant l'execution du programme. je pourrais au pire tester le type, mais j'aurais plusieurs dixaines de tests a fair...

problemes de checksum

Bonjour a tous: J' ai un texte de 14 caracteres alfanumeriques auquel je dois joindre un checksum de 2 carateres (de 00 a FF). Je ne sais pas comment calculer de cheksum. Quelqu'un peut-il m'aider? Merçi d'avance. YuriF

euh il me semble que 53 = 3 modulo 10, non?

URGENT!!!

j'ouvre un fichier avec Open fichier_polygone For Input As #2 j'aimerai détecter s'il y a eu une erreur lors de l'ouverture afin de la traiter. Commant faire???? Merci!!

oups c'etait deja repondu ailleurs. dsl

public sub ... on error GoTo traiter_erreur open fichier_polygone for input as #2 exit sub traiter_erreur: 'msgbox err.description 'traiter l'erreur! end sub 'si une erreur arrive a l'ouverture, elle sera automatiquement detectee