經過我親愛的同學、朋友和學長測試後，發現了一堆問題…
舊版的問題：
一、同花就可以出牌（二、三下就結束牌局了）。
二、Ａ２３４５、２３４５６不能出（會有人抓狂…）。
三、遊戲結束後，還可以出牌。
四、隨隨便便就可以使用「透視鏡」功能（這個已改囉！）。
新牌就改掉了上述面的問題了，而且又把畫面更新，加上點數計算…
新的畫面及載點如下…
http://www.badongo.com/file/10122984
如玩的時侯發現有問題（BUG）的話，歡迎留言給偶…
歡迎測試哦！！
2008/06/29
2008/06/28
黑桃二（大老二）程式碼終於被偶寫出來了…
很久之前就想把這個程式寫出來
但是，那時環境沒辦法寫出程式…
只能用巨集寫…（有人說…天丫，如果寫的出來真是太神奇了）
分析圖也畫，邏輯判斷也大致出來了…
就是在把邏輯寫成程式時，發現真的太難了…
對我來說，真的很難克服…
後來，與部隊之前的文書（程設師）msn聊，就聊到了怎麼撰寫一個黑桃二的程式…
因為黑桃二的「判斷」真的太多了…
連我的老同學（龜）都說超難寫的…
於是，我先改了一下舊的九九遊戲（真是太久遠以前設計的）
讓他感覺真的有像玩樸克牌遊戲的樣子…
http://www.badongo.com/file/10103189
（點上面連結，下載後自動解壓，點執行檔即可玩囉！）
更新連結：點此下載
在改完九九之後，我便著手開始寫黑桃二的程式碼…
於是就從97/06/23下午開始…
再之前，曾查過有人做「黑桃二」的遊戲，除錯加上設計…
約莫三個月左右的時間…
現在在家，有小毛頭要搞…三不五時出難題給偶破解…
有時還要出去買個東西，所以感覺當學生真的很不錯…
至少只要管自已就好了，可以更專心寫程式（算了，說這麼多也沒用）！
我在三天後（即26日）寫完ai（電腦）可以自已玩牌…
27日晚上終於完成整個遊戲，之後再改進ai囉…
以下是我製作遊戲的截圖…
http://www.badongo.com/file/10104718
（點上面連結，下載後自動解壓，點執行檔即可玩囉！）
更新連結：點此下載
歡迎大家測試…
我是以vb寫的…
我想可能有人會有興趣，我公布一小段程式碼…
Case 503 'full house牌型503
d = CInt(Right(What_Big(2, 5), 2)) '讀出full house三張中最大牌數值
temp1 = Array(0, 0, 0, 0, 0) '定義出牌暫存變數
For a = 3 To 13 '2張的從3開始找，即最大為13（k）
For b = d To 13 '3張的則以最大的開始找，最大不得為13（k）
If a <> b Then '防止3張和2張為相同牌
For c = 1 To player(Who_Play, 1, 2) - 2 '判斷有3張牌一樣,從第一張至最後一張（所以牌數-2防止過頭）
z = Array(CInt(Right(player(Who_Play, c, 1), 2)), CInt(Right(player(Who_Play, c + 1, 1), 2)), CInt(Right(player(Who_Play, c + 2, 1), 2)))
If z(0) = b And z(0) = z(1) And z(0) = z(2) Then
'三張牌相同，而且符合數字者
For e = 2 To 4
temp1(e) = player(Who_Play, c + e - 2, 1)
Next
yn = 1
Exit For
Else
yn = 0
End If
Next
For c = 1 To player(Who_Play, 1, 2) - 1 '判斷有2張牌一樣,從第一張至最後一張（所有牌數-1防止過頭）
z = Array(CInt(Right(player(Who_Play, c, 1), 2)), CInt(Right(player(Who_Play, c + 1, 1), 2)))
If z(0) = a And z(0) = z(1) Then
'二張牌相同，而且符合數字者
For e = 0 To 1 '轉存temp1
temp1(e) = player(Who_Play, c + e, 1)
Next
yn = yn + 1
Exit For
End If
Next
If yn = 2 Then
Exit For
End If
End If
Next
If yn = 2 Then
For b = 0 To 4
What_Big(2, b + 1) = temp1(b) '把所查出之牌導入現最大之牌
Next
Call Opp
clear_paper '出完牌，呼叫清除玩家手中牌
Who_Big = Who_Play '誰出的牌最大，轉存為發牌者
Exit For
End If
Next
Case 301 '3條牌型301
d = CInt(Right(What_Big(2, 3), 2)) '讀出三張中最大牌數值
temp1 = Array(0, 0, 0, 0, 0) '定義出牌暫存變數
For b = d + 1 To 13 '3張的則以最大的開始找，最大不得為13（k）
For c = 1 To player(Who_Play, 1, 2) - 2 '判斷有3張牌一樣,從第一張至最後一張（所以牌數-2防止過頭）
z = Array(CInt(Right(player(Who_Play, c, 1), 2)), CInt(Right(player(Who_Play, c + 1, 1), 2)), CInt(Right(player(Who_Play, c + 2, 1), 2)))
If z(0) = b And z(0) = z(1) And z(0) = z(2) Then
'三張牌相同，而且符合數字者
For e = 0 To 2
temp1(e) = player(Who_Play, c + e, 1)
Next
yn = 1
Exit For
Else
yn = 0
End If
Next
If yn = 1 Then
For a = 0 To 4
What_Big(2, a + 1) = temp1(a) '把所查出之牌導入現最大之牌
Next
Call Opp
clear_paper '出完牌，呼叫清除玩家手中牌
Who_Big = Who_Play '誰出的牌最大，轉存為發牌者
Exit For
End If
Next
不知道有沒有人看的懂？
如果看不懂，還是建議下載來玩玩吧！
2008/06/15
吸塵器機器人使用心得
其實，之前就知道有機器人吸塵器了…
只是，總覺得家裡目前不需要。
因為家裡有台很不錯的吸塵器叫「塵水扁」…
沒有濾網，用水過濾；而大的東西會被吸到一個集塵盒裡面。
有耗材，就是水…
我很喜歡這台吸塵器，也用了近三年了…
在桃園的家中，坪數比較大…
所以原來每三天一吸覺得太累了，就改為每一週六或日來吸…
每次吸完後，二隻小毛頭就不知道怎麼弄的，地上又出現灰塵或髒東西…
喂…我才剛吸完沒多久，就要再吸…
所以每每想到這樣，我吸塵器就放在客廳二天，待星期一再收…
因為放太久又礙路，有時那二個小毛頭手就會癢到去玩吸塵器，當然，我看到了也會手癢去打玩吸塵器的小孩…
也因為那二位小毛頭屢勸不聽…
所以呢，我就想到之前市面上有買一種叫「吸塵器機器人」…
突發奇想的剛好將老媽日前抽中的「手提式」吸塵器（感覺比較輕巧）
加上我的「樂高機器人」就可以成為「吸塵器機器人」了…
ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ
後來發現到不可行，雖然吸塵器已經很輕巧了，但是對機器人來說，仍嫌太重…
當把吸塵器放下去時，樂高機器人的底盤都有點變形…
看來可能沒三小路用，即使可以跑，也未必能跑很遠或很久…
看來要用樂高做「吸塵器機器人」應該是不太可能「行」的了…
還是上網路找找是否有比較適合的吸塵器機器人…
經我搜尋後，機型還真不少…
不過大致有分二種類型…
一、是刷、掃、吸塵器機器人（美國的牌子）
二、是刷、擦、吸塵器機器人（台灣的牌子）
家裡有地毯，看來有「擦地」是不太適用…刷地的可能比較ok…
又上g網找了一堆廣告…圖片…還有人使用的心得…
看來不便宜，不過看起來美國型的款似乎做的比較好。
刷地比較乾淨，必竟家裡有很多地方都有地毯…
而擦地，可能比較適用家裡是大理石、木質地板，也就是全家地表比較統一那一型…
再來就考慮維修耗材方面了…
台灣的是還好，美國的又有宏碁撐（支援）…
都差不多…
只是二個都不便宜，一種在3c燦坤可買到，一種是各大百貨公司…
但是我看到的是以美國耗材為主的機器人，而他不是美國的牌子…
因為只要打上美國牌子，起跳都幾乎一萬元左右…甚至近二萬元…
天丫…只是吸掃地機而已，未免有有太貴了吧…
後來，找了一個比較不知名的牌子，好在他和美國的耗材大致相同…
價格也便宜一半…（感覺得像仿的）
回到家先充了一整完的電，我就先用主臥的地毯給他試試…
ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ
我隨意放，他也隨意的吸…似乎沒什麼規律可言…
不過後來發現他好像是將螺旋方式擴大吸的範圍，當在碰到壁或障礙物時，則開始亂跑
因為好像有沿壁的、又像是三角型的…
不管了，先放給他吸個半小時吧…
後來覺得他吸的還不錯說…雖然重覆的地方一直吸，感覺還滿乾淨的…
ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ
靠地看看，再拍一張…
ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ
像這樣的「巧拼」高度，對吸塵器機器人，是不會產生「雕車」的情形…
不過過於軟的地毯，就不行了…
因為會被捲到裡面的大刷口，所以較軟的地毯就放到別處去，以發增加麻煩…
ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ
後來，我清吸塵器盒時，發現…
天丫，怎麼這麼髒都是灰和黑黑的棉絮，不說二話的立刻倒掉…
奇怪，之前「塵水扁」吸塵器都在打混嗎？（該不會是跟他下台有關吧？）
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
下午，我想既然有吸塵器機器人了，地板的乾淨也就不太需要我管了…
就放手讓小朋友在客廳裡吃東西，因為以往他們都在「廁所」裡吃會掉滿地的零食…
而機器人就在一旁先充電休息吧…
還真快習慣，看來邊看東西邊吃，肯定掉滿地…
後面機器人充胞電了…就開始開廳、走廊、房間等地方亂跑一通…
一下又鑽到客廳的椅子下、桌子下…房間的床舖下…
就這樣打掃約近一個小時20分鐘左右的地…
我們都沒在管他在蛋麻…任他四處跑來跑去…
吸到沒電了，他老兄會四處跑著鏢找到充電座基地台充電休息…
開始檢查…
客廳地板…
走廊…
被偶捉到這裡有走過留下的髒棉絮，扣一分…
ok…
ok…房門前都算不錯…
其實這樣看來是算「很乾淨」因為每個地方幾乎都被他吸過最少二次以上…
而這些地方，如果是我拿吸塵器的話，可能只會吸個一遍，頂多二遍，因為不像「它」有真有那個「美國時間」慢慢吸個60分鐘以上…
不過一開始反對的老爸，感覺他工作算是不錯，也沒什麼意見…
一直覺得好玩的是，會自已找到充電的地方回去充電…
看來，未來的日子就靠機器人吸塵器吸地面了…
我只負責將東西移位，讓他不會「雕車」…
如果要打分數的話，我可能會給90分，因為程式還不夠聰明…
價格貴了些吧…
不過對於不在家的人們，掃地就不用管那麼多了…
尤其是想在家打赤腳的人，這種東西不買的話，可能會累死人…
不然請個傭人也行，大致就這樣吧…
補一下清理機器人吸塵後的照片…
真是天丫…不是吸過三次了…怎麼還這麼髒？
到底這些東西哪來的？
真怪，我昨天才用「塵水扁」吸塵器吸過說…
2008/06/08
檢查結果
經原廠檢查…
是壞這個東西…
花了我二個小隊的小朋友…還有二位孫先生…$2.22K
原廠電腦插上去，沒十分鐘就查出來結果了…
真是有電腦和沒電腦的差別丫…
原廠技師邊修邊唸：
「那個（昨日）修車的師父亂檢查一通（因為沒有電腦檢測），所以東拔西拔…
搞的電腦都秀逗，把原來正常的都弄到不正常了…」
果然，有電腦真是差太多了… 
凸輪軸感知器，一共換了二個…
曲軸角度感知器件號：237314M50A21：$740
角度感知器：237314M50B21：$800
工資：$680
雖然名字有差，但看起來一樣，我帶回來一個良品，近引擎蓋附近的那顆拿回來拍照
據技師說，第一款或前幾款的s180很多都是這個感知器出問題…
m1也有曾經出過這類的問題，並非「DIY」能力所及之檢測範圍丫…
不過跑了八年，這個壞還是不能打敗我DIY行動… 
這個不算是消耗品，也不知道是什麼原因讓他臨時故障…
不過在高速公路沒出事，也沒被三峽的那間「黑店」騙大錢… 
真是不幸中的大幸了…
2008/06/07
車子第一次顧路…
今天開著自己的愛車出去，結果上了從南桃園上了機場系統交流道
開沒二十公里，發現車子引擎熄火…
趁著時速還有七八十左右，開往路肩…
好死不死警過警察在攔大卡車…
沒多久，車子鉖告顧路…
自2001.01月自現在，第一次掛點…
打了二張卡都沒有救援…哎，真慘…
後來警察先生果然來了，看在車上有二個小毛頭的份上，免了我一次罰單…
（沒警示標誌）
又過沒幾分鐘，拖車就來了…
開口1700，把我拖到三峽的交流道附近的修車廠…
原本第一想到是要到3918大大那裡去的，只是…（三峽->林口）
可能小朋友會損失慘重…
後來經過修車場東看西看…也搞不清楚哪裡壞掉
就給說汽油幫浦掛點…
立刻換了汽油幫浦…
誰知，換了後還是一樣…
我看是行車電腦掛點了…
後來，我問師父說是否是行車電腦不供油的關係，因為之前沒有插電腦「重新學習」…
（自上次清怠速馬達後，這段我是沒跟那位師父說啦）
而師父說：可能是你晶片的電腦壞掉了…
所以無法供油…
在我瞭解要到星期一才能借到電腦上班維修後，我寧願到原廠，不然到時又被換了什麼
師父在我的堅持下…只能換回汽油幫浦…
真黑，還花了我800元的檢測費…
看來這下損失大了，唉…
後來，我請我一位老同學…
從三峽拖車拖回家，到家裡附近最大的廠…
蘆竹南崁二段那間…
從下午二點掛掉，到同學來拖車已經是1800了…
經過車水馬龍的路段，加上二個已控制不住的小孩…
心已經在打雷了…外面又下起雨來…
最後終於在2130的最後一位服務先生關店前抵達…
好佳在有一位熱血少年（我同學）來搭救…
不然可能現在還在路上…
結果如何？今6/8日就知道了…
唉！又不知道要出走少小朋友了…
訂閱：
文章 (Atom)