PCDVD數位科技討論區

PCDVD數位科技討論區 (https://www.pcdvd.com.tw/index.php)
-   七嘴八舌異言堂 (https://www.pcdvd.com.tw/forumdisplay.php?f=12)
-   -   VB程式問題一問 (https://www.pcdvd.com.tw/showthread.php?t=427089)

吉米Jimmy 2004-12-23 08:05 PM

VB程式問題一問
 
我想要用vb設計一個程式 但是一直出現問題= =b
所以想上來一問

我想寫個類似 "終極密碼" 這類的小遊戲
就是假設 數字1到100
電腦以亂數方式選出之間其中一個數字
讓使用者猜數字 假設電腦亂數出一個數字為48
那使用者猜 假設他輸入了60 那電腦就會顯示縮小範圍後1到60
然後使用者接著輸入20後 電腦就會顯示20到60 這樣

有辦法辦的到嗎@@ 我還算新手 嘗試中 一直因為一點小錯誤而無法成功
而且我希望用Text盒做輸入介面@@
所以有些問題會有說第二次按按鈕 之前的數字就會被清掉= =b
或者是運用陣列等等的

b9156032 2004-12-23 08:52 PM

一開始在程式執行的時候可以先取出亂數和上下限值存進全域變數裡
而判斷的程式碼則是寫在buttom裡每按一次buttom就判斷一次答案
再依判斷去改變上下限值直到猜到答案為止  大概就這樣 久沒寫vb
有錯話請訂正....

黑狗弟 2004-12-23 09:43 PM

因該可以吧..
一開始設一個 Random Number,
一個 MinNo 一個 MaxNo
一個 EnterNo
當 Enter Number = Random Number 的時候當然就 Win 啦..
else if
enter number > random number
then maxno == random number
else
minno == random number

我也忘了 VB 了...

吉米Jimmy 2004-12-26 12:53 PM

唔 還是不行(汗)
麻煩會的人幫一下忙囉@@
我在表單載入時 存進全域變數 還是無效@@

吉米Jimmy 2004-12-26 08:08 PM

在推一下,不知道還有人知道嗎@@

h1tom 2004-12-26 08:42 PM

引用:
作者吉米Jimmy
唔 還是不行(汗)
麻煩會的人幫一下忙囉@@
我在表單載入時 存進全域變數 還是無效@@

上面黑狗弟兄(?)寫得很清楚啊?
您的無效是怎麼個無效法?

Cheeba 2004-12-26 10:20 PM

手邊沒有 VB, 故用 Excel 的 VBA 隨便寫了一個 (只寫了最基本的部份), 參考看看. :)
(要看程式碼請按 Alt-F11)


所有的時間均為GMT +8。 現在的時間是01:50 AM.

vBulletin Version 3.0.1
powered_by_vbulletin 2026。