مشاهدة النسخة كاملة : جميع الاسئلة والطلبات الخاصة بالفيجوال بيسك مع اجاباتها الكافية
@...Khalefa
03-21-2007, 01:43 PM
بسم الله الرحمن الرحيم
وبه نستعين
في محاولة لرفع مستوى القسم الى اعلى الدرجات احب اقدم المشاركة البسيطة للاعضاء القسم
مشاركة تضم الاسئلة السابقة للاعضاء والخاصة بالفيجوال بيسك 6
والتي قد تم الاجابة عليها بشكل كافي بعد ملاحظة تكرار الكثير من الاسئلة بالقسم
المشاركة تضم اسم السائل وسؤاله
وكذلك اسم المجيب واجابته
والمرفقات في حالة وجودها
بشكل بسيط ارجو ان يفيد بالغرض
((((((((برجاء عدم وضع اسئلة او استفسارات بهذة المشاركة ))))))))
@...Khalefa
03-21-2007, 01:53 PM
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
03-21-2007, 02:06 PM
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
03-21-2007, 02:11 PM
المرشود (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
03-21-2007, 02:15 PM
عبقرين (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
03-21-2007, 02:18 PM
(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
03-21-2007, 02:27 PM
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
03-21-2007, 02:34 PM
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
03-21-2007, 02:37 PM
الليل المشمس (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
03-21-2007, 02:39 PM
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
03-21-2007, 02:42 PM
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
03-21-2007, 02:44 PM
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
03-21-2007, 02:50 PM
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
03-21-2007, 02:54 PM
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
03-21-2007, 03:10 PM
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
03-21-2007, 03:14 PM
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
03-21-2007, 03:17 PM
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
03-21-2007, 03:19 PM
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
03-21-2007, 03:23 PM
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
03-21-2007, 03:29 PM
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
03-21-2007, 03:44 PM
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
03-21-2007, 03:51 PM
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
03-21-2007, 03:57 PM
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
03-21-2007, 04:12 PM
حمودة حمودة (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
03-21-2007, 04:38 PM
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
03-21-2007, 04:45 PM
(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
03-21-2007, 04:52 PM
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
03-21-2007, 04:58 PM
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)
الفرعون المحترف
03-21-2007, 07:07 PM
يثبت وبارك الله فيك اخي الحبيب
استمر اخي
وجزاك الله خيرا
@...Khalefa
03-23-2007, 06:41 PM
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
03-23-2007, 06:45 PM
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
03-23-2007, 06:52 PM
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
03-23-2007, 06:57 PM
(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
03-23-2007, 07:12 PM
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
03-23-2007, 07:20 PM
ابو الورد (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
03-23-2007, 07:27 PM
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
03-23-2007, 07:32 PM
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
03-23-2007, 07:35 PM
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
03-23-2007, 07:37 PM
الشومندي (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
03-23-2007, 07:42 PM
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
03-23-2007, 07:46 PM
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
03-23-2007, 07:52 PM
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
04-01-2007, 08:48 PM
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
04-01-2007, 08:50 PM
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
04-01-2007, 08:56 PM
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
04-01-2007, 09:06 PM
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
04-01-2007, 09:21 PM
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
04-01-2007, 09:25 PM
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
04-01-2007, 09:32 PM
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
04-01-2007, 09:39 PM
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
04-09-2007, 01:36 AM
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
04-27-2007, 08:27 AM
بسم الله الرحمن الرحيم
أنا عملت تكست 1 , تكست 2 , وليبل 1
المطلوب لما أكتب أي رقم في تكست 1 يظهر في ليبل 1 لوحدة ولما أكتب رقم تاني في
تكست 2 يجمع الرقم الموجود في تكست 1 و2 ويظهر في ليبل 1 لوحدة ياريت تكون فهمت قصدي
وشكرا
وفق الله الخير لنا لوطننا الغالي مصر
المصري 3
@...Khalefa
04-28-2007, 03:49 AM
المصري 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
04-30-2007, 11:12 AM
بسم الله الرحمن الرحيم
إلحقوني أرجوكم
أنا مش عارف أشغل قادة البيانات من غير ما يكون في أكسس على الكمبيوتر
هل في ملفات ممكن تشغل قاعدة البيانات من غير ما تثبيت الأوفيس على الكمبيوتر
رجاء الإفادة بسرعة يا جماعة على شان أنا محتاج هذه الإفادة جدا
وشكرا
وفق الله الخير لنا و لوطننا الغالي مصر
المصري 3
بسم الله الرحمن الرحيم
إلحقوني أرجوكم
أنا مش عارف أشغل قادة البيانات من غير ما يكون في أكسس على الكمبيوتر
هل في ملفات ممكن تشغل قاعدة البيانات من غير ما تثبيت الأوفيس على الكمبيوتر
رجاء الإفادة بسرعة يا جماعة على شان أنا محتاج هذه الإفادة جدا
وشكرا
وفق الله الخير لنا و لوطننا الغالي مصر
المصري 3
أخي الكريم لا توجد ملفات ممكن تشغل قاعدة البيانات من غير ما تثبيت الأوفيس على الكمبيوتر
لازم تقوم بتنصيب الأكسس على الأقل حتى يشتغل معاك
بالتوفيق
الاجئ الفلسطيني
05-05-2007, 09:23 AM
السلام عليكم
انا بدي اشغل تايمر لمدة معينة بعدين يشغل
مقطع صوتي عن جهازي
كيف
السلام عليكم
انا بدي اشغل تايمر لمدة معينة بعدين يشغل
مقطع صوتي عن جهازي
كيف
وعليكم السلام
ستضيف أخي التايمر في الفورم وتضع خصائصه :
Enabled=True
Interval=1000
1000 تمثل ثانية من الزمن وهي المدة التي سيقضيها التايمر قبل تنفيذ أمر ما
يمكنك تغييرها حسب المدة التي ترغب فيها
ولتشغيل المقطع الصوتي ضع الكود الخاص به هنا:
Private Sub Timer1_Timer()
....
End Sub
الاجئ الفلسطيني
05-05-2007, 04:10 PM
اخي انا مبتدئ ما فهمت
فصل اكتر شوي
لاني ما بعرف اشي لسا
xlogan
05-06-2007, 03:39 PM
توضيح لما ذكره الاخ 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
حط الكود اللي بدك اياه ، وراح يشتغل بعد الوقت اللي انت حددته.
اكتر من هيك بطخك ، ههههههههههههه
الاجئ الفلسطيني
05-07-2007, 10:45 AM
اخيxlogan
فاهم عليك
بس انا بدي انه يطلع الوقت زي السلاعة الرقمية
وبعد ما يوصل الرقم الي انا بدياه يشغل مقطع صوتي
ويا سيدي بدك اطخ طخ انا مسامحك
xlogan
05-07-2007, 01:14 PM
اخيxlogan
فاهم عليك
بس انا بدي انه يطلع الوقت زي السلاعة الرقمية
وبعد ما يوصل الرقم الي انا بدياه يشغل مقطع صوتي
ويا سيدي بدك اطخ طخ انا مسامحك
طيب بسيطة ، عشان يطلع الوقت كساعة رقمية ضيف شي اسمه label على الفورم واكتب الكود التالي
Private Sub Timer1_Timer()
Label1 = Time
End Sub
@...Khalefa
05-07-2007, 11:41 PM
اعتذار عن الغياب الفترة السابقة لظروف خاصة
وان شاء الله اكمل المشاركة
وشكر للاخوة اللى شاركو بالرد عن الاسئلة
وشاركو بضرب النار والطخ ههههههههههه
@...Khalefa
05-07-2007, 11:43 PM
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
05-07-2007, 11:48 PM
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
05-07-2007, 11:54 PM
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
05-07-2007, 11:57 PM
مشهور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
05-07-2007, 11:59 PM
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
05-08-2007, 12:02 AM
نوسا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
05-08-2007, 12:04 AM
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
05-08-2007, 12:07 AM
نوسا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
05-08-2007, 12:10 AM
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
05-08-2007, 12:14 AM
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
05-08-2007, 12:21 AM
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
05-08-2007, 12:24 AM
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
05-12-2007, 06:16 PM
هلا اخي ابي قانون
حساب مساحة المستطيل
الطول ضرب العرض = المساحه
text1 ضرب text3 = text2
المصري 3
05-14-2007, 11:58 AM
بسم الله الرحمن الرحيم
يا جماعة إلحقوني
أنا عملت قاعدة بيانات وكلة مية مية
وعملت كمان القاعدة ملف exe
في واحد هيسأل ويقول المشكلة إية ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
أقول لك المشكلة إية
إن قاعدة البيانات مش بتشتغل خالص إلا لما يكون الفيجوال بيزك متثبت على الجهاز
قاعدة البيانات بتشتغل بس مش بتجيب معلومات خالص إلا لما يتثبت الفيجوال بيزك
يا ريت يا إخواني يبقى في حل عندكم
و إرساله في أقرب وقت ممكن
وشكرااااا
وفق الله الخير لنا و لوطننا الغالي مصر
المصري 3
m.a.j.e.d
05-14-2007, 12:30 PM
هلا اخي ابي قانون
حساب مساحة المستطيل
الطول ضرب العرض = المساحه
text1 ضرب text3 = text2
شباب وين المساعده
الحمدي 83
05-16-2007, 01:01 AM
عندي إستفسارات عن لغات البرمجة
س1 / وش الفرق بين الفيجوال بيسك والفيجوال سي ؟ وأيهما أسهل من ناحية لغات البرمجة والتصميم ؟
س2 / وش الفرق بين الفيجوال بيسك والفيجوال بيسك دوت نت ؟
س3 / وش الفرق بين الفيجوال سي والفيجوال سي دوت نت ؟
س4 / بالنسبة للفيجوال بيسك دوت نت والفيجوال سي دوت نت وش الغرض منها هل هي أصمم مشاريع عن طريق النت ولا أصمم أشياء كبرامج تخص بالنت وش القصد منها بالضبط ؟
س5 / أللي أعرف أن الفيجوال بيسك يصمم برامج وألعاب وقواعد بيانات لكن الفيجوال سي وش الغرض منه ؟
وهذا أسئلتي قدمتها لكم وأرجو منكم المساعده لو تكرمتم
xlogan
05-16-2007, 09:47 AM
بسم الله الرحمن الرحيم
يا جماعة إلحقوني
أنا عملت قاعدة بيانات وكلة مية مية
وعملت كمان القاعدة ملف exe
في واحد هيسأل ويقول المشكلة إية ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
أقول لك المشكلة إية
إن قاعدة البيانات مش بتشتغل خالص إلا لما يكون الفيجوال بيزك متثبت على الجهاز
قاعدة البيانات بتشتغل بس مش بتجيب معلومات خالص إلا لما يتثبت الفيجوال بيزك
يا ريت يا إخواني يبقى في حل عندكم
و إرساله في أقرب وقت ممكن
وشكرااااا
وفق الله الخير لنا و لوطننا الغالي مصر
المصري 3
حبيبي اي برنامج تعمله على الفيجوال بيسك ، ما حيشتغل على الكمبيوترات التانية الا اذا كانت ال tools اللي انت ضايفها موجوده . وعشان اختصر عليك . في حلين .
الاول تنزل على الجهاز اللي بدك تشغل عليه برنامج شي اسمه Vb runtime component 6
والتاني ، وهادا بنصحك كتير فيه ، انك تستخدم برنامج اسمه package and deployment wizard. ، هاد البرنامج بينزل مع فيجوال بيسك ، سهل كتير افتحه وامشي بخطواته .
طبعا فيك تستخدم برامج تانية كتير ، بس هادا اسهل شي الك
xlogan
05-16-2007, 09:49 AM
شباب وين المساعده
مساحة المستطيل بتعادل الطول بالعرض ، خلصنا
هههههههههههه
الحل للي انت كاتبه
val(text3.text) = val(text1.text) * val(text2.text)
xlogan
05-16-2007, 09:59 AM
عندي إستفسارات عن لغات البرمجة
س1 / وش الفرق بين الفيجوال بيسك والفيجوال سي ؟ وأيهما أسهل من ناحية لغات البرمجة والتصميم ؟
س2 / وش الفرق بين الفيجوال بيسك والفيجوال بيسك دوت نت ؟
س3 / وش الفرق بين الفيجوال سي والفيجوال سي دوت نت ؟
س4 / بالنسبة للفيجوال بيسك دوت نت والفيجوال سي دوت نت وش الغرض منها هل هي أصمم مشاريع عن طريق النت ولا أصمم أشياء كبرامج تخص بالنت وش القصد منها بالضبط ؟
س5 / أللي أعرف أن الفيجوال بيسك يصمم برامج وألعاب وقواعد بيانات لكن الفيجوال سي وش الغرض منه ؟
وهذا أسئلتي قدمتها لكم وأرجو منكم المساعده لو تكرمتم
تعرف حاسس حالي بامتحان في الجامعة ، اسمع يا صاحبي .
ج1 : فيجوال بيسك وفيجوال سي ، كل وحدة منهم لغة برمجة منفصلة عن الاخرى ، من ناحية التصميم ولغة البرمجة ، فالفيجوال بيسك اسهل بكتير من فيجوال سي
ج2 : فيجوال بيسك وفيجوال بيسك دوت نت ، انا برايي الشخصي ارى انهم لغتان منفصلتان . كتير راح يقولك شو اللي عم بيخبصه هادا ، بس يا صديقي الهدف من فيجوال بيسك دوت نت هو ايجاد لغة مطورة عن فيجوال بيسك العادي . طبعا ثلاث ارباع الاوامر ما اختلفت بين الاتنين ، بس فيجوال بيسك دوت نت صارت اشمل من فيجوال بيسك العادي ، وبرضه اقوى .
ج3 : نفس رد السؤال التاني .
ج4 : اسمهم ما بيدل على عملهم ، يعني مو المقصود من دوت نت انهم لغات للنت . لاء هاي لغات بتقدر تعمل فيها اللي بيخطر ببالك . هلاء دوت نت مفهوم لل objects ، وهاي شرحها ما حخوض فيه لانه بدي اكتب جريدة عشان احاول اوصلك الفكرة .
ج5 :فيجوال سي اجمل بكثير من فيجوال بيسك ، لكن اصعب بكثير منه . هلاء بالفيجواال سي بتقدر تعمل اشيا كتيرة ، اكتر من فيجوال بيسك ، ممكن تلعب بالهاردوير عن طريق السي بسهولة اذا انتا متقن للغة . اما بالفيجوال بيسك ، فانت مضطر تنادي شي اسمه API اللي اساسا هاد انكتب على السي ، طبعا نسخ كتيرة من الويندوز كتبت على السي ، وايضا كمعلومة اضافية ، البرامج اللي معمولة على فيجوال سي او ال سي اسرع بكتير عند التنفيذ من برامج الفيجوال بيسك.
طوباسي
05-18-2007, 11:18 AM
السلام عليكم انا عندي سؤال بيسك انشاء الله يكون سهل
عندنا 2 كومند وواحد تكست باد بدي احرك الكومند الاول بطريقة عشوائية ويصير كل مايتحك يعد ارقام في التكست باد طبعا الؤال بحتاج تايمر ارجوكم تحلوه ضروري
@...Khalefa
05-18-2007, 12:16 PM
السلام عليكم انا عندي سؤال بيسك انشاء الله يكون سهل
عندنا 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
05-24-2007, 03:32 PM
سؤال بقواعد البيانات؟
اشتغل على مشروع واحتاج للبرايمري كود ترقيم تلقائي حاولت لكني ماوجدت لها اي طريقه وانا معتاد عليها من الاكسس اتمنى المساعد...وأنا أشتغل على فيجول ستوديو 2005 وانشئت قاعدة البيانات بداخلها.....شكرا
divelhac
05-28-2007, 10:59 PM
السلام عليكم جميعا
اخواني اني محتاج طلب بسيط هو كيف اعمل رابط يشغل ملفات ورود مخزونة مسبقا بالحسوب
يعني اريد اسوي برنامج يشغل الفايلات المخزونة على شكل ورود حسب اختياري مع الشكر
السلام عليكم جميعا
اخواني اني محتاج طلب بسيط هو كيف اعمل رابط يشغل ملفات ورود مخزونة مسبقا بالحسوب
يعني اريد اسوي برنامج يشغل الفايلات المخزونة على شكل ورود حسب اختياري مع الشكر
اخواني الكرام ممكن تحطوا أسئلتكم وطلباتكم في موضوع مستقل عن هذا الموضوع
لأن هذا الموضوع هو نتاج لمساعدات الأعضاء لبعضهم البعض وصاحبه طلب عدم وضع طلبات فيه حتى يتم الوصول الى المعلومات بأسهل الطرق
رغم ذلك سأجيبك وانتبه المرة القادمة :)
أولا أخي تقوم بوضع هذا الكود في 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
10-04-2007, 10:22 AM
السلام عليكم ورحمة الله وبركاته. احتاج مساعدة ضروروية جدا
اريد ان اعرف كيف استطيع ان اتحكم بكاميرا webcam بالفيجول بيسك
وكيف اقدر التقط الصور وكيفي التقريب والتيعيد zoomin zoomont
swl kml th
10-06-2007, 01:39 AM
شكر اً ياخى
s.hussain
10-06-2007, 01:58 PM
السلام عليكم ..
اخي بغيت السورس كود لآلة حاسبة مشابهة للي في الكمبيوتر لكي اطلع على الكودات
يعني تكون الآلة مطورة قليلا وليس المبسطة جدا .
والشكر الجزيل لك على مجهوداتك الجبارة :)
albarashi
10-11-2007, 12:15 AM
شكراااااااااااااااااااااااااااااااااااا
Aboud Aboud
10-22-2007, 03:18 PM
شكرااااااااااااااااااااااااااااااااااا
nour al-islam
11-04-2007, 02:45 AM
من فضلكم ياجماعة انا عايزlatest version لبرنامج visual basic ضرورى ياريت الاقى الرد عندكوا لانى تعبت جدا ومش عارف احمله
نونيم
11-12-2007, 12:46 PM
السلام عليكم
اريد طريقة اضافة صورة الى البرنامج + تحويل هذه الصورة http://img.aljasr.com/icon.aspx?i=forum166
الى صيغة .ico
peameds
11-14-2007, 08:07 AM
السلام عليكم ورحمة الله وبركاته
اريد شرح لبرنامج فيجوال بيسك6 حيث ان ابنى فى اولى معهد وليس عندى اى خبره بهذا البرنامج افدكم الله
rizkusama
11-27-2007, 12:01 PM
طلبي قديم شوية عايز شرح الأكسس
ttoko
12-07-2007, 08:43 AM
اخواني اريد رابط تحميل visual basic Enterprise Edition 6
alkhleel54
12-13-2007, 12:22 PM
يا اخوان ممكن تشرحولي طريقة عمل ملف تنفيذي في الفجول دوت نت 2003 ليعمل على جميع الاجهزه وكيفية اضافة كائن دوت نت فرام ورك اذا صح التعبير لكي يعمل بشكل صحيح على الاجهزة الاخراى تكفون بسرعة وياليت يكون شرح بصورة اذا امكن
ولكم تحياتي والله يوفق الجميع
همسة شذى
12-19-2007, 10:08 PM
عايزة الكود لدى الشكل ..
http://www5.0zz0.com/2007/12/19/22/66350019.gif
همسة شذى
12-20-2007, 07:39 PM
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
@...Khalefa
12-21-2007, 11:12 AM
عايزة الكود لدى الشكل ..
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
طالب_العلم
12-30-2007, 03:21 PM
لوسمحتوا محتاك كود فيجوال بيسك 6.0 لجعل البرنامج يعمل في الStartUp يعني يعمل مع فتح الجهاز و شكرا مقدما
soufian_safa
12-31-2007, 12:03 AM
أريد مساعدة لدي Mp4 لاتريد قراءة الأغاني ولا حتى أي برنامج مع العلم أنني قمت ب اعاد تهيئة هدا الأخير
وشكرا
oossam
12-31-2007, 12:35 PM
الاخوه الاعزاء
السلام عليكم ورحمة الله وبركاته ،،،
برجاء برنامج قاعة بيانات مع الامكان التعديل فيه وارساله على
E-MAIL : sam3m2000@yahoo.com
@...Khalefa
12-31-2007, 12:45 PM
لوسمحتوا محتاك كود فيجوال بيسك 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
]
طالب_العلم
12-31-2007, 02:42 PM
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
01-05-2008, 11:47 AM
بالـ 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 يتم التصريح عن معادله نسخة للأخرى
طبعاً أنا سويت كل هذا لكن اللي توقفت عنده كيف أجمع التخيلي للمعادلة الأولى بالتخيلي للمعادلة الثانية وكذلك للحقيقي
بدون ما أصرح عن أربع متغيرات
فقط متغيرين
البرنامج هذا لي أكثر من إسبوع وأحاول فيه
ياليت ألقى حل عندكم
لأنه احتمال كبير يكون سؤال الإختبار
تكفون ساعدوني
أبغى أنجح
عندي مشكلـة بليز اتمنى الاقي لها حل
بإختصـار شديد .. عندي مشكلة في تثبيت برنامج فيجوال بيسك دوت نت 2003 ، ..
السيديات موجودة عندي كل ما حاولت انزلها تطلع لي هالرسالـة ..
مادري وش المقصـد منها ..
و كل شـوي أبدل في هالسيديات و ما فيه فايدة ..
مع العلـم اني وديت جهازي لمحل عشـان ينزله لي ..
رجع لي الجهـاز بدون الفيجـوال ..
مادري ما عرف ينزله و الا ايش قصته ..
المهم ما عندي غير الله ثم انتم يا ليت الي يعرف يساعدني
و الله لا يحرمه الأجر ..
http://up.eqla3.com/up/get-1-2008-5x4laci4.JPG
طبعاً بالصورة فيه بوكس مكتوب عليه رقم واحد ..
أول ما ادخل السيدي و اضغط الخيار الأول يطلع لي هالبوكس ..
يطلب مني احط مسـار .. حطيت مسـار و بعدين اوكي
طلع لي المسـج الثاني :(
طالب_العلم
01-18-2008, 09:37 AM
لو سمحت كنت عايز اعرف اذا في طريقة اخلي البرنامج في Viusal Basic6 يعمل من غير تثبيت يعني من الملف على طول ولكم الشكر مسبقاً
salim-flow
01-27-2008, 07:18 PM
السلام عليكم اخي انا مبتدئة في البرمجة في فيبي دوت نت 2003 و طلب مني القيام بلعية Brainiac و هي بالمنتدى موجودة و اترجاك اخي ادا كانت عندك الكود تبعها ادا لم يكن متوفر فارجوك اريد كيفية ان تجعل كل الازرار لها لون واحد و عندما تضغط على الزر ينقلب و يضهر اللون الاصلي لها و شكرا اخي
ابوعلي محمد
02-08-2008, 05:13 PM
السلام عليكم ورحمة الله اريد من سيادتكم ان تقدمو لنا رنات موبايل samsungE250
gonkar
02-14-2008, 05:41 PM
شكراً جداُ شكراً جداُ شكراً جداُ شكراُجداُ شكراً جداُ
**لوعتي**
02-15-2008, 10:07 AM
السلام عليكم حبايبي
انا مسويه مشروع او عمل بالفيجوال بيسيك وابي لي برنامج اخف منه لكي اعرضه ..
لان البرنامج ثقيل وصعبه اني احمله بجهاز كل واحد ودي يشوف عملي فانا كني سمعت من واحدة بس هي تقول انه ممكن ان فيه برامج اخف منه تقوم بعرض العمل اللي سويتيه على الفيجوال مثل برنامج مشغل الفلاشات وغيرها..
لانها قالت لي ان بعض الالعاب مصممه عن طريق الفيجوال وشوفي برنامج عرضها وشلون خفيف وحلو..
فاتمنى ممن عنده خلفيه عن هذه المعلومه انه يفيدني ولا يحرمني وياجعل ربي يوفقه ويسعده..
اذا في برنامج فعلا وربي ابيه ..
يسلمووووو حبابيييي
al_tareeq
02-27-2008, 06:59 AM
أخواني الأعزاء
أنا صممت قاعدة بيانات صغير بأستخدام access ومن ثم قمت بربطها بالفيجوال بيسك ولكني أطلب منكم الكود الذي يمكني من البحث على أساس الأسم أو الرقم .... مع الشكر .... وأذا أمكن سؤال أخر هل هناك عدد محدد لقاعدة البيانات هذه أرجوا الأجابة لأنني محتاج الأجابة جدا ................. وجزاكم الله خير
@...Khalefa
03-07-2008, 02:58 AM
أخواني الأعزاء
أنا صممت قاعدة بيانات صغير بأستخدام access ومن ثم قمت بربطها بالفيجوال بيسك ولكني أطلب منكم الكود الذي يمكني من البحث على أساس الأسم أو الرقم .... مع الشكر .... وأذا أمكن سؤال أخر هل هناك عدد محدد لقاعدة البيانات هذه أرجوا الأجابة لأنني محتاج الأجابة جدا ................. وجزاكم الله خير
الاجابه على سؤالك الاول في المشروع دا من هنا (http://rapidshare.com/files/97640397/2.rar.html)
والسؤال الثاني اكيد لكل شئ حدود لكن اظن الاف البيانات اللى الاكسيس يقدر
يحتويها كافيه ليك
m3abdo155
03-08-2008, 06:21 PM
انا لو سمحتو عاوز نسخة فيجوال بيسك دوت نت ..... شكرا
mnmn_1
03-11-2008, 09:25 AM
عايز اسوى مشروع :smailes108: فكرتة حفظ صفحات النت واستخدمها والنت مقفول ... بس بصراحة مش عارف الاكواد اللى بامر بيها الانترنت اكسبورر يخليها حفظ ):smailes111: لو سمحتم حد يساعدني:smailes111: انا متأكد ان اعضاء المنتدى الكرام لن يبخلو عنى وشكرا جزيلا مستقبلا
nadia01
03-11-2008, 05:57 PM
لدي بعض الاسئلة واتمنى ان تجيبوني
1 انشات برنامج للموضفين كل موضف لديه تاريخ العقد وتاريخ نهاية العقد كيف اضع زر بحيث يعرض لي كل العمال الذين انتهت مدة العقد معهم
2 كيف اجعل جدول رئيسي وجدول فرعي على فروم واحد
3 كيف اضع على الفروم جدول استطيع ادخال البيانات فيه
طبعا بالفيجوال بيسك
مع الف شكر الى اسئلة اخرى ان شاء الله
wooody_21
03-12-2008, 12:28 PM
http://abeermahmoud.jeeran.com/340-bless.gif
zizoimad1478963
03-13-2008, 10:01 PM
thannnnnnnnnnnnnnnnnnnx my brother
توتا البنوته
03-14-2008, 01:39 PM
كيف اجعل البرنامج اللي انشاته تنفيذي و له ايقونه
ارجو الرد سريعا
clever_net
03-24-2008, 06:12 AM
انا عندي برنامج مصمم بي الفجول بسك 3 اقدار اغير في الاسكنس بتاع البرنامج وتعديل قاعدة البيانات للفجول بسك 6 وشكرا
clever_net
03-31-2008, 04:58 PM
مفيش ردود ليه يا جماعه
rose_love705
04-11-2008, 12:19 PM
scan0004السلام عليكم انا اسمي روز من الامارات طالبة امتياز بجامعة الامارات قسم الهندسة هذه اول مشاركة لي في المنتدى و لدي مشكلة ارغب من ذوي الخبرة ببرنامج الفجيوال بيسك 6 مساعدتي فقد طلب من مجموعتي او بالاحرى انا تصميم كود لبرنامج وهذا البرنامج صيغ على هيئة سؤال حاولت عدة مرات ولكن محاولاتي نالت الفشل فارجو المساعدة ولكم جزيل الشكرنص السؤال والوجاب الذي يجب ان يكون موجود بالملفات المرفقة رقم السؤال 8
scan0003
oussama86
04-12-2008, 11:06 PM
salam comment creér un ficher .dll et lire a partir du port usb ?
fetoh
04-15-2008, 05:05 PM
لوو سمحتو يا اخون
بدي اطلب منكمم مساعده
الاستاذ طلب منا تصميم مشروع بلغله بيجول بيسلك
ولو سمحتو تساعدوني
طل من برنامج للتحويل الرقم الموجود بlabel1من النضام العشري للنضام الثماني
وتحويل الرقم الموجود ب label2من النضام الثماني الي النضام العشرري
الاستاذ حكى انو في كود برمجي للأنضمه
ولو سمحتو نزلولي كل الجمل البرمجيه الي بتخص البرانمج هاااد
وبأسرع وقت ممكن لو سمحتووو
The Garden Of Sinners
04-16-2008, 09:38 AM
سؤال خارج عن الموضوع.. بصراحة حاولت ضغطت زر "إضافة موضوع جديد" ولكن لم
انجح.. تباً :×
المهم.. سأطرح سؤالي هنا.. من له اجابة .. فمشكوراً بجوابه لي^_^
قرأت درس الpython لكاتبه ( فهد بن عامر السعيدي )
السؤال.. ماهو الـ
" منصة أرابيان 0.6 باستخدام برنامج OpenOffice.org 2.0" ؟
هل هو.. تابع لـ lunix ؟ او ماذا؟ وارجو التفصيل حول برنامج الOpenOffice
وإن كانت كذلك بـ اللنكس, اخبرونا كيف نشغله في الWindows XP .
سلامي !
fetoh
04-16-2008, 12:44 PM
يا جمااااااااعه لو سمحتووووو
جاوبوني على سؤالي
بترجاكم
@...Khalefa
04-17-2008, 06:29 PM
لوو سمحتو يا اخون
بدي اطلب منكمم مساعده
الاستاذ طلب منا تصميم مشروع بلغله بيجول بيسلك
ولو سمحتو تساعدوني
طل من برنامج للتحويل الرقم الموجود بlabel1من النضام العشري للنضام الثماني
وتحويل الرقم الموجود ب label2من النضام الثماني الي النضام العشرري
الاستاذ حكى انو في كود برمجي للأنضمه
ولو سمحتو نزلولي كل الجمل البرمجيه الي بتخص البرانمج هاااد
وبأسرع وقت ممكن لو سمحتووو
Private Sub Command1_Click()
If Len(Label1) = 0 Or IsNumeric(Label1) = False Then
MsgBox "Error"
Else
MsgBox "&O" & Oct(Label1)
End If
End Sub
Private Sub Command2_Click()
If Len(Label2) < 3 Then MsgBox "Required 3 chr. at least", vbCritical, "Error": Exit Sub
If UCase(Left(Label2, 2)) = "&O" Then
If IsNumeric(Right(Label2, Len(Label2) - 2)) = True Then
MsgBox Val(Label2), vbInformation, "Good"
Else
MsgBox "Invalid Data", vbCritical
End If
Else
MsgBox "Oct must be started with &O", vbCritical, "Error"
End If
End Sub
fetoh
04-18-2008, 10:41 AM
لو سمحت يا استاذ خليفه شو يعني هدول
vbCritical
vbInformation
If Len(Label2) < 3 Then MsgBox "Required 3 chr. at least",
وهينا ليش اخترت 3؟؟؟؟؟؟؟؟؟؟؟؟
وشكرررررررا كتييييييييييييرررررر
rose_love705
04-19-2008, 04:35 PM
السلام عليكم انا طالبة امتياز في كلية الهندسة من جامعة الامارات بمدينة العين ومن متطلبات الكلية الفيجيوال بيسك وجدت بهذه المادة صعوبة شديدة بحيث اني اخذت مادة C++ وحصلت فيها على معدل 97 والجميع يقول لي ان الفيجيوال بيسك اسهل بكثير لكني لا اوافقهم الراي سؤالي هو كيف اتغلب على هذه المشكلة وكيف استطيع ان افهم مادة الفيجيوال بيسك وجزاكم الله الف خير
fetoh
04-22-2008, 09:51 AM
لوووو سمحت رررررد
dotreway
04-22-2008, 01:25 PM
السلام وعليكم
تحياتي اخي الكريم
اذا ممكن طريقة برمجة الموبايل (اسقبال الرسائل واسالها)
تحياتي
dotreway
04-22-2008, 01:28 PM
السلام عليكم انا طالبة امتياز في كلية الهندسة من جامعة الامارات بمدينة العين ومن متطلبات الكلية الفيجيوال بيسك وجدت بهذه المادة صعوبة شديدة بحيث اني اخذت مادة C++ وحصلت فيها على معدل 97 والجميع يقول لي ان الفيجيوال بيسك اسهل بكثير لكني لا اوافقهم الراي سؤالي هو كيف اتغلب على هذه المشكلة وكيف استطيع ان افهم مادة الفيجيوال بيسك وجزاكم الله الف خير
السلام وعليكم،
مو عارف كيف بدي ابدا بس اللي بيعرف سي ++ لازم ما يلاقي اي مشكله باي لغه ثانيه، ارجو توضيخ المشكله
وتحياتي
@...Khalefa
04-22-2008, 01:50 PM
لو سمحت يا استاذ خليفه شو يعني هدول
vbCritical
vbInformation
If Len(Label2) < 3 Then MsgBox "Required 3 chr. at least",
وهينا ليش اخترت 3؟؟؟؟؟؟؟؟؟؟؟؟
وشكرررررررا كتييييييييييييرررررر
vbCritical
vbInformation
للتحكم في شكل الايقونه داخل صندوق الرساله
افتراضيا كل اسلوب تكويد لازم له سمات معينه
فنظام Hexa يبدا بـــ H&
ثم يتبعها الكود المكون من ارقام (0 الى 9) واحرف من (A to F)
ونظام Octa يبدا بــ O&
ويتبعها ارقام مكونه من (0 الى 9)
rose_love705
04-22-2008, 03:25 PM
المشكلةانو بجامعتنا العزيزة الله ببعتلك دكاترة اعوز بالله خلينا ساكتين احسن انا بدرسني دكتور باكستاني حاقد على الناس العرب وبالذات المهندسين مع انو اولادو بدرسو هندسة عنا والدكتور اللي درسني C++ لما كنت بكلية العلوم وقبل ما انقبل هندسة كان عربي بفهم وابن ناس وبعرف يستخدم عئلو مو متل اللي بدرسني هلا فانا كرمال هيك ما قادرة افهم هل الهندي شو بحكي فبحاول اعتمد ع حالي وافهم لحالي
rose_love705
04-23-2008, 09:14 AM
1. Write a complete VB program that calculates the sum of even and product of odd integers from 1 to 15 and then display the result in a picture box.
لو سمحت حدا يساعدن به السؤال
السلام عليكم و رحمة الله و بركاته
كيف حالك أخي؟ عذرا" على السؤال و لكنني أريد مساعدتك في أقرب فرصه ان أمكن...حيث أنني أدرس الفيجوال ستوديو 2005 و أواجه صعوبة في برمجة بعض الأزرار بسبب وجود تيكست بوكس واحد فقط...بمعنى آخر انه يجب علي القيام بكلكوليتر مشابهه للويندوز كلكوليتر تماما"...
فهل يمكنك التفضل بمساعدتي؟ فأنا في أمس الحاجة لها...ولاحظت نشاطك و اهتمامك بهذا الخصوص لذلك أتمنى مساعدتك...
بإنتظار الرد قريبا"....
شكرا" أخي و عذرا" على الإزعاج
rose_love705
05-02-2008, 04:40 PM
لا تعبي حالك صدقين انا حاطة مليون سؤال وما انرد عليه لهلا وشكلي رح اكنسل هل المنتدى واطلع منو لانو ما منو فايدة فلا تعبي حالك فيه
رونـه
05-04-2008, 03:34 AM
مرحبا
أبي أعرف إذا ممكن أحد يعطيني كود لمنع تكرار الراندوم بلغة الvb.net
DeAr Dev!l
05-07-2008, 02:15 AM
السلام عليكم ورحمه الله وبركاته
الله يبارك فيك يالغالى بسم الله مشاء الله عليك وجعل كل اعمالك فى ميزان حسناتك
عندى مشكله بسطيه ولها حل باذن الله انا الحين اصمم برنامج هو تصميم قاعده بيانات شركه تليفون محمول كبرى هذا مشروع التخرج وانا قسماً بلله متاخر فيه وكان على اقدمه يوم 15/4/2008 بس وربى هى الظروف الى تخربت على كل شىء والحمد لله على كل شىء
انا ابغى اسوى عن طريق الفيجول بيزك 6 البرنامج انا سويت التصميم وكل شىء تمام بس الاكواد حق البحث يعنى ابغى اكتب اسم العميل وا اقوله ابحث يطلع لى اسم العميل وا رقم الجوال حقه وانا مجهز الخانه الى يظهر فيها رقم الجوال وا نوع الخط وكل هذة السوالف بس الاكواد هذة سالفتها ما وجت لها حل حتى الدكتور المشرف على المشروع تخلى عنى وما يقدر ظروفى والله يسامحه
واسف على الاطال يا وسع الصدر وبارك الله فيك
joealex
05-07-2008, 11:35 PM
thnxxxxxxxxxxxxxxxxxxxxxxxx
ويل حالي
05-12-2008, 12:04 PM
لو سمحت ربي لا هانك اتمنى اكون صديقك ف هالمنتدى الرائع ولي طلب عندكم انا خذت هالمادة فالجامعه بس ابدن مب فاهم شي الي هي الاكواد كيف نكتبها ووين تكبتها .. طلبي هو اذا عندكم رابط لدروس شرحتوها من الاف الى الياء عشان اتعلم .. الله لا هانكم ويعلكم ذخر وسند
الذاكر
05-12-2008, 11:57 PM
اخي عندي شيئ محيرني
انا صممت مشروع كامل بالفيجوال بيسك
ولكن تواجهني مشكله
عند نقل البرنامج علي جهاز اخر اما
انه لا يعمل نهائيا
او ان به عطل معين
فهل عندكم حل؟
مصطفى 151
05-14-2008, 02:04 AM
بسرعة لو سمحت
كيف الربط بين جدولن فى فجول بيسك 6 بكود ؟
عندي 4 text
و DBGrid1
كيف اجعلوهم يعملون ؟
أنا عامل الرطبات في Access و كيف اجعله يعمل في فجول بسك؟
الصخبوري
05-19-2008, 08:28 AM
السلام عليكم ...
شكررررررررررررررررررررررررررررررررررررررا جزييييييييييييييييييييييييييييييييييييييييييلا
على هذا الموضوع المتميز
:smailes60: :smailes80:
وإلى الأمام دوما .
simouhamed
05-19-2008, 02:53 PM
السلام عليكم ورحمة الله
أنا بصدد تصميم برنامج وأحتاج إلى المساعدة من فضلكم
1-كيف أضع الصور في الPictur1 بحيث تأخد الصور حجم الأداة رغم اختلاف أحجام الصور(الطول و العرض)؟
2-عند إختيار صورة ما ,كيف يظهر رابطها في الText1 عند الضغط عليها(علما أن لدي لكل صورة رابطها في موقع تحميل الصور)؟
3-كيف أقوم بحذف الصورة ومسح الرابط بعد الإنتهاء
أرجو أن تكون الأسئلة مفهومة طبعا الغرض هو كودات وجزاكم الله الجنة
@...Khalefa
05-21-2008, 05:29 PM
السلام عليكم ورحمة الله
أنا بصدد تصميم برنامج وأحتاج إلى المساعدة من فضلكم
1-كيف أضع الصور في الPictur1 بحيث تأخد الصور حجم الأداة رغم اختلاف أحجام الصور(الطول و العرض)؟
2-عند إختيار صورة ما ,كيف يظهر رابطها في الText1 عند الضغط عليها(علما أن لدي لكل صورة رابطها في موقع تحميل الصور)؟
3-كيف أقوم بحذف الصورة ومسح الرابط بعد الإنتهاء
أرجو أن تكون الأسئلة مفهومة طبعا الغرض هو كودات وجزاكم الله الجنة
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Function DownloadFile(URL As String, LocalFilename As String) As Boolean
On Error Resume Next
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub KillPrevFile(FilePath As String)
On Error Resume Next
SetAttr FilePath, vbNormal
Kill FilePath
End Sub
Private Sub Cmd_DelPic_Click()
Picture1.Picture = LoadPicture()
Text1 = ""
End Sub
Private Sub Cmd_GetPic_Click()
On Error GoTo ErrX
Dim PicUrl As String, TmpPic As Picture
'Remove any previous tmp-files used before
KillPrevFile "tmp.tmp"
'Image url
PicUrl = "http://www.bramjnet.com/vb3/style-bramjnet/misc/header.gif"
'downloading file
If DownloadFile(PicUrl, "tmp.tmp") = True Then
Set TmpPic = LoadPicture("tmp.tmp")
Picture1.PaintPicture TmpPic, 0, 0, Picture1.Width, Picture1.Height
Text1 = PicUrl
Else
MsgBox "Invalid URL or Can't connect", vbCritical
End If
Exit Sub
ErrX:
MsgBox Err.De******ion
End Sub
simouhamed
05-21-2008, 06:50 PM
بارك الله فيك أخي khalefa...@ على المساعدة
فقط لو تشرح لي من فضلك هذه الفقرة لأنني لم أستوعب
Private Sub KillPrevFile(FilePath As String)
On Error Resume Next
SetAttr FilePath, vbNormal
Kill FilePath
End Sub
وجزاك الله الجنة
xwhite chocolatex
06-04-2008, 12:43 AM
السلام عليكم ورحمة الله وبركاته
عندي مشكلة في دمج الفورمات في مشروع واحد
أنا الأن بأعمل برنامج تخرج
ومشتركين فيه 8 طالبات
وبعد إنتهاء كل وحده نريد ضم الفورمات في مشروع واحد
كيف أستطيع عمل ذلك
أرجو إفادتي سريعا
Mr7ooDa
06-16-2008, 01:47 PM
السلام عليكم اخواتى فى الله
لقد نفذت مشروع على الفجول بيزك
ولكن لم يبقى لى الا خطوة واحدة
وهى
كيف احفظ البيانات المدخله الى البرنامج على هيئه ملف كتابى
مثل word اوفى المفكرة Text ********
ارجو ان يكون السوال واضح ؟
والرد يكون سريع
Mr7ooDa
06-16-2008, 02:27 PM
السلام عليكم ورحمة الله وبركاته
عندي مشكلة في دمج الفورمات في مشروع واحد
أنا الأن بأعمل برنامج تخرج
ومشتركين فيه 8 طالبات
وبعد إنتهاء كل وحده نريد ضم الفورمات في مشروع واحد
كيف أستطيع عمل ذلك
أرجو إفادتي سريعا
ساجيب عليك وياريت تكون اجابتى هى ماتقصدة
لنفرض ان هذا هوالفورم الخاص بيك
http://up.x333x.com/uploads/f74201637c.jpg
اضغط على اداة add واختر منها
new form
فتظهر لك هذة الشاشه
http://up.x333x.com/uploads/111dad2366.jpg
ثم حدد مكان الفومات التى تريد دمجها
http://up.x333x.com/uploads/0a6a332072.jpg
فأنا اختر ت فورم كنت قد صصممته من قبل وكان رقم 6
http://up.x333x.com/uploads/fd6827419f.bmp
وهكذا فاءن الفورم رقم
6
قد دمج الى المشروع
ارجو ان اكون قد افتك فيما تريد
؟
fidraman
06-30-2008, 02:23 PM
السلام عليكم
البرنامج : فيسوال باسيك 5
الطلب : بخصوص FlexGrid ,أريد كود لكي يتم حساب المجموع +القيمة الدنيا + القيمة العليا في جدول من نوع FlesGrid
http://i295.photobucket.com/albums/mm159/fidraman/Sanstitre.jpg
Superpippo
07-05-2008, 02:32 AM
السلام عليكم
لقد احضرت يا إخوة بعض سورس لبرامج من مواقع أجنبية لكنها امتداد .sln و هو لا يشتغل انا لم أعرف كيف أتعامل معه المرجو المساعدة
@...Khalefa
07-12-2008, 05:38 PM
السلام عليكم
البرنامج : فيسوال باسيك 5
الطلب : بخصوص FlexGrid ,أريد كود لكي يتم حساب المجموع +القيمة الدنيا + القيمة العليا في جدول من نوع FlesGrid
Private Sub Rand()
Fx.Rows = 0
Fx.Cols = 1
For mm = 1 To 1000
Fx.AddItem Int(Rnd * 373)
DoEvents
Next
End Sub
Private Sub Command1_Click()
Dim MaxValue As Long, MinValue As Long, SumValue As Long
If Fx.Rows = 0 Then Rand
For mm = 1 To Fx.Rows - 1
If Val(Fx.TextMatrix(mm, 0)) > MaxValue Then MaxValue = Val(Fx.TextMatrix(mm, 0))
If Val(Fx.TextMatrix(mm, 0)) < MinValue Then MinValue = Val(Fx.TextMatrix(mm, 0))
SumValue = SumValue + Val(Fx.TextMatrix(mm, 0))
DoEvents
Next
MsgBox "Max Value: " & MaxValue & vbNewLine & "Min Value: " & MinValue & _
MinValue & vbNewLine & "Values Count: " & mm & vbNewLine & _
"Sum Value: " & SumValue
End Sub
Private Sub Form_Load()
Fx.Cols = 0
Fx.Rows = 0
End Sub
@...Khalefa
07-12-2008, 05:41 PM
السلام عليكم
لقد احضرت يا إخوة بعض سورس لبرامج من مواقع أجنبية لكنها امتداد .sln و هو لا يشتغل انا لم أعرف كيف أتعامل معه المرجو المساعدة
الامتداد خاص بــ Visual Studio 2005 and 2008
moon454
07-23-2008, 10:38 PM
عندي برنامج فيجول وبيسك دوت نت اريد ان اعرف
كيف اربط الفلاش مع الفيجول والبيسك في برنامج الفيجول والبيسك دوت
ضوروي قبل يوم الجمعه هذا
keeeeem
07-28-2008, 02:27 AM
thankssssssssssss
مُجمع الخبرات
07-29-2008, 07:32 AM
السلام عليكم
أنا لا أعرف شيء في البرمجة وأريد أن أتعلم.. سمعت عن لغات برمجة أريد أن أعرف ما الفرق بينها كي أختار اللغة التي تناسبني .
السؤال: ما الفرق بين لغة فيجوال بسك و فجوال بسك دوت نت ولغة ++c ؟
وشكرا
f_a_d_f
07-30-2008, 09:50 AM
السلام عليكم ورحمة الله وبركاتة
شلونكم اخواني انا جايكم في طلب وتكفى
لا تردوني والله تعبت وانا ادور في المنتديات العربيه
عن جواب ما لقيت مشكلة هي اني انا رجل مترجم افلام
وانميات وصادف اني اريد ان اتعلم شيء نسميه في مجالنا
الكاروكي انك تعطي الكلام الى ينطق به المغني تاثيرات حركية
جملية وبعد البحث توصلت الى انه اذا اردت ان تكون محترف
كاروكي لازم تتعلم لغة برمجة وبتحديد اللو Lua
http://www.lua.org/pil/
هذا موقع الكتاب حق اللغة مشروح فيه كل شيء ولكن لاني لا اعرف ولا لغة
برمجة لم افهم منه شيء
للاسف بحثت في جميع المنتديات العربية ولم اجد
دروس ولا حتى معلومات عنها ولكن مجموعة من المبرمجين
قالوا في نقاش قريتة قبل مدة للاسف لم اجد الرابط ان Lua
تشبة بعض لغات الترجمة مثل C++ C ولغة يمكن اسمها pythan
فارجو انكم تساعدوني في هذه المشكلة
يعني هل اللو تشبة احد اللغات المشروحه بالعربي
فاتعلم اللغة المشروحه بسبب عدم توفر دروس لللوا بالعربي
ام ان اللو تختلف ولازم اتعلمها
Rama22
08-04-2008, 02:03 AM
ارجو المساعدة :( لاني خلاص تعبت نفسيا
انا عندي واجب في الفيجوال بيسك عقدني في حياتي عادي احطه هنا وتشوفو وش علته
سؤال انا مسويه bmi calculator
الاستاذ يبي النتيجة تطلع في مسج بوكس مو عارفه اسويها والعمليه الحسابية اصلا ماتشتغل
وانا تعبت صار لي اسبوع احاول فيها مو عارفه عجزت بلييييييييييييز الله يعطيكم العافية ساعدوني ماخليت احد ماسألته :( ماابي ارسب والله :'(
Rama22
08-04-2008, 05:33 AM
هذا الكود حق الفورم الاستاذ يبي مسج بوكس ينبه المستخدم انو مااختار كل الاختيارات
ويبي مسج بوكس للنتيجة وفيها رينج من الاعمار كل نتيجة مرتبطة بعمر وهذي ماعرفت اسويها وطبعا لما اشغله تطلع لي المسج بوكس الاولى ؟؟؟
ارجو المساعدة والحين بحاول احط اشكال الفورم
Option Strict On
Public Class Form1
Private Sub Btncalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalc.Click
Dim height As Double
Dim weight As Double
Dim units As Double
Dim gender As Double
Dim result As Double
height = CDbl(CStr(Txtheight.Text))
weight = CDbl(CStr(Txtweight.Text))
topounds(weight) 'convert the kilos to pounds
toInches(height, result) ' convert the centimeters to inches
allselected(units, gender) ' tell the user to select all units
End Sub
Function allselected(ByVal units as double, ByVal gender as Double) As Double
If RadInches.Checked = False And radCenti.Checked = False Then
End If
Return MsgBox("you must select units for height and wight, and pick a gender to compute the BMI.", _
MsgBoxStyle.OkOnly, "Select units and gender")
If radPounds.Checked = False And radKilo.Checked = False Then
Return MsgBox("you must select units for height and wight, and pick a gender to compute the BMI.", _
MsgBoxStyle.OkOnly, "Select units and gender")
End If
If radFemale.Checked = False And Radmale.Checked = False Then
Return MsgBox("you must select units for height and wight, and pick a gender to compute the BMI.", _
MsgBoxStyle.OkOnly, "Select units and gender")
End If
End Function
Function topounds(ByVal weight As Double) As Double
Dim convert As Double
weight = CDbl(CStr(Txtweight.Text))
If radKilo.Checked = True Then
Return CDbl(convert = weight / 0.4536)
ElseIf RadInches.Checked = True Then
Return weight
End If
End Function
Function toInches(ByVal height As Double, ByVal result As Double) As Double
height = CDbl(CStr(Txtheight.Text))
If radCenti.Checked = True Then
Return CDbl(result = height / 2.54)
ElseIf RadInches.Checked = True Then
Return height
End If
End Function
Function computeBMI(ByVal convert As Double, ByVal result As Double, ByVal BMI As Double) As Double
BMI = (convert * 703) / (result ^ 2)
'Underweight = <18.5
'Normal(weight = 18.5 - 24.9)
'Overweight = 25 - 29.9
'Obesity = BMI of 30 or greater
'female 'male
'Underweight < 19 <20
'Acceptable 19 - 25 20 - 25
'Overweight 25 - 30 25 - 30
'Obese 30 - 40 30 - 40
'Morbidly(Obese > 40 > 40) ' this range should appear in the result
'msgbox
If BMI <= 18.5 Then
MsgBox(("your BMI is"), CType(BMI, MsgBoxStyle), MsgBoxStyle.OkOnly)
ElseIf BMI >= 25 Then
MsgBox(("your BMI is"), CType(BMI, MsgBoxStyle), MsgBoxStyle.OkOnly)
ElseIf BMI >= 30 Then
MsgBox(("your BMI is"), CType(BMI, MsgBoxStyle), MsgBoxStyle.OkOnly)
End If
End Function
End Class
Rama22
08-04-2008, 05:45 AM
المهم انا حاولت احط صور الفورم ماعرفت هم عندي على الجهاز :(
والله احس نفسي غبية في هالاشياء اسفة تحملوني شوي :smailes29:
Rama22
08-05-2008, 01:50 AM
very good
هذي لي ؟؟؟
Rama22
08-05-2008, 08:38 AM
:'( hopeless
!! ElMoBdE3 !!
08-05-2008, 09:28 AM
ممكن شروحات للفيجوال بيسك من الألف الى الياء
!! ElMoBdE3 !!
08-05-2008, 09:29 AM
وممكن تقولولى ماه و الفيجوال بيسك لأنى جديد جدآآ فى عالم الفيجوال بيسك
o0o rami o0o
08-18-2008, 07:46 PM
والله موضوع رائع جدا ما شاء الله ..
مفيد وإن شاء الله الكل يستفيد منه ..
مشكور وما قصرت
مراسي الشوق
09-04-2008, 01:02 AM
السلام عليكم ورحمه الله تعالى وبركاته :
كلعام وانتم بخير:
شباب يريد تساعدوني بالله عليكم ساعدوني - انا مره اثناء تصفح النت وبالتحديد في منتداكم-
شوفت برنامج للتحديث من سيرفر بك 2 إلى 3 وكان معاه مفتاح يجعل الوندوز اصلي يريد
لو تعطوني الرابط واكون لكم شكرآ.
faouzi_azer
09-23-2008, 02:46 PM
السلام عليكم ورحمة الله وبركاته
houssam2062006
10-09-2008, 09:06 PM
عايز البرنامج يكون فيه صفحة للمبيعات اليومية مربوطة بصفحات المحزن ومربوطة بصفحة لعملاء الجمله
ياريت لو حد يعرف البرنامج ده اجيبه منين لانى محتاجة جدا او حتى موقع يكون بيغرض البرامج ده
منتظر الرد وشكراً لصاحب الموضوع
bwader2000
10-27-2008, 06:38 AM
سالخير كيف الحال؟
اود منك المساعدة عندي اسيمنت بالفيجوال بيسك ما اعرف كيف احلة
egy_moody
10-28-2008, 03:07 PM
السلام عليكم
انا خلصت البرنامج وحولتو exe
وبعد نقله الى جهاز اخر لا يعمل و بيطلع رساله error وهى
component 'DBGIRD32.OCX'or one of its dependencies not correctly registered :afile is missing or invalid
yawaloa
12-16-2008, 11:06 AM
السلام عليكم جميعا
اانا عضو جديد بالمنتدى وبصراحه المنتدى كتير حلو واكثر من رائع
واتا عاوز مساعدتكن بكتابة برنامج بلغة C واكيد رح يكون بالنسبه للخبراء كتير بسيط وسهل
رجاء رجاء مين بيقدر يساعدني لايبخل:smailes41:
البرنامج المطلوب:
Write a program includes 2 functions :
The first one asks the user to enter his/her information which is ( phone number, weight, height
birthday ).
The second is just to print this information on the screen elegantly
وتاني برنامج :
Write a program that include a function which prints all the dividers of an integer on the screen ( the program asks the user to enter this integer number then calls the function
رجاء أخوي اللي بيقدر يساعدني مايبخل عليني وبشكرو جزيل الشكر ).
rosy10
01-12-2009, 02:02 PM
انا ابي كود زر حفظ في قاعدة البيانات المربوطه بفيجول بيسك 2005 الله يعطيكم العافيه ابيه كامل
elbatikhy
01-12-2009, 02:53 PM
please i want visual basic 2005
شاب من جيل مضى
01-26-2009, 11:00 PM
بليز ابي مساعده بسرررررررررعه
111111111111
مالفرق بين
static x
و
DIM X
22222222
والفرق بين
Data1.Recordset.EOF
و
Data1.Recordset.BOF
abo0od2009
01-28-2009, 02:51 AM
السلام علايكم ورحمة الله وبركاته
انا سويت برنامج والي ناقصه كود (اختر الصورة من الجهاز)
وارجو الرد باسرع وقت
عربها
01-28-2009, 12:02 PM
السلام عليكم و رحمة الله و بركاته:smailes102:
ارجو المساعدة:smailes41:
انا عند مشكلة في كود سويته و هو لطباعة صورة مخزنة في الاكسس لما اطبعها على A4 اريد اطبع عليها كلمه (صورة طبق الاصل)
لكن اما تطلع الصورة بس او يطلع النص بس
{:smailes55: القصة اني عاملة برنامج لمراسلات الادارة و ادخالها بالماسحة و اخزن الصور في الاكسس و طباعة صورة المستند عند الحاجة ووضع علامه على الصورة تدل انها مطبوعة عن طريق البرمجية:smailes55: }
الرجاء الرد سريع و جزاكم الله كل خير :smailes102:
ارجو مساعدتي في ايجاد الرابط لتحميل فيجول بيسك
moustafa2010
02-16-2009, 03:17 PM
نفسى اتعلم نفسى اى احد من الاخوه الافاضل يدلنى على الطريق:smailes88:
AL-M.F.S
03-14-2009, 03:42 PM
السلام عليكم ورحمة الله وبركاته
أنا طالب سنة ثانية هندسة بترول وفي عنا مادة اسمها الفيجول بيسك
ودكتور المادة مقرر علينا مشروع فصلي عالفيجول
فإذا تقدر تفيدوني بمشروع أحصل فيه على درجة امتياز
بتكونو ساعدتم أخوكم الكريم بنجاح المادة
طبعاً أنا مابعرف بالفيجول كتير
caspers1
03-18-2009, 10:16 AM
مشكورين والله هذا المنتدى فيه فائدةمو حكي فاضي
سالم البدري
04-14-2009, 11:38 AM
السلام عليكم :
عندي مشروع بسيط وهو عبارة عن عمل برنامج يحسب منطق القضايا لمادة discrete math
حيث يقوم البرنامج باستقبال عملية القضية المنطقية ويحولها الى جدول صدق مشكلتي هي كيفية عمل جدول على واجهة الفيجوال حيث ان هذا الجول ليس معلوم الصفوف او الاعمده وانما اريده حسب القضية حيث يقوم البرنامج باستقبال عدد رموز القضية وعملياتها حسب الاتي :
1 - البرناج لا يستقبل الا القضايا المؤلفة من ثلاث رموزp q r
2- عدد الاعمده حسب عدد الرموز وعدد العمليات المؤلفة للعملية حيث يطلب من المستخدم تجزئة عمليته وليس كتابتها كاملة مثلا العملية اذا اراد المستخدم جدول الصدق تبع العملية
not r)and(p or q) )
سيقوم المستخدم اولا بادخال الرموز على حدى p q r ثم يدخل العملية p or q
ثم يدخل العملية نوت r ثم يدخل ككل فيقوم البرنامج برسم 6 اعمده - 3اعمده لكل رمز و3 اعمده لكل اعمده.
3- بالنسبة لعدد الصفوف ستتبع المعادلة N^2 و N هو عدد رموز القضية التي ادخلها في الخطوة السابقة فاذا كانت الرموز 3 رموز ستكون 8 صفوف واذا كانت رمزين ستكون 4 صفوف .
فارجوا اعطائي الكود الذي يقوم برسم الجدول السابق وشكرا
essamfala
04-15-2009, 08:33 PM
ألسلام عليكم و رحمة الله و بركاتة
اخواني الاعزاء عندي برنامج لادارة الفنادق بلغة ال بي اتش بي و لكن لايوجد ملف تسطيب له و انا لا اعرف شيئا عن البرمجة او البرامج انا مجرد مستعمل فقط فهل ممكن احد ان يساعدني في تسطيبة و جزاكم الله خيرا
السلام عليكم
اريد من الاخوه طلب
اريد كراك او سيريل لبرنامج .my command button 5
ولكم جزيل الشكر
colorlink
04-19-2009, 12:18 PM
http://www.bramjnet.com/vb3/showthread.php?t=166602
أخي لايوجد صور ... ولم أفهم شيئأ فهل من مساعد رجاءا
elking008
04-20-2009, 07:11 AM
الف شكر علي المجهود الرائع
جزاك الله خيرا
mosa_2010
05-10-2009, 11:38 PM
السلام عليكم
انا عندى مشروع virtual tour وهو بيعمل انى بتفرج على اى مكان من خلال البرنامج بتاعى ولو عاوز اخد اى معلومات عن اى شئ بالصورة فقط بضغط عليها وكدة والحمدلله ظبطت حاجات فيه بس للاسف مش عارف لحد دلوقتى انى اعرف ازاى احدد اى مكان بالصورة واطلع معلومات عنوا وكمان اللى زاد المشكلة ان الصورة بتتحرك فبيكون صعب تحديد ال x,y فياريت اى حد عندوا حل للمشكلة يبعتلى على الاميل بجد الموضوع صعب ومهم اوى بالنسبة ليا وياريت استخدام السى شارب وشكراااااااا
smix300
08-27-2009, 01:11 PM
السلام عليكم ورحمة الله تعالى وبركاته ورمضان مبارك للجميع
أود ياأهل الننتدى الغالي لو تساعدوني في إجاد برنامج visual basic.net 2005 لقد بحت عليه كثيرا ولم أجده المرجوا المساعدة في هدا الشهر العظيم
advertise
09-07-2009, 09:20 AM
السلام عليكم،
يا إخوان أحتاج مساعدتكم وأنا أول مشاركة لي بمنتداكم الموقر:
"عندي ملف إكسل (Offline) فيه عدد من الصفوف والأعمده، في آخر كل صف يوجد إيميل شخص معين وكل صف يوجد به تاريخ للمتابعة (يكون بالمستقبل) وبجانب هذا التاريخ خلية وضعت بها هذه المعادلة NOW() - تاريخ المتابعة المحدد المذكور...
إذا تبقى ثلاثون يوم فإن برنامج الإيكسل يقوم بقص كامل الصف وإرساله عن طريق الأوت لوك من إيميلي بصيغة ملف إيكسل واضعاً صيغة رسالة معينه للشخص الموجود إيميله بإحدى خلايا الصف"
الله يجزاكم خير
RASH193
09-08-2009, 10:57 PM
ممكن برنامج فيجوال وب ديفيلوبر
princess dream
09-17-2009, 01:38 AM
السلام عليكم اخواني
اممممممممممم
حبيت استفسر لو انا عامله برنامج على c++ ومحتاجه ارسله لشخص ماعنده البرنامج
هل بإمكانه انو يستعرضه؟؟
في طريقه او لا
لو نسخت الكود للورد رح يجي مو منظم
بعدييييييين كمان مارح يقدر يستعرض البرنامج بس الكود...!!!!
بحفظ الرحمن...
newcomputerteacher
09-18-2009, 01:34 PM
لو سمحتم عايز برنامج فيجوال ستوديو2005
الفارس الاكحل
09-18-2009, 10:03 PM
السلام عليكم
كيف انقل بث اسعار العملات في برنامج تداول عملات اجنبية "فوركس" مثل برنامج التداول لشركة plus500 الى برنامج من صنعي حيث يقوم الاخير بالتحكم ببرنامج التداول plus500 ؟
معلومات مهمة :
برنامج plus500 موجود على حاسوبي ويعرض اسعار العملات الحقيقة في البورصة وتتجدد الاسعار كل اقل من ثانية في البرنامج عبر النت .
احتاج لكي اتحكم في برنامج plus500 ان ابث في برنامجي الذي صنعته لليتحكم اسعار العملات تماما كما تبث في برنامج plus500 بحيث ان كل تجديد لاسعار العملات يشكل كحادثة في برنامج التحكم وتقوم بتشغيل اجراء اثر هذه الحادثة . وهذا الاجراء يقوم بفتح واغلاق صفقات في برنامج plus500 حسب خطة معينة .
رابط صفحة تحميل برنامج التداول لشركة plus500 للاطلاع على البرنامج :
http://www.plus500.com/StartTrading.aspx
Sarah..!
10-06-2009, 08:37 PM
السلـأم عليكـم .،ـ
الله يخليكـم اخواني ابي كـود تحميل الملفات المضغوطه .ـ،
لـ برنامج فيجول بيسك اصدار الفين وخمسسه .ـ~
بليييز الله يعطيكم العافيه محـتاجته مرهـ
Sarah..!
10-06-2009, 10:35 PM
بليـٍز الله يخليكـم مرررهـ محتاجه الكـود.،/
مشروعيٍ واقــف عليه ياليت تقدرون تقولون
اذا انتم تقدرون تساعدونيٍ او لـأ .ـ
:@
رئيس السايان
10-11-2009, 02:26 PM
هالا اخوي ..
اخوي انا حملت برنامج الفيجوال بيسك
لكن اول ما فكيته من الوينرار طلعلي نوت باد ؟؟..
شو الحل ؟
عاشقة علي
10-24-2009, 07:12 AM
نفس المشكلة بتحصل معي وبينكتب لي لاتوجد مساحة كافيه عالقرص رغم اني اول شي نزلته على القرص c وبعدين نقلته على D وماتغير شي
عاشقة علي
10-24-2009, 08:13 AM
اسفه بالغلط المشاركة بالاعلي انا ادرس فيجوال بيسك 2008 ولكن بعد ماحملته بيطلع لي لاتوجد مساحة كافيه عالقرص رغم اني اول شي نزلته على القرص c وبعدين نقلته على D وماتغير شي
علما ان النظام ويندوز Xb فهل له علاقة بعد التنصيب
romansiat
10-30-2009, 09:12 PM
عايز تعريف الكمره دى ونبى bluelover
rabe' jamal
11-16-2009, 06:36 PM
ما هي الارقام الابجدية في لغة بيسك والتي نحدد من خلالها القيمة true or false
وما هي القاعدة التي نحدد ذلك من خلالها ؟؟؟؟:smailes85::smailes85:
vBulletin® , Copyright ©2000-2009, TranZ by Almuhajir
