بعض الدوال في vb.NET

12-11-2007, 04:43 PM #1 (permalink)

معلومات العضو

محمد الريه

مؤسس ومدير لشبكة الصفحة العربيه

إحصائية العضو

إحصائية الترشيح

عدد النقاط : 14
محمد الريه is on a distinguished road

بعض الدوال في vb.NET

-بعض الدوال الخاصة با لتعامل مع الريجستري:

A-SaveSetting(appname, section, key, setting)

وظيفة هذة الدالة هي حفظ بيانات البرنامج من حيث الاوضاع التي كان عليها البرنامج قبل انهائة وحجم النافذة وغيرها .
المثال على هذه الدالة :

كود PHP:

Private Sub Button1_

كود PHP:


			
Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
SaveSetting("MyForm", "Startup", "Top", Me.Top) 
SaveSetting("MyForm", "Startup", "Left", Me.Left) 
End Sub

وظيفه هذا المثال هو حفظ اعدادات النافذة .
AppName يمثل اسم المفتاح الرئيسي للبرنامج في مسجل النظام وهو في مثلناء (MyForm).
Section يمثل المفتاح الفرعي الذي سكون متفرع عن المفتاح AppNAmeوهو هنا (Startup) .
Key ويمثل اسم مدخل القيمة الذي انشئا ناه تحت المفتاح الفرعي السابق وهنا في المثال السابق Top or Left وهذا المفتاح من النوع String.

Setting ويمثل اسم القسمة التي نريد ان نخزنها في مدخل القيمة السابق ..

الآن إذا أردت أن اتاكد من المثال السابق ومن القيم المخزنة اتبع الخطوات الآتية :

من Run – regedit – VB and VBA program Settings – ستجد الاسم الذي أنت استخدمته وهو في المثال السابق (MyForm) وستجد بداخلة المفتاح الفرعي Startup والذي ستجد بداخلة قيم Top,Left.

2-DeleteSetting(appname, section[, key]):

وهذه الداله كما هو وضح من اسمها أنها لحذف قيمة من الريجستري ولها ثلاثة وسائط.. المثال :

كود PHP:

كود PHP:


			


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
DeleteSetting("MyForm", "Startup", "Top") 
DeleteSetting("MyForm", "Startup", "Left") 
End Sub

الوسيط الأول AppName يمثل اسم البرنامج المراد حذفه وفي هذه الحالة إذا مررنا اسم التطبيق فقط دون الوسائط الأخرى سيتم حذف البرنامج أو التطبيق مع كافة المجلدات التي يحتويها .
الوسيط الثاني Section وهذا القسم اختياري أي يمكن ان نمرر اسم القسم المراد حذفة او غير ممكن واذا تم تمرير اسم القسم الى هذا الوسيط واسم البرنامج حينها سيتم حذف القسم وكافة المفاتيح التي يحتوي عليها.

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

ولكن ان اردت ان تحذف التطبيق نهائيا يمكنك استخدام الاتي :

كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
DeleteSetting("MyForm") 
End Sub

3-GetSetting(appname, section, key[, default]):

هذه الدالة وظيفتها استرجاع البيانات .. ماذا نعني باسترجاع البيانات ؟
نعني باسترجاع البيانات الأتي:

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

المثال :
كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
Me.Top = GetSetting("MyApp", "Startup", "Top", 100) 
Me.Left = GetSetting("MyApp", "Startup", "Left", 150) 
End Sub

سنلاحظ انه عند تنفيذ البرنامج سيضع النافذه عن النقطه (100و150) .

اذا لهذه الداله ثلاثه وسائط والوسيط الرابع اختياري
الوسيط الاول AppName يمثل اسم البرنامج المراد استرجاع البيانات منه ويجب ان يكون هذا الاسم موجود مسبقاء.
الوسيط Section ويمثل اسم المفتاح الفرعي للمفتاح الرئيسي المراد استرجاع البيانات منه.
الوسيط Key يمثل اسم مدخل القيمه والموجود تحت المفتاح الفرعي السابق والذي سنسترجع قيمته.
الوسيط الرابع وهو اختياري Default ويمثل قيمه نقوم بوضعها في حاله عدم عثور الداله GetSetting على القيمه التي نريد استرجاعها فانها تسترجع هذه القيمة عوضا عنها.

4-GetAllSettings(appname, section):

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

مثال:

كود PHP:

Private Sub

كود PHP:


			
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim allsettings 
AllSettings = GetAllSettings("MyApp", "Startup") 
End Sub

مثال اخر :

كود PHP:

كود PHP:


			


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim allsettings 
Dim i As Integer 
allsettings = GetAllSettings("Myapp", "Startup") 
For i = 0 To allsettings.GetUpperBound(1) 
Me.Text = (allsettings(i, 1) & " = " & allsettings(i, 0)) 
Next 
End Sub

سيكون Left=50

B-دوال التعامل مع التطبيقات الخارجيه في VB.NET

