أي سؤال بالفيجوال بيسك أنا جاهز

جزاك الله خير 00 لى سؤال :

هل يمكن إستخدام أكثر من KeyValues فى طريقة seek التى تعمل مع ADO

كيف يمكن إستخدام Seek Method بأكثر من (KeyValues)فى عملية بحث عن سجل فى جدول مفهرس . حيث أنى أستخدم طريقة ADO للوصول إلى قاعدة البيانات

مثال : أريد البحث عن سجل فى جدول مفهرس بإستخدام Seek Method عن طريق حقل رقمى وحقل آخر نصى ( أو كلا الحقلين رقمى )

لقد وجدت عدة اكواد لايقاف تشغيل الكمبيوتر و لكن لم اجد كود لايقاف تشغيل الويندوز XP ارجو ان تجيبني بسرعة

و شكرا

إلى الأخت engnana

مع إني مو فاهم كثير من الكود إللي كاتباه لآني مابستخدم Do Until وفي بسؤالك شي مو مفهوم من الكود لآنك مو جايبه سيرة الفورم أربعه بس الإقتراح إللي ممكن أقترحه إنك بعد ماتبحثى عن إسم المريض وتجديه تسألي عن آخر مره راجع فيها وعلى أساسها بتخرجي الفورم ثلاثه أو الفورم أربعه وبتوقع هيك بكون الكود :

Private Sub Command1_Click()
p.MoveFirst
=sql1 = "select p_date from diary where p_id 
)select p_id from patient where p_name=text1.text)" 
Do Until p.EOF
If Text1.Text = p!Name Then
Do Until (Date - 14) <= sql1
form2.hide
Form3.Show
'هان ممكن تحطي الكود Exit sub 
d.MoveNext
Loop
'وهان الكود لإخراج الفورم أربعه Form4.show 
End If
p.MoveNext
Loop
End Sub

Private Sub Command2_Click()
End
End Sub


Private Sub Form_Load()
Set p = c.OpenRecordset("patient", dbOpenTable)
Set d = c.OpenRecordset("diary", dbOpenTable)

End Sub

ممكن يكون هيك الكود :) مابعرف لآني ماجربته لآنو مافي عندي فيجوال بيسك حاليا ...آسف كثير

الأخ VB786

ممكن تستخدم هاد الكود

For i = 0 to 4 
rs.movenext
next i 
for i = 0 to 80 
list1.additem rs(0)
next i

أكيد رح يزبط أو يجيك فكرة من هيك كود :) وشكرا على السؤال

أخي الغالي Hassan.Stb

إنت سائل سؤالين حلويين كثير ومن طريقة أسئلتك أكيد إنتا متمكن من الفجوال بيسك لدرجة إني مافهمت عن شو بتسأل :) آسف كثير ياريت توضح السؤال أكثر وترسل مثال مشان أفهم قصدك كويس وشكرا ألف مرة على السؤال

أخوي remono84

لو ترجع بنفس هاد المقال أو الموضوع رح تلاقي كثير سألوا نفس سؤالك وأنا جاوبت علي السؤالين إللي إنتا طالبهم مع إرفاق مثال وشكرا إلك

أخي الكريم abduljawaad saad

لو تستخدم جمل الإس كيو أل أفضل في مثل هذه الحاله لآنها تستخدم نفس المضمون ولكن بشكل أسهل

الأخ Hassan.Stb

جرب هاد الكود

shell "shut Down=1"

إن شاء الله يزبط

وشكرا إلكم أخوكم بسام

السلام عليكم ورحمة الله وبركاتة اشكر القائمين على هذا المنتد الرائع والمفيد للجميع

لقد حاولت ان اعمل برنامج بسيط لحذف الكوكيز

وكانت الفكرة

1- في حالة وجود كوكيز يقوم البرنامج بحذفالكوكيز وهذه نجحت فيها

2- في حالة عدم وجود كوكيز يعطيني البرنامج رسالة لا يوجد كوكيز وهذا الذي لم استطع عمله

الرجاء من الأخوان مساعدتي في هذا الموضوع علماً بأني مبتدي في الفجول بيسك

وماهى الكتب التي تنصحوني بها جزاكم الله خير

ابوعبدالعزيز

عضو جديد في منتداكم الرائع

السلام عليكم ورحمة الله وبركاتة اشكر القائمين على هذا المنتد الرائع والمفيد للجميع

لقد حاولت ان اعمل برنامج بسيط لحذف الكوكيز

وكانت الفكرة

1- في حالة وجود كوكيز يقوم البرنامج بحذفالكوكيز وهذه نجحت فيها

2- في حالة عدم وجود كوكيز يعطيني البرنامج رسالة لا يوجد كوكيز وهذا الذي لم استطع عمله

