/*
一個簡易微機正弦信號發生器，并口外接8位D/A轉換器（并口有8位
數據輸出，4位控制位輸入，接地信號，可以查閱相關資料），DOS圖形界面，
在Turbo C 2.0開發環境下編譯通過，產生低頻型號，提供給大家參考。
*/
#include<graphics.h>
#include<math.h>
#define Pi 3.1415926
#define WaveColor 15
main()
{
int i,j,m,n,Di[256],Dn[256],t;
int gdriver=DETECT,gmode;
float u,f,l,p,q;
initgraph(&gdriver,&gmode,"");

cleardevice();
setbkcolor(8);

setfillstyle(1,9);
bar(30,30,605,70);

settextstyle(1,0,4);
setcolor(15);
outtextxy(100,30,"Signal Generator");

settextstyle(2,0,6);
setcolor(15);
outtextxy(280,450,"Copyright by Wuxiongjun 2000-02-14");

setfillstyle(1,1);
bar(30,80,605,440);

setcolor(15);
settextstyle(2,0,5);
setlinestyle(0,0,1);

line(50,90,50,430);
line(50,90,53,100);
line(50,90,47,100);
outtextxy(60,90,"V(t)");

line(50,260,580,260);
outtextxy(55,265,"0");
line(580,260,570,257);
line(580,260,570,263);
outtextxy(570,240,"t");

for(i=0;i<256;i++)
{
if(i==64)
l=255.0;
else
l=(sin(2*Pi*i/256)+1)*128.0;
Dn[i]=(int)l;
}

loop:
if(kbhit())
exit(0);
else
for(i=0;i<256;i++)
{
outportb(0x378,Dn[i]);
delay(1);
Di[i]=inportb(0x378);
l=((float)Di[i]/128.0-1)*150;
putpixel(50+1.5*i,260-l,WaveColor);
}
goto loop;
}