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

我朋友說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


這樣跑不出結果嗎??

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

[Living]

作者: kppne0931

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

大小寫是ASCII取得

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

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

[kppne0931]

作者: Living

大小寫是ASCII取得

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

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

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

[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)) 這部分我完全不懂 希望大大可以指引我....

[Living]

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

如果輸入的密碼相同

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

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

[kppne0931]

作者: Living

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 要輸入怎樣的程式碼