منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ليس جديد لعبة تغيير اماكن الازرار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

اقصد ازرار الحفظ  والتعديل والحذف والانهاء ....مجرد ممازحة للمستخدمSmile
PHP كود :
Dim b1loc As Point
    Dim b2loc 
As Point
    Dim b3loc 
As Point
    Dim b4loc 
As Point
  
Private Function gn() As Integer
a
:
        If Int(Rnd() * 15) = i Then GoTo a
        Randomize
()
        Return Int(Rnd() * 15)
    End Function
Private 
Sub changebuttonslocation()

        Select Case gn()
            Case 0
                i 
0
                b1
.Location b1loc
                b2
.Location b2loc
                b3
.Location b3loc
                b4
.Location b4loc
            
Case 1
                i 
1
                b1
.Location b4loc
                b2
.Location b3loc
                b3
.Location b2loc
                b4
.Location b1loc
            
Case 2
                i 
2
                b1
.Location b1loc
                b2
.Location b4loc
                b3
.Location b3loc
                b4
.Location b2loc

            
Case 3
                i 
3
                b1
.Location b1loc
                b2
.Location b4loc
                b3
.Location b2loc
                b4
.Location b3loc

            
Case 4
                i 
4
                b1
.Location b2loc
                b2
.Location b4loc
                b3
.Location b3loc
                b4
.Location b1loc

            
Case 5
                i 
5
                b1
.Location b3loc
                b2
.Location b4loc
                b3
.Location b1loc
                b4
.Location b2loc

            
Case 6
                i 
6
                b1
.Location b1loc
                b2
.Location b3loc
                b3
.Location b2loc
                b4
.Location b4loc

            
Case 7
                i 
7
                b1
.Location b1loc
                b2
.Location b3loc
                b3
.Location b4loc
                b4
.Location b2loc


            
Case 8
                i 
8
                b1
.Location b3loc
                b2
.Location b4loc
                b3
.Location b1loc
                b4
.Location b2loc

            
Case 9
                i 
9
                b1
.Location b2loc
                b2
.Location b1loc
                b3
.Location b3loc
                b4
.Location b4loc

            
Case 10
                i 
10
                b1
.Location b2loc
                b2
.Location b1loc
                b3
.Location b4loc
                b4
.Location b3loc

            
Case 11
                i 
11
                b1
.Location b2loc
                b2
.Location b3loc
                b3
.Location b1loc
                b4
.Location b4loc

            
Case 12
                i 
12
                b1
.Location b2loc
                b2
.Location b3loc
                b3
.Location b4loc
                b4
.Location b1loc

            
Case 13
                i 
13
                b1
.Location b2loc
                b2
.Location b4loc
                b3
.Location b1loc
                b4
.Location b3loc

            
Case 14
                i 
14
                b1
.Location b2loc
                b2
.Location b4loc
                b3
.Location b3loc
                b4
.Location b1loc

            
Case 15
                i 
15
                b1
.Location b3loc
                b2
.Location b4loc
                b3
.Location b1loc
                b4
.Location b2loc

        End Select
    End Sub 
التكملة بالمثال....مجرد تسلية المثال قديم عدلت عليه الجزئية هذي فقطSmile