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

gestion des process / parallélisation de procédures [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 07-03-2003 à 22:34:43    

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  :??:

Reply

Marsh Posté le 07-03-2003 à 22:34:43   

Reply

Marsh Posté le 07-03-2003 à 22:38:12    

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

Reply

Marsh Posté le 08-03-2003 à 00:01:24    

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

Reply

Marsh Posté le 08-03-2003 à 00:10:25    

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

Reply

Marsh Posté le 08-03-2003 à 00:52:28    

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]

Reply

Marsh Posté le 08-03-2003 à 10:05:46    

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

Reply

Marsh Posté le 08-03-2003 à 15:11:41    

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:

Reply

Marsh Posté le 08-03-2003 à 15:33:18    

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

Reply

Marsh Posté le 08-03-2003 à 16:22:48    

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.

Reply

Marsh Posté le 08-03-2003 à 16:44:40    

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
Reply

Marsh Posté le 08-03-2003 à 16:44:40   

Reply

Marsh Posté le 08-03-2003 à 16:58:52    

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

Reply

Marsh Posté le 08-03-2003 à 17:31:44    

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

Reply

Marsh Posté le 08-03-2003 à 20:17:53    

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)
Reply

Marsh Posté le 08-03-2003 à 20:22:06    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed