You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
249 lines
7.8 KiB
249 lines
7.8 KiB
4 weeks ago
|
/*;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;; Copyright (c) 1995-1999, ADLink Technology Inc. All rights reserved. ;;
|
||
|
|
;; ;;
|
||
|
|
;; File Name : 7452INT.C ;;
|
||
|
|
;; Purpose : This sample program demonstrates how handle interrupt ;;
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/
|
||
|
|
|
||
|
|
#include <windows.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <dos.h>
|
||
|
|
#include <process.h>
|
||
|
|
#include "Dask.h"
|
||
|
|
#include "Resource.h"
|
||
|
|
|
||
|
|
#define IDC_START 300
|
||
|
|
#define IDC_OUTPUT 302
|
||
|
|
#define WM_INT 2000
|
||
|
|
|
||
|
|
HANDLE hInst; /* current instance */
|
||
|
|
int int_count[2]= {0, 0};
|
||
|
|
I16 card=-1, card_number = 0;
|
||
|
|
HWND hStart, hMainWnd, hEvent[2];
|
||
|
|
|
||
|
|
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();
|
||
|
|
|
||
|
|
/**********************************************************************
|
||
|
|
|
||
|
|
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 = "U7452Menu";
|
||
|
|
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-7452 COS Interrupt Sample", WS_OVERLAPPEDWINDOW,
|
||
|
|
200, 100, 420, 300, 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_7452, 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;
|
||
|
|
}
|
||
|
|
CreateWindow("BUTTON", "Output", WS_CHILD | WS_VISIBLE,
|
||
|
|
130, 200, 72, 24, hWnd, IDC_OUTPUT, hInst, NULL);
|
||
|
|
|
||
|
|
int_count[0]=0;
|
||
|
|
int_count[1]=0;
|
||
|
|
DIO_SetCOSInterrupt32(card, 0, 0x0001, (HANDLE *) &hEvent[0], 0);
|
||
|
|
DIO_SetCOSInterrupt32(card, 1, 0x0001, (HANDLE *) &hEvent[1], 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);
|
||
|
|
hMainWnd = hWnd;
|
||
|
|
break;
|
||
|
|
case WM_PAINT:
|
||
|
|
hDC = BeginPaint(hWnd, &ps);
|
||
|
|
TextOut(hDC, 20, 20, "This program shows the number of occurrence of interrupt",56);
|
||
|
|
TextOut(hDC, 20, 35, "for COS interrupt.", 18);
|
||
|
|
TextOut(hDC, 20, 50, "COS0 interrupt is generated by change of state of DI0 bit-0.", 59);
|
||
|
|
TextOut(hDC, 20, 65, "COS1 interrupt is generated by change of state of DI1 bit-1.", 59);
|
||
|
|
TextOut(hDC, 20, 80, "If connecting DO0 bit-0 to DI0 bit-0 and DO1 bit-0 to DI1 bit-0,", 63);
|
||
|
|
TextOut(hDC, 20, 95, "press 'Output' button can generate two interrupts.", 50);
|
||
|
|
TextOut(hDC, 20, 110,"One for COS0 and the other for COS1.", 36);
|
||
|
|
wsprintf(buf,"COS0 count = %d", int_count[0]);
|
||
|
|
TextOut(hDC, 120, 140, buf, strlen(buf));
|
||
|
|
wsprintf(buf,"COS1 count = %d", int_count[1]);
|
||
|
|
TextOut(hDC, 120, 160, buf, strlen(buf));
|
||
|
|
EndPaint(hWnd, &ps);
|
||
|
|
break;
|
||
|
|
case WM_COMMAND:
|
||
|
|
switch(LOWORD(wParam)) {
|
||
|
|
case IDM_EXIT:
|
||
|
|
DIO_SetCOSInterrupt32(card, 0, 0, NULL, 0);
|
||
|
|
DIO_SetCOSInterrupt32(card, 1, 0, NULL, 0);
|
||
|
|
DIO_INT_Event_Message (card, 0, hEvent[0], 0, 0, NULL);
|
||
|
|
DIO_INT_Event_Message (card, 0, hEvent[1], 0, 0, NULL);
|
||
|
|
SendMessage(hWnd, WM_CLOSE, 0, 0L);
|
||
|
|
break;
|
||
|
|
case IDC_OUTPUT:
|
||
|
|
DO_WritePort(card,0, 0x1);
|
||
|
|
DO_WritePort(card,1, 0x1);
|
||
|
|
Sleep(1);
|
||
|
|
DO_WritePort(card,0, 0x0);
|
||
|
|
DO_WritePort(card,1, 0x0);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case WM_INT:
|
||
|
|
mesgfn();
|
||
|
|
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);
|
||
|
|
}
|