[علاء الاكرمي]

السلام عليكم ورحمة الله تعالى وبركاته
معكم علاء الاكرمي
اليوم سوف اقدم لكم كود جميل
اولاً : أضف زر اوامر
ثانياً ضع الكود الاتي :

كود :

'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon (form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 100
For wiRnd = 1 To form1.Width Step 100
Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
Form1.Cls
End Sub

او جرب الكود ده

كود :

'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 125
For wiRnd = 1 To form1.Width Step 125
Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

او ده

كود :

'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 225
For wiRnd = 1 To form1.Width Step 225
Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

وكمان ده

كود :

'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 125
For wiRnd = 1 To form1.Width Step 125
Me.Circle (wiRnd, heRnd), 100, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

و اذا بدكم ده

كود :

'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 125
For wiRnd = 1 To form1.Width Step 125
Me.Circle (wiRnd, heRnd), 500, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

والاجمل ده

كود :

'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 325
For wiRnd = 1 To form1.Width Step 325
Me.Circle (wiRnd, heRnd), 500, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

و يمكنك ايضا التفنن بصنعها بالتعديل في الرقمين 325 في ما سبق

كود :

For heRnd = 1 To form1.Height Step 325
For wiRnd = 1 To form1.Width Step 325

والسلام عليكم

[ghada abd elnabe]

السلام عليكم ورحمة الله
من فضلكم ممكن حد يوضح الاكواد دى