| 目的
1） STAN起動
2） データ読込
3） 解析
4） 出力
5） VB結果読込計算
6） STANデータ部分修正
7） 3）に戻り7）まで行う
1）2）は手動でも問題ない
3）-7）の自動化
-------------------------------------------------------------
下記で計算したところ、解析自体は作動しているよう。ただデータを取り込んでないのでは？
あくまでも回数検討しシミュレーションで確認するしかない。
ただ手動ではデータは取込んでいる。計算時にデータの認識をしていないよう
データの取り込みはソフト会社より教えてもらえない。
注）通常はソフトの操作方法と基準法に関するプログラム上の処理以外はソフト会社は答えない。
これ以上ソフト会社に聞いても企業上の秘密で「分かりませんが回答」なとなる。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Shell 関数を使ってファイルを読み込んだ状態で他のアプリケーションを起動する
'Dim procID As Integer
Dim procID As Integer
procID = Microsoft.VisualBasic.Interaction.Shell( _
"C:\Program Files\KKE\STAN-V95\s3dr9.exe C:\Users\市川 昇\Documents\KKE\STAN-V9\Stan3d.ini", AppWinStyle.NormalFocus) '計算実行曲げがでない
' "C:\Program Files\KKE\STAN-V95\STAN-V9.exe C:\Users\市川 昇\Documents\KKE\STAN-V9\SAMPLE\EX-003", AppWinStyle.NormalFocus)
' "C:\Program Files\KKE\STAN-V95\STAN-V9.exe C:\Users\市川 昇\Documents\KKE\STAN-V9\Stan3dio.ini", AppWinStyle.NormalFocus)
' "C:\Program Files\KKE\STAN-V95\STAN-V9.exe C:\Users\市川 昇\Documents\KKE\STAN-V9\Stan3dio.ini C:\Users\市川 昇\Documents\KKE\STAN-V9\SAMPLE\EX-003", AppWinStyle.NormalFocus)
' "C:\Program Files\KKE\STAN-V95\STAN-V9.EXE C:\SAMPLE\EX-003.dat", AppWinStyle.NormalFocus)
' "C:\Program Files\KKE\STAN-V95\STAN-V9.EXE)
' CreateObject("WScript.Shell").Run C:\SAMPLE\EX-003.dat"
'-------------------------------------------------------------------------------------
'① 入力部及び結果出力部の実行ファイルは、
' C:\Program Files\KKE\STAN-V95\STAN-V9.exe になります。
'② 同実行ファイルは、
' C:\Users\XXX\Documents\KKE\STAN-V9\Stan3dio.ini
' の内容を設定ファイルとしていますが、ここに立ち上げる
' ファイルの名称はありません。
'③ 解析部の実行ファイルは、
' C:\Program Files\KKE\STAN-V95\s3dr9.exe になります。
'④ 同実行ファイルは、
' C:\Users\XXX\Documents\KKE\STAN-V9\Stan3d.ini
'-------------------------------------------------------------------------------------
' "C:\Program Files\KKE\STAN-V95\STAN-V9.EXE C:\SAMPLE\EX-003.dat", AppWinStyle.NormalFocus)
' "NotePad.exe C:\TESTA\印刷.TXT", AppWinStyle.NormalFocus)
' "NotePad.exe C:\Program Files\STAN-V8\SAMPLE\EX-003.dat", AppWinStyle.NormalFocus)
' strPass = "C:\Program Files\STAN-V8\STAN-V8.EXE C:\Program Files\STAN-V8\SAMPLE\EX-E003.dat " '---A
' "C:\Program Files\HIDEMARU\HIDEMARU.EXE C:\TESTA\印刷.TXT", AppWinStyle.NormalFocus)
' strPass = "C:\Program Files\HIDEMARU\HIDEMARU.EXE" '---A
End Sub |