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

[kppne0931]

沒人知道怎改嗎?

[mini]

第一題

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 則相反

[kppne0931]

作者: mini

第一題

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 則相反

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

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

[cwvdavid]

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

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

就ok了...

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

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

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

[kppne0931]

作者: cwvdavid

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

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

就ok了...

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

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

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

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

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

[cwvdavid]

有這麼的難嗎???

'放一個函數在程式碼內...
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]

作者: cwvdavid

有這麼的難嗎???

'放一個函數在程式碼內...
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


這樣跑不出結果嗎??

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

[mini]

作者: kppne0931

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

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

有啊～

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

每次運行 Label1都是 顯示20 啊

[kppne0931]

作者: mini

有啊～

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

每次運行 Label1都是 顯示20 啊

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

[mini]

作者: kppne0931

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

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

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

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

[Living]

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

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

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

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

[kppne0931]

作者: mini

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

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

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

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

[cwvdavid]

之所以沒有出現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
這是別人寫的, 參考看看吧...