日誌2015-12-20 17:36

【VB】終極密碼

說到終極密碼，應該多數人都不陌生吧～

規則：出題者隨機給予四個不重複的數字，讓玩家猜。如果有符合的數字則告訴玩家目前答題的狀況，直到答題者的數字與出題者的數字完全符合，接下來在下面舉個例子來解釋。

當正確解答為1234時

答題者猜的答案是4567，那麼答題狀況則為"0A1B"，原因是猜題者的"4"有出現在正確解答中但並不是正確位置。

那麼當我猜的是5674時，出題者就必須告訴答題者"1A0B"，原因是猜題者的"4"對應到正確答案的位置。

-程式邏輯(確定按鈕部分)

判斷是否輸入正確，確定正確後才往下執行

主要程式碼其實不複雜，打算留下一點思考空間，所以在這邊請原諒我只做簡單介紹。

For i = 1 To 4 '從第一個字判斷到第四個字

  If  這個位置的値(輸入) = 正確答案在這個位置的値

          A+=1

  Else

          If 這個位置的値，在正確答案中其中一個位置

               B+=1

          End if

  End If

-執行結果

6

31

LINE 分享

相關創作

【亞夜玩遊戲】《皇冠之心 Online》搶先體驗版

【行程規劃】2024/05/04拜六、五月份行程&路線研究

【yotoo】240504

留言

• 2015-12-20 23:07薯條控：
  豪
  可以在寫ㄍ電腦自己猜電腦的也ㄅ錯

  2015-12-21 17:16小YA：電腦出題電腦猜ㄇ

• 2015-12-21 19:44薯條控：
  度

  2015-12-21 20:25小YA：那感覺有點深度ㄛ 模擬考完我在來怒寫一波

• 2016-02-03 22:50無名氏：
  我記得終極密碼應該是選一個1~100的數字，然後根據玩家講的數字逐漸縮小範圍
  講出來的數字一樣就算輸
  好像很久以前綜藝節目有玩過的樣子?
  
  電腦自己猜的AI感覺滿有趣的，抽空來寫寫看

  2016-02-07 20:21小YA：哦有!那個我有印象，但那個做起來比較沒有那麼難，所以就沒有碰了XD
  
  啊還有抱歉，最近都在準備模擬考與統測，實在沒有時間看巴哈，這麼久才回實在抱歉 嗚嗚

• 2016-05-08 17:20：
  如果是寫電腦猜玩家的1A2B感覺有點難
• 2016-05-10 22:21：
  https://github.com/hashmymind/1a2b/blob/master/1a2b.py
  
  寫好惹
