[過去ﾛｸﾞ] 【初心者】課題をクリアしていくスレ【講習会】 (787ﾚｽ)

【初心者】課題をクリアしていくスレ【講習会】 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

239: 名前は開発中のものです。 [sage] 04/07/04 13:00 ID:WDudAYFD それ以上のは今までに計算した分と対応してるだけ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/239

161: 名前は開発中のものです。 [] 04/06/26 23:49 ID:PaYEz6W8 キー入力、Delphiです TApplicationEventsとQD3のDDIDEX使ってます private Chara: TPoint; procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); begin DDIDEX1.Scan(DI_KEYB); Chara.X:=Chara.X+DDIDEX1.Stick.X; Chara.Y:=Chara.Y+DDIDEX1.Stick.Y; if (Chara.X<0) or (Chara.X>319) then begin Chara.X:=Chara.X-DDIDEX1.Stick.X; end; if (Chara.Y<0) or (Chara.Y>239) then begin Chara.Y:=Chara.Y-DDIDEX1.Stick.Y; end; Canvas.Brush.Color:=clBlack; Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight)); Canvas.Brush.Color:=clRed; Canvas.FillRect(Rect(Chara.X,Chara.Y,Chara.X+320,Chara.Y+240)); Sleep(5); Done:=False; end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered:=True; ClientWidth:=640; ClientHeight:=480; end; http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/161

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.019s