// Copyright 2005 Doi Shigeki
// list404.cpp ダイアログボックス版
//			入力はタイマでトリガ、fbippi.libをリンクすること
//			list309.h、list309.rcを一緒にビルドすること
#include  <Windows.h>
#include "list309.h"
#include "FbiPpi.h"

BOOL CALLBACK dlgproc( HWND, UINT, WPARAM, LPARAM );

HANDLE h;								// ダイアログプロシージャでも使うので
										// グローバル変数にする

int WINAPI WinMain( HINSTANCE hi, HINSTANCE, LPSTR, int )
{
	h = PpiOpen( "FBIPPI1",				// デバイス名
				 0			);			// オープンフラグ
				
	if( h == INVALID_HANDLE_VALUE ){
		MessageBox( NULL, "PCIデバイスがオープンできません","err", MB_OK);
		return 0;
	}
	
	PpiControl(	h,						// デバイスハンドル
				FBIPPI_8255_CONTROLLER1 , 
										// コントローラの指定
				0x90	);				// 制御データ,モード0,PAのみ入力
	
	DialogBox( hi, "DLG_DATA",			// ダイアログボックスを開く
			   HWND_DESKTOP, (DLGPROC)dlgproc );
										
	CloseHandle( h );

	return TRUE;
}

BOOL CALLBACK dlgproc( HWND hwnd, UINT msg, WPARAM wp, LPARAM lp)
{
	static int sw[8] = { 0, 0, 0, 0, 0, 0, 0, 0 };
	int i,n,n2;
	BYTE x;
	
	switch(msg){

	case WM_INITDIALOG:	
		SetTimer( hwnd, 999, 100, NULL);		// タイマの起動
												// 0.1秒毎にタイマメッセージをhWndへ送る
		
		return TRUE;							// 処理を行った場合はTRUEを返す
	
	case WM_COMMAND:
		n = LOWORD( wp );
		if( ID_o0 <= n && n <= ID_o3 ){			// あるチェックボックスが操作された
			n2 = ( n - ID_o0 ) / 10;			// ID値は連続して10づつ増加であること
			sw[ n2 ] = ! sw[ n2 ];				// 値を反転
			SendMessage( GetDlgItem( hwnd, n ), BM_SETCHECK, sw[n2], 0);
												// 表示に反映
			x = 0;								// 出力データを組み立てる
			for( i = 0; i < 4; i++){
				x = x + ( sw[ i ] << (3-i) ) ;
			}
			PpiOutputPort( h,					// デバイスハンドル
						   FBIPPI_8255_CONTROLLER1 ,
												// コントローラ指定
						   FBIPPI_PORT_B,		// ポート指定:B
						   x	);				// 出力データ
					
		}
		return TRUE;
	
	case WM_TIMER:						// このウィンドウに対してタイマは１つしかないので
										// タイマIDのチェックは省略
		PpiInputPort( h,				// デバイスハンドル
					  FBIPPI_8255_CONTROLLER1, 
										// コントローラ指定
					  FBIPPI_PORT_A,    // ポート指定:A
					  &x	);			// データ格納用変数へのポインタ

		if( x & 0x1 )
			SetDlgItemText(hwnd,ID_i3,"1");
		else
			SetDlgItemText(hwnd,ID_i3,"0");
		if( x & 0x2 )
			SetDlgItemText(hwnd,ID_i2,"1");
		else
			SetDlgItemText(hwnd,ID_i2,"0");
		if( x & 0x4 )
			SetDlgItemText(hwnd,ID_i1,"1");
		else
			SetDlgItemText(hwnd,ID_i1,"0");
		if( x & 0x8 )
			SetDlgItemText(hwnd,ID_i0,"1");
		else
			SetDlgItemText(hwnd,ID_i0,"0");
		return TRUE;

	case WM_CLOSE:

		KillTimer( hwnd, 999);
		EndDialog( hwnd, 0 );
		return TRUE;
	}
	return FALSE;
}