電子サイコロV2(GLCD版)

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。
====== 電子サイコロV2(GLCD版) ======

===== 概要 =====
LEDを7個使用した、1個型の電子サイコロを以前に製作したことがありますが、今回は、GLCDを使用し、2個型のサイコロを製作してみました。

===== 動作原理 =====
GLCDの制御(使い方)については、GLCDライブラリを参照してください。

<処理の流れ>
  - 入出力ポートの設定およびGLCDの初期化(フォントの登録含む)を行います。
  - SW1を押下して乱数のシード(種)を設定します。(起動時1回のみ)\\ ※シードを設定しないといつも同じ系列で乱数が発生してしまいます。\\ ※これを防ぐために、SW1の押下待ちの間、シード値をインクリメントします。\\ ※そして押下時に、srand関数でシード値を設定します。
  - SW1が押下されると、rand関数で乱数を発生させ、サイコロの目の数を決定します。\\ ※SW2がOFFの時には、サイコロ2個、ON時には、サイコロ1個とします。\\ ※rand関数は、0~32767の数値を戻すので、この戻り値を5462で割り、0~5の値を得ます。
  - サイコロをGLCDに表示します。\\ ※Glcd_Circle関数で、サイコロの個々の目を描画します。\\ ※Glcd_Rectangle関数で、サイコロの個々の縁を描画します。
  - 3.に戻ります。

※少し趣向を凝らして、サイコロの周りや最上位の段を、線(-)や四角(￭)のマークが流れるようにしました。

===== 回路図 =====
GLCDライブラリで使用した回路にSW2を追加しただけです。
{{:imgpaste:202004:htmikan-20200430-104720.png}}

===== ソースコード =====
<code c electronic_dice.c>
//********************************************************************** 
/*
　　＜電子サイコロ＞ 
*/
//********************************************************************** 

#define		SW1		PORTA.F5
#define		SW2		PORTA.F1

