السلام عليكم ورحمت الله وبركاته
الحين انت برمجت برنامج
به الكثير من الاعدادات
وتبي تحفظها لراحه المستخددم وتطبيقها
المهم خلونا نبدا باشياء بسيطه ونبدا بالاكواد :
اول شي راح اعلمكم كيف تتفادون اخطاء انشاء الملف
مثلا حتنشئ ملف الاعدادات في المستندات , وش نحتاج اول:
نحتاج هذا الكود
طبعا بعضكم بيعرف الكود
وقليل لا م يعرفه , الكود ذا يحدد مجلد المستندات عند المستخدم
لو انت الحين ما تبي المستندات
تبي مجلد ثاني غير المستندات
هذا الكود
انسخه الى VB .net وافتح قوس وتطلع لك مجلدات لين م تقول خلاص اكتفيت
...
...
...
المهم الحين نبي كود ثاني
مثلا نبي كود ينشئ لنا مجلد لتفادي الاخطاء
لان بعض الاحيان تنشئ ملف بذي الطريقه
ٍ
بيطلع خطا لان المجلد Setting مو موجود اصلا
المهم طريقه أنشاء مجلد وتفادي الاخطاء
هو يقوم بالتأكد من وجود المجلد أذا مو موجوده يقوم بأنشاءها
...
...
...
كود القراءه والكتابه
لقراءه مستند نصي
My.Computer.FileSystem.ReadAllText
وانت اكتب القوس وحط مسار الملف
لكتابه على ملف
My.Computer.FileSystem.WriteAllText("Setting\DIIT.stg", "الكود اللي تبي تحفظه", True)
...
...
...
تعريف متغيرين من نوع String
المتغير الاول وهو مسار ملف الاعدادات
مثل
المتغير الثاني لقراءه ملف الاعدادات بنفسه
...
...
...
وكذا انتهينا
بس بقي ثلاث اكواد وهي المهمه في تصنيع ملفات Boot.ini بالنسبه لي
قلت بالنسبه لي لأني م اعرف بالنسبه لكم
أول كود
فائده الكود , تحط كلمه يجيب لك الكلمات اللي بعدها لين مايقابل فاصله ويوقف
****
الكود الثاني
مشابه له , فائدته يجيب الكلمه بعد الفاصله ألى ان يقابل الفاصله الثانيه
الكود الاخير اللي ماعرفت اسويه الا وانا معصب , كيف ما ادري
الكود فائدته لتخطي الكلمات
فائدت الكود حلوه يعني لو تبي تحدث الاعدادات وتبي تحذف الاعدادات القديمه
هذا الكود يحذفها لك ماعندك اي مشكله
المهم بالتوفيق للكل وترقبوا تصميمي
قنبله الموسم برنامج للمقالب ويستخدم اوامر الكود اللي حطيتها فيذا المقال
مقالب خطيرهه ي بويي
المهم ما نبي الا دعواكم في الاختبارات وكذا
vb.zip (الحجم : 13.5 ك ب / التحميلات : 117)
الحين انت برمجت برنامج
به الكثير من الاعدادات
وتبي تحفظها لراحه المستخددم وتطبيقها
المهم خلونا نبدا باشياء بسيطه ونبدا بالاكواد :
اول شي راح اعلمكم كيف تتفادون اخطاء انشاء الملف
مثلا حتنشئ ملف الاعدادات في المستندات , وش نحتاج اول:
نحتاج هذا الكود
PHP كود :
System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
طبعا بعضكم بيعرف الكود
وقليل لا م يعرفه , الكود ذا يحدد مجلد المستندات عند المستخدم
لو انت الحين ما تبي المستندات
تبي مجلد ثاني غير المستندات
هذا الكود
PHP كود :
System.Environment.GetFolderPath
انسخه الى VB .net وافتح قوس وتطلع لك مجلدات لين م تقول خلاص اكتفيت
...
...
...
المهم الحين نبي كود ثاني
مثلا نبي كود ينشئ لنا مجلد لتفادي الاخطاء
لان بعض الاحيان تنشئ ملف بذي الطريقه
ٍ
PHP كود :
Setting\File.txt
بيطلع خطا لان المجلد Setting مو موجود اصلا
المهم طريقه أنشاء مجلد وتفادي الاخطاء
PHP كود :
If My.Computer.FileSystem.DirectoryExists("\Setting") = False Then
My.Computer.FileSystem.CreateDirectory("\Setting")
End If
هو يقوم بالتأكد من وجود المجلد أذا مو موجوده يقوم بأنشاءها
...
...
...
كود القراءه والكتابه
لقراءه مستند نصي
My.Computer.FileSystem.ReadAllText
وانت اكتب القوس وحط مسار الملف
لكتابه على ملف
My.Computer.FileSystem.WriteAllText("Setting\DIIT.stg", "الكود اللي تبي تحفظه", True)
...
...
...
تعريف متغيرين من نوع String
المتغير الاول وهو مسار ملف الاعدادات
مثل
PHP كود :
Public P As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Templates) & "\es5s930\DIIT.Stg"
المتغير الثاني لقراءه ملف الاعدادات بنفسه
PHP كود :
Public RP As String = My.Computer.FileSystem.ReadAllText(System.Environment.GetFolderPath(Environment.SpecialFolder.Templates) & "\es5s930\DIIT.Stg")
...
...
...
وكذا انتهينا
بس بقي ثلاث اكواد وهي المهمه في تصنيع ملفات Boot.ini بالنسبه لي
قلت بالنسبه لي لأني م اعرف بالنسبه لكم
أول كود
فائده الكود , تحط كلمه يجيب لك الكلمات اللي بعدها لين مايقابل فاصله ويوقف
PHP كود :
Public Property GetCode(ByVal Texting As String, ByVal Code As String, ByVal EndCode As Char) As String
Get
Dim S As String = Nothing
Dim L As String = Nothing
Dim b As Boolean = False
For Each GS As String In Texting
S = S & GS
If Microsoft.VisualBasic.Right(S, Code.Length) = Code Then
b = True
ElseIf b = True Then
If GS = EndCode Then
b = False
ElseIf GS <> EndCode Then
L = L & GS
End If
End If
Next
Return L
End Get
Set(value As String)
End Set
End Property
الكود الثاني
مشابه له , فائدته يجيب الكلمه بعد الفاصله ألى ان يقابل الفاصله الثانيه
PHP كود :
Public Property GetCodeByChar(ByVal N As String) As String
Get
Dim S As String = Nothing
Dim L As Integer = 0
For Each GS As String In My.Computer.FileSystem.ReadAllText(P)
If GS = "." Then
L = L + 1
ElseIf L = N Then
S = S & GS
End If
Next
Return S
End Get
Set(value As String)
End Set
End Property
الكود الاخير اللي ماعرفت اسويه الا وانا معصب , كيف ما ادري
الكود فائدته لتخطي الكلمات
فائدت الكود حلوه يعني لو تبي تحدث الاعدادات وتبي تحذف الاعدادات القديمه
هذا الكود يحذفها لك ماعندك اي مشكله
PHP كود :
Public Property ST(ByVal Tx As String, ByVal SkipTxt As String) As String
Get
Dim Str As String = Nothing
For Each Gs As String In Tx
Str = Str & Gs
If Microsoft.VisualBasic.Right(Str, SkipTxt.Length) = SkipTxt Then
Str = Microsoft.VisualBasic.Left(Str, Str.Length - SkipTxt.Length)
End If
Next
Return Str
End Get
Set(value As String)
End Set
End Property
المهم بالتوفيق للكل وترقبوا تصميمي
قنبله الموسم برنامج للمقالب ويستخدم اوامر الكود اللي حطيتها فيذا المقال
مقالب خطيرهه ي بويي
المهم ما نبي الا دعواكم في الاختبارات وكذا
PHP كود :
تم التعديل , ملاحظةة مهمه ...
لأستخدام الاكواد لازم تنشئ زر بعد انشاء الزر تحط الكود اللي تباه
فورم بسيط لمشروعي القادمي تلقونه بالمرفقات
vb.zip (الحجم : 13.5 ك ب / التحميلات : 117)