[ٍSaeid]

السلام عليكم و رحمة الله و بركاته 
شباب انا عما ادرس بالمانيا الفيجوال بيسك و الانسة عنا كتيييير غبية احتاج لمساعدتكم




Option Strict On 

 
Public Class frmKeygenerator 
 
Private Sub btnKeyGenerieren_Click(sender As Object, e As EventArgs) Handles btnKeyGenerieren.Click 
 
   Dim iZufallszahl, i, iAnzahl As Integer 
 
   iAnzahl = Convert.ToInt32(txtAnzahl.Text) لماذا هنا تم التحويل الى انتجر32 و لم يحول الى فقط انتجر
 
   Randomize()    lblKey.Text = "" 
 
   For i = 1 To iAnzahl        iZufallszahl = Convert.ToInt32(Int(Rnd() * 9) + 1)        lblKey.Text = lblKey.Text & iZufallszahl.ToString & " "    Next End Sub 
 
 
Private Sub btnSchließen_Click(sender As Object, e As EventArgs) Handles btnSchließen.Click 
 
   Close() 
 
End Sub End Class

ما معنى هذا Randomize()

[sirnon]

ما معنى هذا Randomize()
دالة لتوليد ارقام عشوائية

[عبدالله الدوسري]

(25-04-18, 04:25 PM)sirnon كتب : ما معنى هذا Randomize()
دالة لتوليد ارقام عشوائية

الوظيفة (Rnd) هي من تقوم بتوليد الرقم العشوائي , وليس Randomize

Randomize
يتم استخدام العبارة Randomize لتهيئة مولد الأرقام العشوائية.

يتم استدعاء Randomize قبل استخدام الوظيفة Rnd. 
الدالة Rnd تقوم بإنشاء الرقم "العشوائي" التالي في تسلسل أرقام (pseudo-random - شبة عشوائي) .
التالي : يعني أنها متسلسلة , وهذا التسلسل ثابت , 
يعني أنك ستحصل على نفس الترتيب في الأرقام الناتجة من الوظيفة Rnd
العبارة Randomize وظيفتها : تقوم بتغيير هذا التسلسل وتقوم بتعيين نقطة بداية ذلك التسلسل.
وعند إستخدام الوظيفة Rnd بعد إستدعاء Randomize  ستجد أن التسلسل قد إختلف