//* System 5x8 (char #32 to #128) */
const unsigned short MyFontSystem5x8[] = {
        0x00,0x00,0x00,0x00,0x00, //* Espace     0x20 */
        0x00,0x00,0x4f,0x00,0x00, //* ! */
        0x00,0x07,0x00,0x07,0x00, //* " */
        0x14,0x7f,0x14,0x7f,0x14, //* # */
        0x24,0x2a,0x7f,0x2a,0x12, //* $ */
        0x23,0x13,0x08,0x64,0x62, //* % */
        0x36,0x49,0x55,0x22,0x20, //* & */
        0x00,0x05,0x03,0x00,0x00, //* ' */
        0x00,0x1c,0x22,0x41,0x00, //* ( */
        0x00,0x41,0x22,0x1c,0x00, //* ) */
        0x14,0x08,0x3e,0x08,0x14, //* / */
        0x08,0x08,0x3e,0x08,0x08, //* + */
        0x50,0x30,0x00,0x00,0x00, //* , */
        0x08,0x08,0x08,0x08,0x08, //* - */
        0x00,0x60,0x60,0x00,0x00, //* . */
        0x20,0x10,0x08,0x04,0x02, //* / */
        0x3e,0x51,0x49,0x45,0x3e, //* 0          0x30 */
        0x00,0x42,0x7f,0x40,0x00, //* 1 */
        0x42,0x61,0x51,0x49,0x46, //* 2 */
        0x21,0x41,0x45,0x4b,0x31, //* 3 */
        0x18,0x14,0x12,0x7f,0x10, //* 4 */
        0x27,0x45,0x45,0x45,0x39, //* 5 */
        0x3c,0x4a,0x49,0x49,0x30, //* 6 */
        0x01,0x71,0x09,0x05,0x03, //* 7 */
        0x36,0x49,0x49,0x49,0x36, //* 8 */
        0x06,0x49,0x49,0x29,0x1e, //* 9 */
        0x00,0x36,0x36,0x00,0x00, //* : */
        0x00,0x56,0x36,0x00,0x00, //* ; */
        0x08,0x14,0x22,0x41,0x00, //* < */
        0x14,0x14,0x14,0x14,0x14, //* = */
        0x00,0x41,0x22,0x14,0x08, //* > */
        0x02,0x01,0x51,0x09,0x06, //* ? */
        0x3e,0x41,0x5d,0x55,0x1e, //* @          0x40 */
        0x7e,0x11,0x11,0x11,0x7e, //* A */
        0x7f,0x49,0x49,0x49,0x36, //* B */
        0x3e,0x41,0x41,0x41,0x22, //* C */
        0x7f,0x41,0x41,0x22,0x1c, //* D */
        0x7f,0x49,0x49,0x49,0x41, //* E */
        0x7f,0x09,0x09,0x09,0x01, //* F */
        0x3e,0x41,0x49,0x49,0x7a, //* G */
        0x7f,0x08,0x08,0x08,0x7f, //* H */
        0x00,0x41,0x7f,0x41,0x00, //* I */
        0x20,0x40,0x41,0x3f,0x01, //* J */
        0x7f,0x08,0x14,0x22,0x41, //* K */
        0x7f,0x40,0x40,0x40,0x40, //* L */
        0x7f,0x02,0x0c,0x02,0x7f, //* M */
        0x7f,0x04,0x08,0x10,0x7f, //* N */
        0x3e,0x41,0x41,0x41,0x3e, //* O */
        0x7f,0x09,0x09,0x09,0x06, //* P          0x50 */
        0x3e,0x41,0x51,0x21,0x5e, //* Q */
        0x7f,0x09,0x19,0x29,0x46, //* R */
        0x26,0x49,0x49,0x49,0x32, //* S */
        0x01,0x01,0x7f,0x01,0x01, //* T */
        0x3f,0x40,0x40,0x40,0x3f, //* U */
        0x1f,0x20,0x40,0x20,0x1f, //* V */
        0x3f,0x40,0x38,0x40,0x3f, //* W */
        0x63,0x14,0x08,0x14,0x63, //* X */
        0x07,0x08,0x70,0x08,0x07, //* Y */
        0x61,0x51,0x49,0x45,0x43, //* Z */
        0x00,0x7f,0x41,0x41,0x00, //* [ */
        0x02,0x04,0x08,0x10,0x20, //* \ */
        0x00,0x41,0x41,0x7f,0x00, //* ] */
        0x04,0x02,0x01,0x02,0x04, //* ^ */
        0x40,0x40,0x40,0x40,0x40, //* _ */
        0x00,0x00,0x03,0x05,0x00, //* `          0x60 */
        0x20,0x54,0x54,0x54,0x78, //* a */
        0x7F,0x44,0x44,0x44,0x38, //* b */
        0x38,0x44,0x44,0x44,0x44, //* c */
        0x38,0x44,0x44,0x44,0x7f, //* d */
        0x38,0x54,0x54,0x54,0x18, //* e */
        0x04,0x04,0x7e,0x05,0x05, //* f */
        0x08,0x54,0x54,0x54,0x3c, //* g */
        0x7f,0x08,0x04,0x04,0x78, //* h */
        0x00,0x44,0x7d,0x40,0x00, //* i */
        0x20,0x40,0x44,0x3d,0x00, //* j */
        0x7f,0x10,0x28,0x44,0x00, //* k */
        0x00,0x41,0x7f,0x40,0x00, //* l */
        0x7c,0x04,0x7c,0x04,0x78, //* m */
        0x7c,0x08,0x04,0x04,0x78, //* n */
        0x38,0x44,0x44,0x44,0x38, //* o */
        0x7c,0x14,0x14,0x14,0x08, //* p          0x70 */
        0x08,0x14,0x14,0x14,0x7c, //* q */
        0x7c,0x08,0x04,0x04,0x00, //* r */
        0x48,0x54,0x54,0x54,0x24, //* s */
        0x04,0x04,0x3f,0x44,0x44, //* t */
        0x3c,0x40,0x40,0x20,0x7c, //* u */
        0x1c,0x20,0x40,0x20,0x1c, //* v */
        0x3c,0x40,0x30,0x40,0x3c, //* w */
        0x44,0x28,0x10,0x28,0x44, //* x */
        0x0c,0x50,0x50,0x50,0x3c, //* y */
        0x44,0x64,0x54,0x4c,0x44, //* z */
        0x08,0x36,0x41,0x41,0x00, //* { */
        0x00,0x00,0x77,0x00,0x00, //* | */
        0x00,0x41,0x41,0x36,0x08, //* } */
        0x08,0x08,0x2a,0x1c,0x08, //* <- */
        0x08,0x1c,0x2a,0x08,0x08, //* -> */
        0xff,0xff,0xff,0xff,0xff, //*           0x80 */
        0x06,0x09,0x09,0x06,0x00  // oC 0x81
        };

