Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1325 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB] gestion des process / parallélisation de procédures

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB] gestion des process / parallélisation de procédures

n°326432
LightKyle
Posté le 07-03-2003 à 22:34:43  profilanswer
 

Bon un exemple tout con pour commencer
 

Code :
  1. Sub procedure2()
  2. Debug.Print "machin"
  3. End Sub
  5. Private Sub Command1_Click()
  6. Debug.Print "truc"
  7. Call procedure2
  8. Debug.Print "bidule"
  9. End Sub


 
Dans la pratike, kand on clike sur le bouton Command1, ça attake sa procédure associée, puis ça passe à procedure2, & une fois k'elle est finit, ça revient dans Command1_Click
Je voudrais ke ça m'execute Command1_Click en entier, et que quand ça passe sur l'appel de l'autre procédure, ça la lance en //
C possible en VB  :??:

mood
Publicité
Posté le 07-03-2003 à 22:34:43  profilanswer
 

n°326434
Kyle_Katar​n
Posté le 07-03-2003 à 22:38:12  profilanswer
 

Le multithreding marche mal en VB. C'est "possible" par les API mais d'une rare instabilité ...

n°326469
LightKyle
Posté le 08-03-2003 à 00:01:24  profilanswer
 

spossible d'avoir un ch'tit d'exemple de code avec du multithreading dedans  :??:

n°326478
Kyle_Katar​n
Posté le 08-03-2003 à 00:10:25  profilanswer
 

J'en ai vu trainer par endroit mais c'est purement inutilisable, sauf pour des cas hyper simples... et tant que tu n'essayes pas de fermer ton app / tuer le Thread principal ;-)
 
Sur planetsourcecode tu devrait trouver des sample

n°326513
LightKyle
Posté le 08-03-2003 à 00:52:28  profilanswer
 

tout ce ke j'ai vu, ça ressemble assez à du bricolage :/
bref pas compatible avec mon appli en cours ki elle devra tourner 24h/24 avec le moins de bugs possible évidemment :d
 
kel langage gère bien le multithreading ?
le C++ je supposes mais à chake fois ke j'en fais je me bats avec des bugs à la con ki sortent d'où sait pas où [:le kneu]

n°326559
Kyle_Katar​n
Posté le 08-03-2003 à 10:05:46  profilanswer
 

Le C++ fait du multithreading très propre.

n°326641
LightKyle
Posté le 08-03-2003 à 15:11:41  profilanswer
 

Pas d'autre langage en vue ? :cry:
 
Paske le C++ :cry:
Kand je vois k'il faut preske 200 lignes de codes en VC++ pour faire la même chose k'en VB en ~15lignes à tout casser, ça me :cry:

n°326652
antp
Super Administrateur
Champion des excuses bidons
Posté le 08-03-2003 à 15:33:18  profilanswer
 

emploie C++Builder alors, pour manipuler l'interface graphique c'est proche de VB
Ou Delphi si tu veux pas faire de C++

n°326671
Kyle_Katar​n
Posté le 08-03-2003 à 16:22:48  profilanswer
 

Je suis un grand défenseur du VB et je reconnais que pour prototyper un logiciel, c'est de loin de meilleur langage. De même pour certains petits projets.
 
Mais pour le multithreading, en plus d'utiliser un code très sale il est plus qu'instable à cause des grosses ruse que l'on est obligé d'employer... Alors qu'en VC++ en 2 lignes c'est fait proprement et d'une manière franchement super efficace.

n°326678
Taz
bisounours-codeur
Posté le 08-03-2003 à 16:44:40  profilanswer
 

y a python!
 
edit: beaucoup de gens font encore du VB à outrance sous windows alors que la majorité des taches qu'ils accomplissent sont réalisables plus simplement, et plus rapidement avec python


Message édité par Taz le 08-03-2003 à 16:45:24
mood
Publicité
Posté le 08-03-2003 à 16:44:40  profilanswer
 

n°326681
LightKyle
Posté le 08-03-2003 à 16:58:52  profilanswer
 

