dotNETportal.cz

Zdravim, ve Visual Basicu už nějakou dobu dělám, ale pořád se považuju za začátečníka. Nyní jsem narazil na určitý problém se kterým nemůžu už pěkných pár dní pohnout. VE VB jsem vytvořil skript pomocí kterého ovládám určitý software program (výpočtářský). Z tohoto softwaru vyexportuji výpočtový model, který je nutné načíst do jiného výpočtového softwaru. Po jeho načtení se spustí výpočet, který trvá mezi 10 sekundami a klidně 5 hodinami-dle náročnosti. Po dokončení výpočtu se výsledky načitají zpět do programu ze kterého byly vyexportovány. To je vše. Problém mám s tím, že jak ten můj skript běží pořád dál, tak jaksi nepočká až ta analýza skončí a žádné výsledky nenačte. Přikládám můj kód. Kdyby mi někdo poradil, budu opravdu vděčný.

Option Explicit
Sub SpusteniVypoctu()

    Dim femap As Object
    Set femap = GetObject(, "femap.model")
    Dim anal As Object
    Dim analID As Long
    Dim name As String
    Dim rc As Long
    Set anal = femap.feAnalysisMgr
    Dim Degradace As String
    Dim i As Long
    Dim Runanal As Long
    Dim cmdline As String
       
    anal.Title = "Static Analysis"
    anal.Solver = 31
    anal.AnalysisType = 1
    anal.BCSet(0) = 1
    anal.BCSet(2) = 1
    anal.output(0) = -1
    anal.output(1) = -1
    anal.output(2) = -1
    anal.output(8) = -1
    anal.output(15) = -1
    anal.output(16) = -1
    anal.CornerOutput = -1
    analID = 3
    anal.Put (analID)
 ' '''Až sem to mám zmáknutý '''     
    
    rc = femap.feFileWriteNastran(1, "Degradace.nas")   ''''Vyexportuje z prvního softu soubor Degradace.nas'''
    
    cmdline = "C:\Program Files\NEiNastran Engine V100\Editor\Editor.exe C:\Users\Michal\Desktop\Export_Import\Degradace.nas"
    Runanal = Shell(cmdline, 0)
 ' Pomocí Shell otevřu soubor ve druhém softu (pro druhý soft se 'soubor chová jako exesoubor a poté to počítá)   
    
    rc = femap.feFileReadNeutral3(0, "Degradace.FNO", False, False, True, False, False, False, 0, False, False, True)
 ' A Načtu zpět do prvního softu - nenačtu nic, protože není spočteno
       
   rc = femap.feAppUpdatePanes(True)

    
End Sub

Díky moc

Kdysi jsem si stáhnul tento příklad:

Option Explicit

Private Declare Function WaitForSingleObject Lib "kernel32" _

(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _

(ByVal hObject As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" _

(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _

ByVal dwProcessId As Long) As Long

Private Const INFINITE = -1

Private Const SYNCHRONIZE = &H100000

Private Sub Command1_Click()

Dim iTask As Long, ret As Long, pHandle As Long

iTask = Shell("notepad", vbNormalFocus)

Rem Shell "mplayer.exe /play c:\media\film\urednik.mpe", vbNormalFocus

pHandle = OpenProcess(SYNCHRONIZE, False, iTask)

ret = WaitForSingleObject(pHandle, INFINITE)

ret = CloseHandle(pHandle)

MsgBox "Process Finished!"

End Sub

Luboš

Ahoj, tohle jsem také stahoval, ale nějak mi to nefungovalo. Sice se opozdil, ale nepočkal na úplné ukončení výpočtu, pouze na jeho rozběhnutí - dle mého názoru.

Nakonec jsem to vyřešil trochu jinak. Po definovaném čase kontroluje, jestli jsou již k dispozici výsledky výpočtu. Pokud nejsou opět čeká. Jakmile to budu mít celé hotové a ověřené, tak sem ten kód vložím.

Nyní mám ale ještě jeden dotaz. Nevěděl by náhodou někdo, jak ukončit procesy spuštěné pomocí Shell? Pokud tu analýzu spustím několikrát, tak mi úplně zaseká procesor...?