//********************************************************************** 

void	SwitchONcheck()
{
	while (Button(&PORTA, 5, 1, 0) == 0)
		;
	while (Button(&PORTA, 5, 1, 1) == 0)
		;
}

//********************************************************************** 

void	Glcd_Circle_Ex(short x, short y)
{
	static	short	cnt;
	//
	for (cnt = 0; cnt < 7; cnt++) {
		Glcd_Circle(x, y, cnt, 1);
	}
}

//********************************************************************** 

void	dice_proc(short num)
{
	static	int		r;
	//
	num = num * 55;
	Glcd_Rectangle(10 + num, 10, 60 + num, 60, 1);
	Glcd_Rectangle(10 + num + 2, 10 + 2, 60 + num - 2, 60 - 2, 1);
	Glcd_Rectangle(10 + num, 10, 60 + num, 60, 1);
	Glcd_Rectangle(10 + num + 2, 10 + 2, 60 + num - 2, 60 - 2, 1);
	//
	r = rand();
	switch (r / 5462) {
	case 0:
		Glcd_Circle_Ex(35 + num, 35);
		break;
	case 1:
		Glcd_Circle_Ex(20 + num, 50);
		Glcd_Circle_Ex(50 + num, 20);
		break;
	case 2:
		Glcd_Circle_Ex(20 + num, 50);
		Glcd_Circle_Ex(35 + num, 35);
		Glcd_Circle_Ex(50 + num, 20);
		break;
	case 3:
		Glcd_Circle_Ex(20 + num, 50);
		Glcd_Circle_Ex(50 + num, 20);
		Glcd_Circle_Ex(20 + num, 20);
		Glcd_Circle_Ex(50 + num, 50);
		break;
	case 4:
		Glcd_Circle_Ex(20 + num, 50);
		Glcd_Circle_Ex(50 + num, 20);
		Glcd_Circle_Ex(20 + num, 20);
		Glcd_Circle_Ex(50 + num, 50);
		Glcd_Circle_Ex(35 + num, 35);
		break;
	case 5:
		Glcd_Circle_Ex(20 + num, 50);
		Glcd_Circle_Ex(50 + num, 20);
		Glcd_Circle_Ex(20 + num, 20);
		Glcd_Circle_Ex(50 + num, 50);
		Glcd_Circle_Ex(20 + num, 35);
		Glcd_Circle_Ex(50 + num, 35);
		break;
	}
}

//********************************************************************** 

