ارجوالمساعده

مرحباً أخي الكريم, سأكتب لك العمليات التي تحتاجها, لكن في المرة القادمة عليك أنت تقوم بهذا وعند موجهتك لأي مشكلة يمكنك أن تسألنا عنها :

لنعتبر أن جميع الصور ذات لاحقة واحدة ( .jpg ) وموجودة في مجلد يدعى ( Flags ) وهذا المجلد موجود في نفس مكان البرنامج :

Public Class Form1

Dim AppPath As String = Application.StartupPath.ToString()

Dim Files() As String = IO.Directory.GetFiles( AppPath & "\Flags", "*.jpg", 2 )

Dim Indices As New List(Of Integer)

Dim _MyRND As New Random

Private Function GetUniqueRandomNumber() As Integer

Dim Matched As Boolean = False

Dim NIndex As Integer = _MyRND.Next(0, UBound( Files.Length ))

For Each SINT As Integer In Indices

If SINT = NIndex Then

Matched = True

End If

Next SINT

If Matched Then

NIndex = GetUniqueRandomNumber

Else

Return NIndex

End If

Indices.Add(NIndex)

End Function

Private Function DisplayFlag( Byval FlagID As Integer ) As Image

If FlagID > 0 And FlagID < Files.Length Then

Return Image.FromFile(Files(FlagID ) )

End If

End Sub

Private Function BuildPathName( Byval FlagID As Integer ) As String

Return Files( FlagID )

End Function

End Class

____________________________________

الأن لإستخدام الكود المذكور ستحتاج لإضافة زر ( Button ) و صندوق صورة ( PictureBox ) .

لعرض صورة مختارة عشوائياً

Private Sub Button1_Click( Byval Sender As System.Object, Byval E As System.EventArgs ) Handles Button1.Click

PictureBox1.Image = DisplayFlag( GetUniqueRandomNumber )

End Sub

لعرض مسار الصورة

Private Sub Button2_Click( Byval Sender As System.Object, Byval E As System.EventArgs ) Handles Button2.Click

MsgBox( BuildPathName( Indices( UBound( Indices ) ) )

End Sub

بقي عليك مقارنة الصورة بإسمها , سأتركها لك كتدريب .

BasharVS.