نمایش تصادفی سخنان بزرگان / احادیث و...

[Ehsan-l-able]

سلام دوستان.

چطوری میشه سخنان پندآمیز / احادیث یا هر چیز دیگه ای رو داخل یک فایل متنی ذخیره کرد و پس هر بار اجرای برنامه به صورت تصادفی یکی رو داخل یک label نمایش داد.

با ذخیره و لود فایل متنی مشکلی ندارم ، فقط نمایش تصادفی ؟!!

راستی من زیاد از xml سردرنمیارم . آیا میشه برای این کار از xml استفاده کرد ؟ اگه آره چه مزایایی نسبت به فایل داره ؟

دوستان ممنون میشم مثال هم ذکر بفرمایید

[osmanjan]

سلام دوستان.

چطوری میشه سخنان پندآمیز / احادیث یا هر چیز دیگه ای رو داخل یک فایل متنی ذخیره کرد و پس هر بار اجرای برنامه به صورت تصادفی یکی رو داخل یک label نمایش داد.

با ذخیره و لود فایل متنی مشکلی ندارم ، فقط نمایش تصادفی ؟!!

راستی من زیاد از xml سردرنمیارم . آیا میشه برای این کار از xml استفاده کرد ؟ اگه آره چه مزایایی نسبت به فایل داره ؟

دوستان ممنون میشم مثال هم ذکر بفرمایید

بله می تونید از xml استفاده کنید .
برای استفاده از فایل متنی هم میتونید بااستفاده از آرایه و راندوم کردن آن به صورت تصادفی داخل label نمایش بدید.

[Ehsan-l-able]

بله می تونید از xml استفاده کنید .
برای استفاده از فایل متنی هم میتونید بااستفاده از آرایه و راندوم کردن آن به صورت تصادفی داخل label نمایش بدید.

سلام
شما که سوال منو تکرار کردید
من مثال از رندوم کردن یک رشته میخواستم.

[عــــلی]

بنام خدا.
سلام.
اگه متون های شما در یک لیست آرایه قرار دارند میتونید از کلاس Random استفاده کنید.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

به جای len تعداد ستون های آرایه رو قرار بدید.
مقدار بازگشتی یک عدد از 0 تا تعداد ستون متون ها میباشد.
موفق و سربلند باشید در پناه حق.

[osmanjan]

imports system
imports system.io
'در کلاس فرم
Dim rd As New IO.StreamReader(Application.StartupPath & "\1.txt")
Dim s(5) As String
Dim i As Integer

'در خاصیت Form Load

Timer1.Interval = 3000
Timer1.Start()

'در خاصیت Timer Tick

Dim op As New Random

If Not rd.EndOfStream Then


s.SetValue(rd.ReadLine, i)
i = i + 1

Else

'MsgBox(i)
Label1.Text = s(op.Next(0, i))

End If