創作內容

6 GP

【VB】終極密碼

作者：小YA│2015-12-20 17:36:59│巴幣：12│人氣：1367

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

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

。

當正確解答為1234時

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

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

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

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

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

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

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

A+=1

Else

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

B+=1

End if

End If

-執行結果

喜歡 6 收藏 1 引用留言推上首頁檢舉

引用網址：https://home.gamer.com.tw/TrackBack.php?sn=3048867
All rights reserved. 版權所有，保留一切權利

相關創作

C# MongoDB Atlas 雲端資料庫建置與教學

留言共 31 篇留言

薯條控：
豪
可以在寫ㄍ電腦自己猜電腦的也ㄅ錯

12-20 23:07

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

薯條控：
度

12-21 19:44

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

無名氏：
我記得終極密碼應該是選一個1~100的數字，然後根據玩家講的數字逐漸縮小範圍
講出來的數字一樣就算輸
好像很久以前綜藝節目有玩過的樣子?

電腦自己猜的AI感覺滿有趣的，抽空來寫寫看

02-03 22:50

小YA：
哦有!那個我有印象，但那個做起來比較沒有那麼難，所以就沒有碰了XD

啊還有抱歉，最近都在準備模擬考與統測，實在沒有時間看巴哈，這麼久才回實在抱歉嗚嗚02-07 20:21

：
如果是寫電腦猜玩家的1A2B感覺有點難

05-08 17:20

：
https://github.com/hashmymind/1a2b/blob/master/1a2b.py

寫好惹

05-10 22:21

閑閑 ˋ ˊ：
(覺得樓上點點跟小YA都好厲害

08-05 15:15

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

麻糬口魚：
手機板不能打招呼給你8b

08-05 16:44

麻糬口魚：
我好久沒有打程式了......

08-05 16:46

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

閑閑 ˋ ˊ：
那我這個北科念設計的怎辦ＱＡＱ
看到朋友在打程式的東西就整個好困難好崇拜啊啊啊啊[e33]

我下禮拜要開始好好努力練習畫畫跟英文了（？

08-05 19:33

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

麻糬口魚：
你也有朋友在北科喔那還不來物價貴到爆炸吃一碗麵100

08-05 20:09

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

麻糬口魚：
剛剛去看自殺突擊隊有空上來找我啦！

08-05 20:09

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

麻糬口魚：
我有寫個遊戲欸下次一起玩

08-05 20:10

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

麻糬口魚：
你的腦袋裡面只有hgame嗎… 卡片類的遊戲畢竟不用做動畫我的遊戲超級陽春欸只有文字

08-05 20:16

麻糬口魚：
還有睏喵啊來考個轉學考以你的程度一定可以來的

08-05 20:17

麻糬口魚：
還不錯看

08-05 20:18

閑閑 ˋ ˊ：
來什麼我們不是同校喔ㄇ....
你們原來早就認識哦QQ感情很好的樣子呢

08-05 20:27

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

閑閑 ˋ ˊ：
啊因為幾乎上了高職後就沒什麼再寫了XDD 好喔我會努力讓部落格跟小屋都充實的#

08-05 20:28

麻糬口魚：
我是說睏貓也在所以叫小葉來

08-05 20:32

麻糬口魚：
告訴你一個秘密小葉的名字第二個字破音"帥"

08-05 20:33

小YA：
可惜回應不能給GP08-05 20:35

麻糬口魚：
你可以來我小屋給

08-05 20:42

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

麻糬口魚：
教我用物件...

08-05 20:42

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

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

08-05 20:57

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

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

08-05 21:17

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

麻糬口魚：
觸法=>觸發

08-05 21:17

麻糬口魚：
點label會做事這樣

08-05 21:25

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

麻糬口魚：
可是label如果是用程式叫出來的話不能點

08-05 21:40

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

麻糬口魚：
對了有辦法只能用右鍵觸法嗎

08-05 21:41

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

麻糬口魚：
對啊可是我叫出來之後要怎麼打觸法他的程式啊

08-05 21:45

小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，也就是點擊觸發
度ㄉ以上08-05 21:50

麻糬口魚：
好的謝謝原本以為可以用回圈寫...

08-05 21:56

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

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

08-05 22:06

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

麻糬口魚：
這是不好的事情吧…

08-05 22:17

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

我要留言提醒：您尚未登入，請先登入再留言

6 喜歡★mapleleaf9 可決定是否刪除您的留言，請勿發表違反站規文字。

前一篇：【VB】迷宮搜尋系統...