void	main()
{
	static	unsigned	int		seed;
	static	unsigned	short	x, y, tmp, lineMode, boxMode, boxCnt;
	//
	OSCCON = 0b01110000;		// クロックを8Mhzに設定する。 
	ANSEL  = 0b00000000;		// Ａ／Ｄ変換は使用しない。
	//ポートの設定 
	TRISA = 0b00100010;
	TRISB = 0b00000000;
	PORTA = 0b00000000;
	PORTB = 0b00000000;
	//ＧＣＬＤの初期化＆フォントデータの設定＆画面クリア 
	Delay_ms(100);
	Glcd_Init(&PORTA, 7, 6, 4, 3, 0, 2, &PORTB);	// cs1,cs2,rs,rw,rst,en
	Delay_ms(100);
	Glcd_Set_Font(MyFontSystem5x8, 5, 8, 32);
	Glcd_Fill(0);
	Glcd_Write_Text("Electronic Dice", 0, 0, 1);
	//乱数の種を設定します。 
	boxMode = 0;
	boxCnt = 0;
	while (SW1 == 1) {
		seed++;
		//最下位の段を■が流れるように点滅させます。 
		Glcd_Box(boxCnt * 4, 60, boxCnt * 4 + 3, 63, 2);
		switch (boxMode) {
		case 0:
			if (boxCnt < 32) {
				boxCnt++;
			} else {
				boxMode = 1;
			}
			break;
		case 1:
			if (boxCnt > 0) {
				boxCnt--;
			} else {
				boxMode = 0;
			}
			break;
		}
		Delay_ms(10);
	}
	srand(seed);
	//
	lineMode = 0;
	x = 8;
	y = 8;
	boxMode = 0;
	boxCnt = 0;
	//
	while (1) {
		//サイコロを振ります。
		while (SW1 == 1) {
			//最上位の段を■が流れるように点滅させます。 
			Glcd_Box(boxCnt * 4, 0, boxCnt * 4 + 3, 3, 2);
			switch (boxMode) {
			case 0:
				if (boxCnt < 32) {
					boxCnt++;
				} else {
					boxMode = 1;
				}
				break;
			case 1:
				if (boxCnt > 0) {
					boxCnt--;
				} else {
					boxMode = 0;
				}
				break;
			}
			//サイコロの周りを線が流れるように点灯させます。 
			Glcd_Dot(x, y, 2);
			tmp = (SW2 == 1)? 117 : 62;
			switch (lineMode) {
			case 0:
				if (y < 62) {
					y++;
				} else {
					lineMode = 1;
				}
				break;
			case 1:
				if (x < tmp) {
					x++;
				} else {
					lineMode = 2;
				}
				break;
			case 2:
				if (y > 8) {
					y--;
				} else {
					lineMode = 3;
				}
				break;
			case 3:
				if (x > 8) {
					x--;
				} else {
					lineMode = 0;
				}
				break;
			}			
			Delay_ms(10);
		}  
		SwitchONcheck();
		Glcd_Fill(0);
		//サイコロを表示します。 
		if (SW2 == 1) {
			dice_proc(0);
			dice_proc(1);
		} else {
			dice_proc(0);
		}
	}
}

//**********************************************************************
</code>

===== 動作確認 =====
{{:imgpaste:202004:htmikan-20200430-104825.png?500}}

この時点で、SW1を押下すると、乱数の種が設定されます。
{{:imgpaste:202004:htmikan-20200430-104837.png?500}}

SW2がOFF時には、サイコロを2個表示します。
SW1を押下する毎に、サイコロの目の数が変わります。
{{:imgpaste:202004:htmikan-20200430-104858.png}}{{:imgpaste:202004:htmikan-20200430-104902.png}}{{:imgpaste:202004:htmikan-20200430-104906.png}}{{:imgpaste:202004:htmikan-20200430-104910.png}}

SW2がON時には、サイコロを1個表示します。
SW1を押下する毎に、サイコロの目の数が変わります。
{{:imgpaste:202004:htmikan-20200430-104918.png}}{{:imgpaste:202004:htmikan-20200430-104922.png}}{{:imgpaste:202004:htmikan-20200430-104927.png}}{{:imgpaste:202004:htmikan-20200430-104931.png}}

如何ですか?
これをゲームなどに使えば、楽しくなりますね! ^_^

<callout type="warning" title="著作権表示 copyright notice">
このページは稲崎様の閉鎖したHPのコピーで、著作権は稲崎様にあります。[[elechobby:picdic:picdic|詳細]]
This page is a copy of Mr. Inasaki's closed website, and the copyright is held by him.[[elechobby:picdic:picdic|Details]]
</callout>