تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب تعديل على كود توليد Random
#3
اخى الكريم
اعتقد انى فهمت المطلوب (او هذا ما اتمنى Big Grin)

بالنسبه لكود التوليد العشوائى للحروف والارقام معا يمكنك تجربة هذا الكود

PHP كود :
Dim randam As New Random
        Dim int 
As String ChrW(randam.Next(Asc("0"), Asc("9")))
        
Dim str As String ChrW(randam.Next(Asc("a"), Asc("z")))
        
Dim rnd_length As Integer randam.Next(55)
        
Dim strbuil As New System.Text.StringBuilder
        
Do While strbuil.Length rnd_length
            Dim i 
As Integer randam.Next(20)
            If 
10 Then
                strbuil
.Append(str(randam.Next(str.Length)))
            Else
                
strbuil.Append(int(randam.Next(int.Length)))
            
End If
        
Loop

        TextBox1
.Text strbuil.ToString 

وبالنسبه لل ComboBox

فى حدث ال SelectedIndexChanged تبع ال ComboBox ضع هذا الكود

PHP كود :
Select Case ComboBox1.Text
            
Case 1
                Panel1
.Visible False
            
Case 2
                Panel1
.Visible True
            
Case 3
                Panel1
.Visible False
        End Select 

اتمنى ان اكون فهمت المطلوب .... اما غير ذلك فاعذرنى لعدم فهمى

وبالتوفيق ان شاء الله
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
طلب تعديل على كود توليد Random - بواسطة learning.net - 19-04-13, 07:41 AM


التنقل السريع :


يقوم بقرائة الموضوع: