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.
295 lines
9.6 KiB
295 lines
9.6 KiB
4 weeks ago
|
/*;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;; Copyright (c) 1997-2001, ADLink Technology Inc. All rights reserved. ;;
|
||
|
|
;; ;;
|
||
|
|
;; File Name : Util7256.C ;;
|
||
|
|
;; Purpose : This sample program demonstrate how to operate ;;
|
||
|
|
;; DI & DO forcPCI-7256 ;;
|
||
|
|
;; Date : 07/20/1999 ;;
|
||
|
|
;; Revision : 1.0 ;;
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/
|
||
|
|
|
||
|
|
#include <windows.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <math.h>
|
||
|
|
#include <time.h>
|
||
|
|
#include "Dask.h"
|
||
|
|
#include "resource.h"
|
||
|
|
|
||
|
|
#define IDM_EXIT 110
|
||
|
|
#define TIMER1 1
|
||
|
|
|
||
|
|
int PASCAL WinMain(HANDLE, HANDLE, LPSTR, int);
|
||
|
|
long PASCAL MainWndProc(HWND, UINT, WPARAM, LPARAM);
|
||
|
|
|
||
|
|
HANDLE hInst;
|
||
|
|
U16 input=0, output=0;
|
||
|
|
I16 card=-1, card_number=0;
|
||
|
|
U16 oldinput=0 , rb_output;
|
||
|
|
|
||
|
|
HBRUSH hLTGreenBrush,hGreenBrush,hBlueBrush,hYellowBrush,hRedBrush;
|
||
|
|
|
||
|
|
POINT input_pos[16]= {{320, 40}, {300, 40},
|
||
|
|
{280, 40}, {260, 40},
|
||
|
|
{240, 40}, {220, 40},
|
||
|
|
{ 200, 40}, { 180, 40},
|
||
|
|
{160, 40}, {140, 40},
|
||
|
|
{120, 40}, {100, 40},
|
||
|
|
{80, 40}, {60, 40},
|
||
|
|
{ 40, 40}, { 20, 40},
|
||
|
|
};
|
||
|
|
POINT output_pos[16] ={
|
||
|
|
{320, 120}, {300, 120},
|
||
|
|
{280, 120}, {260, 120},
|
||
|
|
{240, 120}, {220, 120},
|
||
|
|
{ 200, 120}, { 180, 120},
|
||
|
|
{160, 120}, {140, 120},
|
||
|
|
{120, 120}, {100, 120},
|
||
|
|
{80, 120}, {60, 120},
|
||
|
|
{ 40, 120}, { 20, 120},
|
||
|
|
};
|
||
|
|
|
||
|
|
BOOL InitApplication(HANDLE);
|
||
|
|
BOOL InitInstance(HANDLE, int);
|
||
|
|
|
||
|
|
int PASCAL WinMain(hInstance, hPrevInstance, lpCmdLine, nCmdShow)
|
||
|
|
HANDLE hInstance, 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);
|
||
|
|
}
|
||
|
|
|
||
|
|
BOOL InitApplication(hInstance)
|
||
|
|
HANDLE hInstance;
|
||
|
|
{
|
||
|
|
WNDCLASS wc;
|
||
|
|
|
||
|
|
/* Main Window Class */
|
||
|
|
wc.style = NULL;
|
||
|
|
wc.lpfnWndProc = (WNDPROC)MainWndProc;
|
||
|
|
wc.cbClsExtra = 0;
|
||
|
|
wc.cbWndExtra = 0;
|
||
|
|
wc.hInstance = hInstance;
|
||
|
|
wc.hIcon = LoadIcon(hInstance, "MyIcon");
|
||
|
|
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
|
||
|
|
wc.hbrBackground = GetStockObject(LTGRAY_BRUSH);
|
||
|
|
wc.lpszMenuName = NULL;
|
||
|
|
wc.lpszClassName = "GenericWClass";
|
||
|
|
if (!RegisterClass(&wc)) return(FALSE);
|
||
|
|
}
|
||
|
|
|
||
|
|
BOOL InitInstance(hInstance, nCmdShow)
|
||
|
|
HANDLE hInstance;
|
||
|
|
int nCmdShow;
|
||
|
|
{
|
||
|
|
HWND hWnd;
|
||
|
|
HMENU hSampleMenu;
|
||
|
|
|
||
|
|
hInst = hInstance;
|
||
|
|
hSampleMenu = LoadMenu(hInstance, "U7256Menu");
|
||
|
|
hWnd = CreateWindow("GenericWClass",
|
||
|
|
(LPCSTR)"PCI-7256",
|
||
|
|
WS_OVERLAPPEDWINDOW,
|
||
|
|
CW_USEDEFAULT,
|
||
|
|
CW_USEDEFAULT,
|
||
|
|
370,
|
||
|
|
220,
|
||
|
|
NULL,
|
||
|
|
hSampleMenu,
|
||
|
|
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_7256, 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);
|
||
|
|
}
|
||
|
|
|
||
|
|
long PASCAL MainWndProc(hWnd, message, wParam, lParam)
|
||
|
|
HWND hWnd;
|
||
|
|
UINT message;
|
||
|
|
WPARAM wParam;
|
||
|
|
LPARAM lParam;
|
||
|
|
{
|
||
|
|
HDC hDC;
|
||
|
|
PAINTSTRUCT ps;
|
||
|
|
int i, px, py;
|
||
|
|
char s[50];
|
||
|
|
|
||
|
|
switch(message) {
|
||
|
|
case WM_CREATE:
|
||
|
|
DialogBox(hInst,IDD_DIALOG1, hWnd, setup);
|
||
|
|
if(card<0) {
|
||
|
|
SendMessage(hWnd, WM_CLOSE, 0, 0L);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
hLTGreenBrush = CreateSolidBrush(RGB(0, 255, 0));
|
||
|
|
hGreenBrush = CreateSolidBrush(RGB(0, 128, 0));
|
||
|
|
hBlueBrush = CreateSolidBrush(RGB(0, 0, 255));
|
||
|
|
hRedBrush = CreateSolidBrush(RGB(255, 0, 0));
|
||
|
|
|
||
|
|
SetTimer(hWnd, TIMER1, 50, NULL);
|
||
|
|
srand((unsigned)time(NULL));
|
||
|
|
break;
|
||
|
|
case WM_PAINT:
|
||
|
|
hDC = BeginPaint(hWnd, &ps);
|
||
|
|
|
||
|
|
// Digital Input Box
|
||
|
|
SelectObject(hDC, hLTGreenBrush);
|
||
|
|
Rectangle(hDC, input_pos[15].x-10, input_pos[15].y-24, input_pos[0].x+26, input_pos[0].y+40);
|
||
|
|
SetTextColor(hDC,RGB(255,255,255));
|
||
|
|
SetBkColor(hDC, RGB(0, 0, 255));
|
||
|
|
TextOut(hDC, input_pos[15].x, input_pos[15].y-30, "Digital Input",13);
|
||
|
|
|
||
|
|
// Digital Output Box
|
||
|
|
SelectObject(hDC, hGreenBrush);
|
||
|
|
Rectangle(hDC, output_pos[15].x-10, output_pos[15].y-24, output_pos[0].x+26, output_pos[0].y+40);
|
||
|
|
SetTextColor(hDC,RGB(255,0,0));
|
||
|
|
SetBkColor(hDC, RGB(0, 0, 255));
|
||
|
|
TextOut(hDC, output_pos[15].x, output_pos[15].y-30, "Digital Output", 14);
|
||
|
|
|
||
|
|
// Channel Label
|
||
|
|
SetTextColor(hDC,RGB(0,0,0));
|
||
|
|
SetBkColor(hDC, RGB(0, 255, 0));
|
||
|
|
TextOut(hDC, input_pos[15].x, input_pos[15].y+16, "15 0", 75);
|
||
|
|
SetBkColor(hDC, RGB(0, 128, 0));
|
||
|
|
TextOut(hDC, output_pos[15].x, output_pos[15].y+16, "15 0", 75);
|
||
|
|
SetBkColor(hDC, RGB(0, 255, 0));
|
||
|
|
|
||
|
|
// Detect Channel Input
|
||
|
|
for (i=0; i<16; i++) {
|
||
|
|
if ((input>>i)&0x01)
|
||
|
|
SelectObject(hDC, hRedBrush);
|
||
|
|
else
|
||
|
|
SelectObject(hDC, GetStockObject(WHITE_BRUSH));
|
||
|
|
Ellipse(hDC, input_pos[i].x, input_pos[i].y, input_pos[i].x+17, input_pos[i].y+17);
|
||
|
|
}
|
||
|
|
// Channel Output
|
||
|
|
for (i=0; i<16; i++) {
|
||
|
|
if ((output>>i)&0x01)
|
||
|
|
SelectObject(hDC, hRedBrush);
|
||
|
|
else
|
||
|
|
SelectObject(hDC, GetStockObject(WHITE_BRUSH));
|
||
|
|
Ellipse(hDC, output_pos[i].x, output_pos[i].y, output_pos[i].x+17, output_pos[i].y+17);
|
||
|
|
}
|
||
|
|
EndPaint(hWnd, &ps);
|
||
|
|
break;
|
||
|
|
case WM_COMMAND:
|
||
|
|
switch(LOWORD(wParam)) {
|
||
|
|
case IDM_EXIT:
|
||
|
|
SendMessage(hWnd, WM_CLOSE, 0, 0L);
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
return(DefWindowProc(hWnd, message, wParam, lParam));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case WM_TIMER:
|
||
|
|
/* Digital Input */
|
||
|
|
DI_ReadPort(card,0,&input);
|
||
|
|
hDC = GetDC(hWnd);
|
||
|
|
for (i=0; i<16; i++) {
|
||
|
|
if( ((input>>i)&0x01) != ((oldinput>>i)&0x01) )
|
||
|
|
{
|
||
|
|
if ((input>>i)&0x01)
|
||
|
|
SelectObject(hDC, hRedBrush);
|
||
|
|
else
|
||
|
|
SelectObject(hDC, GetStockObject(WHITE_BRUSH));
|
||
|
|
Ellipse(hDC, input_pos[i].x, input_pos[i].y, input_pos[i].x+17, input_pos[i].y+17);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
oldinput=input;
|
||
|
|
ReleaseDC(hWnd, hDC);
|
||
|
|
break;
|
||
|
|
case WM_DESTROY:
|
||
|
|
if (card >= 0) Release_Card(card);
|
||
|
|
DeleteObject(hRedBrush);
|
||
|
|
DeleteObject(hGreenBrush);
|
||
|
|
DeleteObject(hLTGreenBrush);
|
||
|
|
KillTimer(hWnd, TIMER1);
|
||
|
|
PostQuitMessage(0);
|
||
|
|
break;
|
||
|
|
case WM_LBUTTONDOWN:
|
||
|
|
px = LOWORD(lParam);
|
||
|
|
py = HIWORD(lParam);
|
||
|
|
|
||
|
|
for (i=0; i<16; i++) {
|
||
|
|
if (px>output_pos[i].x && px<output_pos[i].x+17 && py>output_pos[i].y && py<output_pos[i].y+17) {
|
||
|
|
hDC = GetDC(hWnd);
|
||
|
|
if ((output>>i)&0x01) {
|
||
|
|
output -= (((U16)1L)<<i);
|
||
|
|
SelectObject(hDC, GetStockObject(WHITE_BRUSH));
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
output += (((U16)1L)<<i);
|
||
|
|
SelectObject(hDC, hRedBrush);
|
||
|
|
}
|
||
|
|
Ellipse(hDC, output_pos[i].x, output_pos[i].y, output_pos[i].x+17, output_pos[i].y+17);
|
||
|
|
ReleaseDC(hWnd, hDC);
|
||
|
|
|
||
|
|
DO_WritePort(card,0, output);
|
||
|
|
//...Sleep(10);
|
||
|
|
//..DO_ReadPort(card,0, &rb_output);
|
||
|
|
//..wsprintf(s, "ReadBack = %x\n", rb_output);
|
||
|
|
//..MessageBox(hWnd, s, "Error", MB_OK);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
return(DefWindowProc(hWnd, message, wParam, lParam));
|
||
|
|
}
|
||
|
|
return(NULL);
|
||
|
|
}
|
||
|
|
|