التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 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 ك ب / التحميلات : 66)
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
ارجوكم ساعدوا اختكم المبتدئه في الفيجال بيسك ... بسرعه - بواسطة فتاة الفيجول - 15-05-14, 02:04 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تفسير في كريستال ريبور مع فيجوال بيسك و الاكسيس tighrmte 3 644 12-02-23, 02:40 PM
آخر رد: tighrmte
Question [vb6.0] هل دالة Dcount ضمن دوال بيسك 6 ؟؟ Microformt 0 308 04-01-23, 08:33 PM
آخر رد: Microformt
  كيف نسمى نقطة او مستقيم في فيجوال بيسك 6 سويلم 4 814 12-09-22, 02:59 AM
آخر رد: سويلم
  طلب حل تمارين في فيجوال بيسك devafar23 9 18,390 01-04-22, 12:49 AM
آخر رد: رهف
Rainbow فيجول بيسك 10 MicroDoha 2 928 13-02-22, 03:34 PM
آخر رد: MicroDoha
  فيجوال بيسك 6 sham 1 1,020 03-11-21, 10:46 PM
آخر رد: Amir_Alzubidy
  مشكلة عند فتح فاجوال بيسك 6 tamer2005 2 2,123 05-02-21, 11:49 PM
آخر رد: tamer2005
  [vb6.0] الرجاء المساعده كيفيه ربط الكرستال ريبورت 9.2 مع الفجوال بيسك 6 زياد البركاني 1 1,269 16-12-20, 11:47 AM
آخر رد: السيد الغالي
  [vb6.0] الرجاء المساعده كيفيه ربط الكرستال ريبورت 9.2 مع الفجوال بيسك 6 زياد البركاني 0 984 02-12-20, 03:06 AM
آخر رد: زياد البركاني
Question [vb6.0] هل يعمل برنامج Visual Studio Code مع فجوال بيسك 6 وكيف ذلك إن امكن ؟؟ Microformt 2 2,339 13-05-20, 11:40 PM
آخر رد: Microformt

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


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