الرجاء من الأخوان مساعدتي في هذا الموضوع علماً بأني مبتدي في الفجول بيسك

وماهى الكتب التي تنصحوني بها جزاكم الله خير

ابوعبدالعزيز

عضو جديد في منتداكم الرائع

الكوكيز هي عبارة عن ملفات في ملف ال وندوز يمكنك استعمال هذا الكود

Dim WinDir As String
Dim result As String
WinDir = String(200, Chr(0))
WinDir = Left$(WinDir, GetWindowsDirectory(WinDir, Len(WinDir)))
if dir(WinDir & "\kookiename.file") = "" then
msgbox "Cookie doesnt exist"
End if

bastr3 كتب:

مرحبا شباب

أنا بسام العيساوي وأي واحد بحب يسأل أي سؤال عن الفيجوال بيسك يتفضل مايستحي

وإذا حابين تشوفو شغلي على الفيجوال بيسك إضغط على الرابط التالي

http://www.bastr3.com/bastr3_.exe

bas24u@hotmail.com

[c] شباب

أنا صابر منصور

وعايز أسأل عن إزاي أستخدم الـ visual basic في عمل برنامج متصل بسنترال تليفوني داخلي عن طريق الـserial port يستطيع إظهار رقم الطالب وحساب المكالمات

mena_benyamine@hotmail.com

[c] شباب

أنا صابر منصور

وعايز أسأل عن إزاي أستخدم الـ visual basic في عمل برنامج متصل بسنترال تليفوني داخلي عن طريق الـserial port يستطيع إظهار رقم الطالب وحساب المكالمات

mena_benyamine@hotmail.com

اولا:شكرا على الاهتمام بسؤالي

بالنسبة للسؤال الاول - تغيير معدل تحديث الشاشة -

قم بالضغط بزر الماوس الايمن على سطح المكتب ثم انقر على خصائص و عندها _ كما تعلم _ يتم فتح مربع حوار

خصائص العرض اختر التبويب (الاعدادات) ثم اضغط على ( خيارات متقدمة ) ثم اختر التبويب ( جهاز العرض )

و في هذا التبويب سوف تجد قائمة منسدلة مكتوب فوقها ( معدل تحديث الشاشة ) جرب تغيير سرعة التحديث الى

سرعات اقل من السرعة الموجودة ستلاحظ بعد تطبيق التغييرات ان العرض بدأ يرتجّ _يومض_

ملاحظة1: ان تغيير دقة العرض سوف يؤدي الى تغيير معدل التحديث الذي يتوافق مع دقة العرض المختارة

ولكن ::::ان هذا التغيير لن يجري دائما و سأطرح مثالين الاول يتم فيه التغيير اما الثاني لا يتم التغيير الى

معدل التحديث المناسب

مثال1: دقة العرض 600*800 و معدل التحديث 100هرتز

سنحول دقة العرض الى 768*1024 سيتحول عندها معدل التحديث الى 85

مثال2: دقة العرض 768*1024 و معدل التحديث 85هرتز

سنحول دقة العرض 600*800 عندها لن يتحول معدل التحديث الى 100هرتز

و هذا هو السبب الذي جعلني اتسائل حول اذا كان يوجد كود في الفيجوال بيسك قادر على تغيير معدل تحديث

الشاشة

ملاحظة هامة :ان نظام التشغيل الذي استخدمه هو Windows XP اما في Windows Me _على ما اعتقد_

يقوم بتغيير معدل التحديث تلقائيا

______________________________________________________________

______________________________________________________________

اما بالنسبة للسؤال الثاني - ايقاف تشغيل Windows XP من الفيجوال بيسك-

لقد حصلت على عدة اكواد لايقاف التشغيل و هي تعمل على Windows Me & Windows NT

و لكنها لاتعمل على Windows XP و في حال قمت بتجربة كود من هذه الاكواد على Windows XP

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

يقوم كود ايقاف التشغيل بتسجيل خروج بدلا من ايقاف التشغيل

و قد حصلت على كود من هذا المنتدى يزعم انه قادر على ايقاف تشغيل Windows XP و لكن للاسف عند

تجربته يقوم فيجوال بيسك باكتشاف اخطاء في الكود حاولت تصحيحها و لكن لم استطيع

ارجو ان كان لديك هذا الكود ان تضعه في هذا المنتدى

_______________________________________________________________

_______________________________________________________________

اما بالنسبة لفتح عدة ملفات بواسطة اداة Common dialog لقد حصلت على الكود الذي يجعل هذه الاداة

قادرة على فتح عدة ملفات

_ _ _ _ _ _ _ _

ارجو ان اكون قد وضحت السؤالين و شكرا على اهتمامك

و شكراً لك

_______________________________________________________________

الاخ العزيز بسام العيساوي, تحياتي الحاره لك وجزيل الشكر على عرض المساعده

