تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] ليس جديد لعبة تغيير اماكن الازرار
#1
Wink 

اقصد ازرار الحفظ  والتعديل والحذف والانهاء ....مجرد ممازحة للمستخدم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


الملفات المرفقة
.zip   For_3liK3bi.zip (الحجم : 82.88 ك ب / التحميلات : 82)
[صورة مرفقة: portscanner.png]
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال تغيير اسم المستخدم وكلمة المرور اعتمادا على الرقم الفريد سعود 5 3,892 02-01-18, 05:35 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم