線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2358
推到 Plurk!
推到 Facebook!

接龍的遊戲code

尚未結案
lakemoon25
一般會員


發表:1
回覆:1
積分:0
註冊:2003-12-08

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-12-08 23:50:34 IP:211.76.xxx.xxx 未訂閱
SORRY!沒詳讀網站規定所以po了這篇文章~ 我是個剛接觸delphi的新手~ 之前學的程式都沒有用過圖形介面… 我原意是請問那個先進有code能分享給我,好讓我研究該如何著手。 嗯~sorry浪費了這麼多資源… 發表人 - lakemoon25 於 2003/12/09 00:55:02
AB
高階會員


發表:166
回覆:262
積分:125
註冊:2003-08-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-12-09 00:12:09 IP:61.64.xxx.xxx 未訂閱
本站十大必刪文章    一、重覆發表有灌水之嫌 二、答非所問或描述不清楚 三、抄襲他人文章或發表而未具名引用,或轉載未得原作者同意之文章 四、涉及人身攻擊或不雅文字 五、涉及政治立場

六、索求原始碼、序號、破解、非法下載連結

七、貼錯版區或主題不明確 八、答題內容明顯抄襲或重覆前答題者內容 九、很明顯的作業問題或不將自己寫的有問題的程式片段貼上而要求答案的 十、站務組保留任何對 K.Top 有不良形響文章刪除與會員停權處分的權利 =================================================================== 13.提問的智慧 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20571 = 提問之前 = 在通過電郵、新聞組或者聊天室提出技術問題前,檢查你有沒有做到: 1. 通讀手冊,試著自己找答案。 2. 在FAQ裏找答案(一份維護得好的FAQ可以包羅萬象:)。 3. 在網上搜索(個人推薦google~~~)。 4. 向你身邊精於此道的朋友打聽。 當你提出問題的時候,首先要說明在此之前你幹了些什麼;這將有助於樹立你的形象:你不是一個妄圖不勞而獲的乞討者,不願浪費別人的時間。如果提問者能從答案中學到東西,我們更樂於回答他的問題。 周全的思考,準備好你的問題,草率的發問只能得到草率的回答,或者根本得不到任何答案。越表現出在尋求幫助前為解決問題付出的努力,你越能得到實質性的幫助。 - 去除無意義的疑問 別用無意義的話結束提問,例如“有人能幫我嗎?”或者“有答案嗎?”。 首先:如果你對問題的描述不很合適,這樣問更是畫蛇添足。其次:由於這 樣問是畫蛇添足,黑客們會很厭煩你--而且通常會用邏輯上正確的回答來表 示他們的蔑視,例如:“沒錯,有人能幫你”或者“不,沒答案”。 發表人 - ab 於 2003/12/09 00:58:19
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-12-09 09:08:02 IP:61.222.xxx.xxx 未訂閱
撇開版規不說    對很多有點delphi經驗的人來說    寫接龍真的不知道從何下手    尤其是像小弟這種只會select的人來說    
ddy
站務副站長


發表:262
回覆:2105
積分:1169
註冊:2002-07-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-12-10 08:58:18 IP:61.218.xxx.xxx 未訂閱
撇開版規不說,再撇開delphi 程式設計不說 接龍的邏輯應該要先寫出來,亂數產生牌,檢查花色、檢查數字順序、檢查是否完成 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-12-10 10:23:56 IP:211.76.xxx.xxx 未訂閱
我也來撇開版規囉~ 恩!首先接龍遊戲~主要要有撲克牌的樣子囉! 那要選擇自己畫?還是找元件? 如果找元件的話,可以到http://www.gferrari.com/網址去,點選左邊的My Delphi page。下載一個叫做TCard撲克牌元件。 再來,就要靠自己聰明的小腦袋去寫出判斷的程式了! 在上面的網頁中也有相關的範例程式。 或是再介紹您一個相當不錯的網站,http://delphigfx.mastak.ru/。 裡面完完全全都是講如何使用Delphi寫Game的範例及原始碼唷! 當然,因為.ru是俄羅斯的網站。所以即使裡面有寫註解,也是看不懂的~ so....Try&Error~^^ 程式不是寫來玩的 而是要創造價值
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
AB
高階會員


