PDA

View Full Version : مشکل در انتساب عدد تصادفی به دست آمده به یک متغیر



hamhik
چهارشنبه 29 فروردین 1386, 18:29 عصر
سلام
من می خوام که بین 10 تا 50 یک عدد تصادفی تولید شود برای اینکار هم از کدهای زیر استفاده کردم


Dim ran As Random
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim ran1 As Integer
ran1 = ran.Next(10, 50)
End Sub


که البته این خط هم به ابتدای برنامه اضافه نمودم
imports system.random

اما وقتی که برنامه اجرا می شود با کلیک بر روی دکمه ،ارور زیر را می دهد
Object reference not set to an instance of an object
خروجی دستور که integer هست متغیری هم که تعریف شده integer هست پس مشکل کجاست؟؟؟

rtech
چهارشنبه 29 فروردین 1386, 18:53 عصر
خط اول رو به این شکل بنویسید :




Dim ran As New Random