يعني إيه الأمر Set

السلام أخي العزيزي عبود،

عند التعامل مع النصوص والارقام (او ما تسمى primitive data type) في تحديد القيم، نستخدم الكود التالي:

Dim i as Integer
i=1

أو 

Dim s as String
s="Hello"

ولكن في حال تعريف قيم لأي شي نوعه Object، يجب ان تستخدم set في البداية.

Dim dbMyDB AsDatabase
Set dbMyDB = OpenDatabase("MyDatabase.mdb")

وهذا مثال توضيحي فقط

;)

كيف تعرف انك تضع

INTEGER او LONG او ......

السلام أخواني الكرام،

اقتباس

كيف تعرف انك تضع

سؤالك ليس واضح، هل تقصد كيف تميز في وقت لاحق بين الانواع؟

نعم

اي متى اضع LONG و ما هو LONG ومتى اضع STRING و ما هو STRING و متى اضع INTERGER وما هو INTEGER ??

السلام أخي العزيز،

اقتباس

ومتى اضع STRING و ما هو STRING

STRING هو عبارة عن نص، والنص يحتوي على سلسلة من الرموز، وقد تكون حرف أو رقم أو شعار

ولكل رمز نصي رقم في ASCII Code ( سلسلة من الأرقام لكل رقم رمز نصي معين، وهي تبدأ من 0 إلى 255)

حيث يمكن أن تعرف قيمة لــ String بأحد الطرقتين:

Dim s as String 
s="abc"
أو 
s="abc123"

الشعارات تمثل رموز لـزر المسافة والـإدخال و الهروب
ولكن خارج نطاق هدف هذه المشاركة 

أو

بطريقة رمز آسكي
حيث Char$=تقبل رقم ويرجع الرمز التابع له من جدول الآسكي
s= Chr$(97) & Chr$(98)&Chr$(99)

ومن خصائص الــ String تحديد طول النص عند التعريف، مثال تحديد الطول 4 رموز نصية:

Dim s as Sting * 4
s="1234567"

تصبح قيمة s= "1234" فقط

اقتباس

متى اضع INTERGER وما هو INTEGER

جرب الكود التالي:

Dim s as String 
s="1"

s=s+s

ما هي قيمة s الآن:

هل هي

2


أو


11

الجواب هو 11، لأن الــVB يتعامل مع s كنص

ولجعل النتيجة 2، نستخدم الأرقام مثل Integer و أختها Long وDouble، وهذا متى نستخدم الأرقام بدل النص

فيصبح الكود

Dim i as Integer
i=1
i=i+1


فتكون قيمة =2

اقتباس

متى اضع LONG و ما هو LONG

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

Dim i as Integer
i=1.5


تصبح النتيجة 
1


أما في حال استخدام 
Dim d as Double
d=1.5

تصبح الثيمة 
1.5

-waf

أخوك فراس

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

وما هو الحد الاقصى ل long ??

هل هناك خطا في هذا الكود :

dim s as string * 3
s = "1"
s = s + s +s +s+s
text1.text =s

المفروض ان يظهر 111 لكن يظهر لي 1

استخدم & بدل + عند الربط بينهما

Long لا اذكر بالضبط، ولكن تحقق من ذلك جرب لين يرمي خطأ Overflow أو ما شابهها

العفو عزيزي،،،،

فراس

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

السلام عليكم اخي الفاضل

اكتب set في cmd للوندوز ورد عليا حصل ايه

ولنا بعد ذلك حديث

============================

تحياتي الحارة لك و لي كل عضو في المنتدى

هذا لتحديد مسارات متغيرات البيئة لــ Windows؟

ممكن أعرف تماماً كيف بستخدم نوع المتغيرات object

وأرجو من الأخ مبرمج مبتدئ عدم تغيير الموضوع

في الغالب هي Object جاهزة لك وموجودة في المكتبات الي تحملها مع المشروع، ويمكن أن تقوم بإنشاء Object خاصه بك،

ولكن انا ليس متعمق في VB6. خلفيتي في Java و .Net

لأن VB6 جدا بدأي في هذه الأمور، والــ VB6 نوعه إجرائي ليس OO مثل Java و .Net

فراس

الرجاء أمثلة :

مثلاً الأمر opendatabase هو دا يقتصر على الobject ؟

OpenDatabase("MyDatabase.mdb")

لحظ معي بعض الاساسيات في VB، كي تفهم هذه الدالة وكيف ارتبطت بــ Object

هناك فرق ما بين SUB و Function، حيث Sub إجراء عادي يتم تنفيذه فقط، أما الــFunction في شبية بالإجراء جيث يتم تنفيذه ولكن الرجوع بيقسمة ما. وهي تسمى دالة. فا بالنسبة لــOpenDatabase فهي دالة ترجع Object من نوع Database. ولذلك تختلف من حالة إلى أخرى.

إذا كنت مهتم بهذه الأمور أنصحك الإتجاة إلى VB.Net أو C# أو Java (وهذا خياري المفضل لتعلم مبدأ التعامل مع الكائنات أو الــ Objects). لأن كما ذكرت سابقا الـــ VB6 وقت خروجه لم يصمم بشكل خاص للتعامل بشكل 100%مع Objects.

شكراً أخي بس في سؤال ما هي الدوال التي يمكن استعمالها مع object ؟

تقربا جميع الدوال ويصعب حصرها

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

فراس

شكراً لك اخي

بالنسبة لطول LONG فمداه من سالب 2,147,483,648 الى 2,147,483,647

شكراً

وعشان تكون في الصورة تعرف أيش أقصد بأن الموضوع صعب الحصر، سأعرض مثال عن تكوين Class لإنشاء Objects منها:

Private m_sName As String

Public Property Get Name() As String
	Name = m_sName
End Property

Public Property Let Name(ByVal sName As String)
	m_sName = sName
End Property

Sub Class_Initialize()
	m_sName = "I Don't have a name
End Sub


Private Sub Class_Terminate()
ضع هنا ما يعمل بالكائن عند الانتهاء  

End Sub

وقم بتسمة الملف

Human.cls

والان من أي مكان أخر في مشروع VB قم باستخدام الـــ Class كما يلي:

Dim man as Human
set man = new Human

msgbox(man.name)
man.name="Nasser"

msgbox(man.name)

وهذا مثال بسيط على كيفة إنشاء Class في الــ VB، المذكور أعلاه لا يشمل جميع المعلومات المتعلقة بــ Objects و Classes

فراس