الأخوة الأعضاء الكرام
السلام عليكم
لدي بعض الأكواد الخاصة بالفيجول بيسك أريد تحويلها أو تعديلها لتعمل على الأكسس هل أجد من يساعدني على ذلك ( هذه الأكواد منقوله من بعض المنتديات)
______________________________
الكود الأول هو:
Private Sub Timer2_Timer()
Dim c1
Dim c2
Dim c3
Dim col1
Dim col2
Dim col3
If (col1 = 0 Or col1 = 250) And (col2 = 0 Or col2 = 250) And (col3 = 0 Or col3 = 250) Then
c1 = Int(Rnd * 3)
c2 = Int(Rnd * 3)
c3 = Int(Rnd * 3)
End If
If c1 = 1 And col1 <> 0 Then col1 = col1 - 10
If c2 = 1 And col2 <> 0 Then col2 = col2 - 10
If c3 = 1 And col3 <> 0 Then col3 = col3 - 10
If c1 = 2 And col1 <> 250 Then col1 = col1 + 10
If c2 = 2 And col2 <> 250 Then col2 = col2 + 10
If c3 = 2 And col3 <> 250 Then col3 = col3 + 10
Label1.ForeColor = RGB(col1, col2, col3)
End If
هذا الكود لتدرج الخط الى جميع الالوان
____________________
الكود الثاني هو :
Private Sub Timer1_Timer()
Form1.Width = Form1.Width + 500
Form1.Height = Form1.Height + 500
If Form1.Width > 12000 Or Form1.Height > 12000 Then
Form1.Width = 12000
Form1.Height = 9000
Timer1.Enabled = False
End If
End sub
وهذا الكود لتكبير الفورم تدريجيا ،،، وطبعا عليك بضبط الخصائص للفورم الارتفاع =1 والعرض =1
______________________
الكود الثالث هو :
Dim X(100), Y(100), pace(100), size(100) As Integer
Dim size1
Dim d
Private Sub Form_Activate()
For i = 1 To 100
X1 = Int(Form1.Width * Rnd)
Y1 = Int(Form1.Height * Rnd)
Timer1.Enabled = True
pace1 = Int(500 - (Int(Rnd * 499)))
size1 = 25 * Rnd
X(i) = X1
Y(i) = Y1
pace(i) = pace1
size(i) = size1
Next
End Sub
وهذا الكود تكاثر عدد كبير من الدوائر وتساقطهم ،،، كالنجوم
________________________
الكود الرابع هو :
Private Sub Timer1_Timer()
dim w
dim e
If w > 255 Then e = True
If w < 10 Then e = False
If e Then w = w - 10 Else w = w + 10
Label1.ForeColor = RGB(w, w, w)
End Sub
وهذا الكود لجعل لون الخط يتدرج بين اللونين الاسود والابيض مرور بالالوان التي بينها
______________________
ولكل من يقدم لي المساعدة له الشكر الجزيل
سائلاً الله العلي القدير أن لا يحرمه أجر عمله
وتقبلوا تحياتي
