لو سمحتم بسرعة

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

طلب مهم جداً

أريد أولا إعطائكم نبذة مختصرة عن هذا الطلب

لدي برنامج مسابقات عمل بـ الفجوال بيسك وتوجد به بعض ألا كواد لم استطع ترجمتها أو فهم عملها

وأتمنى ممن يستطيع المساعدة توضيح وترجمة هذه الأكواد بالتفصيل( الممل)

وهي كالتالي

أولا هذا الكود:

Public Sub HandleReply()

Const LOWER = 1

Const UPPER = 10

Static TalkArray(LOWER To UPPER) As String

Dim OldReply As String

Dim TempString As String

( NL = Chr(10) & Chr(13

L0 = L0.Caption

"" TempString=

For i = LOWER To UPPER

TempString = TempString & TalkArray(i) & NL

Next i

L0.Caption = Greeting

End Sub

ثانيا هذا الكود :

Public Sub gab_s()

Dim s As Integer

Randomize

(s = CInt(3 * Rnd + 1

Select Case s

Case 1

" sa1.Command = "play

Case 2

" sa2.Command = "play

Case Else

" sa3.Command = "play

End Select

End Sub

ثالثاً هذا الكود :

Private Sub Timer1_Timer()

Static a As Boolean

If (P1.Left > 7.62) Then

P1.Left = P1.Left - 0.0433

Else

Timer1.Interval = 0

P1.Left = 13.97

" انتهى الوقت" = ms.l3.Caption

ms.Show

HandleReply

End If

End Sub

ولكم مني خالص الشكر والامتنان