السلام عليكم ورحمة الله تعالى وبركاته
معكم علاء الاكرمي
اليوم سوف اقدم لكم كود جميل
اولاً : أضف زر اوامر
ثانياً ضع الكود الاتي :
او جرب الكود ده
او ده
وكمان ده
و اذا بدكم ده
والاجمل ده
و يمكنك ايضا التفنن بصنعها بالتعديل في الرقمين 325 في ما سبق
والسلام عليكم
معكم علاء الاكرمي
اليوم سوف اقدم لكم كود جميل
اولاً : أضف زر اوامر
ثانياً ضع الكود الاتي :
كود :
'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* 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
والسلام عليكم