الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اسئلة حول المتغيرات والاحداث ؟

مغلق
بدأه امل مقتول في 18 أكتوبر 2006 · 2 رد · 654 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا مبتدئة في تعلم الفيجول بيسك فااتمني الاجابة على اسئلتي

Private sub command1_click()

A=val(text1.text)*2

Command1.caption=str(a)

س1:- لماذا حولنا القيمة a الstring ؟

س2:-مالمقصود Command1.caption؟

س3:- مالمقصود بـval

س3:- كيف يمكن ان نعمل run لل2form في حالة كان لدينا 2 form

Private Sub Command1_Click()

Dim e

e = MsgBox("end your programe are ypu sure: ", vbYesNo, "wo")

If e = 6 Then End

If e = 7 Then Beep

End Sub

س1:- مالمقصود vb ؟

س2:-مالمقصود بكلمة Beep ؟

س3:- هل هذه الصيغة العامة لكتاية رسالة في الفيجول بيسك؟

(ليس العيب ان اقول لااعلم انما العيب ان نصمت ونحن لا نعلم)

تم تعديل هذه المشاركة بواسطة HnHn في 18 أكتوبر 2006 في 05:01

#2

السلام عليكم

أخت امل

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

تاكدى من عدم المخالفه فيما بعد

ثانيا الأسئله غريبه شويه

بس على العموم هجاوبك

اقتباس
Private sub command1_click()

A=val(text1.text)*2

Command1.caption=str(a)

س1:- لماذا حولنا القيمة a الstring ؟

س2:-مالمقصود Command1.caption؟

س3:- مالمقصود بـval

اولا حولنا القيمه إلى String لان كلمه Val بتحول لقيم رقميه

وبكده رديت على السؤل الثالث كمان

اما command1.caption فده العنوان الى مكتوب على الزرار

اقتباس
Private Sub Command1_Click()

Dim e

e = MsgBox("end your programe are ypu sure: ", vbYesNo, "wo")

If e = 6 Then End

If e = 7 Then Beep

End Sub

س1:- مالمقصود vb ؟

س2:-مالمقصود بكلمة Beep ؟

س3:- هل هذه الصيغة العامة لكتاية رسالة في الفيجول بيسك؟

لا يقصد شىء بكلمه VB ولكن الكلمه فى مجملها تعنى وجدود زرين فى الرساله الأول yes والثانى No

اما beep فهو يصدر صوت عند تنفيذه جريه وهتعرفى

اما الصيغه العامل للرساله هى كالتالى

 MsgBox ("نكتب هنا نص الرساله",VbOkOnly,"عنوان الرساله")

'مع الأخذ فى الأعتبار تحديد نوع الزر الموجود فى الرساله

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

Never Give Up You Are Programmer

Being Genius Is The Step Before Madness

Artificial Intelligence Is No Match For Natural Stupidity

#3

شكرا لك يااخي واسفة لمخالفة القوانين

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

تحياتي لك

هذا الموضوع مغلق.

مواضيع مشابهة