تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب فكرة لتطوير هذه اللعبة
#1

بطبيعة هذه الاكواد فاللعبة تحتاج دقة في اختيار مكان الاداة فهل يمكن التعديل بحيث تكون اللعبة اسهل؟


الملفات المرفقة
.zip   JustGame.zip (الحجم : 37.41 ك ب / التحميلات : 71)
الرد
تم الشكر بواسطة: mohamdser , ramilove
#2
هل يمكن ان تضع المشروع بVB2010 من فضلك
لانه لايعمل عندى
الرد
تم الشكر بواسطة:
#3
(19-01-15, 05:53 PM)mohamdser كتب : هل يمكن ان تضع المشروع بVB2010 من فضلك
لانه لايعمل عندى

الحل هنا اخي الكريم
http://www.youtube.com/watch?v=HI36kZbbNUc
الرد
تم الشكر بواسطة: mohamdser
#4
شكرا لك اخى سعود ولقد عملت معى وارى فكرتك رائعة ولقد قمت الان ببعض الاضافات وان شاء الله اقدر اساعد

يارب تعجبك Heart


الملفات المرفقة
.zip   WindowsApplication1.zip (الحجم : 71.76 ك ب / التحميلات : 56)
الرد
تم الشكر بواسطة:
#5
اشكر مساعدتك اخي الكريم
لعلي ادقق عليه لاحقا ان شاءالله لاني لاحظت انه يختلف عن مثالي ايضا وجدت استخدام savefiledialog
شكرا مرة اخرى
الرد
تم الشكر بواسطة:
#6
(21-01-15, 07:13 AM)سعود كتب : اشكر مساعدتك اخي الكريم
لعلي ادقق عليه لاحقا ان شاءالله لاني لاحظت انه يختلف عن مثالي  ايضا وجدت استخدام savefiledialog
شكرا مرة اخرى

savefiledialog ????????
أين ؟ لم اضعها ابدا التغيير كان فى الاكواد أخى !

عموما شكرا جدا
الرد
تم الشكر بواسطة:
#7
تاكد من المرفق ربما وضعت مرفق خطا
كود :
Public Class Form1

    'Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '

    'End Sub

    'Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

    'End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a
        Dim i As Integer
        Dim b()
        a = InputBox("ادخال السطر المطلوب", , 1)
        If Val(a) >= 1 And Val(a) <= TextBox1.Lines.Length And TextBox1.Text <> "" Then
            b = Split(TextBox1.Text, vbNewLine)
            TextBox1.Clear()

            For i = 0 To UBound(b)
                If i + 1 = a Then
                Else
                    TextBox1.Text &= b(i) & vbNewLine
                End If

            Next
            SaveFileDialog1.ShowDialog()
            SaveFileDialog1.FileName.Insert(1, TextBox1.Text)
        Else
            MsgBox("try again", MsgBoxStyle.Critical)
        End If
    End Sub
End Class
هذا هو الكلاس للمثال اللي رفعت
الرد
تم الشكر بواسطة:
#8
فعلا Blush 
لا اعرف كيف حدث هذا Huh 


الملفات المرفقة
.zip   Game_2.zip (الحجم : 84.76 ك ب / التحميلات : 67)
الرد
تم الشكر بواسطة: سعود
#9
الصراحة اذهلني التعديل.
ماشاء الله تبارك الله
الرد
تم الشكر بواسطة: mohamdser


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 29 672 17-10-18, 11:43 PM
آخر رد: عبد العزيز البسكري
  فكرة تنفيذ مشروع sads 1 64 14-10-18, 09:31 PM
آخر رد: عبد العزيز البسكري
  مطلوب شرح اضافة اداة فى الفيجول بيسك Mohamed Magdy 8 225 05-10-18, 12:26 AM
آخر رد: elgokr
  ماهي اللغه الاقرب الى ال vb لتطوير تطبيقات الاندرويد معاذ_ابراهيم 3 101 02-10-18, 07:51 PM
آخر رد: معاذ_ابراهيم
  مطلوب برنامج اعراب جمل عربية المبرمج الممتاز 16 381 28-09-18, 01:18 PM
آخر رد: ابراهيم ايبو
  فكرة مشروع بالفيجوال بيسك وقاعده بيانات اكسس ارجو المساعده خالد كامل1 3 204 18-09-18, 01:34 PM
آخر رد: elgokr
  [كود] مطلوب كود يقوم بحفظ محتوى textbox فى ملف notepad elgokr 7 1,176 13-09-18, 06:27 PM
آخر رد: YousefOkasha
  مطلوب كود ةحذف بعض الكلمات من التكست ZaerAllail 2 105 07-08-18, 06:38 PM
آخر رد: ZaerAllail
  [VB.NET] أريد فكرة للتحكم في اذا كان المستخدم شاهد التنبيه ام لا dametucorazon 12 275 21-07-18, 05:44 AM
آخر رد: elgokr
  [كود] احتاج فكرة لعمل تقسيم الصنف الى حبة شدة كرتون فراس الغزي 2 147 20-07-18, 02:44 AM
آخر رد: sendbad100

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


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