史萊姆論壇 - VB6.0 的Command與 Textbox 新增第2問題...

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - VB6.0 的Command與 Textbox 新增第2問題... (http://forum.slime.com.tw/thread247666.html)

kppne0931

2009-05-11 11:07 PM

VB6.0 的Command與 Textbox 新增第2問題...

我想要製作按下Command 而Textbox 就會隨機出現英文與數字結合一串文字共20字

那請問程式碼該如何設定請高手回答..謝謝

第2問題
Dim pw As String
pw = 77996

If Text4.Text <> pw Then
Label15.Caption = "密碼錯誤！"
Else
Label15.Caption = "登入成功！感謝您使用本程式"
End If

我利用這個來作為程式登錄密碼的用途(設定在Command)...

在程式剛啟動時 Frame 皆為灰色無法按的狀態但當密碼判斷正確時 Frame則恢復到可以按這部份我完全不會...希望可以交一下 ((Frame有2個...)

Living

2009-05-12 04:33 AM

VB有個指令是RND
是幫助你取亂數

用RND取亂數後再搭配ASCII碼
48-57為數字
65-90為大寫英文
97-122為小寫英文

例如先用RND取一個亂數68
CHR(68)則會變成D

kppne0931

2009-05-12 06:19 AM

引用:

作者: Living (文章 2153620)

VB有個指令是RND
是幫助你取亂數

用RND取亂數後再搭配ASCII碼
48-57為數字
65-90為大寫英文
97-122為小寫英文

例如先用RND取一個亂數68
CHR(68)則會變成D

我還不太懂不知道能不能把我要的弄成程式碼讓我自己看看...

Living

2009-05-12 07:29 AM

引用:

作者: kppne0931 (文章 2153625)

我還不太懂不知道能不能把我要的弄成程式碼讓我自己看看...

如果是功課, 告訴你原理應該對你是比較有幫助的

你先試著去寫看看
有什麼不懂或跑不動的地方再PO出問題

kppne0931

2009-05-12 05:03 PM

引用:

作者: Living (文章 2153629)

如果是功課, 告訴你原理應該對你是比較有幫助的

你先試著去寫看看
有什麼不懂或跑不動的地方再PO出問題

這不是功課我是因為不會這類的東西想說有沒有範例所以才問的

Living

2009-05-12 11:17 PM

RND用法可去MSDN參考
它可以產生亂數, 並限定亂數產生的範圍

程式寫作牽涉的範圍滿廣

你如果能寫出一部分來
其他人就比較清楚知道怎麼幫

否則不知道你現有的程度
想幫也幫不了

就像現在我並不清楚你什麼地方不懂
是亂數的產生? 是不知道ASCII? 按鈕不會寫? TEXTBOX不會做? 還是20個循環不會寫?

建議你寫出一部分來, 有什麼問題旁人才方便接下去與你討論

kppne0931

2009-05-19 07:37 PM

引用:

作者: Living (文章 2153923)

Text3.Text = Hex(Round(Rnd * 100000000 - 0, 0)) & Hex(Round(Rnd * 100000000 - 0)) & Hex(Round(Rnd * 10000000 - 0, 0))

這是我最近在網路上找的這是貼在 Command 的我按下真的有產生但是沒有每次都20位有時候會少一位為啥會這樣...

kppne0931

2009-05-19 10:40 PM

沒人知道怎改嗎?

mini	2009-05-20 02:40 PM

第一題

PHP 語法:


		
			
Private Sub Command1_Click()

Dim sRnd As String

Dim iupperbound As Integer

Dim ilowerbound As Integer

Dim i As Integer, j As Integer



    lowerbound = Asc("0") '48

    'upperbound = Asc("9") '57

    

    'lowerbound = Asc("A") '65

    upperbound = Asc("Z") '90

    

    For i = 1 To 20

        Do

            j = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

        Loop While j > 57 And j < 65

        sRnd = sRnd & Chr(j)

    Next

    Me.Caption = sRnd    



End Sub

如果你裝 VB時能把
MSDN Library Visual Studio 也安裝上去
會對你有很大的幫助

至於解說請自己按 F8步進了解
重點在
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
這個公式
及範圍須落在 >=48 及 <=90
但不可 >57 及 <65

至於第二題
可以用 Frame 的 .Enabled 這個屬性做切換
Frame1.Enabled = False 時就會不可使用(包括放在Frame1上的物件)
Frame1.Enabled = True 則相反

cwvdavid

2009-05-20 03:50 PM

之所以沒有出現20位數...
是因為你在網路找上的範例有問題...

Rnd 本身所取得的數為 0 ~ 1之間的數值...
例如:
0.1098735
0.2729468
0.6736467

而當你把Rnd所取得的值, 乘上100000000 (1億)時,
則取得的亂數, 會是
10987353.3215734
27294681.6312982
67364675.1947425

利用Round 取整數後, 得到的值是
10987353
27294681
67364675

再利用HEX把上面的數值轉成 16進位之後,
就有可能因為數值太小, 而會發生少一位數的情況

例如：
15　對應16進位是　F (2位數 vs 1位數)
16　對應16進位是　10 (2位數 vs 2位數)
255 對應16進位是　FF (3位數 vs 2位數)
256 對應16進位是　100 (3位數 vs 3位數)

而實際取值所得到的結果...
10987353 對應16進位是 A7A759 (8位數 vs 6位數)
27294681 對應16進位是 1A07BD9 (8位數 vs 7位數)
67364675 對應16進位是 403E743 (8位數 vs 7位數)

以上例子加起來剛好20位數，
但實際在跑亂數時，你將會遇到3個都是7位數，或3個都是6位數，
造成你跑完的結果，介於18個~21個英文數字(不可能一直都是20個英文數字的)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
更慘的是，利用HEX來取英文數字, 只能取得A,B,C,D,E,F　５種英文字而已

真的是看了就不知道要怎麼改呀...............
上網找別的例子還比較快...

http://zhidao.baidu.com/question/92992772.html
這是別人寫的, 參考看看吧...

kppne0931

2009-05-20 06:27 PM

引用:

作者: mini (文章 2156349)

第一題

PHP 語法:


		
			
Private Sub Command1_Click()

Dim sRnd As String

Dim iupperbound As Integer

Dim ilowerbound As Integer

Dim i As Integer, j As Integer



    lowerbound = Asc("0") '48

    'upperbound = Asc("9") '57

    

    'lowerbound = Asc("A") '65

    upperbound = Asc("Z") '90

    

    For i = 1 To 20

        Do

            j = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

        Loop While j > 57 And j < 65

        sRnd = sRnd & Chr(j)

    Next

    Me.Caption = sRnd    



End Sub

我朋友說LEN可以用但是我不知道啥事LEN 有人可以交我一下嗎?

還有我用了大大提供的程式碼發現...還是沒有20位....

cwvdavid

2009-05-20 08:53 PM

NewPassword(20) 可以得到 20個英文數字 + "20"
NewPassword(13) 可以得到 13個英文數字 + "13"

把倒數第2行的
NewPassword = NewPassword & len(NewPassword)
拿掉...

就ok了...

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

len是顯示文字長度的...

Len("AABB") 就是 4
Len("Kppne0931") 就是 9

kppne0931

2009-05-20 10:35 PM

引用:

作者: cwvdavid (文章 2156460)

我是要設定在Command上按下去之後Text就顯示20位隨機英數組成的字串但是....好像無法設定上去.....

還有mini大大提供的程式碼用上去....還是沒有每次都20位為啥會這樣...

cwvdavid

2009-05-20 10:53 PM

有這麼的難嗎???

'放一個函數在程式碼內...
Function NewPassword(intLen)
Dim tmpSTR
Dim i
Dim tmp
Randomize
For i = 1 To intLen
tmp = Int(Rnd * (122 - 49) + 49)
if (tmp>=58 and tmp<=64) or (tmp>=91 and tmp<=96) then
i=i-1
Else
tmpSTR = Chr(tmp)
NewPassword = NewPassword & tmpSTR
End if
Next
End Function

'在Command1的Click裡面寫...
Private Sub Command1_Click()
Text3.Text = NewPassword(20)
End Sub

這樣跑不出結果嗎??

kppne0931

2009-05-21 06:20 AM

引用:

作者: cwvdavid (文章 2156540)

快好了剩最後問題. ..友些會有些便成英文小寫顯示不能全部改大寫嗎?

Living

2009-05-21 06:39 AM

引用:

作者: kppne0931 (文章 2156708)

快好了剩最後問題. ..友些會有些便成英文小寫顯示不能全部改大寫嗎?

大小寫是ASCII取得

你只要不取97到122之間的亂數
就不會跳出小寫英文

或是用UCASE()指令也行 (UPPER CASE)

kppne0931

2009-05-21 11:48 AM

引用:

作者: Living (文章 2156709)

大小寫是ASCII取得

你只要不取97到122之間的亂數
就不會跳出小寫英文

或是用UCASE()指令也行 (UPPER CASE)

那請問我應該用多少為最佳......

cwvdavid

2009-05-21 12:21 PM

函數改一下就好了...

Function NewPassword(intLen)
Dim tmpSTR
Dim i
Dim tmp
Randomize
For i = 1 To intLen
tmp = Int(Rnd * (122 - 49) + 49)
if (tmp>=58 and tmp<=64) or (tmp>=91 and tmp<=96) then
i=i-1
Else
tmpSTR = Chr(tmp)
NewPassword = NewPassword & tmpSTR
End if
Next

'將亂數結果的小寫英文字轉成大寫
NewPassword = UCASE(NewPassword)

End Function

mini	2009-05-21 02:01 PM

引用:

作者: kppne0931 (文章 2156402)

我朋友說LEN可以用但是我不知道啥事LEN 有人可以交我一下嗎?

還有我用了大大提供的程式碼發現...還是沒有20位....

:on_47:
有啊～

您不會是一個個數的吧
只要加個 Label1
再在程式碼最後加上
Label1.Caption = Len(sRnd)

每次運行 Label1都是顯示20 啊

kppne0931

2009-05-21 06:17 PM

引用:

作者: cwvdavid (文章 2156812)

是都變大寫....但是還是沒有20位數不知道是不是我用錯....

kppne0931

2009-05-21 07:01 PM

引用:

作者: mini (文章 2156854)

:on_47:
有啊～

您不會是一個個數的吧
只要加個 Label1
再在程式碼最後加上
Label1.Caption = Len(sRnd)

每次運行 Label1都是顯示20 啊

我想....大大可能誤會我的意思了...我要的是按下Command 然後再Text3產生"20個英數組成的字串" 而不是顯示"20"這個數字....

mini	2009-05-21 07:42 PM

引用:

作者: kppne0931 (文章 2156901)

我想....大大可能誤會我的意思了...我要的是按下Command 然後再Text3產生"20個英數組成的字串" 而不是顯示"20"這個數字....

您也誤會了
Label1.Caption = Len(sRnd)
是為了證明 sRnd這個字串是 "20個英數" 所組成
※Len 是得到 "字串長度" 的VB保留字

如果要顯示在Text3上:
me.caption 是視窗標題
只要改成 Text3.text 就可以了

================
為了釐清目的，問一下
試著運行一次得到以下字串
NFHQ0PSN1AUQYU2XFP2I
以上字串不就是 "20個英數組成的字串" 嗎？
(還是你另有所指...?)

Living

2009-05-21 09:58 PM

Len()指令是return一個字串中有多少位字母

Mini大做出來的Label是幫助你去"認證"亂數變出來的字串是不是長度為20個字元
不用Len()去直接顯示出長度, 你要每次一個一個下去算也是可以
只是比較浪費時間

我們以前在寫程式時
會習慣到處加一兩行CODE去顯示一些重要的參數或數據
就像Mini教你的Len()就是一樣的道理
這一行指令對你本身的PROJECT沒有幫助
但可以方便寫程式或測試程式的人很快得知一些重要的數據

這些另外加上去的CODE通常最後會拿掉, 不會讓使用者看到或用到

kppne0931

2009-05-21 10:01 PM

引用:

作者: mini (文章 2156908)

感謝大大的指引....現在剩下如何輸入密碼正確時Frame才可以使用((請參照問題2)) 這部分我完全不懂希望大大可以指引我....

Living

2009-05-21 10:06 PM

Frame可以預設為visible=false
這樣一開始就不會有Frame出現

如果輸入的密碼相同

if text.text=password then
frame.visible=true

這樣密碼正確的話Frame就會出現

kppne0931

2009-05-21 10:21 PM

引用:

作者: Living (文章 2156947)

Frame可以預設為visible=false
這樣一開始就不會有Frame出現

如果輸入的密碼相同

if text.text=password then
frame.visible=true

這樣密碼正確的話Frame就會出現

Dim pw As String
pw = 77996

If Text4.Text <> pw Then
Label15.Caption = "密碼錯誤！"
Else
Label15.Caption = "登入成功！感謝您使用本程式"
End If

說明一下以上程式碼當text4輸入77996按下Command檢測正確時Frame(有2個)內的"Check"變為可使用(程式剛啟動時為灰色不可動) 不知道上面的要不要改以及 Frame 要輸入怎樣的程式碼

Living

2009-05-21 10:35 PM

引用:

作者: kppne0931 (文章 2156953)

Label15.Caption = "登入成功！感謝您使用本程式"
這一段是密碼正確時執行
所有你要的功能都加在這行之後
比如說frame.enabled=true

kppne0931

2009-05-21 10:50 PM

引用:

作者: Living (文章 2156958)

Label15.Caption = "登入成功！感謝您使用本程式"
這一段是密碼正確時執行
所有你要的功能都加在這行之後
比如說frame.enabled=true

感謝大大的積極指引目前已經完成小弟相當感謝...

Living

2009-05-21 10:53 PM

沒看到CODE不知道你哪個部分語法有錯

我估計可能是東COPY一塊, 西COPY一塊, 湊在一起時出問題

kppne0931

2009-05-21 10:55 PM

引用:

作者: Living (文章 2156967)

沒看到CODE不知道你哪個部分語法有錯

我估計可能是東COPY一塊, 西COPY一塊, 湊在一起時出問題

其實....是frame.enabled=true 的frame沒有加上編號1 2 所以沒辦法XD....別打我ㄚ....

Living

2009-05-21 10:55 PM

引用:

作者: kppne0931 (文章 2156965)

感謝大大的積極指引目前已經完成小弟相當感謝...

不用客氣, 其實大部分還是靠你自己摸索出來

希望這次的經驗能對你有幫助

Living

2009-05-21 10:56 PM

引用:

作者: kppne0931 (文章 2156968)

其實....是frame.enabled=true 的frame沒有加上編號1 2 所以沒辦法XD....別打我ㄚ....

果然是直接COPY所以出錯

http://xs435.xs.to/xs435/09043/cc897.gif

kppne0931

2009-05-21 11:06 PM

引用:

作者: Living (文章 2156969)

不用客氣, 其實大部分還是靠你自己摸索出來

希望這次的經驗能對你有幫助

其實...不瞞您說我是國中一年級的學生....連基礎VB都不知道...指因為看了一點VB的書才會那段輸入密碼檢測的程式碼其他的我全都不會 ((程式碼)) 所以我才會一只出錯...呵呵～

Living

2009-05-21 11:14 PM

引用:

作者: kppne0931 (文章 2156974)

國一就能寫出這樣的東西, 那很難得
尤其有一份學的熱忱與非得搞定它的毅力
更是不容易

每個人都有剛開始接觸一樣新事物的經驗

希望你能繼續有興趣的研究VB

遇到問題, 請隨時發問
版上的高手真的很多

(我不是, 我的VB只懂皮毛, 而且已經很多年沒摸過)

kppne0931

2009-05-21 11:17 PM

引用:

作者: Living (文章 2156978)

嗯嗯謝謝....以後我會邁向程式語言之路的....

cwvdavid

2009-05-21 11:30 PM

為什麼【國中一年級】,就得開始寫這個呀......:on_72:

我到大一的時候才開始寫這個..........:on_74:

(難道現在的小朋友為了要贏在起跑點, 都必須這麼的拚嗎 ??)

kppne0931

2009-05-21 11:45 PM

引用:

作者: cwvdavid (文章 2156981)

我是因為興趣加上無聊再加上我覺得不錯玩...程式做好有一總成就感就決的很爽...

mini	2009-05-22 02:13 PM

引用:

作者: kppne0931 (文章 2156984)

我是因為興趣加上無聊再加上我覺得不錯玩...程式做好有一總成就感就決的很爽...

你可以去買適合自己閱讀的本書看
裡面有寫好的範例光碟可直接來用

當初個人的VB就是因為專題所需而買書自學的

kppne0931

2009-05-22 05:45 PM

引用:

作者: mini (文章 2157200)

你可以去買適合自己閱讀的本書看
裡面有寫好的範例光碟可直接來用

當初個人的VB就是因為專題所需而買書自學的

嗯嗯...我有打算買書了...

tarzan688

2024-09-16 11:22 AM

Private Sub Command1_Click()
Dim randomString As String
Dim i As Integer
Dim chars As String
chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

' 初始化隨機字串
randomString = ""

' 產生 20 個隨機字元
For i = 1 To 20
randomString = randomString & Mid(chars, Int(Rnd * Len(chars)) + 1, 1)
Next i

' 將結果顯示在文字框中
Text1.Text = randomString
End Sub

所有時間均為台北時間。現在的時間是 03:11 AM。

SEO by vBSEO 3.6.1