2006.09.19 Tuesday | 08:58

2006.09.19 Tuesday | 08:33

ver 2006/09/22
1) Batch Helper 最新版をコピー
2) テキストファイル内の文字列検索をメニューから実行可能に
3) Option 設定ファイル

ver 2006/09/14
1) MySQL で VIEW 作成ボタンを有効に変更
2) MySQL5 に対応したメニューを追加
3) 既存メニューの更新
4) PostgreSQL : カラム情報メニューを追加

lightbox Category: ふるいむかし

2006.09.15 Friday | 16:30

【Easy Game】 Script バージョンふるいむかし

COM コンポーネント( セットアップ用スクリプト同梱 )
【2006/09/15 バージョン】

<JOB>
<OBJECT id="Dx" progid="DxlibWrap.Game" />
<OBJECT id="WshShell" progid="WScript.Shell" />
<REFERENCE object="DxlibWrap.Game" />

<SCRIPT language="VBScript" src="Game.vbs"></SCRIPT>
<SCRIPT language=VBScript>

	strCurDir = WScript.ScriptFullName
	strCurDir = Replace( strCurDir, WScript.ScriptName, "" )

	Dx.WindowMode

	If Dx.Init = -1 Then
		Wscript.Quit
	End If

	Set MyGame = new Game
	Call MyGame(320,340,strCurDir & "\play.bmp")

' **********************************************************
' メインループ( クラス内より呼ばれる )
' **********************************************************
Function MainLoop()

		If Dx.CheckHitKey(KEY_INPUT_LEFT) = 1 Then
			MyGame.x = MyGame.x - 3
		End If
		If Dx.CheckHitKey(KEY_INPUT_RIGHT) = 1 Then
			MyGame.x = MyGame.x + 3
		End If

		' 描画
		MyGame.DrawPlay

End Function 

</SCRIPT>
</JOB>

外部ファイル(クラス)

Class Game 

	Public x,y,Handle

	Public Default Function InitSetting(px,py,strPath)

		Handle = Dx.LoadGraph( strPath )
		x = px : y = py

		Dx.SetDrawScreen (DX_SCREEN_BACK)

		Do
			' クリア
			Dx.ClearDrawScreen

			on error resume next
			Call MainLoop()
			on error goto 0

			' 裏画面の内容を表画面に反映させる
			Dx.ScreenFlip

			' Windows システムからくる情報を処理する
			If Dx.ProcessMessage = -1 Then
				Exit Do
			End If

			If Dx.CheckHitKey(KEY_INPUT_ESCAPE) = 1 Then
				Exit Do
			End If
		
		Loop

		Dx.End

	End function

	Function DrawPlay()

		Call Dx.DrawGraph( x, y, Handle, 1 )

	End Function

End Class

現時点実装メソッド
[id(1), helpstring("ﾒｿｯﾄﾞ Init")] HRESULT Init([out,retval] int *pVal);
[id(2), helpstring("ﾒｿｯﾄﾞ DxLib_End")] HRESULT End([out,retval] int *pVal);
[id(3), helpstring("ﾒｿｯﾄﾞ ProcessMessage")] HRESULT ProcessMessage([out,retval] int *pVal);
[id(4), helpstring("ﾒｿｯﾄﾞ WindowMode")] HRESULT WindowMode([out,retval] int *pVal);
[id(5), helpstring("ﾒｿｯﾄﾞ DrawPixel")] HRESULT DrawPixel([in] int x ,[in] int y , [in] int Color,[out,retval] int *pVal);
[id(6), helpstring("ﾒｿｯﾄﾞ WaitKey")] HRESULT WaitKey([out,retval] int *pVal);
[id(7), helpstring("ﾒｿｯﾄﾞ LoadGraphScreen")] HRESULT LoadGraphScreen([in] int x , [in] int y ,[in] BSTR GraphName,[out,retval] int *pVal);
[id(8), helpstring("ﾒｿｯﾄﾞ LoadGraph")] HRESULT LoadGraph([in] BSTR FileName,[out,retval] int *pVal);
[id(9), helpstring("ﾒｿｯﾄﾞ GetScreenState")] HRESULT GetScreenState([in] int nType,[out,retval] int *pVal);
[id(10), helpstring("ﾒｿｯﾄﾞ SetDrawScreen")] HRESULT SetDrawScreen([in] int DrawScreen,[out,retval] int *pVal);
[id(11), helpstring("ﾒｿｯﾄﾞ ClearDrawScreen")] HRESULT ClearDrawScreen([out,retval] int *pVal);
[id(12), helpstring("ﾒｿｯﾄﾞ ScreenFlip")] HRESULT ScreenFlip([out,retval] int *pVal);
[id(13), helpstring("ﾒｿｯﾄﾞ CheckHitKey")] HRESULT CheckHitKey([in] int KeyCode,[out,retval] int *pVal);
[id(14), helpstring("ﾒｿｯﾄﾞ GetJoypadInputState")] HRESULT GetJoypadInputState([in] int InputType,[out,retval] int *pVal);
[id(15), helpstring("ﾒｿｯﾄﾞ WaitTimer")] HRESULT WaitTimer([in] int WaitTime,[out,retval] int *pVal);
[id(16), helpstring("ﾒｿｯﾄﾞ DrawGraph")] HRESULT DrawGraph([in] int x,[in] int y,[in] int GrHandle,[in] int TransFlag ,[out,retval] int *pVal);

