تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] ارجوكم ساعدوا اختكم المبتدئه في الفيجال بيسك ... بسرعه
#1
Question 
السلام عليكم انا عضوه جديده في المنتدي الاكثر من رائع هذا و هو يعتبر مرج لكل طلاب لبحاسبات و المعلومات و لغات البرمجه لكم جزيل الشكر و يضع الله هذا الجهد في ميزان حسناتكم
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
اليوم انا بس بطلب من اي حد محترف في لغات البرمجه و يكون فاهم كويس في الفيجوال بيسك انه يساعدني و انشاء الله له الاجر عند الله
انا بصراحه اقتبست لعبه عشان اقدمها في امتحان العملي تبعي ارجوكم اي حد يفهمني الاكواد بتاعتها لاني امتحاني يوم السبت القادم و تفاجأت بموضوع الاكودا ده
ارجـــــــــــــــــــــــــــــــــــــــــــــــــــــــــوكم كل من يشوف الموضوع يضع له اهتمام
::::: اللعبه عباره عن لعبه هوكي الطاوله :::::
و هذه هي الاكواد ؟؟ وانا انتظر المساعده باقصي سرعه ارجوكم


Option Explicit
Dim puckx As Single, pucky As Single, vpuckx As Single, vpucky As Single
Dim padx1 As Single, padx2 As Single, pady1 As Single, pady2 As Single
Dim pad2x1 As Single, pad2x2 As Single, pad2y1 As Single, pad2y2 As Single
Dim touche As Boolean, touche1 As Boolean
Dim gagne As Boolean

Private Sub Command1_Click()
End
End Sub



Private Sub Command2_Click()
MsgBox ".áÚÈÉ Çáåæßí ÇáÔåíÑÉ .................... Úáí ÇáÇÚÈ ÇáÇæá æ åæ ÇäÊ (ÇáÇÍãÑ) Çä íÍÑÒ ÇåÏÇÝ Ýí ÎÕãå ÇáÇÚÈ (ÇáÇÒÑÞ) æÐáß ãä ÎáÇá ÊÍßãå ÈáãæÓ Ýí ÇáßÑÉ (ÇáÓãÑÇÁ) æÇáãÑãí åæ ÇáÔÑíØ ÇáÇÓæÏ ÇáÚÑíÖ Ýí ÇÑÖ ßá áÇÚÈ #ÇÊÍÏí_äÝÓß"
End Sub

Private Sub Command3_Click()
Picture1.MousePointer = 2
puckx = puck.Left
pucky = puck.Top
vpuckx = 0
vpucky = 200
End Sub



Private Sub Command4_Click()
Text1.Text = "ãÕØÝí ãÍãÏÇÈæÇáãÌÏ - Çæáí Úáæã ÍÇÓÈ - HIMIT"
End Sub

Private Sub Command5_Click()
MsgBox max(Scorered.Caption, Scoreblue.Caption) & " to " & min(Scorered.Caption, Scoreblue.Caption), vbDefaultButton1, "ááÇÓÊÆäÇÝ OK ÇÖÛØ"
End Sub

Private Sub Form_Load()
Picture1.MousePointer = 2
puckx = puck.Left
pucky = puck.Top
vpuckx = 0
vpucky = 200
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
paddle1.Left = X - 120
paddle1.Top = max(Y - 120, Line1.Y1)
End Sub
Function max(ByVal a As Single, ByVal b As Single)
If a > b Then
max = a
Else
max = b
End If
End Function
Function min(ByVal a As Single, ByVal b As Single)
If a > b Or a < 0 Then
min = b
Else
min = a
End If
End Function

Private Sub Timer1_Timer()
Dim a As Single
If gagne = True Then
vpuckx = 100
vpucky = 0
If pucky < 100 Then
Scorered.Caption = Scorered.Caption + 1
MsgBox max(Scorered.Caption, Scoreblue.Caption) & " to " & min(Scorered.Caption, Scoreblue.Caption), vbDefaultButton1, "Ìæææá áß ÊåÇäíäÇ"

Else
Scoreblue.Caption = Scoreblue.Caption + 1
MsgBox max(Scorered.Caption, Scoreblue.Caption) & " to " & min(Scorered.Caption, Scoreblue.Caption), vbDefaultButton1, "Ìææá ááÎÕã ÇäÊÈå!"
End If
pucky = Line1.Y1
gagne = False
Exit Sub
End If
If vpucky > 0 Or Abs(vpucky) < 15 Then
touche = False
Else
touche1 = False
End If
If puckx < 0 Then
Beep
vpuckx = -0.8 * vpuckx
puckx = -puckx
End If
If pucky < 0 Then
If puckx < Line3.X2 And puckx > Line3.X1 Then
gagne = True
Exit Sub
End If
Beep
vpucky = -0.8 * vpucky
pucky = -pucky
End If
If puckx > 3200 Then
Beep
vpuckx = -0.8 * vpuckx
puckx = 2 * 3200 - puckx
End If
If pucky > 5480 Then
If puckx < Line3.X2 And puckx > Line3.X1 Then
gagne = True
Exit Sub
End If
Beep
vpucky = -0.8 * vpucky
pucky = 2 * 5480 - pucky
End If
puckx = puckx + vpuckx
pucky = pucky + vpucky
puck.Left = puckx
puck.Top = pucky
padx1 = padx2
pady1 = pady2
pad2x1 = pad2x2
pad2y1 = pad2y2
padx2 = paddle1.Left
pady2 = paddle1.Top
If puckx > pad2x2 Then
paddle2.Left = paddle2.Left + min(vpuckx, cpu.Value)
Else
paddle2.Left = paddle2.Left - min(Abs(vpuckx), cpu.Value)
End If
pad2x2 = paddle2.Left
If pucky < Line1.X1 And vpucky < 20 Then
If pad2y2 - pucky > -240 Then
paddle2.Top = paddle2.Top - 240
pad2y2 = paddle2.Top
Else
paddle2.Top = paddle2.Top + 100
pad2y2 = paddle2.Top
End If
Else
If pucky < 500 And pucky > pad2y2 Then
paddle2.Top = paddle2.Top + 100
pad2y2 = paddle2.Top
Else
If paddle2.Top > 0 Then
paddle2.Top = paddle2.Top - 120
pad2y2 = paddle2.Top
End If
End If
End If