لتشغيل تطبيقات من داخل Vb.net هناك دوال لعمل ذلك ومنها الاتي:

1- الدالة Shell :
Shell(path_name[, style][, wait][, timeout]) هذا الشكل العام لها

وهي معروفه كما في VB6 وهذه الداله تعيد اي قيمه تمثل ID للبرنامج اذا نجت او تعيد صفر اذا لم تنجح .. غير ان هذه الداله لايمرر لها مسار البرنامج كما هو الحال في VB6 ..
وهذا مثال لها لتشغيل NoteBad (برنامج المفكرة)

كود PHP:

Private Sub

كود PHP:


			
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim npad 
NPAD = Shell("notepad.exe", AppWinStyle.NormalFocus) 
End Sub

الوسيط الاول يتم تمرير اسم البرنامج المراد
الوسيط الثاني يتم تمرير احدى القيم التاليه:
AppWinStyle.Hide
AppWinStyle.MaximizedFocus
AppWinStyle.MinimizedFocus
AppWinStyle.MinimizedNoFocus
AppWinStyle.NormalFocus
AppWinStyle.NormalNoFocus

2- AppActivate(title[, wait]) :

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

كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
Dim notepadID As Integer 
 
' Shell runs a new instance of Notepad. 
notepadID = Shell("NOTEPAD.EXE", AppWinStyle.NormalFocus) 
' Activate a running Notepad process. 
AppActivate("Untitled - NotePad") 
' AppActivate can also use the return value of the Shell function. 
' Activate the new instance of Notepad. 
AppActivate(notepadID) 
End Sub

C- بعض الدوال الرياضيه في VB.NET

الدالة Abs

الدالة abs : ترجع القيمة المطلقة لعدد معين
مثال :

كود PHP:

كود PHP:


			

[left]Imports System.Math [/left]
Public Class Form1 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
MsgBox(Abs(-1)) 
MsgBox(Abs(1)) 
End Sub 
End Class

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

الدالة Sin:
الدالة Sin : تعطيك جيب الزاوية
كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
MsgBox(Sin(3.14)) 
End Sub

سيكون الناتج هو الرقم 0.0015926599168683 ولكن ان استخدمنا الدالة الاتية

الدالة Tan :
الدالة Tan : تعطيك ظل الزاوية

كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
MsgBox(Round(Tan(2.5))) 
End Sub

الناتج -1

الدالة Log:
الدالة Log : تعطيك اللوغاريثم الطبيعي و ليس العشري
كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
MsgBox(Log(2.4)) 
End Sub

الناتج 0.8754687373539

الدالة Round :
الدالة Round : تقوم بتقريب العدد
كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
MsgBox(Round(2.14)) 
MsgBox(Round(2.55)) 
 
End Sub

في الاولى سينتج2 لان .14 اقل من النصف, وفي الثانية سينتج 3 لان .55 اكثر من النصف .

الدالة Cos :
الدالة Cos : تعطيك جيب تمام زاوية تقاس بنظام الراديان .
كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
MsgBox(Cos(3.14)) 
End Sub

سيكون الناتج - 0.99999873172754 اي قريب من السالب واحد .
ولكن باستخدام الدالة Round :
كود PHP:

كود PHP:


			

[left]MsgBox(Round(Cos(3.14))) [/left]

الناتج سيكون 1-

الدالة Acos :
ترجع الزاوية التي جيب تمامها العدد المحدد
كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
MsgBox(Acos(0.25)) 
End Sub

الناتج 1.31811607165282
هذه الدالة يمرر لها قيمة بين 1,-1

الدالة BigMul :
هذه الدالة ترجع حاصل ضرب العددين الممرين لها
كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
MsgBox(Math.BigMul(2, 6)) 
End Sub

الناتج 12

الدالة Pow :
ترجع الاس للعدد الاول حيث ان البارميتر الاول يمثل العدد والبارميتر الثاني يمثل القوة او الاس .

كود PHP:

كود PHP:


			

[left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click [/left]
MsgBox(Math.Pow(2, 2)) 
End Sub

الناتج 4

ملاحظه هامه:

يجب اولا التصريح عن فضاء الاسماء كا الاتي:
Imports System.Math

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

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
لايفوتكم سامري بو جابر شرط أذا رن الجوال الكل بيرقص من الأغنية	محمد الريه	نعمات الجوال	62	11-29-2008 02:38 PM
Nokia Multimedia Converter v2.0 تحويل جميع صيغ الفيديو الى صيغة الجوال	النبراس	برامج جوال - ثيمات جوال - نغمات	24	11-27-2008 12:23 AM
مطلوب مشرفين لقسم عالم الجوال	محمد الريه	قســـ عالم الجوال نغمات - اكسسوارات - بلوتوث	4	07-21-2008 11:01 PM
حتي لا يكون الدواء داء !!!!!!	بنت أبيها	الطب العام	10	07-20-2008 02:15 AM

اضغط هنا لمشاهدة كل جديد وحصري

بعض الدوال في vb.NET