la réelle seule "exigence" ke j'ai, c k'on puisse utiliser l'agent microsoft dans ce langage [:spamafote]
(http://www.microsoft.com/msagent/)
c pour ça ke j'ai choisi le vb à la base, paske c en VB k'il est le simple à manipuler
 
exemple en vc++:
 

Code :
  1. #ifndef STRICT
  2. #define STRICT
  3. #endif
  6. //==========================================================================
  7. //
  8. //  THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY
  9. //  KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
  10. //  IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
  11. //  PURPOSE.
  12. //
  13. //  Copyright (C) 1997-1998 Microsoft Corporation.  All Rights Reserved.
  14. //
  15. //--------------------------------------------------------------------------
  16. //
  17. // This sample demonstrates the simplest Microsoft Agent application
  18. //
  19. //==========================================================================
  22. #include <windows.h>
  23. #include <tchar.h>
  24. #include "AgtSvr.h"
  25. #include "AgtSvr_i.c"
  28. static const LPWSTR kpwzCharacterOld = L"\\program files\\microsoft agent\\characters\\genie.acs";
  29. static const LPTSTR kpszAppTitle = _T("Microsoft Agent Samples" );
  32. extern "C" int PASCAL WinMain(HINSTANCE hInst,
  33.         HINSTANCE hInstPrev,
  34.         LPSTR lpCmdLine,
  35.         int nCmdShow) {
  37. HRESULT    hRes;
  38. _TCHAR    szError[256];
  39. VARIANT    vPath;
  40. BSTR    bszSpeak;
  41. long    lCharID;
  42. long    lRequestID;
  43. IAgentEx     *pAgentEx;
  44. IAgentCharacterEx  *pCharacterEx = NULL;
  46. // Initialize COM
  48.     if (FAILED(CoInitialize(NULL))) {
  49.  MessageBox(NULL,
  50.       _T("There was an error initializing COM." ),
  51.       kpszAppTitle,
  52.       MB_OK | MB_ICONERROR);
  53.         return -1;
  54. }
  56. // Create an instance of the Agent 2.0 server. NOTE: by
  57. // asking for an IAgentEx interface we know we will get
  58. // at least Agent 2.0. The CLSID also changed between
  59. // 1.5 and 2.0 so we know we won't get the 1.5 server.
  61. hRes = CoCreateInstance(CLSID_AgentServer,
  62.       NULL,
  63.       CLSCTX_SERVER,
  64.       IID_IAgentEx,
  65.       (LPVOID *)&pAgentEx);
  66. if (FAILED(hRes)) {
  68.  wsprintf(szError, _T("There was an error initializing Microsoft Agent, code = 0x%x" ), hRes);
  70.  MessageBox(NULL,
  71.       szError,
  72.       kpszAppTitle,
  73.       MB_OK | MB_ICONERROR | MB_TOPMOST);
  75.  CoUninitialize();
  77.  return -1;
  78. }
  80. __try {
  82.  // First try to load the default character
  84.  VariantInit(&vPath);
  85.  vPath.vt = VT_EMPTY;
  87.  hRes = pAgentEx->Load(vPath, &lCharID, &lRequestID);
  89.  if (FAILED(hRes)) {
  91.   // There's no default character. See if we can load the
  92.   // character from the directory used in most version 1.5
  93.   // applications.
  95.   vPath.vt = VT_BSTR;
  96.   vPath.bstrVal = SysAllocString(kpwzCharacterOld);
  98.   if (vPath.bstrVal == NULL) {
  99.    hRes = E_OUTOFMEMORY;
  100.    __leave;
  101.   }
  103.   hRes = pAgentEx->Load(vPath, &lCharID, &lRequestID);
  105.   // Did we successfully load a character?
  107.   if (FAILED(hRes))
  108.    __leave;
  109.  }
  111.  // Get the IAgentCharacterEx interface
  113.  hRes = pAgentEx->GetCharacterEx(lCharID, &pCharacterEx);
  115.  if (FAILED(hRes))
  116.   __leave;
  118.  // Set the language of the character
  120.  hRes = pCharacterEx->SetLanguageID(MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US));
  122.  if (FAILED(hRes))
  123.   __leave;
  125.  // Show the character.  The first parameter tells Microsoft
  126.  // Agent to show the character by playing an animation.
  128.  hRes = pCharacterEx->Show(FALSE, &lRequestID);
  130.  if (FAILED(hRes))
  131.   __leave;
  133.  // Make the character speak
  135.  bszSpeak = SysAllocString(L"Hello World!" );
  137.  hRes = pCharacterEx->Speak(bszSpeak, NULL, &lRequestID);
  139.  SysFreeString(bszSpeak);
  141.  if (FAILED(hRes))
  142.   __leave;
  144.  // This is a very simplistic sample.  Sleep for 10 seconds
  145.  // and then die.  
  147.  Sleep(10000);
  149. }
  150. __finally {
  152.  if (FAILED(hRes)) {
  154.   wsprintf(szError, _T("An error occurred in Microsoft Agent, code = 0x%x" ), hRes);
  156.   MessageBox(NULL,
  157.        szError,
  158.        kpszAppTitle,
  159.        MB_OK | MB_ICONERROR | MB_TOPMOST);
  160.  }
  161. }
  163. // Clean up
  165. if (pCharacterEx) {
  167.  // Release the character interface
  169.  pCharacterEx->Release();
  171.  // Unload the character.  NOTE:  releasing the character
  172.  // interface does NOT make the character go away.  You must
  173.  // call Unload.
  175.  pAgentEx->Unload(lCharID);
  176. }
  178. // Release the Agent
  180. pAgentEx->Release();
  182. VariantClear(&vPath);
  184. CoUninitialize();
  186. return 0;
  187. }


 