If Not (touche) And ((puckx - padx2) ^ 2 + (pucky - pady2) ^ 2) ^ (1 / 2) < 240 Then
a = 240 / ((puckx - padx2) ^ 2 + (pucky - pady2) ^ 2) ^ (1 / 2)
puckx = padx2 + a * (puckx - padx2)
pucky = pady2 + a * (pucky - pady2)
Beep
touche = True
nvitesse vpuckx, vpucky, puckx - padx2 + 0.05, pady2 - pucky
vpuckx = vpuckx + (padx2 - padx1) * Abs(puckx - padx2) / 240
vpucky = vpucky + (pady2 - pady1) * Abs(pucky - pady2) / 240
End If
If Not (touche1) And ((puckx - pad2x2) ^ 2 + (pucky - pad2y2) ^ 2) ^ (1 / 2) < 240 Then
a = 240 / ((puckx - padx2) ^ 2 + (pucky - pady2) ^ 2) ^ (1 / 2)
puckx = pad2x2 + a * (puckx - pad2x2)
pucky = pad2y2 + a * (pucky - pad2y2)
Beep
touche1 = True
nvitesse vpuckx, vpucky, puckx - pad2x2 + 0.05, pad2y2 - pucky
vpuckx = vpuckx + (pad2x2 - pad2x1) * Abs(puckx - pad2x2) / 240
vpucky = vpucky + (pad2y2 - pad2y1) * Abs(pucky - pad2y2) / 240
End If
End Sub
Sub nvitesse(vx As Single, vy As Single, dx As Single, dy As Single)
Dim angle As Single
Dim vx1, vy1 As Single
angle = Atn(dy / dx)
vx1 = vy * Cos(angle) + vx * Sin(angle)
vy1 = vy * Sin(angle) - vx * Cos(angle)
vx = vx1 * Sin(angle) + vy1 * Cos(angle)
vy = vx1 * Cos(angle) - vy1 * Sin(angle)
End Sub


الملفات المرفقة
.zip   airhockey.zip (الحجم : 2.54 ك ب / التحميلات : 30)
الرد }}}}
تم الشكر بواسطة:
#2
الموضوع إن شاء الله بسيط

بس لو ترفقي المشروع ليتم الشرح بداخلة

اعتقد ان المسالة كلها حركة للصورة
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}}
تم الشكر بواسطة: فتاة الفيجول
#3
يااااااااااااا اخي تركي انا ضفت اللعبه كلها بلمرفقات ارجووووووك لا تتجاهلني ارررجوك ساعدني و انا انتظر رد حضرتك
الرد }}}}
تم الشكر بواسطة:
#4
امتحاني غدا يا بشمهندسين .......... ارجوكم سعدوني
الرد }}}}
تم الشكر بواسطة:
#5
كان يجب وضع المثال قبل اسبوع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) sher 1 230 08-11-16, 02:32 AM
آخر رد: AL_BRNS
  [vb6.0] ما هي طريقة تسجيل أدوات ocx في الفيجوال بيسك - iisys 4 141 13-10-16, 01:53 PM
آخر رد: Ashraf Elafify
  [سؤال] مشكلة في تنصيب وعمل فيجوال بيسك على نظام ويندوز 7 hend amir 3 2,551 04-10-16, 04:59 AM
آخر رد: iisys
  [vb6.0] ممكن نسخة فيجوال بيسك 6 كاملة iisys 2 116 03-10-16, 08:30 PM
آخر رد: iisys
  ارجو المساعدة اريد افضل نسخة للفجول بيسك 6 تكون كاملة mhareek 5 289 30-08-16, 12:38 AM
آخر رد: إبراهيم خشافه
  اريد كود لتغيير التاريخ فقط للوندوز من الفجوال بيسك 6 scsi7000 2 111 25-08-16, 01:53 PM
آخر رد: scsi7000
  [سؤال] الفيجوال بيسك 6 لا يكتب عربي محمد خلف زكي 1 180 24-07-16, 01:48 AM
آخر رد: عبد العزيز البسكري
  فهم الفجوال بيسك كترينا 1 154 10-07-16, 08:45 AM
آخر رد: Amir_alzubidy
  [سؤال] حساب مواقيت الصلاة بالفيجوال بيسك 6 بوعيسى 7 329 29-06-16, 02:00 AM
آخر رد: بوعيسى
  [سؤال] مشروع دليل هاتف مربوط بملف dll بالفيجوال بيسك 6 بوعيسى 8 323 28-06-16, 02:59 PM
آخر رد: abulayth

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


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