全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2051
推到 Plurk!
推到 Facebook!

delphi5動態畫線圖並結合程式運算結果

尚未結案
evans0494
一般會員


發表:8
回覆:9
積分:8
註冊:2006-11-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-06-21 11:10:21 IP:61.219.xxx.xxx 訂閱
我有一個程式要畫的圖如附件
畫完後再去運算是誰得到「o」
目前的方向是在想如何讓使用者
在輸入特定值後,能夠依據條件
畫出圖形,之後再去做運算
但是要怎麼讓所繪的圖去做結果運算
還有想有沒有實作的可能性,而且要怎麼做
如果各位大大 有人有相關的經驗
希望不吝分享~感謝
附加檔案:4679ec1d58f9e_draw.JPG
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-06-21 12:07:02 IP:60.248.xxx.xxx 未訂閱
您畫的圖,連成一串,像井字遊戲?

若是的話,0,X可以用圖片代替,資料結構用陣列,0代表o,1代表X


evans0494
一般會員


發表:8
回覆:9
積分:8
註冊:2006-11-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-06-26 09:53:55 IP:61.219.xxx.xxx 訂閱
 不是井字遊戲~
而是像迷宮圖
有三條路或更多條路
設定只有一個人會獲勝
大概是這樣的東西
不過是不是應該放在遊戲版去發問?
eaglewolf
資深會員


發表:4
回覆:268
積分:429
註冊:2006-07-06

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-06-26 11:17:10 IP:211.75.xxx.xxx 訂閱
初步想法:
一個二維陣列存圖型(有├ ┤ ─ │ 及空白 共五種) ex: MAP: Array[20][20] of integer; //每一個圖形可能相當於5*5 pixels 或9*9 pixels , 自行決定
一個一維陣列存起始點 ex:Start : Array[3] of integer;
一個行進方向的變數(↑←→三種) ex:direction : integer;
一個目前所在位置的變數 ex: Location:TPoint;

先產生圖型 並決定 ○ 的位置
依序由 第一個起始點(initial 動作: Location.X := Start[0] , Location.Y := 0 , Direction := 1 )
迴圈執行Move
直到 Location.Y 為 19
檢查 是否為 ○ 的位置
若是則結束
若否則換下一個((initial 動作: Location.X := Start[1] , Location.Y := 0 , Direction := 1 )
直到 走到 ○ 的位置

移動的procedure 參考如下:
<textarea class="delphi" rows="10" cols="60" name="code">procedure MOVE(); begin case (Map[Location.X][Location.Y]) of 0: // 空白 raise Exception.Creat('Location Error:0'); 1: // │ case direction of 1: // ↑ Location.Y : = Location.Y 1; else raise Exception.Creat('Invalid Direction'); end; 2: // ─ case direction of 2: // ← Location.X : = Location.X - 1; 3: // → Location.X : = Location.X 1; else raise Exception.Creat('Invalid Direction'); end; 3: // ├ case direction of 1: begin direction := 3 Location.X : = Location.X 1; end; 2: // ← begin direction := 1 Location.Y : = Location.Y 1; end; else raise Exception.Creat('Invalid Direction'); end; 4: // ┤ case direction of 1: // ← begin direction := 3 Location.X : = Location.X 1; end; 3: // → begin direction := 1 Location.Y : = Location.Y 1; end; else raise Exception.Creat('Invalid Direction'); end; end; end; </textarea>
------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL
編輯記錄
eaglewolf 重新編輯於 2007-06-26 11:19:17, 註解 無‧
eaglewolf 重新編輯於 2007-06-26 11:22:27, 註解 無‧
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-06-26 13:36:29 IP:140.127.xxx.xxx 訂閱
你太執著於「圖形」

這樣你只是在浪費電腦的運算效能

只要有好的資料結構,不必真的去存圖形

就像線上網路遊戲,都只是傳簡單的資料格式,在到用戶端依據資料去畫圖

所以你先建立一個可以運作的資料格式

再來想顯示方式,這樣的好處是,兩者分開設計,將來要換顯示方式(換畫面)

會省很多時間


===================引 用 evans0494 文 章===================
我有一個程式要畫的圖如附件
畫完後再去運算是誰得到「o」
目前的方向是在想如何讓使用者
在輸入特定值後,能夠依據條件
畫出圖形,之後再去做運算
但是要怎麼讓所繪的圖去做結果運算
還有想有沒有實作的可能性,而且要怎麼做
如果各位大大 有人有相關的經驗
希望不吝分享~感謝
系統時間:2024-05-02 18:45:24
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!