体重と今日食べたもの

k1segawa.exblog.jp

ダイエット

ブログトップ

ポケコン PC-G850Vで電子回路工作(6/2)

A/D変換した値をちょっとグラフにしてみた。

【Cプログラム】
10 main() {
20 unsigned char a[35]={8,0,2,6,2,6,0,4,2,6,0,5,0,5,0,5,0,
5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,8,12,99};
25 int c,d,i;
26 unsigned char r;
27 int x=0;
28 clrscr();

30 outport(0x60,1);
40 outport(0x61,1);
50 INIT:c=10;d=0;i=-1;
60 READ:i++;
70 if(a[i]==99) goto INIT;
90 outport(0x62,(a[i] & 0xFE);
100 if((a[i] & 1)==0) goto READ;
120 r= inport(0x62);
140 if(c==10) goto NEXT;
150 if(r==1) d+=(1<<c);
160 if(c==0) pset(x++,d/22,1);x=(x<144)*x;
170 NEXT:c--;
180 goto READ;
190 }
a0034780_21313284.jpg

可変抵抗にしてみたんだけどね。
[PR]
by k1segawa | 2015-06-02 21:32 | ポケコン | Comments(0)