hishamnasr

السلام عليكم فكرة برنامجك غاية في البساطة ادخل الخريطة للفورم باعتبار انها image1 احسب احداثيات كل نقطة تريد ان تدخلها في قاعدة البيانات يتم ذلك بهذا الكود Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text =…

اخواني في المنتدى اهديكم تصميم لبرنامج اللعبة الشهيرة PackMan pac.zip

السلام عليكم بالنسبة للسؤال الثاني الحل ببساطةكالاتي اضغط double click على تكست 1 ستظهر العبارة التالية في الكود Private Sub Text1_Change() اكتب هنا الكود الذي تريده Private Sub Text1_Change() Text2.Text = Val(Text1.Text) * 500 End Sub

من قال ان الجافا صعبة انا فقط قلت انها معقدة فللوصول الى اي شيء بسطر واحد في الفجوال بيسك تجد انه عملية طويلة في الجافا و كل كائن يجب انشاء كائن جديد منه ..الخ التعقيدات و لكن كما قلت يا اخ احمد ليست صعبة انما تحتاج للمارسة قبل التعود عليها خاصة لاولئك الذين ل…

و الثاني يقوم بفتح قفل السيدى روم cd-rom.zip

البرنامجين التاليين مساهمة مني للمنتدى الاول يقوم بتحريك جميع نقاط الشاشة الى اسفل و كانه يصهر الشاشة انصهار الشاشة.zip

السلام عليكم عندما قلت برمجة الهاردوير لم اقصد ال api لانها متاحة في كثير من اللغات و لكني عنيت الدوات المثبتة الخاصة باللغة و انا احب الفجول بيسك و لم اقصد التقليل من شانها بل بالعكس

هذا هو البرنامج مرفق ادخل قيمة لمعامل x و القيمة المطلقة و النتيجة لحصل على قيمة x من الدرجة الاولى.zip

اخواني في المنتدى السلام عليكم أود أن أطرح عليكم هذا الموضوع الا و هو مستقبل الفجوال بيسك من الملاحظ الان التنافس الواضح بين منتجي لغات البرمحة.. ليس فقط من ناحية ارضاء المبرمج انما من ناحية سرعة تطوير الادوات المستخدمة و تطوير اللغةنفسها و هذا ما هو ملحوظ بين…

يمكنك اضافة جملة if و عند تحقق شرط معين ( و هو الشرط المطلوب لايقاف جملة sql ) استخدم الامر goto و اكتب بعده اسم اي سطر خارج جملة ال sql مثلا: select name from .......'this is the sql dtatement if x=0 goto k1 . . . 'end of sql dtatement k1:do something

ولا يهمك اخي في البرمجة

السلام عليكم لننتقل الان الى مرحلة اخرى و هي التحكم بصور موجودة اصلا في الجهاز و هنا سنعود الى الصيغة point() المثال الاول سندرج صورة الى الفورم ثم نقوم بنسخ صورة منها على نفس الفورم لنسمي الصورة image1 ثم نستعمل الكود التالي Private Sub Command1_Click() Dim x…

السلام عليكم ام تسنيم و شكرا على التنبيه عدلت الكود ليواكب المطلوب Private Sub Command1_Click() Text1.SetFocus SendKeys "{home}" SendKeys "+" & "{END}" End Sub ارجو ان تجربيه

السلام عليكم بمجرد ان تشغل برنامج ال package & Diployment ستجد 3 خيارات ...الخيار الاول لعمل ملف ست اب اما الثاني ( الموجود اسفل منه ) فهو ما تريده و هو ينشئ ملف ست اب قابل للنشر عبر الانترنت او البريد الالكتروني

السلام عليكم يمكنك ايضا استعمال الكود التالي Private Sub Command1_Click() Text1.SetFocus SendKeys "+" & "{END}" End Sub

الاخ fizom اذا قرأت الكود صح ستعرف انك حتخليهم عشوائيا في الفورم و الكود هو اللي حيحطهم في المكان الصحيح

السلام عليكم لصنع ساعة عليك اضافة 3 lines من شريط الادوات و text , timer م اضف الكود التالي Dim pi As Double Private Sub Form_Load() Line3.BorderWidth = 3 Line3.BorderColor = vbBlue Line2.BorderColor = vbRed Timer1.Interval = 10 pi = 3.141592653 Line1.X1 = 200…

السلام عليكم وصلنا الان الى حفظ الرسم و صيغته SavePicture Form1.Image,"C:\flower.bmp" نلاحظ انه يقبل بارمترين ..الثاني نكتب فيه المسار و اسم الرسم مع الامتداد اذا اردت اعطاء المستخدم حرية مسار الحفظ نستعمل من components الاداة ms common dialog مع استعمال الصيغ…

السلام عليكم توجد دالة ابحث عنها مع دوال ال api و تسمى SetPrinter

السلام عليكم الان وصلنا الى رسم اشكال مثل الدائرة و صيغة رسم الدائرة بسيطة circle(x,y),(100) حيث البارمترين الاولان للمركز و البارميتر الثالث لنصف القطر يمكنك قبل ان تحدد لون المحيط بالصيغة form1.forecolor=(color) مثلا او circle(x,y),(200),vbwhite اما لون التع…