実装定数
PAD_INPUT_DOWN = (0x00000001),
PAD_INPUT_LEFT =(0x00000002),
PAD_INPUT_RIGHT = (0x00000004),
PAD_INPUT_UP = (0x00000008),
PAD_INPUT_A = (0x00000010),
PAD_INPUT_B = (0x00000020),
PAD_INPUT_C = (0x00000040),
PAD_INPUT_X = (0x00000080),
PAD_INPUT_Y = (0x00000100),
PAD_INPUT_Z = (0x00000200),
PAD_INPUT_L = (0x00000400),
PAD_INPUT_R = (0x00000800),
PAD_INPUT_START = (0x00001000),
PAD_INPUT_M = (0x00002000),
PAD_INPUT_D = (0x00004000),
PAD_INPUT_F = (0x00008000),
PAD_INPUT_G = (0x00010000),
PAD_INPUT_H = (0x00020000),
PAD_INPUT_I = (0x00040000),
PAD_INPUT_J = (0x00080000),
PAD_INPUT_K = (0x00100000),
PAD_INPUT_LL = (0x00200000),
PAD_INPUT_N = (0x00400000),
PAD_INPUT_O = (0x00800000),
PAD_INPUT_P = (0x01000000),
PAD_INPUT_RR = (0x02000000),
PAD_INPUT_S = (0x04000000),
PAD_INPUT_T = (0x08000000),
PAD_INPUT_U = (0x10000000),
PAD_INPUT_V = (0x20000000),
PAD_INPUT_W = (0x40000000),
PAD_INPUT_XX = (0x80000000)
GETSCREEN_X = 0,
GETSCREEN_Y = 1,
GETSCREEN_COLOR = 2
DX_SCREEN_FRONT = (0xfffffffc),
DX_SCREEN_BACK = (0xfffffffe)
D_DIK_ESCAPE = (0x01),
D_DIK_1 = (0x02),
D_DIK_2 = (0x03),
D_DIK_3 = (0x04),
D_DIK_4 = (0x05),
D_DIK_5 = (0x06),
D_DIK_6 = (0x07),
D_DIK_7 = (0x08),
D_DIK_8 = (0x09),
D_DIK_9 = (0x0A),
D_DIK_0 = (0x0B),
D_DIK_MINUS = 	(0x0C),
D_DIK_EQUALS = (0x0D),
D_DIK_BACK = (0x0E),
D_DIK_TAB = (0x0F),
D_DIK_LEFT = (0xCB),
D_DIK_RIGHT = (0xCD)
KEY_INPUT_ESCAPE = (D_DIK_ESCAPE),
KEY_INPUT_0 = (D_DIK_0),
KEY_INPUT_1 = (D_DIK_1),
KEY_INPUT_2 = (D_DIK_2),
KEY_INPUT_3 = (D_DIK_3),
KEY_INPUT_4 = (D_DIK_4),
KEY_INPUT_5 = (D_DIK_5),
KEY_INPUT_6 = (D_DIK_6),
KEY_INPUT_7 = (D_DIK_7),
KEY_INPUT_8 = (D_DIK_8),
KEY_INPUT_9 = (D_DIK_9),
KEY_INPUT_MINUS = (D_DIK_MINUS),
KEY_INPUT_EQUALS = (D_DIK_EQUALS),
KEY_INPUT_BACK = (D_DIK_BACK),
KEY_INPUT_TAB = (D_DIK_TAB),
KEY_INPUT_LEFT = (D_DIK_LEFT),
KEY_INPUT_RIGHT = (D_DIK_RIGHT)

lightbox Category: ふるいむかし

2006.09.15 Friday | 12:03

Java ユーザ関数ふるいむかし