發表:166
回覆:262
積分:125
註冊:2003-08-21

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-12-10 13:31:22 IP:61.221.xxx.xxx 未訂閱
我也來撇開版規囉~ 大家來找砸    http://www.156ok.com/article/article_list.asp?account_id=91    帶音樂背景的"接龍"遊戲的C根源程式    #include #include #include #include #include #define NULL 0 #define len sizeof(struct liner) struct liner {int x; int y; struct liner *next; }; int n; struct liner *creat(int m) { int i; struct liner *head,*p1,*p2; n=0; p1=(struct liner *)malloc(len); p1->x=30;p1->y=20; head=NULL; p2=p1; for(i=0;i<=m-1;i ) { n ; if (n==1) head=p1; else p2->next=p1; p2=p1; p1=(struct liner *)malloc(len); p1->x=30;p1->y=20 2-i; } p2->next=head; return(head); } struct liner *locate(struct liner *head) { return(head->next); } void *picture(int a) { void *p; int size; if(a) {setfillstyle(1,4);bar(0,0,10,10);rectangle(1,1,9,9);rectangle(4,4,6,6);} size=imagesize(0,0,10,10); p=malloc(size); getimage(0,0,10,10,p); cleardevice(); return(p); } void draw(int x,int y,void *p) {putimage(x*10,y*10,p,COPY_PUT);} struct liner *insert(struct liner *head,int x,int y) { struct liner *p; p=(struct liner *)malloc(len); p->x=x;p->y=y; p->next=head->next; head->next=p; head=p; n ; return(head); } int search(int x,int y,struct liner *head) { int k; struct liner *p; p=head; for(k=0;k<=n-1;k ) {if ((p->x==x) && (p->y==y)) return(1); else p=locate(p); } return(0); } main() {int gm=2,gd=VGA; int h; int time=300,mark=0; int key,hi,lo; void *p1,*p2; int i,j; int x,y; int flag=1,bl=0,musicflag=0; struct liner *head,*p; clrscr(); gotoxy(34,10); printf("JieLong"); gotoxy(27,11); printf("CopyRight 1995 by ljh"); gotoxy(29,17); printf("MUISC=ON|OFF[y/n]n"); gotoxy(46,17); if(tolower(getchar())=='y') musicflag=1; else musicflag=0; initgraph(&gd,&gm,"c:\\tc"); p2=picture(0); p1=picture(1); head=creat(3); p=head; setfillstyle(1,1); bar(0,0,630,349); rectangle(0,0,639,349); for(i=0;i<=2;i ) { draw(p->x,p->y,p1); p=locate(p); } x=rand()` 1; y=rand() 1; draw(x,y,p1); lo=0; p=head; hi=72; h=72; while(flag) { if(musicflag) { sound(400); delay(10); nosound(); } if(kbhit()) {key=bioskey(0); if(kbhit()) getch(); lo=key & 0x00ff; if(lo==0) hi=(key & 0xff00)>>8; } i=p->x; j=p->y; p=locate(p); draw(p->x,p->y,p2); {switch(hi) { case 72:if(h!=80) {h=72;j--;} else {hi=80;j ;} break; case 80:if(h!=72) {h=80;j ;} else {hi=72;j--;} break; case 75:if(h!=77) {h=75;i--;} else {hi=77;i ;} break; case 77:if(h!=75) {h=77;i ;} else {hi=75;i--;} break; } if((x==i)&&(y==j)) { if(musicflag) { sound(1000); delay(100); nosound(); } p=insert(p,x,y); x=((unsigned int)rand())P 1;y=((unsigned int)rand())% 1; draw(x,y,p1); gotoxy(40,25); printf("%d", mark*100); } else {if ((i<1)||(i>63)||(j<1)||(j>34)||search(i,j,p)) {if(bl==0) flag=0;} else { p->x=i;p->y=j; draw(i,j,p1);} } delay(time--); if (time<=40) time=100; bl=0; } } if(musicflag) { sound(1000); delay(100); sound(700); delay(50); sound(1090); delay(100); nosound(); } closegraph(); gotoxy(30,10); printf("GAME OVER"); getch(); } -------------- ps:graphics.h庫文件丟失,我會儘快找回來的,大家先看看演算法吧 =================================================================
lakemoon25
一般會員


發表:1
回覆:1
積分:0
註冊:2003-12-08

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-12-10 23:38:15 IP:211.76.xxx.xxx 未訂閱
謝謝各位大大囉… 聽從了板主的建議…其實我找了很多書 上面的網站和元件我也都自己找到了… 真的很謝謝你們喲… 關於程式碼我會自己努力的…還請各位多多幫忙囉… 因為我想還會有很多問題的
x803198
一般會員


發表:8
回覆:28
積分:17
註冊:2002-12-06

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-12-21 08:50:01 IP:61.56.xxx.xxx 未訂閱
引言: 謝謝各位大大囉… 聽從了板主的建議…其實我找了很多書 上面的網站和元件我也都自己找到了… 真的很謝謝你們喲… 關於程式碼我會自己努力的…還請各位多多幫忙囉… 因為我想還會有很多問題的
給你一些方向.... 因為我寫過,不過我無法貢獻程式碼,雖然程式是我寫的,但是智慧財產權不是我的,了解我的意思吧... 我用一個 class 簡單說明 TEmpty = class(TObject) private FNum : Byte; // A...K FColor : Byte; // 花色 FPObj : TEmpty; // 上一張牌 FNObj : TEmpty; // 下一張牌 public // 判斷前後關係是否可以連結 function Add_Empty(aEmpty: TEmpty):Boolean; end; 上面只是基本元件,至於繪圖方面你就先利用TImage 做就可以了 至於亂數產生一副牌,應該難不倒你吧.... 程式是一條不歸路 發表人 - x803198 於 2003/12/21 08:51:41
系統時間:2017-10-21 16:20:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!