ボタン一発コンパイルは…条件付きで不可能では無いかと…
統合環境で bas とか sub とか加えると勝手にmakefileとかが作られますのでそれがmakefileがあれば
dosのmakeコマンドでコンパイル出来ます
例)実行ファイルがhogehoge.exeの場合
tmake.bat
set path=%path%;c:\fbasicv63\bin\
set lib=c:\fbasicv63\lib
set include=c:\fbasicv63\include
make hogehoge.exe
(確認していないから微妙に違うかもです。すいません)
で。BATファイルが出来ればそれをデスクトップなどにショートカットをおけば
それをダブルクリックするだけでコンパイルが可能は可能ですね
(エディタによってはメニューなどに組み込む事も可能だと思います)
F-BASICの統合環境でのコンパイルのボタンは F-BASIC内の make コマンドを
実行しているだけだと思います
で。makeコマンドを実行するのに一部必要な環境変数(pathやlibの位置など)を設定すればいいです
F-BASICの make.exe /? とかをすると何となく分かるかもです
>短期間の場合残業手当とか発生するもんでそういう話もするです
残業してると思わせたい時、F-BASICで作ったメールソフト利用したりしてます。
IF VAL(MID$(TIME$,1,2))=1 AND VAL(MID$(TIME$,4,2))=55 THEN GOSUB *SMAIL
このメール夜中2時だけどご苦労様...
でも最近ブロードバンドにして、上記ルーチンだと3・4回送ってしまう(笑
--------------------------------------------------
[MAIN.BAT]
:MAIN
ECHO ただいま、データを転送中です。しばらくお待ちください...
ECHO.
ECHO 通信許可確認中...
REM --------------------------------------------------
REM 本社からアップロードの禁止指示が出ているか
REM (本社がダウンロードを行う為にロックされている)
REM --------------------------------------------------
:LOOP1
CALL GETFTP.BAT( UPLOADLK.DAT )
IF NOT EXIST UPLOADLK.DAT GOTO LOOP1
REM --------------------------------------------------
REM 本社へダウンロードの禁止指示を出す
REM (FTPへアップロードする為にロックする)
REM --------------------------------------------------
CALL PUTFTP.BAT( DWLOADLK.DAT )
REM --------------------------------------------------
REM 再度、本社からアップロードの禁止指示が出ているか
REM (出ていれば始めからやりなおし)
REM --------------------------------------------------
CALL GETFTP.BAT( UPLOADLK.DAT )
IF EXIST UPLOADLK.DAT GOTO LOOP1
REM --------------------------------------------------
REM アップロード処理
REM --------------------------------------------------
ECHO 通信開始...
<・・・・省略・・・・>
ECHO 通信終了...
REM --------------------------------------------------
REM 本社へダウンロード禁止の解除を出す
REM --------------------------------------------------
CALL DELFTP.BAT( DWLOADLK.DAT )
TOKOさん
Microsoft Visual Studio 2005にインストールしていますパソコンでは
MAKは2005が優先するみたいなのでF-BASICのみインストールしています
パソコンでおこないました。それによりTOKOさんのMiniMiniSpyは
F-BASICで動かせる様になりました。ありごとうございました。
今回はVB6で考えています。VB6はあまり詳しくありませんがこれからVB6に
置き換えて挑戦してみます。
例:ここでは強制的に改行を入れています。
Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long,
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth
As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
(299文字)
は、
Declare Function Api_StretchBlt& Lib "gdi32" Alias "StretchBlt" (ByVal hDC&,
ByVal X&, ByVal Y&, ByVal nWidth&, ByVal nHeight&, ByVal hSrcDC&, ByVal xSrc&,
ByVal ySrc&, ByVal nSrcWidth&, ByVal nSrcHeight&, ByVal dwRop&)
(219文字)
'/// WAIT 100 = 1秒に1回 XCEND.FLGのファイルサイズが1レコード以上(1バイト以上)か確認する
XCENDFLG%=0
WHILE XCENDFLG%=0
WAIT 100
OPEN "XCEND.FLG" AS #1: REC=LOF(1): CLOSE #1
IF REC>0 THEN XCENDFLG%=1
WEND