package local;

public class Model {

	// 部分文字列取得メソッド
	public String substr( String target, int start, int len )	{
		String ret;
		try {
			ret = target.substring( start, start + len );
		}
		catch ( Exception e ) {
			System.out.println( len + " :が長すぎるので"
			+ "指定した位置よりそのままを返します");
			ret = target.substring( start );
		}
		return ret;
	}

}

lightbox Category: ふるいむかし

2006.09.15 Friday | 11:59

Java 画面構成ファイルふるいむかし

// *********************************************
// メニュー( 2 ) の処理
// 新しい内部メソッド
// 2006/09/14
// テキストファイル処理
// *********************************************
void Action_File() {
	// ① カレントディレクトリ取得
	String sPath = (new File("")).getAbsolutePath() + "\\";
	Me.MsgOk( sPath );
	sPath += "conf.txt";

	// ② テキストファイルを読み込み
	String line = null;
	String st = null;
	int x = 0;
	int y = 0;
	try {

		BufferedReader inFile = new BufferedReader( new FileReader( sPath ) );

		while ( ( line = inFile.readLine() ) != null) {

			// ユーザ関数で、頭1バイトを取得
			st = uf.substr( line, 0, 1 );
			if ( st.equalsIgnoreCase( ";" ) ) {
				// 行の先頭がセミコロンならば、読み飛ばし
				continue;
			}
			// ユーザ関数で、頭5バイトを取得
			st = uf.substr( line, 0, 5 );
			if ( st.equalsIgnoreCase( "Title" ) ) {
				// 先頭がTitle ならば、Title=データ のデータを取得
				st = line.substring( 6 );
				// 取得したデータをウインドウのタイトル文字列とする
				Me.setTitle(st);
			}
			if ( st.equalsIgnoreCase( "SizeX" ) ) {
				st = line.substring( 6 );
				x = Integer.parseInt(st);
			}
			if ( st.equalsIgnoreCase( "SizeY" ) ) {
				st = line.substring( 6 );
				y = Integer.parseInt(st);
			}
			System.out.println( line );
		}

		inFile.close();

	}
	catch ( Exception e ) {
		System.out.println( "ファイルエラー" );
		System.out.println( e.getMessage() );
	}

	if ( x != 0 && y != 0 ) {
		Me.setSize(x,y);
	}

}

lightbox Category: ふるいむかし

2006.09.15 Friday | 00:02

【EasyGame】文字列入力ふるいむかし

ver 060914 自己解凍書庫( vc6 プロジェクト )

右のSHIFTキーで文字列入力モードに移行
そこで、COPY と入力すると画面キャプチャ
Game クラスの InputBuffer にデータがセットされる
1ループが終了すると、InputBuffer は空になる
入力値による、文字列弾の入れ替えをメイン側で実装
ユーザ関数として、半角文字列のカンマ編集を付加
ショット毎に関数を分離

任意原点で回転させ、斜めサインカーブテスト

lightbox Category: ふるいむかし

<< July 2025 >>
Sun	Mon	Tue	Wed	Thu	Fri	Sat
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

プログラマの立ち位置

2006.09.19 Tuesday | 08:58

Freeバージョン mdb をアップデートふるいむかし

2006.09.19 Tuesday | 08:33

SQLの窓 Build C++ アップデートふるいむかし

2006.09.15 Friday | 16:30

【Easy Game】 Script バージョンふるいむかし

2006.09.15 Friday | 12:03

Java ユーザ関数ふるいむかし

2006.09.15 Friday | 11:59

Java 画面構成ファイルふるいむかし

2006.09.15 Friday | 00:02

【EasyGame】文字列入力ふるいむかし

プログラマの立ち位置

2006.09.19 Tuesday | 08:58

Freeバージョン mdb をアップデート ふるいむかし

2006.09.19 Tuesday | 08:33

SQLの窓 Build C++ アップデート ふるいむかし

2006.09.15 Friday | 16:30

【Easy Game】 Script バージョン ふるいむかし

2006.09.15 Friday | 12:03

Java ユーザ関数 ふるいむかし

2006.09.15 Friday | 11:59

Java 画面構成ファイル ふるいむかし

2006.09.15 Friday | 00:02

【EasyGame】文字列入力 ふるいむかし

Freeバージョン mdb をアップデートふるいむかし

SQLの窓 Build C++ アップデートふるいむかし

【Easy Game】 Script バージョンふるいむかし

Java ユーザ関数ふるいむかし

Java 画面構成ファイルふるいむかし

【EasyGame】文字列入力ふるいむかし