• 2016-08-05 15:15閑閑 ˋ ˊ：
  (覺得樓上點點跟小YA都好厲害

  2016-08-05 15:34小YA：樓上是台科資工，我這小魯蛇沒得比 QQ

• 2016-08-05 16:44麻糬口魚：
  手機板不能打招呼給你8b
• 2016-08-05 16:46麻糬口魚：
  我好久沒有打程式了......

  2016-08-05 18:05小YA：我也是欸... 覺得開學後需要認真一下=_=

• 2016-08-05 19:33閑閑 ˋ ˊ：
  那我這個北科念設計的怎辦ＱＡＱ
  看到朋友在打程式的東西就整個好困難好崇拜啊啊啊啊[e33]
  
  我下禮拜要開始好好努力練習畫畫跟英文了（？

  2016-08-05 19:59小YA：原來你是設計的哦! 那怎麼小屋都沒作品 蠻想看der

• 2016-08-05 20:09麻糬口魚：
  你也有朋友在北科喔 那還不來 物價貴到爆炸 吃一碗麵100

  2016-08-05 20:13小YA：電子科則宣技優北科 北科我只認識他跟你還有欣妤 畢竟 邊緣

• 2016-08-05 20:09麻糬口魚：
  剛剛去看自殺突擊隊 有空上來找我啦！

  2016-08-05 20:13小YA：好看ㄇ? 聽說風評不錯

• 2016-08-05 20:10麻糬口魚：
  我有寫個遊戲欸 下次一起玩

  2016-08-05 20:13小YA：H Game???

• 2016-08-05 20:16麻糬口魚：
  你的腦袋裡面只有hgame嗎… 卡片類的遊戲 畢竟不用做動畫 我的遊戲超級陽春欸 只有文字
• 2016-08-05 20:17麻糬口魚：
  還有睏喵啊 來考個轉學考 以你的程度一定可以來的
• 2016-08-05 20:18麻糬口魚：
  還不錯看
• 2016-08-05 20:27閑閑 ˋ ˊ：
  來什麼 我們不是同校喔ㄇ....
  你們原來早就認識哦QQ感情很好的樣子呢

  2016-08-05 20:33小YA：都是學校的技藝競賽選手，不瞞你說，他可是商科程式設計第一名欸

• 2016-08-05 20:28閑閑 ˋ ˊ：
  啊 因為幾乎上了高職後就沒什麼再寫了XDD 好喔我會努力讓部落格跟小屋都充實的#
• 2016-08-05 20:32麻糬口魚：
  我是說睏貓也在 所以叫小葉來
• 2016-08-05 20:33麻糬口魚：
  告訴你一個秘密 小葉的名字第二個字破音"帥"

  2016-08-05 20:35小YA：可惜回應不能給GP

• 2016-08-05 20:42麻糬口魚：
  你可以來我小屋給

  2016-08-05 21:15小YA：你只有一篇文章 我給過ㄌ!

• 2016-08-05 20:42麻糬口魚：
  教我用物件...

  2016-08-05 21:14小YA：你想學哪種物件

• 2016-08-05 20:57閑閑 ˋ ˊ：
  你們是什麼學校～
  太太太厲害了ＸＤＤ 我那時候想要當選手但是第二名＃
  叫我阿嫻就好了[e15]

  2016-08-05 21:17小YA：想看R嫺的作品

• 2016-08-05 21:17麻糬口魚：
  用程式叫出來的物件要怎麼讓他觸法其他事情(我這樣講好像很不清楚

  2016-08-05 21:19小YA：例如觸發什麼事情

• 2016-08-05 21:17麻糬口魚：
  觸法=>觸發
• 2016-08-05 21:25麻糬口魚：
  點label會做事這樣

  2016-08-05 21:29小YA：所以你的意思是點LABEL然後就會做事嗎
  如果是這樣的話 你只要點兩下LABEL接著打程式碼就行了
  用上面方式的話是變成"點擊後觸發"
  然後一個物件有夭壽多種觸發方式

• 2016-08-05 21:40麻糬口魚：
  可是label如果是用程式叫出來的話 不能點

  2016-08-05 21:43小YA：用程式叫出物件是可以的
  例如 Dim YA() As Label
  像這樣可以從程式弄出Label

• 2016-08-05 21:41麻糬口魚：
  對了有辦法只能用右鍵觸法嗎

  2016-08-05 21:46小YA：有很多觸發方式，例如雙擊，碰觸，碰觸後離開...等等
  但右鍵好像不行?
  

• 2016-08-05 21:45麻糬口魚：
  對啊 可是我叫出來之後要怎麼打觸法他的程式啊

  2016-08-05 21:50小YA：你可以參考這個 http://ppt.cc/mIHl0
  如果是普通要觸發的話，只要點兩下物件進去裡面找要哪種觸發方式在在裡面打程式就可以
  但如果是動態生成的話，那個觸發方式要你自己去寫
  例如
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  
  End Sub
  要把Button1改成你弄出來的物件，然後看你要哪種觸發在去改第二行最後面那個
  像我上面的是Click，也就是點擊觸發
  度ㄉ 以上

• 2016-08-05 21:56麻糬口魚：
  好的 謝謝 原本以為可以用回圈寫...

  2016-08-05 21:58小YA：ㄅ塊是中台灣第一迴圈哥

• 2016-08-05 22:06麻糬口魚：
  ...做什麼都用迴圈 有人到現在還解不出今年的最後一題 我突然想到為什麼我那麼輕鬆就弄出來了 因為我常常用goto......

  2016-08-05 22:14小YA：不愧是第一名

• 2016-08-05 22:17麻糬口魚：
  這是不好的事情吧…

  2016-08-05 22:23小YA：有做出來什麼都好R

• 送出