جميع الاسئلة والطلبات الخاصة بالفيجوال بيسك مع اجاباتها الكافية

[@...Khalefa]

بسم الله الرحمن الرحيم


وبه نستعين


في محاولة لرفع مستوى القسم الى اعلى الدرجات احب اقدم المشاركة البسيطة للاعضاء القسم
مشاركة تضم الاسئلة السابقة للاعضاء والخاصة بالفيجوال بيسك 6
والتي قد تم الاجابة عليها بشكل كافي بعد ملاحظة تكرار الكثير من الاسئلة بالقسم
المشاركة تضم اسم السائل وسؤاله
وكذلك اسم المجيب واجابته
والمرفقات في حالة وجودها
بشكل بسيط ارجو ان يفيد بالغرض



((((((((برجاء عدم وضع اسئلة او استفسارات بهذة المشاركة ))))))))

[@...Khalefa]

memouz (http://www.bramjnet.com/vb3/member.php?u=15240)

السلام عليكم
أريد كود يقوم بجمع العدد في تكست1 مع العدد في تكست2 و يضرب الناتج بستة بالمئة و يضع الناتج في تكست3
مع اني وضعت كود و لكنه لا يعطي ارقام بعد الفواصل أي الكسور
ارجو المساعدة مع الشكر الجزيل@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Private Command1_Click()
Text3.Text=Val(Val(Text1.Text) + Val(Text2.Text))*0.06
End Sub

[@...Khalefa]

hip-hop118 (http://www.bramjnet.com/vb3/member.php?u=197473)

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

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


متزعلش ياعم
دول شوية مشاريع كويسة ومفيدة
وتقدر تعدل عليها براحتك
Download file (http://rapidshare.com/files/2440493/Some_projects.zip.html)

[@...Khalefa]

المرشود (http://www.bramjnet.com/vb3/member.php?u=86939)

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

اخواني الكرام

انا اعمل على فيجول بيسك 2005 اكسبرس
وعندما اقوم بعمل تشغيل لتطبيق تخرج لي هذه الصورة

http://img6.picsplace.to/img6/23/0000000000.gif

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

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)




Select project->options,
in the debug tab uncheck the "Use the visual studio hosting process"

[@...Khalefa]

عبقرين (http://www.bramjnet.com/vb3/member.php?u=30293)

السلام عليكم
انا حملت الأداة Activeskin 4.3 وشغلتها
كل ما أريده skin لهذة الأداه أو موقع أقدر أحمل منه skines و tab
أفيدوني أفادكم الله

الفرعون المحترف (http://www.bramjnet.com/vb3/member.php?u=164226)

[/URL][URL="http://www.skincraft.com/"]www.skincraft.com (http://www.skincraft.com/)
كل ما تريده هن

[@...Khalefa]

(li) صقر (li) (http://www.bramjnet.com/vb3/member.php?u=298807)

السلام عليكم أحبائي .

لو أمكن ممكن برنامج :
microsoft visual basic 6.0
or
microsoft visual studio

والرجاء رفعه على الرابط : http://rapidshare.com/

( قد يكون موقع الرفع مشابه للرابيد شير لكنه مختلف وما عندي مشاكل معاه )
( ملاحظة : بعد الرفع هتظهر صفحة , انزل لآخرها واضغط على الوصلة اللي في آخر الصفحة [ ممكن تسيب الفراغين اللي في الصفحة فارغين ] )

بلييييييييييييز بسرعة
ويكون كامل
ولو أمكن رابط مباشر له

والسلام...

veto_44 (http://www.bramjnet.com/vb3/member.php?u=231893)

السلام عليكم اخي علاء ظننتك خبير بقوانين قسم البرمجة
توضع طلبات البرامج بالموضوع المثبت لها بالاعلى بس
هذه المرة سماح المرة القادمة ستدفع المخالفة بمنتدى المال
والاعمال عند نسيم محصل الضرائب والمخالفات ببرامج
نت هذا هو البرنامج اخي علاء احضره ذات يوم اخونــــا
mr_imi هذا هو رابط صفحة التحميل (http://www.agcacademy.com/forum/download.asp) وهذه صورة
توضيحية للبرامج الموجوده بالموقع :

http://i112.photobucket.com/albums/n163/veto_44/kl.png

بعد ردك سيدمج مع موضوع الطلبات دمت برعايو الله وحفظه .

[@...Khalefa]

memouz (http://www.bramjnet.com/vb3/member.php?u=15240)

السلام عليكم
اخواني أريد كود يعمل الاتي
مثلا لدي مربع تكست فيه هذا الرقم 1234
أريد كود عند الضغط على زر كومند يأخد الرقم 4 الى تكست 1 و الرقم 3 الى تكست 2 و هكذا ...
فهل هذا ممكن جزاكم الله خيرا@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)



Private Sub TextMain_Change()
On Error Resume Next
Dim OrgSum, Majr, Manr, ReMajr
Text1.Text = "0": Text2.Text = "0"
Text3.Text = "0": Text4.Text = "0"
Text5.Text = "0": Text6.Text = "0"
Text7.Text = "0"
OrgSum = Val(TextMain.Text) - Int(Val(TextMain.Text))
Majr = Int(Val(TextMain.Text))
ReMajr = Majr
Select Case Len(ReMajr)
Case 1
Text1.Text = Right$(Majr, 1)
Case 2
Text1.Text = Right$(Majr, 1)
Text2.Text = Left$(Majr, 1)
Case 3
Text1.Text = Right$(Majr, 1): Text2.Text = Left$(Right$(Majr, 2), 1)
Text3.Text = Left$(Right$(Majr, 3), 1)
Case 4
Text1.Text = Right$(Majr, 1): Text2.Text = Left$(Right$(Majr, 2), 1)
Text3.Text = Left$(Right$(Majr, 3), 1): Text4.Text = Left$(Right$(Majr, 4), 1)
Case 5
Text1.Text = Right$(Majr, 1): Text2.Text = Left$(Right$(Majr, 2), 1)
Text3.Text = Left$(Right$(Majr, 3), 1): Text4.Text = Left$(Right$(Majr, 4), 1)
Text5.Text = Left$(Right$(Majr, 5), 1)
Case 6
Text1.Text = Right$(Majr, 1): Text2.Text = Left$(Right$(Majr, 2), 1)
Text3.Text = Left$(Right$(Majr, 3), 1): Text4.Text = Left$(Right$(Majr, 4), 1)
Text5.Text = Left$(Right$(Majr, 5), 1): Text6.Text = Left$(Right$(Majr, 6), 1)
Case 7
Text1.Text = Right$(Majr, 1): Text2.Text = Left$(Right$(Majr, 2), 1)
Text3.Text = Left$(Right$(Majr, 3), 1): Text4.Text = Left$(Right$(Majr, 4), 1)
Text5.Text = Left$(Right$(Majr, 5), 1): Text6.Text = Left$(Right$(Majr, 6), 1)
Text7.Text = Left$(Right$(Majr, 7), 1)
End Select
Manr = TextMain.Text & "00"
If Val(TextMain.Text) > 0 Then
For Mm = 0 To Len(TextMain.Text)

If Left(Manr, 1) = Chr(46) Then
Manr = Right(Manr, (Len(Manr) - 1))
Text8.Text = Left(Manr, 1)

Manr = Right(Manr, (Len(Manr) - 1))
Text9.Text = Left(Manr, 1)

Exit Sub
Else
Manr = Right(Manr, (Len(Manr) - 1))
If Len(Manr) > 0 Then
Mm = 0
Else
Text8.Text = "0"
Text9.Text = "0"
Exit Sub
End If
End If
Next
End If

End Sub

[@...Khalefa]

waleedwanees (http://www.bramjnet.com/vb3/member.php?u=104808)

السلام عليكم ورجمه الله وبركاته
عايز اعمل فورم اضف اليه زر يطلب يوزر وباس وورد للدخول الي الفورم رقم 2
ما هو الكود
وشكراااااااااااااااااااااااااااااااااااا

وكيف اخلي خاصيه ال text box
تكتب كذا سطر تحت بعضها
يعني اضغط enter ينزل الي السطر اللي تحته وهكذا@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


فورم اضف اليه زر يطلب يوزر وباس وورد للدخول الي الفورم رقم 2
الملف مرفق


وكيف اخلي خاصيه ال text box
تكتب كذا سطر تحت بعضها
يعني اضغط enter ينزل الي السطر اللي تحته وهكذا
In TextBox Proprties set MultiLine =True

User&Passw.zip (http://www.bramjnet.com/vb3/attachment.php?attachmentid=48625&d=1163658581)

[@...Khalefa]

الليل المشمس (http://www.bramjnet.com/vb3/member.php?u=124251)

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

المهم انا عايز منكم انكم تجلبوا لي سيريال برنامج Visual Basic 2005 Express Edition لان مدة التجربة 30 يوم شرفت على الانتهاء.

مع تحيات اخيكم محمد a beginner programmer .

alae001 (http://www.bramjnet.com/vb3/member.php?u=60413)

اخي الليل المشمس على ما اظن فان ال Visual Basic 2005 Express Edition يتم تفعيله بواسطة الايميل خاصتك بعد ان ترسل لك رسالة فيها كود التفعيل. حاول الدخول الى خاصية about الخاصة بالبرنامج وانظر اذا كانت activate product متواجدة.
ارجو ان اكون قد افدتك.

[@...Khalefa]

manth59 (http://www.bramjnet.com/vb3/member.php?u=5883)

الاخوة الاعزاء
نصبت برنامج visual studio 2003
وعند بحثت عن الاداة data لغرض استخدامها بربط قاعدة البيانات بالفجول بيسك لم اجدها قرأت هنا جواب احد الاخوان حول نفس المشكلة كان الجواب كالاتي
يمكنك اضافة ADODC والعمل كما في Visual basic 6
من على شريط الأدوات
right click
Add remove Items
COM Components
Microsoft ADO Data Control
ثم اختيار هذا المكون من شريط الادوات والعمل كما في الاصدار 6
ولكنني لم اجد Microsoft ADO Data Control
اضفت ADODC ولكن عندما اردت البحث عن قاعدة البيانات من خلال database name يظهر اسم الاداة ولا استطع البحث عن قاعدة البيانات
حاولت الحصول على visual basic 6
وقمت بانزاله ولكن يطلب IDعند التنصيب
اريد حلا جزاكم الله لان اخي في ورطة واصطررت لتعلم القليل عن البرمجة لحل مسألته وانا بأنتظاركم

يوفي VIP (http://www.bramjnet.com/vb3/member.php?u=354959)

سلسلة دروس الفيجوال بيسك في قواعد البيانات ][ الدرس الثالث ][ (http://www.bramjnet.com/vb3/showthread.php?t=183261)

[@...Khalefa]

scorpionking4999 (http://www.bramjnet.com/vb3/member.php?u=296826)

السلام عليكم و رحمة الله و بركاته
أخوتى فى الله عمالقة برامج البرمجة انا مبرمج على أد حالى فى visual basic 6.00
و اريد منكم كتاب the black book
حيث اننى اطلعت على كتب كثير و لكنى لم أجد فبيها ضالتى و لكن وجدت ذات مرة فصل من هذا الكتاب ولكم أدهشنى روعته اذا كان فى اماكن أحدكم احضاره لى فله الف مليون شكر
و الله انى بحاجة إلية بشدة و أرجو أن اجد لديكم ضالتى
و شكرااااااااا مقدما

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


http://rapidshare.com/files/3687759/..._book.pdf.html (http://rapidshare.com/files/3687759/visual_basic_6_black_book.pdf.html)

[@...Khalefa]

isselmou (http://www.bramjnet.com/vb3/member.php?u=94008)

je cherche MSDN de vb6

veto_44 (http://www.bramjnet.com/vb3/member.php?u=231893)

تفضل اخي ستجد طلبك بهذين الموضوعين

قنبلة الموسم وحصري على برامج نت Msdn كامل و لعيونكم (http://www.bramjnet.com/vb3/showthread.php?t=67778)
العديد من المكتبات التعليمية والشفرات المفتوحة . (http://www.bramjnet.com/vb3/showthread.php?t=185134)

اتمنى كتابة اي طلب لك بالموضوع المثبت
لطلبات البرامج دمت برعاية الله وحفظه .

[@...Khalefa]

sih_am25 (http://www.bramjnet.com/vb3/member.php?u=142477)

plz ممكن الحصول على اي لغة البرمجة بالفرنسية
c++,visual basic, و كذا excel+ access
machkorrrrrin

yassine (http://www.bramjnet.com/vb3/member.php?u=2102)

c++ >>>> من هنا (http://c.developpez.com/cours/)
visual basic >>>> شاهدي هده الصفحة من هنا (http://www.developpez.com/vbasic/cours/)
access >>> من هنا (http://access.developpez.com/cours)

[@...Khalefa]

manth59 (http://www.bramjnet.com/vb3/member.php?u=5883)

السلام عليكم
الاخوة الاعزاء هل من خبير يدلني عن الكود الخاص بزر الحساب عند عمل فورم لجمع ثلاث حقول بيع وبنفس الوقت حساب نسبة 2% من البيع الكلي وكذلك الفرق مابين البيع الكلي والtarget للبيع وكلها بضغطة واحدة على زر ال caculate وكذلك زر clear لغرض عمل حساب اخر واكون ممنون للطيبين وشكراyassine (http://www.bramjnet.com/vb3/member.php?u=2102)

السلام عليكم تفضل اخي الكريم الكود
اشرحلي هده الجملة "الفرق مابين البيع الكلي والtarget للبيع " لاضيفها في الكود

الكود :


اقتباس: Dim A As Currency
Dim B As Currency
Dim C As Currency
______________________________
Private Sub Calculat_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
Text4.Text = A + B + C
Text5.Text = Val(Text4.Text) * 0.02
End Sub
_______________________________
Private Sub Clear_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus
End Sub

[@...Khalefa]

memouz (http://www.bramjnet.com/vb3/member.php?u=15240)

لدي مشكلة في كود الرقم التسلسلي للفاتورة و هذا هو
Private Sub Form_load()

Text2.Text = GetSetting("test", "test", "Fnomber") +1

End Sub
لأنه و عندما يعمل البرنامج للمرة الاولى لا يكون هناك أي قيمة مخزنة فيعطي خطأ بالكود
و ما أريده هو كود يخبر البرنامج أنه عندما لا يجد قيمة مخزنة يعطي تكست 2 القيمة واحد و عندما يجد تلك القيمة يعمل الكود السابق
و أيضا طلب اخر لو سمحتمم
كيف أجعل البرنامج يسأل المستخدم فيما اذا كان يريد حفظ الفاتورة ان لم تكن محفوظة قبل اغلاقه
و أيضا كيف أفتح صفحة جديدة عند الضغط على زر جديد و بقاء الصفحة السابقة مفتوحة مع العلم أن برنامجي يتكون من صفحة واحدة أي Form واحد
مع الشكر
@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Private Sub Form_Unload(Cancel As Integer)


Cancel = True

If Changed = False Then End
If Changed = True Then
SaveSetting "test", "test", "Fnomber", Text2.Text
res = MsgBox("Save your invoice!!!", vbYesNoCancel, "Caution")
If res = vbNo Then End

If res = vbCancel Then Exit Sub

If res = vbYes Then
CommonDialog1.FileName="" '<<<<<<<
CommonDialog1.ShowSave
If CommonDialog.FileName="" Then Form_Unload(Cancel =Ture) '<<<<<<<

Open CommonDialog1.FileName & ".inv" For Output As #1
Write #1, Text1.Text, Text2.Text, Text3.Text, Text4.Text, Text5.Text, Text6.Text, Text7.Text, Text8.Text, Text9.Text, Text10.Text, Text11.Text, Text12.Text, Text13.Text, Text14.Text, Text15.Text, Text16.Text, Text17.Text, Text18.Text, Text19.Text, Text20.Text, Text21.Text, Text22.Text, Text23.Text, Text24.Text, Text25.Text, Text26.Text, Text27.Text, Text28.Text, Text29.Text, Text30.Text, Text31.Text, Text32.Text, Text33.Text, Text34.Text, Text35.Text, Text36.Text, Text37.Text, Text38.Text, Text39.Text, Text40.Text, Text41.Text, Text42.Text, Text43.Text, Text44.Text, Text45.Text, Text46.Text, Text47.Text, Text48.Text, Text49.Text, Text50.Text, Text51.Text, Text53.Text
Close #1
End
End If

If res = vbNo Then End '<<<<<<<<<
End If

End Sub

[@...Khalefa]

if_else_2000 (http://www.bramjnet.com/vb3/member.php?u=415644)

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

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

والكم مني فائق الاحترام والتقدير
اخوكم / سالم

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Dim MoveIt As Boolean, Mx, My

Private Sub Form_Load()
MoveIt = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then MoveIt = True
Mx = X
My = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim frmX, frmY

If Button = 1 Then

frmX = Me.Left + (X - Mx)
frmY = Me.Top + (Y - My)

If Not Me.WindowState = 2 Then

If MoveIt = True Then
Me.Move frmX, frmY
End If

End If

End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveIt = False
End Sub

[@...Khalefa]

fidraman (http://www.bramjnet.com/vb3/member.php?u=59219)

ارجو من محترفي Visual basic 5/6مدي بApplication لكي تقوم بعملية بسيطة الا و هي :
اريد كلما ادخلت جملة يستبدل بعض الحروف فيها بحروف اخرى.مثلا :
ان يستبدل 20%F20%F في هذه العبارة:http 20%F20%F.www.xxxx.com (http://www.xxxx.com/) ب"//:" .
و لكم جزيييييييييييييل الشكر.@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Text1.Text = Replace(Text1.Text, "20%F20%F", "//:", 1, -1, vbTextCompare)

[@...Khalefa]

al-arabi (http://www.bramjnet.com/vb3/member.php?u=386879)

سؤال حيرني لأسابيع ,مع Setup Factory كيف يتم إرسال ملف رجستري إلى الرجستري ولله أخوكم تعبان

لله يامحسنين أفيدوني

وشكرا مسبقا

Ahmed_ghanam (http://www.bramjnet.com/vb3/member.php?u=176557)

اخى الكريم هنا شرح لبرنامج Setup Factory ارجو ان يفيدك

اضغط هنا (http://www.bramjnet.com/vb3/showthread.php?t=159697&page=2&highlight=%C8%D1%E4%C7%E3%CC+Setup+Factory)

[@...Khalefa]

moha1407 (http://www.bramjnet.com/vb3/member.php?u=113708)

السلام عليكم


شباب ممكن طلب .... كيف ارفق مقطع فيديو على الفورم اذا كان مقطع الفيديو امتداده AVI تكقون شباب والله المشروع لازم اسلمه قبل العيد
ولا بعد سويت به اي شي واتحكم به :ايقاف ، تشغيل ، ايقاف موقت ، أعاده للبداية




الطلب الثاني :
ابغى اسوي مسابقة بحيث تحسب الجوبه الصحيحة والاجوبه الخاطئة مع العلم اني لازم استخدم قاعدة البيانات

والمسابقة هو رقم السؤال والسؤال واجابة 1واجابة 2 واجابة 3 اي هناك 3 خيارات يعني في الفيجول لازم استخدم اداة option في الخيارات و اداة adodc في ربط القاعدة
مع العلم بأن اللغة المستخدمه هي فيجول بيسك

ارجوكم علموني الطريقة باسرع وقت

hamata00 (http://www.bramjnet.com/vb3/member.php?u=216370)

[/URL]http://www.up00.com/v/9807605/ved.rar.html (http://www.up00.com/v/9807605/ved.rar.html)الرابط لبرنامج الفديو:
معاه السورس كود و ملف التشغيل
جربه وقولي ايه رايك علشان لو 100% اضع المسابقات
ok

السلام عليكم
الرابط للمسابقات لكره القدم اسماء الفرق و الملاعب
يوجد ملف التشغيل للبرنامج والسورس كود
الرابط:http://www.up00.com/v/865617/Footbal...12004.rar.html (http://www.up00.com/v/865617/Football_q18038710112004.rar.html)

جربه و قولي ايه رايك
لومش فاهم الكود بتاع المسابقات انتظر و قولي لكي اصنع برنامج زيه بس بكود صغير عن دة سيكون عبارة عن متسابقين افضل من دي بكثير
لو في مشكلة قولي ...ارجو الرد

للفديو ادخل علي الرابط التالي تجد الحل:


[URL]http://www.bramjnet.com/vb3/showthread.php?t=178429

اما المسابقات
سأقوم بعمل البرنامج غدا و ارفع لك
ارجو الرد بعد التجربة

[@...Khalefa]

mmet (http://www.bramjnet.com/vb3/member.php?u=369915)

كيف يمكن عمل كلمة سر لدخول البرنامج؟ و شكرا

الفرعون المحترف (http://www.bramjnet.com/vb3/member.php?u=164226)

السلام عليكم ورحمه الله وبركاته
اخي الحبيب شوف الكود ده:
If Text1.Text = "K100-43-109-0-793218E876A4C9-29" Then
Form1.Visible = True
Form3.Visible = False
Else
MsgBox " serial number in-correct "
End If

هذا هو الكود ::
كيفيه الاستخدام:
1-انشئ txtbox
2-انشئ زر ok
ضع هذا الكود في زر ok
If Text1.Text = "K100-43-109-0-793218E876A4C9-29"
K100-43-109-0-793218E876A4C9-29
تخي الحبيب بدل مكان الكلمه هذه الباس الي انت عايزها
تحياتي

Ahmed_ghanam (http://www.bramjnet.com/vb3/member.php?u=176557)

اخى الكريم ممكن تشوف الفورمات اللى فى المرفقات ممكن يفيدوك

امثلة فجوال بيسك.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=50972&d=1164925623)

[@...Khalefa]

fidraman (http://www.bramjnet.com/vb3/member.php?u=59219)

احتاج إلى كوود استطيع به استئصال سلسلة من الحروف من سلسلة حروف لكن بشروط معينة .مثلا:كيفما كانت السلسلة(مثال:I want to be free from this situation) نريد استئصال جملة تبدأ ب be و تنتهي ب this.
مع العلم ان وضعية (position) الجملة المراد استصاله تتغير في كل جملة.
و شكرااااا جزيييييلا.

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)



Private Sub Command1_Click()
Dim BeStr, ThisStr, BeLoc, ThisLoc, GLoc, Strng
BeStr = " be "
ThisStr = " this "
GLoc = 1
TxT = Text1.Text
For oop = 1 To (Len(TxT) - 1)
BeLoc = InStr(GLoc, TxT, BeStr, vbTextCompare)
If BeLoc > 0 Then

ThisLoc = InStr(GLoc, TxT, ThisStr, vbTextCompare)
If ThisLoc > 0 Then
GLoc = ThisLoc + 1
Strng = Mid$(Text1.Text, BeLoc + 1, (ThisLoc + 5) - BeLoc)
Text2.Text = Text2.Text & Strng & vbNewLine
Else
oop = oop + 1
End If
Else
oop = oop + 1
End If
Next
End Sub

[@...Khalefa]

tilmid_4 (http://www.bramjnet.com/vb3/member.php?u=93837)

mokin ikhwani mosa3ada fi telechargement(tahmil) de Visual Basic 6

WOLF (http://www.bramjnet.com/vb3/member.php?u=72480)

اضغط هنا (ftp://clubicvisiteur258:1165018602@ftpclubic7.clubic.com/temp-clubic-rx0/logiciel/Visual_Basic_6.0_-VB6-_runtime_SP5.exe) لتحميل النسخة الفرنسية

[@...Khalefa]

memouz (http://www.bramjnet.com/vb3/member.php?u=15240)

الصورة توضح المطلوب و هو باختصار كيفية التحكم بنافذة الحفظ الاخيرة التي تأتي من ويندوز
الصور المرفقة http://www.bramjnet.com/vb3/attachment.php?attachmentid=51914&stc=1&d=1165470466


@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrInCommonDialog
CommonDialog1.ShowSave 'Or CommonDialog1.ShowOpen


ErrInCommonDialog:
If Err.Number = 32755 Then
MsgBox "User canceled it"
'Put any codes required here in case of cancel
'Code 1
'Code 2
'...................
Exit Sub
End If



' in case of choosing Open button or Save by user
'put your codes below
'open CommonDialog1.FileName for (input or output or append or .....) as #1

End Sub

[@...Khalefa]

حمودة حمودة (http://www.bramjnet.com/vb3/member.php?u=219425)

السلام عليكم ورحمة الله وبركاته
أريد الكود الذي يحعل أداة timer متوافقة مع splash screen
أي عندما تشغل البرنامج في الفيحوال تطلع splash screen لمدة معينة أنا أضعها وبعدين
يروح عالبرنامج الرئيسي .
الرجاء من الإخوة الذين يعرفون هذا الكود كتابته لنا ....
ولكم جزيل الشكر مقدماً............

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)

Dim Conter As Integer
Private Sub Form_Load()
Conter = 0
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Conter = Val(Conter) + 1
If Val(Conter) > 5 Then
Timer1.Enabled = False
Load MainForm
MainForm.Show
Unload Me
End If
End Sub

[@...Khalefa]

memouz (http://www.bramjnet.com/vb3/member.php?u=15240)

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

أخ خليفة فهمت قصدي أليس ذلك

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Private Sub Command1_Click()
SaveSetting "abc", "def", "ghi", "jkl"
End Sub

Private Sub Form_Load()
Dim Status
Status = GetSetting("abc", "def", "ghi")

If Len(Status) < 1 Then
Command1.Visible = True
Else
Command1.Visible = False
End If
End Sub

[@...Khalefa]

(li) صقر (li) (http://www.bramjnet.com/vb3/member.php?u=298807)


بسم الله الرحمن الرحيم

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

لدي بعض الأسئلة في الفايجوال :

1/ لو أنا مثلاً عاوز أعمل برنامج أدخل فيه البيانات أو الأرقام فيجمعها أو يطرحها على حسب ما أريد ؟

2/ كيف أستطيع إضافة صورة متحركة كخلفية لواجهة برنامجي ؟

3/ كيف يمكنني أن أعمل سيت أب لبرنامجي ؟

4/ ما هو الـ "OLE" الموجود في شريط الأدوات ؟

5/ كيف أعمل سؤال في الفايجوال , مثلاً :
السؤال : كم عدد أسنان الإنسان؟
الإجابة : 32
وهناك فراغ للإجابة وعند الإجابة تضغط زر فتطلع الإجابة .

6/ كيف أعمل شريط أدوات أو شريط قوائم ... لبرنامجي .



ولكم جزيل الشكر

Ahmed_ghanam (http://www.bramjnet.com/vb3/member.php?u=176557)

اخى الكريم صقر حضرتك عاوز برامج جاهزة ولا شرح ؟

شرح بالصور لكيفية عمل ست اب للبرنامجك فى الفجوال بيسك (http://www.bramjnet.com/vb3/showthread.php?t=152664&highlight=%C8%C7%E1%D5%E6%D1)[/URL]

[URL="http://www.bramjnet.com/vb3/member.php?u=290336"]@...Khalefa (http://www.bramjnet.com/vb3/showthread.php?t=152664&highlight=%C8%C7%E1%D5%E6%D1)


مشروع بسيط للتوضيح
بالمرفقات

Sakr.part1.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=52713&d=1165812879)
Sakr.part2.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=52714&d=1165812908)

[@...Khalefa]

razan1 (http://www.bramjnet.com/vb3/member.php?u=429194)

السلام عليكم ورحمة الله
إلى جميع إخواني بالمنتدى لكم مني أغلى سلام وتحية
أما بعد أرجو من الله أن أجد ضالتي في حل مشكلتي في قاعدة البيانات هذه عندكم ولكم وافر الشكر : المشكلة أني عندي جدولين ( كما هو مبين في المرفقات ) ونموذج رئيسي ونموذج فرعي : والمشكلة أنني أريد أنه عند إدخال رقم مقرر لــ Roll Id فإن البرنامج يعطي رسالة خطأ ( أقوم بإدخالها بنفسي ) وذلك للفاتورة الواحدة Invoice no. ولتكن مثلا الفاتورة رقم 100 ولكن عندما أدخل بيانات فاتورة جديدة ولتكن مثلا Invoice No. برقم 200 أستطيع أن أدخل رقم Roll Id سبق وأن أدخلته في فاتورة سابقة ولتكن رقم 100 . أي أن رقم Roll Id لا يتكرر في الفاتورة الواحدة ولكن ممكن أن يتكرر بين أكثر من فاتورة : أرجو أن أكو أوضحت المشكلة وأن في انتظار الرد في أرع وقت ممكن حيث أن هذه المشكلة مسببة لي حرج شديد في العمل . ولكم مني خالص التحية .

db1.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=51937&d=1165490287)

ahmedkh (http://www.bramjnet.com/vb3/member.php?u=38313)

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

اليك البرنامج بعد التعديل ولا تنسانى من صالح دعائك

db2.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=51949&d=1165493181)

[@...Khalefa]

feky1 (http://www.bramjnet.com/vb3/member.php?u=344490)

السلام عليكم
لو سمحتم انا عاوز كود يخلى البرنامج بجوار الساعه فى شريط المهام
لو حد عنده او يعرفه يا ريت يساعدنى مع الشرح والنبى
شكراً لكم

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


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

systray icon.zip (http://www.bramjnet.com/vb3/attachment.php?attachmentid=50374&d=1164599034)

[الفرعون المحترف]

يثبت وبارك الله فيك اخي الحبيب
استمر اخي
وجزاك الله خيرا

[@...Khalefa]

os10 (http://www.bramjnet.com/vb3/member.php?u=272905)

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ......
الموضوع اريد عمل برنامج صغير خاص بي لكي اضعه في جهازي بلغة الفيجوال بيسك مع قاعدة بيانات الاكسس .
المطلوب من البرنامج فقط البحث باسم الموظف او رقمه او الجنسية او الادارة وستكون هذه هي حقول الحث فقط .
اما عرض البيانات سوف يكون كالتالي :
الاسم ثلاثي .
الرقم الوظيفي .
الادارة .
تاريخ التعيين .
الجنسية .
نوع الوظيفة .
تاريخ انتهاء الخدمات ان وجد .
فما هي الادوات وكيف ابداء من الصفر من لا شي وما هو المطلوب وكيف يتم اعداد الجهاز .
وجزاكم الله خيرا ....... وعاد كل واحد يبدع في اجابته على طريقته !!!!!

Ahmed_ghanam (http://www.bramjnet.com/vb3/member.php?u=176557)

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

عمل دليل هاتف بواسطة الفيجوال بيسك (الدرس الاول) انشاء قاعدة بيانات (http://www.bramjnet.com/vb3/showthread.php?t=204861)
الدرس دة عن انشاء قاعد البيانات ودى انته تشوف الخطوات وتعمل اللى انت محتاجه بس

كيف تبدأ تصميم برنامح؟ (http://www.bramjnet.com/vb3/showthread.php?t=201587&page=2)
شرح حلو ممكن يفيد حضرتك

البحث في قاعدة البيانات (http://www.bramjnet.com/vb3/showthread.php?t=192968)
شرح طريقه عمل بحث فى قاعدة البيانات

قواعد البيانات (http://www.bramjnet.com/vb3/showthread.php?t=166602&page=3)
تصميم قاعدة البيانات

تعلم فقط مع الفرعون عرض السجلات والإضافة والإزالة (http://www.bramjnet.com/vb3/showthread.php?t=197047&page=2)داتا بيس

ولما تخلص البرنامج

شرح بالصور لكيفية عمل ست اب للبرنامجك فى الفجوال بيسك (http://www.bramjnet.com/vb3/showthread.php?t=152664&page=2)

لو كنت بقه عاوز تتعلم الفجوال بيسك كله على بعضه انصحك بالاطلاع على الدورة المقدمه من الاخ الفرعون المحترف ومواضيع الاخ العزيز يوفى وتحميل 3 اسطوانات من هنا (http://www.bramjnet.com/vb3/showthread.php?t=175723&page=3)[/URL]

[URL="http://www.bramjnet.com/vb3/member.php?u=298807"](li) صقر (li) (http://www.bramjnet.com/vb3/showthread.php?t=175723&page=3)

أخي العزيز :

أرجو إني ما أطول عليك لكن افعل الآتي :
بعد الانتهاء من عمل قاعدة البيانات التي تحتوي على المعلومات المرادة , اذهب إلى :

القائمة أدوات >> أدوات مساعدة لقواعد البيانات >> تحويل قاعدة بيانات >> لتنسيق ملف Access 97 .

يظهر لك مربع حفظ اختر الاسم والمكان ولا تعبث أو تغير شيئاً في الخيار :"حفظ كنوع" .

تظهر رسالة تقول : "بسبب تحويل هذا الملف إلى تنسيق ملفات Access 97 فإنه سيتم فقدان أية وظيفة قد تكون خاصة بـ Access 2000 أو أحدث " , اضغط "نعم" .

اخرج من الأكسيس بعد ذلك وانتقل إلى الفايجوال بيزك 6 .

في الفورم ضع الأداة : http://www.1ss1.com/uploads/1ss1.com_Pdr9tY2OQW.JPG

ثم اتبع الصورة :

http://www.1ss1.com/uploads/1ss1.com_OFNJI0Iycz.JPG

حيث أن :

قيمة 1 في الصورة السابقة لتغيير الاسم أو التعليق وسوف تسبب لك بعض الصداع فدعها الآن ولقد وضعتها كمعلومة عابرة .

غير قيمة 2 , فبعد الضغط عليها يظهر زر به ثلاث نقاط سفلية , هكذا "..." اضغط عليه واختر القاعدة الجديدة التي صنعناه وفقاً لتنسيق "Access 97" .

غير قيمة 3 إلى اسم الجدول المراد استعماله (الموجود في قاعدة البيانات) والذي أسميته أثناء عمل القاعدة .

ثم انشأ في الفورم عدداً من الأدوات التالية : http://www.1ss1.com/uploads/1ss1.com_1DJNkSEDOu.JPG على حسب خانات الجدول الذي تم عمله في القاعدة مسبقاً

اضغط على الأول , على اعتبار أن مثلاً الخانة الأولى في الجدول هي : "رقم معرف" فاتبع الصورة لتعريفها بمربع النص السابق إنشاءه :

http://www.1ss1.com/uploads/1ss1.com_I7KkGC3SGm.JPG


القيمة 1 في الصورة السابقة غيرها إلأى اسم الخانة المرادة ولتكن "رقم معرف" , "اسم الموظف" , "الراتب" , إلخ...

القيمة 2 غيرها إلى الاسم الموضح في الصورة أعلاه .

ملحوظة : يجب تغيير قيمة الخانة 2 قبل قيمة الخانة 1 الظاهرين في المربع أعلاه .

وافعل ذلك مع بقية مربعات النص لكن فقط تختلف القيمة 1 على حسب ما تريده

ملاحظة : في مربع الخصائص الخاص بمربع نص نغير فقط القيمتين أو الخاصيتين "DataField" و "DataSource" .

ثم جرب البرنامج .

ملحوظة أخرى : تلاحظ أنه في مربعات النصوص يظهر الاسم "...,Text,1,2,3" عند تجربة البرنامج , لذا قم بحذفه أو تغييره من الخاصية "Caption" الخاصة بمربع الناص المراد

يمكنك التنقل بين البيانات في القاعدة عن طريق الأسهم التي في أزرار الأداة : http://www.1ss1.com/uploads/1ss1.com_Pdr9tY2OQW.JPG

أرجو أن ينال الشرح الأعجاب...

والسلام.....

[@...Khalefa]

rana2008 (http://www.bramjnet.com/vb3/member.php?u=446995)

كيف اجبر المستخدم يدخل التاريخ بغض النظر عن تاريخ اليوم في textbox او الماسك واذا كان محل الماسك فاضي يطلع رسالة خطاء
احتاج الكود
وشكرا

yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

السلام عليكم
أخي الكريم وجب عليك استعمال 6.0 Control :Microsoft Masked Edit

ان لميكن موجودا في قائمة الأدوات Barre d'outils وجب عليك اضافته من القائمة :
Project--Composants أو ثعمل Ctrl+T
بعد دلك تختار 6.0 Microsoft Masked Edit Control
وتعمل تطبيق :Appliquer
بعد دلك شينضاف في قائمة الأدوات على شكل الرمز:## فتضع الكنترول في النافدة
وتقوم بتغيير الخاصيات التالية للكنترول :####/##/##= Mask
أما الكود الازم هو بعد الضغط على الكنترول مرتين تقوم باختيار الحدث = LostFocus :

Private Sub MaskEdBox1_LostFocus()

If Not IsDate(MaskEdBox1.Text) Then

MsgBox("Date invalide")

End If

End Sub

ادا في شي مش مفهوم أنا في الخدمة

[@...Khalefa]

colorlink (http://www.bramjnet.com/vb3/member.php?u=189004)

السلام عليكم


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

كود PHP:
Private Sub Form_Load()



ShockwaveFlash1.Movie = "المسار"

If ShockwaveFlash1.Loop = False Then
Form1.Hide
Form2.Show
End If

End Sub
-----------------------------
Private Sub Form_Resize()
'moves the flash file
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0
'resives it with the from
ShockwaveFlash1.Width = Me.ScaleWidth
ShockwaveFlash1.Height = Me.ScaleHeight
End Sub



طيب! كيف بدي حط فيديو تاني بعد الأول وبنفس الفورم؟ إذا كان الأول ماعم يوقف العرض حتى بعد إيقاف خاصية اللووب

أنا صراحة دخت وبتمنى حد يساعدني و مشكورين جميعاطيب شو الكود اللازم من شان خلي ال ShockwaveFlash2تشتغل بعد إنتهاء عرض الShockwaveFlash1

وكيف فيني خلي ShockwaveFlash1تعرض بس مرة وحدة؟ لأنها عم تكرر العرض وما عم توقف

مشكور على الرد أخي الكريم ومنتظر الحل ^^
@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)



مش شايف اي مشكلة نهائي من اضافة اداة فلاش تانية

كود PHP:
Private Sub Form_Load()



ShockwaveFlash1.Movie = "المسار"

ShockwaveFlash2.Movie = "المسار"

If ShockwaveFlash1.Loop = False Then
Form1.Hide
Form2.Show
End If

End Sub
-----------------------------
Private Sub Form_Resize()
'moves the flash file
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0

ShockwaveFlash2.Top = 0
ShockwaveFlash2.Left = ShockwaveFlash1.Width

'resives it with the from
ShockwaveFlash1.Width = Me.ScaleWidth
ShockwaveFlash1.Height = Me.ScaleHeight
End Sub



_

Flash.zip (http://www.bramjnet.com/vb3/attachment.php?attachmentid=55410&d=1167012373)

[@...Khalefa]

(li) صقر (li) (http://www.bramjnet.com/vb3/member.php?u=298807)

لكن هل يمكن استخدام الأداة "ole" ؟ وكيف ؟

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


مرفق درس منقول ممكن تعرف فكرة
عامة عن الاداة من الدرس

CH-15.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=55545&d=1167099055)

[@...Khalefa]

memouz (http://www.bramjnet.com/vb3/member.php?u=15240)

أخي الكريم بارك الله بك على هذه المبادرة
لدي طلب لو سمحت
بالنسبة لدالات الفيجوال بيسك أرجو شرح بسيط لكل منها و متى بستخدمها و هي
integer
long integer
single
double
currency
date
boolean
string
و اذا كان مثال بسيط لكل واحدة يكن أفضل
جزاك الله خيرا

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


الكتاب المرفق فية شرح للدوال ولو فية حاجة ناقصة ان شاء الله تلاقي الاجابة

Functions.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=48992&d=1163817970)

[@...Khalefa]

ابو الورد (http://www.bramjnet.com/vb3/member.php?u=2396)

السلام عليكم
اقوم الان بعمل اسطوانه للقرأن الكريم ببرنامج AutoPlay Media Studio
ولكن للاسف الاسطوانه تتطلب دائماً دقة شاشه معينه لكي تعمل والا فان الصفحات تظهر مشوهه
هل يمكن عمل باتش او سكريبت يضاف للبرنامج بحيث يقوم بتغيير دقة الشاشه الى قيم معينه
عند بدء عمل البرنامج (الاسطوانه ) وعند الخروج منه تعود الاعدادات الى ماكانت عليه
وذلك لفادي عملية تغيير اعدادات العرض يدوياً ( كما تفعل معظم الالعاب عادة)
ارجو المساعده
وجزاءكم عند الله

ابو الورد

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


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

res.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=53580&d=1166249893)
ResoluteNow.rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=53581&d=1166251485)

[@...Khalefa]

addey (http://www.bramjnet.com/vb3/member.php?u=109101)

السلام عليكم
اخوني اريد مساعدة صغيرة في برنامج فيجيوال بيسك
وهي
اني اريدان اعرف كيفية اخراج البرنامج بعد ما قمت بتصميمه وانهيت كل شيء
يعني انا بدي اعرف كيف اخرج البرنامج ويصير شغال على الوندز
لاني كل ما اعمل سيف يسيف البرنامج على هيئة frm
يعني مش exe

لو سمحتوا الحل يا اهل الخير

Ahmed_ghanam (http://www.bramjnet.com/vb3/member.php?u=176557)

شرح هنا بالكامل اخى الكريم

اضغط هنا (http://www.bramjnet.com/vb3/showthread.php?t=152664)

[@...Khalefa]

mohamed47 (http://www.bramjnet.com/vb3/member.php?u=146693)

أعمل على لغة الفيجوال بيسك
أريد كود أو طريقة لجعلthe caption of form1متحرك
أي العنوان بتاع الفورمة يكون متحرك

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Try this one

rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=49376&d=1164059967)

[@...Khalefa]

maxim90_ru (http://www.bramjnet.com/vb3/member.php?u=144597)

اريد هذا الملف "VB6FR.DLL" وطريقة تسجيله في النظام اذا ممكن ؟؟؟؟؟؟؟؟:smailes41: ضروري ..................................................

yassine (http://www.bramjnet.com/vb3/member.php?u=2102)

اخي الكريم تفضل في المرفقات
فك الضغط و ضعه في مجلد السيستم

vb6fr.zip (http://www.bramjnet.com/vb3/attachment.php?attachmentid=48977&d=1163804479)

[@...Khalefa]

الشومندي (http://www.bramjnet.com/vb3/member.php?u=282659)

قم بكتابة برنامج باستخدام فيجول بيسك يقوم بإدخال درجات الطلاب في المواد الشرعية وهي ( القرآن الكريم ، الفقة ، التفسير ، الحديث ) ، ثم يقوم البرنامج بحساب مجموع هذه الدرجات وطباعة المتوسط لها .
علما بأن المتوسط = مجموع الدرجات / عدد الدرجات .

طيب هذا السؤال وأنا صممت الواجهة وكل شي وكتابة البرنامج عملتها بالشكل الآتي
Private Sub Command1_Click()
Dim a As Single
Text6 = (Text1 + Text2 + Text3 + Text4 + Text5) / 5
End Sub

ولم يظهر الناتج المطلوب في خانت المخرجات
لا تخيبون ظني فيكم

zakimoulayabdellah (http://www.bramjnet.com/vb3/member.php?u=134340)

take friend
this is a solution
كود PHP:
Private Sub Command1_Click()
Text6.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)) / 5
End Sub



if you want another tell me please
goood luck

[@...Khalefa]

ammar samir (http://www.bramjnet.com/vb3/member.php?u=260576)

انا اشكركم على المنتدى الراءع

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

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

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


دروس الاخ يوفي VIP
http://www.bramjnet.com/vb3/showthread.php?t=166602
http://www.bramjnet.com/vb3/showthread.php?t=167205
http://www.bramjnet.com/vb3/showthread.php?t=183261
http://www.bramjnet.com/vb3/showthread.php?t=188925

http://www.bramjnet.com/vb3/showthread.php?t=183772


درس الاخ LaSer_26
http://www.bramjnet.com/vb3/showthread.php?t=41998

[@...Khalefa]

colorlink (http://www.bramjnet.com/vb3/member.php?u=189004)

السلام عليكم

لازم إستخدم أداتين..
Option و WebBrowser

بدي كود.. وقت إكبس على option يفتح ال webbrowserصفحة إنترنت معينة..

ملاحظة: موضروري أداة webbrowser أي أداة أخرى إذا في...

كود PHP:
Private Sub Option1_Click()


If Option1.Value = True Then
؟!؟!

End If
End Sub


وشكرا جزيلا

yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

على ماأظن أخي هذا هو الكود :

كود PHP:
Private Sub Option1_Click()
If Option1.Value = True Then
WebBrowser1.Navigate ("www.bramjnet.com/vb3")
End If

End Sub


تسلم

[@...Khalefa]

migo702000 (http://www.bramjnet.com/vb3/member.php?u=144369)

السلام عليكم ورحمة الله وبركاته ؛؛؛؛
كيف يمكن اجراء عمليه حسابيه على التواريخ بالتصور الآتى
التاريخ مثلا 01/01/2007
المطلوب اولا
مثلا اضافة 15 يوم ليصبح التاريخ 16/01/2007
المطلوب ثانيا
مثلا اضافة شهر ليصبح التاريخ 01/02/2007
المطلوب ثالثا
مثلا اضافة سنه ليصبح التاريخ 01/01/2008
مع ملاحظة اننى لا اريد ان يكون كل قيمه من التاريخ فى خانه منفصله اريد ان تتم العمليه فى ال Textbox لكامل التاريخ مباشرة

ولكم جزيل الشكر

yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

اليك الحل أخي :
أولا:-عليك انشاء ثلاث أزرار أمر :AddDays,AddMonth,AddYears
-مربع واحد نص:Text1

هذاهو الكود ان شاء الله تمام 100% :

كود PHP:
Dim dDate As Date
Private Sub AddDays_Click()
If IsDate(Text1.Text) Then

dDate = CDate(Text1.Text)
dDate = DateAdd("d", 1, dDate)
Text1.Text = CStr(dDate)

End If

End Sub

Private Sub AddMonth_Click()
If IsDate(Text1.Text) Then

dDate = CDate(Text1.Text)
dDate = DateAdd("m", 1, dDate)
Text1.Text = CStr(dDate)

End If
End Sub

Private Sub AddYears_Click()
If IsDate(Text1.Text) Then

dDate = CDate(Text1.Text)
dDate = DateAdd("yyyy", 1, dDate)
Text1.Text = CStr(dDate)

End If
End Sub


اذا كان هناك أي استفسار أنا في الخدمة
تحياتي

[@...Khalefa]

maxim90_ru (http://www.bramjnet.com/vb3/member.php?u=144597)

كيف استطيع عن طريق الفيجوال بيسيك التحقق من ان الكمبيوتر متصل بالانترنت ؟؟؟؟؟؟؟؟؟؟؟؟
وكيف استطيع قطع الاتصال ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ومشكوووووورين على المساعدة سلف .....................

(li) صقر (li) (http://www.bramjnet.com/vb3/member.php?u=298807)

'اضف 3 زر امر
Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
' لكي تعرف هل انت متصل ام لا
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
MsgBox "You're Connected!", vbInformation
End If
End Sub
Private Sub Command2_Click()
' لكي تتصل تلقائيا بالانترنت
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDE D, 0) Then
MsgBox "You're Connected!", vbInformation
End If
End Sub
Private Sub Command3_Click()
'لكي تقطع الاتصال بالانترنت
If InternetAutodialHangup(0) Then
MsgBox "You're Disconnected!", vbInformation
End If
End Sub

[@...Khalefa]

feky1 (http://www.bramjnet.com/vb3/member.php?u=344490)

لو سمحتم انا عاوز اعرف ازاى اعمل
للبرنامج فورم رئيسيه بمعنى
مثلا الفورم الرئيسيه تكون رقم 1
وباقى الفورم 2و3و4 مثلا
المهم فورم واحد لما تفتح كل الفورم الباقيه تفتح جواها
ولو المستخدم عمل منى ميز للفور كل الفورم تنزل مع الفورمه الاوله
ومشكور ليكوا جميعاً

يوفي VIP (http://www.bramjnet.com/vb3/member.php?u=354959)

http://www.bramjnet.com/vb3/showthread.php?t=179145 (http://www.bramjnet.com/vb3/showthread.php?t=179145)

[@...Khalefa]

rana2008 (http://www.bramjnet.com/vb3/member.php?u=446995)

انا بستعمل vb.net2003 and sql2000
هلا لما أدخل التاريخ عن طريق ماسك وعملت للماسك فورمات (####/##/##) بيضل يطلع خطاء بس ما بينضاف الى قاعدة البيانات فيsql
بس لما ادخل التاريخ عن طريق التكست بوكس عادي مافي مشاكل ينضاف الى الداتا بيس
الي بدي اعرفة ممكن اضيف التاريخ على الداتابيس بطريفة الماسك مع الشرح
كمان اذا مافي الا طريقة التكست بوكس كيف اتاكد من انو الى في التكست بوكس تاريخ
وشكرا

yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

ياأختي rana أنا كان عندي نفس المشكل مع التاريخ وأنا بستعمل vb.net2003 and sql2000
لأن ماسك غير مضبوط في vb.net2003

لكن فيه طريقة للتأكد من صحة التاريخ عن طريق التكست بوكس وهي :

كود PHP:
If IsDate(TxtDateNaissance.Text) = False Then

MsgBox("Le champ Date de naissance invalide!!",MsgBoxStyle.Exclamation + vbOKOnly, "Champs invalide...")

Else
...
End if


ان شاء الله تمام

[@...Khalefa]

soccer (http://www.bramjnet.com/vb3/member.php?u=44458)

أرجوأن تساعدوني في الفجوال بيسك

عندي في الـ form يوجد picture1 و command1 وأما عن المساعدة فهي

ما هي الأوامر التي أكتبها بالـ code والتي تمكنني من:-

رسم نقاط معينة في picture1 بعد أن أضغط على command1

أتمنى أن تكون قد فهمتم علي يا أخوتي وتساعدوني

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


دا تصميم بسيط يارب يكون مفيد

rar (http://www.bramjnet.com/vb3/attachment.php?attachmentid=56216&d=1167468952)

[@...Khalefa]

alresalah (http://www.bramjnet.com/vb3/member.php?u=187864)

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

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

أخواني الخبراء .. واخواني المشرفين والاعضاء الكرام .. لدي سؤال في الفيجوال بيسك 6 وهو :

أريد أن أبحث في قاعدة البيانات وأريد ان تظهر النتائج في التكست بوكس ...

شكل السؤال غامض .. لنوضح الفكرة التي اعنيها ..

شوف صورة النموذج .. وإن شاء الله راح تتضح الفكرة لديك .. انظر لها ..

http://www.servamega.com/img/1f8a6527e731474939683e6b17bf3cf4/Search.jpg


توضيح أكثر إذا مافهمت الصورة :

أبي أحط TEXT وجنبة COMAND ولمن يحط في التكست رقم الطالب ويضغط على زر الـCOMAND يظهر له بيانات الطالب في التكسات اللي أسفل .. كما موضح في الصورة السابقة

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

أرجو أن يكون السؤال واضح الآن ..


أتمنى أن أجد الاجابة لديكم بأسرع وقت إن شاء الله

yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

أول حاجة لازم تعملها أخي قبل ما تكتب الكود:

-تضع الأداة Objet :Adodc الموجود في قائمة الأدوات وتضع له اسم كالأتي:AdoStudent
-تحدد الخاصيات المهمة لهدا الObjet وأهمها :ConnectionString
-تختار الاختيار الأخير اي Use the Connection String أو بالفرنسي :Utiliser une chaîne de connexion
-تضغط على الكمند Créer أو Create
- تختار الProvider ويكون في حالة استعمال قاعدة البياتات أكسس :Microsoft Jet 4.0 OLE DB Provider
-ثم تختار قاعدة البيانات التي ستستعملها
-ثم تضغط على OK
-الى الأن لم نقم الا بربط AdoStudent بقاعدة البيانات اد يلزم ربطه بالTable المراد استخدامها ولتكن Student
-نغير الخاصية التالية للAdoStudent وهي :RecordSource نختار الOption في Type of command OR Type de commande:حيث نختار adCmdText
ونكتب في Text de la commande(SQL):i
select * from Student
-Student ترمز الى اسم الTable بقاعدة البيانات
*المرحلة التانية :
يجب عليك وصل كل TextBox الموجود بالفورم بالحقل الموجود بقاعدة البيانات كيف؟
-على سبيل المثال تختار الTextBox المعمول للName بتاع Student في الفورم وتختار AdoStudent في الخاصية : Datasource للTextBox_Name
وتختار اسم الحقل المناسب في قاعدة البيانات في الخاصية Datafield للTextBox_Name
-ونفس الشيء لجميع الTextBox لي موجودين في الفورم

الأن نأتي لبرمجة الcommand Search :
كود PHP:
CommandSearch_Click()

If TextBox_Number.text <> "" Then
AdoStudent.RecordSource = " SELECT * FROM Student WHERE Number_Student ='" & TextBox_Number.text &"'"
AdoStudent.Refresh

End Sub


ادا لم تكن الطريقة مفهوم أرفق قاعدة البيانات والفورم
تحياتي

[@...Khalefa]

milo.mohamed (http://www.bramjnet.com/vb3/member.php?u=454656)

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

(li) صقر (li) (http://www.bramjnet.com/vb3/member.php?u=298807)

أخي العزيز , تفضل إلى الموضوع التالي وقولي رأيك إيه

أكثر من 159 كتاباً لتعلم جميع لغات البرمجة (http://www.bramjnet.com/vb3/showthread.php?p=2271169#post2271169) (http://www.bramjnet.com/vb3/showthread.php?p=2271169#post2271169)

[@...Khalefa]

soccer (http://www.bramjnet.com/vb3/member.php?u=44458)

يا شباب أنا عندي picture1 وأرسم فيه نقاط picture1.pset وعندي أيضا خارج الـ picture1 شيئان وهما text2 و text3 أما السؤال فهو:-
ماذا أكتب في الـ code ليظهر عندي قيمة العرض في text2 و قيمة الطول في text3 بعد رسم كل نقطة
مثال:-
إذا رسمت نقطة في أي مكان وكانت قيمة العرض 5 وقيمة الطول 10 يظهر عندي داخل text2 5 وداخل text3 10
أنتظر المساعدة

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.PSet (X, Y), vbBlack
Text1.Text = "( X ) " & X
Text2.Text = "( Y ) " & Y
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "X= " & X & " Y= " & Y
End Sub

[@...Khalefa]

soccer (http://www.bramjnet.com/vb3/member.php?u=44458)

وضعت في Form_Load هذه الأشياء
List2.AddItem "red"
List2.AddItem "random"

ورسمت في Picture1_MouseDown نقاط بهذا الأمر
Picture1.PSet

أما السؤال فهو
ما هو الكود الذي من خلاله أحدد لون النقطة أي عندما أختار red أرسم نقطة حمراء فقط وعندما أختار random أرسم بأي لون

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


If List2.List(List2.ListIndex) = "Red" Then Picture1.ForeColor = vbRed
If List2.List(List2.ListIndex) = "Black" Then Picture1.ForeColor = vbBlack
If List2.List(List2.ListIndex) = "Random" Then Picture1.ForeColor = RGB(Rnd * 500, 1000 * Rnd, Rnd * 1300)
Picture1.PSet (X, Y)

[@...Khalefa]

sherif_sam (http://www.bramjnet.com/vb3/member.php?u=24234)

السلام عليكم ورحمه الله وبركاته
أخوتي الفضلاء أود أن أعرف كيف يمكنني عمل رابط في برنامج الفيجوال بيسيك 6 يمكنني بالضغظ عليه الدخول إلى موقع بالانترنت
ولى سؤال أخر هل يمكنني تغيير لون الشريط العلوي لهذا البرنامج وهو الشريط المظلل باللون الأحمر والذي يحوي كلمتي ملف ومساعدة وهذه هي صورة للبرنامج المصنوع بالفيجوال بيسيك
http://khayma.com/tajweed/untitled.JPG

yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

السلام عليكم
أخي هناك طريقتين لأظهار صفحة الأنترنت في الفيجوال بيسيك 6
الأولى :يتم خلالها اظهار صفحة الأنترنت خارج برنامج الفيجوال بيسيك 6 أي عن طريق InternetExplorer
وهاهي الطريقة :

كود PHP:
Sub LanceIE()
Set iE = CreateObject("InternetExplorer.Application")
iE.Navigate ("http://www.bramjnet.com/vb3")
iE.Visible = True
End Sub


-التانية :يتم خلالها اظهار صفحة الأنترنت داخل برنامج الفيجوال بيسيك 6 بمساعدة الأداة WebBrowser :

كود PHP:
Private Sub CommandButton1_Click()

WebBrowser1.Navigate ("www.bramjnet.com/vb3")

End Sub


بالتوفيق
تحياتي

يمكنك أخي أن تضعه باستعمال كمند Command1 كما يلي :

كود PHP:
Private Sub Command1_Click()
LanceIE
End Sub

Sub LanceIE()
Set iE = CreateObject("InternetExplorer.Application")
iE.Navigate ("http://www.bramjnet.com/vb3")
iE.Visible = True
End Sub


أو أن تضع مكان الكمند Label:

كود PHP:
Private Sub Label1_Click()
LanceIE
End Sub

Sub LanceIE()
Set iE = CreateObject("InternetExplorer.Application")
iE.Navigate ("http://www.bramjnet.com/vb3")
iE.Visible = True
End Sub


تحياتي

[المصري 3]

بسم الله الرحمن الرحيم
أنا عملت تكست 1 , تكست 2 , وليبل 1
المطلوب لما أكتب أي رقم في تكست 1 يظهر في ليبل 1 لوحدة ولما أكتب رقم تاني في
تكست 2 يجمع الرقم الموجود في تكست 1 و2 ويظهر في ليبل 1 لوحدة ياريت تكون فهمت قصدي
وشكرا
وفق الله الخير لنا لوطننا الغالي مصر
المصري 3

[@...Khalefa]

المصري 3 (http://www.bramjnet.com/vb3/member.php?u=318615)

بسم الله الرحمن الرحيم
أنا عملت تكست 1 , تكست 2 , وليبل 1
المطلوب لما أكتب أي رقم في تكست 1 يظهر في ليبل 1 لوحدة ولما أكتب رقم تاني في
تكست 2 يجمع الرقم الموجود في تكست 1 و2 ويظهر في ليبل 1 لوحدة ياريت تكون فهمت قصدي
وشكرا
وفق الله الخير لنا لوطننا الغالي مصر
@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


Private Sub Text1_Change()
Label1 = Text1
End Sub

Private Sub Text2_Change()
Label1 = Val(Text1) + Val(Text2)
End Sub

[المصري 3]

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

[يــس]

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

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

بالتوفيق

[الاجئ الفلسطيني]

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

[يــس]

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

وعليكم السلام
ستضيف أخي التايمر في الفورم وتضع خصائصه :
Enabled=True
Interval=1000

1000 تمثل ثانية من الزمن وهي المدة التي سيقضيها التايمر قبل تنفيذ أمر ما
يمكنك تغييرها حسب المدة التي ترغب فيها
ولتشغيل المقطع الصوتي ضع الكود الخاص به هنا:
Private Sub Timer1_Timer()
....
End Sub

[الاجئ الفلسطيني]

اخي انا مبتدئ ما فهمت
فصل اكتر شوي
لاني ما بعرف اشي لسا

[xlogan]

توضيح لما ذكره الاخ yassine

روح يا لاجىء على الفورم ، واختار من القائمة على ايدك الشمال شي اسمه timer
شكله بيشبه الساعة ، اعمل عليه double click. حتلاقيه نزل على الفورم .

هلاء روح على الخصائص الموجودة على اليمين في شي اسمه
Enabled هاي خلي قيمتها تعادل true
Interval هاي خلي قيمتها الفترة اللي انت بدك اياها .
اذا بدك بعد ثانية خليها 1000 ، بعد 5 ثواني 5000 ، بمعنى كل 1000 يعادل ثانية.
تمام لحد هلاء.

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


Private Sub Timer1_Timer()

' put your code in here

End Sub


هلاء بدل جملة

' put your code in here

حط الكود اللي بدك اياه ، وراح يشتغل بعد الوقت اللي انت حددته.

اكتر من هيك بطخك ، ههههههههههههه

[الاجئ الفلسطيني]

اخيxlogan
فاهم عليك
بس انا بدي انه يطلع الوقت زي السلاعة الرقمية
وبعد ما يوصل الرقم الي انا بدياه يشغل مقطع صوتي
ويا سيدي بدك اطخ طخ انا مسامحك

[xlogan]

اخيxlogan
فاهم عليك
بس انا بدي انه يطلع الوقت زي السلاعة الرقمية
وبعد ما يوصل الرقم الي انا بدياه يشغل مقطع صوتي
ويا سيدي بدك اطخ طخ انا مسامحك

طيب بسيطة ، عشان يطلع الوقت كساعة رقمية ضيف شي اسمه label على الفورم واكتب الكود التالي

Private Sub Timer1_Timer()
Label1 = Time
End Sub

[@...Khalefa]

اعتذار عن الغياب الفترة السابقة لظروف خاصة

وان شاء الله اكمل المشاركة
وشكر للاخوة اللى شاركو بالرد عن الاسئلة
وشاركو بضرب النار والطخ ههههههههههه

[@...Khalefa]

princeee (http://www.bramjnet.com/vb3/member.php?u=451884)

السلام عليكم
اخوتي في منتدى برامج نت تحية طيبة
ارجو مساعدتي في كتابة كود لهذا البرنامج البسيط ولكنه صعب علي لاني مبتدأ جداً بالفيجول بيسك
البرنامج بسيط
هوة مثل انه اكتب رسالة مشفرة وبواسطة هذا البرنامج تحل الشفرة
اي
اني اكتب عربي لكن تكتب احرف انكليزية
كمثال حرف ال ا يكتبh وحرف ال ب يكتب f
فاريد كود استطيع من خلاله الترجمة من الكتابات الانكليزية الغير مفهومة الى اللغة العربية الاصيلة وشكراً لكم

technoegs (http://www.bramjnet.com/vb3/member.php?u=285653)

طلبك موجود هنا كامل بالسورس كود
كود خفيف وجميل
Function

الموقع
http://www.olmal.com/sourcecode/
ادخل على
Visual Basic
ثم
Gamalyiat&Effects
بعد كده
Convert English2Arabic Leters
انا كان ممكن ابعتلك اللينك على طول
بس علشان حفظ احقية الموقع فى الإنتشار
شكرا

[@...Khalefa]

tamn (http://www.bramjnet.com/vb3/member.php?u=173929)

السلام عليكم

انا عاوز اعرف طريقة اعمل بيها تول بار ممكن ولى الطلب صعب ؟

وشكرا ليكم جميعا

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)


http://img249.imageshack.us/img249/2041/59069188pz1.jpg
http://img249.imageshack.us/img249/4531/74117249cj0.jpg
اعمل كليك يمين على ImageList1واختارProperties
http://img407.imageshack.us/img407/1430/67645267dn6.jpg
اعمل ربط مابين ListImage1 و ToolBar1بعمل كليك يمين على التول بار واختيار Properties
http://img148.imageshack.us/img148/7380/63083726ox9.jpg
http://img246.imageshack.us/img246/4641/29309292eb6.jpg
اختارInsertButtonلاضافة ازرار للتول بار
اختار رقم الصورة المطلوبة في ImagesList1

[@...Khalefa]

h10_vip (http://www.bramjnet.com/vb3/member.php?u=492986)

[]يا جماعة عايز منكم خدمة
انا بدور على شفرة استخدمها في الفيجوال بيسك 6 أقدر عن طريقها
أفتح أي ملف ((هي ليها علاقة بالـ shell32)) بس مش تكون لملفات ال .exe بس
وعلى فكرة انا كانت عندي الشفرة بس ضاعت مني بعد مافرمت الجهاز
وكنت لقيتها في المنتدى ده بس دلوقتي مش لاقيها
أرجوكم اللي عنده الشفرة أو يعرفها يساعدنى

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)




Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile _
As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function ShellExecute Lib "SHELL" (ByVal hwnd%, _
ByVal lpszOp$, ByVal lpszFile$, ByVal lpszParams$, _
ByVal lpszDir$, ByVal fsShowCmd%) As Integer
Private Declare Function GetDesktopWindow Lib "USER" () As Integer

Public Const SW_SHOWNORMAL = 1


Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
End Function

Private Sub Cmd_Click()
Dim r As Long

r = StartDoc("Your File Path.MP3")
End Sub

[@...Khalefa]

مشهور007 (http://www.bramjnet.com/vb3/member.php?u=421519)

اذا اردنا ان ننشا برنامج قواعد بينات فاننا نختار قاعدة
بينات حسب الحاجة للحجم والاستخدام ...
طيب اذا البيانات حقنا قليلة زي بيانات متجر او بقالة او صيدلية
نستخدم قاعدة بيانات صغيرة زي الاكسس........


ولكن....(مربط الفرس) ....اذا كانت البيانات لمنظومة حكومية مثل وزارة او مؤسسة حكومية تحتاج الى قاعدة بيانات كبيرة مثل MySql

س/ طريقة ربط فيجوال بيسك بالــ Sql عن طريق صفحة الخصائص واذا ممكن عن طريق الكود ...............


مع العلم انه الكتب الالكترونية لا تتطرق لهذا وياليت الاجابة للفائدة..............


مع العلم اني طلبت هذا الطلب من قبل ومحد رد يا مشرفين

technoegs (http://www.bramjnet.com/vb3/member.php?u=285653)

السلام عليكم اخى الكريم
طلبك موجود هنا بالسورس كود SQL Server With Visual Basic
http://www.olmal.com/sourcecode/
قسم
Visual Basic
kawa3ed Byanat
SQL DATABASE

سلام عليكم

[@...Khalefa]

master22 (http://www.bramjnet.com/vb3/member.php?u=437776)

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

ةةةةةةة

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)

Shell "explorer.exe c:\"

[@...Khalefa]

نوسا9999 (http://www.bramjnet.com/vb3/member.php?u=523297)

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

الصور المرفقة http://www.bramjnet.com/vb3/attachment.php?attachmentid=64729&stc=1&d=1170432212 http://www.bramjnet.com/vb3/attachment.php?attachmentid=64730&stc=1&d=1170432263


yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

أخي الكريم المتغير pray ليس نوعه Data
حاول أن تضع :

كود PHP:
Dim pray as String


ثم تضع بقية برنامجك
بالتوفيق

[@...Khalefa]

alresalah (http://www.bramjnet.com/vb3/member.php?u=187864)

بسم الله الرحمن الرحيم

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

أخواني الكرام لو سمحتم لدي سؤال في الفيجوال بيسك الإصدار 6.0

وهو : عندي كومبو بوكس وأريد أن يأخذ البيانات من قاعدة البيانات ويعرضهم في الكومبو بوكس

توضيح : عندي جدول اسمه Student وفيه حقل واحد وهو Name ( اسم الطالب )

أبي في الكومبو بوكس لمن اشغط عليها يعرض لي الأسماء ( اسماء الطلاب ) الموجودة في الداتا بيز ..

أرجو اتضحت الفكرة ؟

yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

كود PHP:
Public db As Database
Public rs As Recordset
Public req As String
Public row As Integer

Dim Mabase As String
Mabase = App.Path & "\Base.mdb"
Set db = OpenDatabase(Mabase)

req = "select * from Student"
Set rs = db.OpenRecordset(req)
With rs
While Not .EOF
comboStudent.AddItem (!Name)
.MoveNext
Wend
End With
comboStudent= comboStudent.List(0)


حاول أن تضع الأسماء الصحيحة لقاعدة البيانات و الكومبو بوكس
بالتوفيق

[@...Khalefa]

نوسا9999 (http://www.bramjnet.com/vb3/member.php?u=523297)

اقول يالربع انقذوني السبت اختباري
وماني عارفه كيف افتح اكثر من مشروع بنفس الوقت ؟
فتحت الممشروع وفتحت اكثر من مشروع في شجره المشروع
لكن لما اضغط تشغيل مايشتغل الا المشروع الأول
الثاني الي ضفته ماينفتح
انقذووووووووني جزاكم الله خير@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)

من قائمة File هاتختار Add Project
وتختار عمل مشروع جديد او مشروع محفوظ قبل كدةhttp://img186.imageshack.us/img186/7885/untitledtq4.jpg
,والمشروع الاول فقط هوة اللى هايشتغل
وعلشان تشغل المشروع التاني
http://img167.imageshack.us/img167/7133/untitledkn8.jpg

[@...Khalefa]

f16wx (http://www.bramjnet.com/vb3/member.php?u=117409)

كيف حااااااااااااااالكم

أتمنى أنكم تساعدوني
محتاج كود يعمل نسخ(copy) لملف بعدين يعمل له إلصاق (paste) في مكان أخر

وبــــــــس:smailes85: :smailes85: :smailes85:

@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)

FileCopy "copied file path" , "pasted file path"

[@...Khalefa]

bachtaka (http://www.bramjnet.com/vb3/member.php?u=138756)

بسم الله الرحمان الرحيم
لقد أنجزت مشروع برنامج يخزن معلومات العامل و الحمد لله ف هو يشتغل :smailes100: ولاكن هناك أمر حيرني وهو يكمن في أن عندما أضغط على الزر "بحت" يقوم بعرض نتيجة البحث أي فقط الشخص المرغوب البحث عنه المشكلة هي عندما أريد الرجوع إلى القائمة التي تحتوي على جميع العاملين لا أتمكن من ذالك دائما تبقى في نتيجة البحث
فمن من منقد لهذه المشكلة وأكون شاكر له

yassine.na (http://www.bramjnet.com/vb3/member.php?u=130781)

أخي الكريم الطريقة المناسبة هي أن تضيف زر أخر تسميه Actualiser أو أي اسم أخر يقوم باعادة تحميل المعلومات من قاعدة البيانات لData1 دون أن تضيف بحت عن عامل معين

مثال:
ادا كنت قد استخدمت SQL في طريقة البحث بالنسبة لزر البحث فتكون النتيجة على الشكل التالي:
كود PHP:
Data1.RecordSource="Select * from Salaries where code='"+text1.text+"'"
Data1.Refresh


فالكود الدي تضعه في الزر الجديد يقتصر فقط على :
كود PHP:
Data1.RecordSource="Select * from Salaries"
Data1.Refresh


بالتوفيق

[@...Khalefa]

mona_83 (http://www.bramjnet.com/vb3/member.php?u=534372)

أهلا يا أعضاء منتدى برامج نت :smailes91:

الحمد لله خلصت الإختبارات

و الله يعينكم على أسئلتنا البايخة :smailes69:

سؤالي في الـ vb6 هو كلتالي

هل صحيح أنة يوجد كود يخفي البرنامج من الـ Task Manager و بالتحديد من الـ Applications



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

memouz (http://www.bramjnet.com/vb3/member.php?u=15240)

هذا هو اختي كود من سطر واحد
Private Sub Form_Load()

App.TaskVisible = False

'لاعادة الظهور : App.TaskVisible =True

End Sub

وضعت الكود في فورم لود أي يعمل مع بدء عمل البرنامج و لا يمكن ظهور البرنامج في التاسك منجر
أرجو أن أكون وفقت

mona_83 (http://www.bramjnet.com/vb3/member.php?u=534372)

شكرا كثييييييييير لك memouz
الحقيقة أنا أمس حاولت كثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثير

دخلت مواقع بريطانية و أسترالية

وحاولت و حاولت إلين ما عرفت الكود

و صدقني يا memouz راح تضحك و تستغرب لمن تكتشف زي ما أنا إكتشفت
إن الكود ما يتعدى (((نصف صطر)))

و هذا هو الكود
Private Sub Form_Load()
App.Title = ""

[@...Khalefa]

nayef_2006 (http://www.bramjnet.com/vb3/member.php?u=324723)

عندي استفسار كيف نضيف الاداتين : (غير موجودات عندي )
Data Environment
Data Report

:smailes85:


@...Khalefa (http://www.bramjnet.com/vb3/member.php?u=290336)

اظن الصورة تكفي
http://img296.imageshack.us/img296/1191/untitledby2.jpg

[m.a.j.e.d]

هلا اخي ابي قانون

حساب مساحة المستطيل

الطول ضرب العرض = المساحه

text1 ضرب text3 = text2

[المصري 3]

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

المصري 3

[m.a.j.e.d]

هلا اخي ابي قانون

حساب مساحة المستطيل

الطول ضرب العرض = المساحه

text1 ضرب text3 = text2

شباب وين المساعده

[الحمدي 83]

عندي إستفسارات عن لغات البرمجة
س1 / وش الفرق بين الفيجوال بيسك والفيجوال سي ؟ وأيهما أسهل من ناحية لغات البرمجة والتصميم ؟
س2 / وش الفرق بين الفيجوال بيسك والفيجوال بيسك دوت نت ؟
س3 / وش الفرق بين الفيجوال سي والفيجوال سي دوت نت ؟
س4 / بالنسبة للفيجوال بيسك دوت نت والفيجوال سي دوت نت وش الغرض منها هل هي أصمم مشاريع عن طريق النت ولا أصمم أشياء كبرامج تخص بالنت وش القصد منها بالضبط ؟
س5 / أللي أعرف أن الفيجوال بيسك يصمم برامج وألعاب وقواعد بيانات لكن الفيجوال سي وش الغرض منه ؟

وهذا أسئلتي قدمتها لكم وأرجو منكم المساعده لو تكرمتم

[xlogan]

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

المصري 3

حبيبي اي برنامج تعمله على الفيجوال بيسك ، ما حيشتغل على الكمبيوترات التانية الا اذا كانت ال tools اللي انت ضايفها موجوده . وعشان اختصر عليك . في حلين .

الاول تنزل على الجهاز اللي بدك تشغل عليه برنامج شي اسمه Vb runtime component 6

والتاني ، وهادا بنصحك كتير فيه ، انك تستخدم برنامج اسمه package and deployment wizard. ، هاد البرنامج بينزل مع فيجوال بيسك ، سهل كتير افتحه وامشي بخطواته .

طبعا فيك تستخدم برامج تانية كتير ، بس هادا اسهل شي الك

[xlogan]

شباب وين المساعده

مساحة المستطيل بتعادل الطول بالعرض ، خلصنا

هههههههههههه

الحل للي انت كاتبه


val(text3.text) = val(text1.text) * val(text2.text)

[xlogan]

عندي إستفسارات عن لغات البرمجة
س1 / وش الفرق بين الفيجوال بيسك والفيجوال سي ؟ وأيهما أسهل من ناحية لغات البرمجة والتصميم ؟
س2 / وش الفرق بين الفيجوال بيسك والفيجوال بيسك دوت نت ؟
س3 / وش الفرق بين الفيجوال سي والفيجوال سي دوت نت ؟
س4 / بالنسبة للفيجوال بيسك دوت نت والفيجوال سي دوت نت وش الغرض منها هل هي أصمم مشاريع عن طريق النت ولا أصمم أشياء كبرامج تخص بالنت وش القصد منها بالضبط ؟
س5 / أللي أعرف أن الفيجوال بيسك يصمم برامج وألعاب وقواعد بيانات لكن الفيجوال سي وش الغرض منه ؟

وهذا أسئلتي قدمتها لكم وأرجو منكم المساعده لو تكرمتم

تعرف حاسس حالي بامتحان في الجامعة ، اسمع يا صاحبي .
ج1 : فيجوال بيسك وفيجوال سي ، كل وحدة منهم لغة برمجة منفصلة عن الاخرى ، من ناحية التصميم ولغة البرمجة ، فالفيجوال بيسك اسهل بكتير من فيجوال سي

ج2 : فيجوال بيسك وفيجوال بيسك دوت نت ، انا برايي الشخصي ارى انهم لغتان منفصلتان . كتير راح يقولك شو اللي عم بيخبصه هادا ، بس يا صديقي الهدف من فيجوال بيسك دوت نت هو ايجاد لغة مطورة عن فيجوال بيسك العادي . طبعا ثلاث ارباع الاوامر ما اختلفت بين الاتنين ، بس فيجوال بيسك دوت نت صارت اشمل من فيجوال بيسك العادي ، وبرضه اقوى .

ج3 : نفس رد السؤال التاني .

ج4 : اسمهم ما بيدل على عملهم ، يعني مو المقصود من دوت نت انهم لغات للنت . لاء هاي لغات بتقدر تعمل فيها اللي بيخطر ببالك . هلاء دوت نت مفهوم لل objects ، وهاي شرحها ما حخوض فيه لانه بدي اكتب جريدة عشان احاول اوصلك الفكرة .

ج5 :فيجوال سي اجمل بكثير من فيجوال بيسك ، لكن اصعب بكثير منه . هلاء بالفيجواال سي بتقدر تعمل اشيا كتيرة ، اكتر من فيجوال بيسك ، ممكن تلعب بالهاردوير عن طريق السي بسهولة اذا انتا متقن للغة . اما بالفيجوال بيسك ، فانت مضطر تنادي شي اسمه API اللي اساسا هاد انكتب على السي ، طبعا نسخ كتيرة من الويندوز كتبت على السي ، وايضا كمعلومة اضافية ، البرامج اللي معمولة على فيجوال سي او ال سي اسرع بكتير عند التنفيذ من برامج الفيجوال بيسك.

[طوباسي]

السلام عليكم انا عندي سؤال بيسك انشاء الله يكون سهل
عندنا 2 كومند وواحد تكست باد بدي احرك الكومند الاول بطريقة عشوائية ويصير كل مايتحك يعد ارقام في التكست باد طبعا الؤال بحتاج تايمر ارجوكم تحلوه ضروري

[@...Khalefa]

السلام عليكم انا عندي سؤال بيسك انشاء الله يكون سهل
عندنا 2 كومند وواحد تكست باد بدي احرك الكومند الاول بطريقة عشوائية ويصير كل مايتحك يعد ارقام في التكست باد طبعا الؤال بحتاج تايمر ارجوكم تحلوه ضروري

Private Sub Timer1_Timer()
With Command1
.Left = (Rnd * .Left) + (2990 * Rnd)
.Top = (Rnd * .Top) + (3550 * Rnd)
End With
Text1 = Val(Text1) + 1
End Sub

[alwrwr2003]

سؤال بقواعد البيانات؟
اشتغل على مشروع واحتاج للبرايمري كود ترقيم تلقائي حاولت لكني ماوجدت لها اي طريقه وانا معتاد عليها من الاكسس اتمنى المساعد...وأنا أشتغل على فيجول ستوديو 2005 وانشئت قاعدة البيانات بداخلها.....شكرا

[divelhac]

السلام عليكم جميعا

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

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

[يــس]

السلام عليكم جميعا

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

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

اخواني الكرام ممكن تحطوا أسئلتكم وطلباتكم في موضوع مستقل عن هذا الموضوع
لأن هذا الموضوع هو نتاج لمساعدات الأعضاء لبعضهم البعض وصاحبه طلب عدم وضع طلبات فيه حتى يتم الوصول الى المعلومات بأسهل الطرق
رغم ذلك سأجيبك وانتبه المرة القادمة :)

أولا أخي تقوم بوضع هذا الكود في Module أو في General Declaration للفورم :
'Partie déclaration
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

بعد ذلك تضع الكود التالي في كومند لفتح الملف بعد أن تقوم بتغيير اسمه الموافق لملفك :

Dim path_file As String
path_file = App.Path & "\cv.doc"

ShellExecute Me.hWnd, vbNullString, path_file, "", vbNullString, 1

ملحوظة :الملف يجب أن يكون مع ملفات البروجيكت أو انزع عبارة App.Path وضع المسار كاملا للملف

بالتوفيق ومرحبا بك

[RAFI 11]

السلام عليكم ورحمة الله وبركاته. احتاج مساعدة ضروروية جدا
اريد ان اعرف كيف استطيع ان اتحكم بكاميرا webcam بالفيجول بيسك
وكيف اقدر التقط الصور وكيفي التقريب والتيعيد zoomin zoomont

[swl kml th]

شكر اً ياخى

[s.hussain]

السلام عليكم ..
اخي بغيت السورس كود لآلة حاسبة مشابهة للي في الكمبيوتر لكي اطلع على الكودات
يعني تكون الآلة مطورة قليلا وليس المبسطة جدا .
والشكر الجزيل لك على مجهوداتك الجبارة :)

[albarashi]

شكراااااااااااااااااااااااااااااااااااا

[Aboud Aboud]

شكرااااااااااااااااااااااااااااااااااا

[nour al-islam]

من فضلكم ياجماعة انا عايزlatest version لبرنامج visual basic ضرورى ياريت الاقى الرد عندكوا لانى تعبت جدا ومش عارف احمله

[نونيم]

السلام عليكم
اريد طريقة اضافة صورة الى البرنامج + تحويل هذه الصورة http://img.aljasr.com/icon.aspx?i=forum166
الى صيغة .ico

[peameds]

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

[rizkusama]

طلبي قديم شوية عايز شرح الأكسس

[ttoko]

اخواني اريد رابط تحميل visual basic Enterprise Edition 6

[alkhleel54]

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

[همسة شذى]

عايزة الكود لدى الشكل ..

http://www5.0zz0.com/2007/12/19/22/66350019.gif

[همسة شذى]

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[@...Khalefa]

عايزة الكود لدى الشكل ..

http://www5.0zz0.com/2007/12/19/22/66350019.gif



Private Sub Form_Load()
AutoRedraw = True
Dim Aa As Integer, Bb As Integer, Cc As String
Aa = 1
Cc = ""
Do While Aa < 6
Bb = 1
Do While Bb < 6
Cc = Cc & CStr(Aa * Bb) & " "
Bb = Bb + 1
Loop
Cc = Cc & vbNewLine
Aa = Aa + 1
Loop
Cc = Trim(Cc)
Print Cc
End Sub

[طالب_العلم]

لوسمحتوا محتاك كود فيجوال بيسك 6.0 لجعل البرنامج يعمل في الStartUp يعني يعمل مع فتح الجهاز و شكرا مقدما

[soufian_safa]

أريد مساعدة لدي Mp4 لاتريد قراءة الأغاني ولا حتى أي برنامج مع العلم أنني قمت ب اعاد تهيئة هدا الأخير
وشكرا

[oossam]

الاخوه الاعزاء
السلام عليكم ورحمة الله وبركاته ،،،
برجاء برنامج قاعة بيانات مع الامكان التعديل فيه وارساله على
E-MAIL : sam3m2000@yahoo.com

[@...Khalefa]

لوسمحتوا محتاك كود فيجوال بيسك 6.0 لجعل البرنامج يعمل في الStartUp يعني يعمل مع فتح الجهاز و شكرا مقدما


Private Function RegWrite(XKey, XValue As String)
Set WSHShell = CreateObject("W******.Shell")
WSHShell.RegWrite XKey, XValue
End Function


Private Sub Command1_Click()
RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Run\My Application", App.Path & "\" & App.EXEName & ".exe"
End Sub
]

[طالب_العلم]

Private Function RegWrite(XKey, XValue As String)
Set WSHShell = CreateObject("W******.Shell")
WSHShell.RegWrite XKey, XValue
End Function


Private Sub Command1_Click()
RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Run\My Application", App.Path & "\" & App.EXEName & ".exe"
End Sub
]



شكراً
شكراًشكراً
شكراًشكراًشكراً
شكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراً شكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراًشكراً
شكراًشكراًشكراًشكراً
شكراًشكراًشكراً
شكراًشكراً
شكراً
انت عضو راااااااااااااااااااااااااااااااااااااااااااااااائ ع

[memo p]

بالـ c++

create class called complex for prforming arithmtic with complex numbers . complex number have the form
realpart+imaginarypart*i



use double variables to represent the privet data of the class. provaide a constructore that nbl an object of this class to be initilized when it is declared.


the construtore shoulde contain default values in case no initilized ar provided. provid publicmthode thate prforme the following operations:


a- add 2 complex numbers: the realpart are add together & the imaginarypart are addd together


b- subtracts 2 complex numbers: the realpart of the right operand is subtracted from the imaginarypart of the left operand


c- print complex numbers in the form (a,b), where a is real part & b is imaginary part.




البرنامج هو جمع لمعادلتين تحتويان على جزء حقيقي وجزء تخيلي
بإضافة الحقيقي للحقيقي ولتخيلي للتخيلي


لكن يطلب class واحد بحيث يحوي على تصريح للجزء التخيلي و تصريح للجزء الحقيقي


في الـ main يتم التصريح عن معادله نسخة للأخرى



طبعاً أنا سويت كل هذا لكن اللي توقفت عنده كيف أجمع التخيلي للمعادلة الأولى بالتخيلي للمعادلة الثانية وكذلك للحقيقي
بدون ما أصرح عن أربع متغيرات

فقط متغيرين


البرنامج هذا لي أكثر من إسبوع وأحاول فيه



ياليت ألقى حل عندكم
لأنه احتمال كبير يكون سؤال الإختبار



تكفون ساعدوني


أبغى أنجح

[m e]

عندي مشكلـة بليز اتمنى الاقي لها حل



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


مع العلـم اني وديت جهازي لمحل عشـان ينزله لي ..
رجع لي الجهـاز بدون الفيجـوال ..
مادري ما عرف ينزله و الا ايش قصته ..
المهم ما عندي غير الله ثم انتم يا ليت الي يعرف يساعدني
و الله لا يحرمه الأجر ..



http://up.eqla3.com/up/get-1-2008-5x4laci4.JPG



طبعاً بالصورة فيه بوكس مكتوب عليه رقم واحد ..
أول ما ادخل السيدي و اضغط الخيار الأول يطلع لي هالبوكس ..
يطلب مني احط مسـار .. حطيت مسـار و بعدين اوكي
طلع لي المسـج الثاني :(

[طالب_العلم]

لو سمحت كنت عايز اعرف اذا في طريقة اخلي البرنامج في Viusal Basic6 يعمل من غير تثبيت يعني من الملف على طول ولكم الشكر مسبقاً

[salim-flow]

السلام عليكم اخي انا مبتدئة في البرمجة في فيبي دوت نت 2003 و طلب مني القيام بلعية Brainiac و هي بالمنتدى موجودة و اترجاك اخي ادا كانت عندك الكود تبعها ادا لم يكن متوفر فارجوك اريد كيفية ان تجعل كل الازرار لها لون واحد و عندما تضغط على الزر ينقلب و يضهر اللون الاصلي لها و شكرا اخي

[ابوعلي محمد]

السلام عليكم ورحمة الله اريد من سيادتكم ان تقدمو لنا رنات موبايل samsungE250

[gonkar]

شكراً جداُ شكراً جداُ شكراً جداُ شكراُجداُ شكراً جداُ