لدي السؤال التاليط

لدي رسم تم رسمه من خلال برنامج الاوتوكاد وسؤالي كيف يمكن فتح الرسم واجراء تعديلات على محتويات الرسم من خلال برنامج ال Visual basic ارجو التكرم بمساعدتي في ذلك ولك بالغ تقديري

اخوك جبر

السلام عليكم ورحمة الله وبركاته

انا طبعا عضو جديد في هذا المنتدى واتمنى ان اقدر افيدكم واستفيد منكم ان شاء الله وعندي سؤااااال ياريت الاقي جوابه عندكم وهو انه عملت برنامج بالفيجوال بيسك وهو عبار عن عداد واريد من الرنامج هذا ان يشتغل اول مايشتغل الإنترنت يعني اول ماينفتح البورت حق الاتصال

ياريت تساعدوني لاني مبرمج مبتدئ

ولكم خالص التحايا

أخي الكريم suhail4ever

يمكنك إستخدم أداة الوين سوكيت أو المتصفح لكي تتأكد من أن الإنترنت تم تفعيله

وشكرا

شكرا للأخ bastr3 على اهتمامك بالموضوع وسأحاول ماقلت لي فعله وإن شاء الله تنضبط المشكلة

مساااااااء النور,,,اخي بساااااااام...

انا متوسط في الفيجوال بيسيك والان بدايتي في عمل برامج اريد ان اقوم بعمل تصميم برنامج في الفيجوال بسيك بحيث تتخزن الداتا في الاكسيس ولقد قمت بأختيار برنامج مكتبات .......واريد ان اعرف الطريقه

ومشكور اخي بسااااام

ممكن تقولى ازاى اظهر بلاته الالوان وازاى اخد منها قيمة

وكمان عايز السيريال نمبر للكريستال ريبورت 8

شكرا

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


بسام العيساوي

bastr3 كتب:

إلى الأخ chess

ماتطلبه يختص بالهاكر

على كل يمكن أن تعمل برنامج وتفوم بجعله كبطاقه وترسله إلى الضحيه

والشرح يطول بهذه المسائل فإذا أردت أخبرني عن ماتريد فعله بالضحيه لآساعدك وشكرا

أنا أرغب في رؤية ما يفعله الشخص الأخر علي جهازه من خلال جهازي وإن كان يمكنني التحكم أيضا بالماوس بتاعه؟

أنا أخبرتك ما أريد أن أفعل

السؤال لأي شخص يعرف الأجابه ويمكنه أن يفيدنا بها ( الأهم أنها تكون بالفيجول بيسك أو عن طريق الفيجوال بيسك ) .

002 __024

إلى الأخ remono84 وجميع الأخوة المهمين ببرامج الهاكر وبرنامج السب سيفن بالتحديد

سأضع بين يديكم قريبا برنامج السيرفر والكلاينت مبرمج على الفجوال بيسك بشكل مبسط ويمكنكم تطويرة وتحديثة

قريبا جدا إن شاء الله

وشكرا لكم

أخي هل بإمكانك ان تدلنا على كتب تشرح طريقة ربط الفجوال بيسك بالعالم الخارجي بالتفصيل المميت و ليس الممل كأن اتحكم بجهاز ما عن طريق الكمبيوتر بواسطة ال فيجوال بيسك

شاكرين لك مجهوداتك

عضو جديد معكم

ولديه سؤال محينى كثيرا: وانا مجرد بادئ فى تعلم فيجوال بيسك فارجواا المعذره لوكان السؤال ساذج بالنسبه لكم ولكن صدقونى اريد اعرف الحل

السؤال:

كيف يمكنى وضع لينك لـ button command بحيث عند الضغط عليه يفتح الملف صاحب الوصله مباشرة "هذا مهما كان نوع الملف"، ثم بعد ذلك تحزيم جميع الملفات فى المرتبطه فى فايل واحد على هيئة .exe

اتمنى انه يكون سؤالى واضح وانتظر من اخوانى الكرام الاجابه فى فارغ الصبر

بعد إذن الأخ العزيز بسام - الذي يقوم بجهد ممتاز هنا، جعله الله في ميزان حسناته -

وبعد إذن الإخوة الأعزاء جميعاً

نرجو إيقاف المشاركة في هذا الموضوع

نظراً لما يترتب عليها من:

1. صعوبة الفهرسة والبحث على الأعضاء فيما بعد ذلك

2. طرح السؤال أكثر من مرة ( هنا وفي موضوع منفصل )

3. حرج البعض من الإجابة بعد توجيه السؤال لشخص معين

ولجميع الأعضاء يمكنكم وضع المشاركة في المنتدى، ولن يبخل الأخ بسام العيساوي بالمشاركة متى ما أمكنه ذلك

ولكم خالص التحية