la même chose en VB (enfin là y'a une fonction en +) :
 

Code :
  1. Dim Genie As IAgentCtlCharacterEx
  2. Const DATAPATH = "genie.acs"
  5. Private Sub Form_Load()
  6.     Agent1.Characters.Load "Genie", DATAPATH
  7.     Set Genie = Agent1.Characters("Genie" )
  8.     Genie.LanguageID = &H409
  9.     TextBox.Text = "Hello World!"
  10. End Sub
  12. Private Sub Button_Click()
  13.     Genie.Show
  14.     Genie.Speak TextBox.Text
  15.     Genie.Hide
  16. End Sub

n°326685
antp
Super Administrateur
Champion des excuses bidons
Posté le 08-03-2003 à 17:31:44  profilanswer
 

en Delphi / C++Builder il doit y avoir des composants permettant d'utiliser ça aussi simplement

n°326737
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 08-03-2003 à 20:17:53  profilanswer
 

LightKyle > j'ai l'impression que tu veux le beurre, l'argent du beurre et la crémière en sus.
 
OK, avec VB tu "programmes" rapidement ! Mais tu es tributaire de la façon dont Microsoft a encapsulé l'API Win32 dans les instructions VB.
 
D'un autre coté, ce que tu gagnes en souplesse, tu le perds en puissance.
 
Ceci dit, ton cas n'est pas perdu. Si tu tiens absolument à VB, alors VB .NET est ton ami. Non seulement il est bien mieux foutu que VB6, mais en plus il te permet de gérer le multithreading de façon très propre (le framework .NET contient des classes dédiées à la gestion des threads).
En plus il est gratuit sur le site de Microsoft, et dispose d'un IDE gratuit aussi : SharpDevelop, très proche de Visual Studio .NET dans son ergonomie.
 
Mais, car il y a un mais, tu devras réapprendre totalement le langage : il n'a rien à voir avec VB6 (et tant mieux d'ailleurs).


---------------
J'ai un string dans l'array (Paris Hilton)
n°326738
LightKyle
Posté le 08-03-2003 à 20:22:06  profilanswer
 

bon je vais voir pour VB.net
faudra bien ke je m'y mette un jour au .NET de toutes manières [:spamafote]


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB] gestion des process / parallélisation de procédures

 

Sujets relatifs
Gestion TWAIN et TIFF[MouseListener] gestion trop précise...
outlook et les regles de gestion[PHP, MySQL] votre avis concernant la gestion des images
gestion des exceptions dans les classes en cppGestion de fichiers joints dans un formulaire ?????
Directx 8 (gestion générale sur le principe des moteurs 3d)Quel outil de gestion de sources utilisez-vous ?
[DOS] Gestion des accentsGestion de liste sous access
Plus de sujets relatifs à : [VB] gestion des process / parallélisation de procédures

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.111 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR