/*;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Copyright (c) 1995-1999, ADLink Technology Inc. All rights reserved. ;; ;; ;; ;; File Name : 7443INT.C ;; ;; Purpose : This sample program demonstrates how handle interrupt ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ #include #include #include #include #include #include "Dask.h" #include "Resource.h" #define IDC_START 300 #define WM_INT 2000 #define WM_INT1 2001 HANDLE hInst; /* current instance */ int int_count[4]; int press_count=0; I16 card=-1, card_number = 0; HWND hStart, hMainWnd, hEvent[4]; U32 data_out0[4] = {0, 0 ,0 ,0}; U32 data_out1[4] = {1, 1 ,1 ,1}; int PASCAL WinMain(HANDLE, HANDLE, LPSTR, int); BOOL InitApplication(HANDLE); BOOL InitInstance(HANDLE, int); long PASCAL MainWndProc(HWND, unsigned, WPARAM, LPARAM); LRESULT CALLBACK cbfn(); void mesgfn(); LRESULT CALLBACK cbfn1(); void mesgfn1(); /********************************************************************** FUNCTION: WinMain(HANDLE, HANDLE, LPSTR, int) PURPOSE: calls initialization function, processes message loop ***********************************************************************/ int PASCAL WinMain(hInstance, hPrevInstance, lpCmdLine, nCmdShow) HANDLE hInstance; HANDLE hPrevInstance; LPSTR lpCmdLine; int nCmdShow; { MSG msg; if(!hPrevInstance) if(!InitApplication(hInstance)) return(FALSE); if(!InitInstance(hInstance, nCmdShow)) return(FALSE); while ( GetMessage(&msg, NULL, NULL, NULL)) { TranslateMessage(&msg); DispatchMessage(&msg); } return(msg.wParam); } /**************************************************************************** FUNCTION: InitApplication(HANDLE) PURPOSE: Initializes window data and registers window class ****************************************************************************/ BOOL InitApplication(hInstance) HANDLE hInstance; { WNDCLASS wc; wc.style = NULL; wc.lpfnWndProc = MainWndProc; wc.cbClsExtra = 0; wc.cbWndExtra = 0; wc.hInstance = hInstance; wc.hIcon = LoadIcon(NULL, IDI_APPLICATION); wc.hCursor = LoadCursor(hInstance, IDC_ARROW); wc.hbrBackground = GetStockObject(WHITE_BRUSH); wc.lpszMenuName = "U7443Menu"; wc.lpszClassName = "IntClass"; return (RegisterClass(&wc)); } /**************************************************************************** FUNCTION: InitInstance(HANDLE, int) PURPOSE: Saves instance handle and creates main window ****************************************************************************/ BOOL InitInstance(hInstance, nCmdShow) HANDLE hInstance; int nCmdShow; { HWND hWnd; hInst = hInstance; hWnd = CreateWindow("IntClass", "PCI-7443 COS Interrupt Sample", WS_OVERLAPPEDWINDOW, 200, 100, 340, 240, NULL, NULL, hInstance, NULL); if (!hWnd) return (FALSE); ShowWindow(hWnd, nCmdShow); UpdateWindow(hWnd); return (TRUE); } BOOL PASCAL setup(HWND hWnd, unsigned message, WPARAM wParam, LPARAM lParam) { int i; char n[16]; char s[50]; switch (message) { case WM_INITDIALOG: for (i=0;i<16;i++) { wsprintf(n, "%d", i); _strupr(n); SendMessage(GetDlgItem(hWnd,IDC_COMBO1), CB_ADDSTRING, NULL, (LONG)(LPSTR) n); } SendMessage(GetDlgItem(hWnd,IDC_COMBO1) , CB_SETCURSEL, 0, 0L); break; case WM_COMMAND: switch(LOWORD(wParam)) { case IDC_COMBO1: if (HIWORD(wParam) == CBN_CLOSEUP) { i = (int)SendMessage(GetDlgItem(hWnd,IDC_COMBO1), CB_GETCURSEL, 0, 0L); SendMessage(GetDlgItem(hWnd,IDC_COMBO1), CB_GETLBTEXT, i, (LPARAM)((LPCSTR)n)); card_number = i; } return(TRUE); case IDOK: if ((card=Register_Card(PCI_7443, card_number)) < 0) { wsprintf(s, "Register_Card Error = %d\n", card); MessageBox(hWnd, s, "Error", MB_OK); } EndDialog(hWnd, TRUE); InvalidateRect(hWnd, NULL, FALSE); return (TRUE); case IDCANCEL: EndDialog(hWnd, TRUE); return (TRUE); } break; } return (FALSE); } /**************************************************************************** FUNCTION: MainWndProc(HWND, UINT, WPARAM, LPARAM) PURPOSE: Processes messages ****************************************************************************/ long PASCAL MainWndProc(hWnd, message, wParam, lParam) HWND hWnd; unsigned message; WPARAM wParam; LPARAM lParam; { PAINTSTRUCT ps; HDC hDC; char buf[20]; char s[50]; switch(message) { case WM_CREATE: DialogBox(hInst,IDD_DIALOG2, hWnd, setup); if(card<0) { SendMessage(hWnd, WM_CLOSE, 0, 0L); break; } DIO_SetCOSInterrupt32(card, 0, 0x0001, (HANDLE *) &hEvent[0], 0); DIO_SetCOSInterrupt32(card, 1, 0x0001, (HANDLE *) &hEvent[1], 1); DIO_SetCOSInterrupt32(card, 2, 0x0001, (HANDLE *) &hEvent[2], 0); DIO_SetCOSInterrupt32(card, 3, 0x0001, (HANDLE *) &hEvent[3], 1); DIO_INT_Event_Message (card, 1, hEvent[0], hWnd, WM_INT, NULL); DIO_INT_Event_Message (card, 1, hEvent[1], hWnd, NULL, (U32) cbfn); DIO_INT_Event_Message (card, 1, hEvent[2], hWnd, WM_INT1, NULL); DIO_INT_Event_Message (card, 1, hEvent[3], hWnd, NULL, (U32) cbfn1); hMainWnd = hWnd; break; case WM_PAINT: hDC = BeginPaint(hWnd, &ps); TextOut(hDC, 15, 20, "This sample wait for COS of Channel 0/1/2/3", 43); TextOut(hDC, 15, 40, "Count Number will add one while COS occurs.", 43); wsprintf(buf,"COS0 count = %d", int_count[0]); TextOut(hDC, 120, 80, buf, strlen(buf)); wsprintf(buf,"COS1 count = %d", int_count[1]); TextOut(hDC, 120, 100, buf, strlen(buf)); wsprintf(buf,"COS2 count = %d", int_count[2]); TextOut(hDC, 120, 120, buf, strlen(buf)); wsprintf(buf,"COS3 count = %d", int_count[3]); TextOut(hDC, 120, 140, buf, strlen(buf)); EndPaint(hWnd, &ps); break; case WM_COMMAND: switch(LOWORD(wParam)) { case IDM_EXIT: DIO_INT1_EventMessage (card, INT1_DISABLE, NULL, NULL, NULL); DIO_SetCOSInterrupt32(card, 0, 0, NULL, 0); DIO_SetCOSInterrupt32(card, 1, 0, NULL, 0); DIO_SetCOSInterrupt32(card, 2, 0, NULL, 0); DIO_SetCOSInterrupt32(card, 3, 0, NULL, 0); DIO_INT_Event_Message (card, 0, hEvent[0], NULL, NULL, NULL); DIO_INT_Event_Message (card, 0, hEvent[1], NULL, NULL, NULL); DIO_INT_Event_Message (card, 0, hEvent[2], NULL, NULL, NULL); DIO_INT_Event_Message (card, 0, hEvent[3], NULL, NULL, NULL); SendMessage(hWnd, WM_CLOSE, 0, 0L); break; } break; case WM_INT: mesgfn(); break; case WM_INT1: mesgfn1(); break; case WM_DESTROY: if (card >= 0) Release_Card(card); PostQuitMessage(0); break; default: return (DefWindowProc(hWnd, message, wParam, lParam)); } return(0L); } void mesgfn() { int_count[0]++; InvalidateRect(hMainWnd, NULL, FALSE); } LRESULT CALLBACK cbfn() { int_count[1]++; ResetEvent(hEvent[1]); InvalidateRect(hMainWnd, NULL, FALSE); } void mesgfn1() { int_count[2]++; InvalidateRect(hMainWnd, NULL, FALSE); } LRESULT CALLBACK cbfn1() { int_count[3]++; ResetEvent(hEvent[3]); InvalidateRect(hMainWnd, NULL, FALSE); }