إستفتاء : أعجبتك ؟
عجبتني ونفعت معي
لم تعجبني وبه أخطاء برمجيه
[عرض النتائج]
 
ملحوظة: هذا إستفتاء عام, يمكن لأي مستخدم أن يرى أي إختيار أنت قمت بالتصويت له .
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الان أصنع أعدادات برنامج زي ماتحب
#1
السلام عليكم ورحمت الله وبركاته

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

المهم خلونا نبدا باشياء بسيطه ونبدا بالاكواد :

اول شي راح اعلمكم كيف تتفادون اخطاء انشاء الملف

مثلا حتنشئ ملف الاعدادات في المستندات , وش نحتاج اول:

نحتاج هذا الكود

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 بالنسبه لي
قلت بالنسبه لي لأني م اعرف بالنسبه لكم  Sleepy

أول كود
فائده الكود , تحط كلمه يجيب لك الكلمات اللي بعدها لين مايقابل فاصله ويوقف

PHP كود :
   Public Property GetCode(ByVal Texting As StringByVal Code As StringByVal 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 
GS
                If Microsoft
.VisualBasic.Right(SCode.Length) = Code Then
                    b 
True
                ElseIf b 
True Then
                    If GS 
EndCode Then
                        b 
False
                    ElseIf GS 
<> EndCode Then
                        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 
1
                ElseIf L 
N Then
                    S 
GS
                End 
If
 
           Next
            Return S
        End Get
        Set
(value As String)
 
       End Set
    End Property 

الكود الاخير اللي ماعرفت اسويه الا وانا معصب , كيف ما ادري

الكود فائدته لتخطي الكلمات
فائدت الكود حلوه يعني لو تبي تحدث الاعدادات وتبي تحذف الاعدادات القديمه
هذا الكود يحذفها لك ماعندك اي مشكله

PHP كود :
   Public Property ST(ByVal Tx As StringByVal 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(StrSkipTxt.Length) = SkipTxt Then
                    Str 
Microsoft.VisualBasic.Left(StrStr.Length SkipTxt.Length)
 
               End If
 
           Next
            Return Str
        End Get
        Set
(value As String)
 
       End Set
    End Property 



المهم بالتوفيق للكل وترقبوا تصميمي
قنبله الموسم برنامج للمقالب ويستخدم اوامر الكود اللي حطيتها فيذا المقال
مقالب خطيرهه ي بويي  Big Grin  Rolleyes

المهم ما نبي الا دعواكم في الاختبارات وكذا

PHP كود :
تم التعديل ملاحظةة مهمه ...
لأستخدام الاكواد لازم تنشئ زر بعد انشاء الزر تحط الكود اللي تباه

فورم بسيط لمشروعي القادمي تلقونه بالمرفقات 


.zip   vb.zip (الحجم : 13.5 ك ب / التحميلات : 71)
الرد }}}}
تم الشكر بواسطة: abulayth


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى CLARO 2 438 27-10-16, 04:03 PM
آخر رد: rafaag777
  طباعة بيانات موجودة في برنامج على ( 2003 Microsoft Office Word ) abulayth 1 279 11-09-16, 07:20 AM
آخر رد: أبووسم
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 0 262 09-07-16, 08:30 PM
آخر رد: mohamed atef2018
  العلاقات بين الجداول-الاضافة و الحذف و التعديل-برنامج لحفظ مصادر الموقع ابو ليلى 10 889 23-06-16, 01:13 PM
آخر رد: yasser_72
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 321 02-06-16, 11:13 AM
آخر رد: CLARO
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 1 392 01-06-16, 10:20 PM
آخر رد: CLARO
  شرح انشاء برنامج دردشة بسيط CLARO 0 252 28-05-16, 02:24 PM
آخر رد: CLARO
Wink عمل برنامج فك الضغط alking-0999 0 301 20-12-15, 06:32 PM
آخر رد: alking-0999
  [VB.NET] عمل برنامج تحويل الفيديو video convert alking-0999 0 510 09-07-15, 12:50 PM
آخر رد: alking-0999
  [VB.NET] عمل برنامج محرر وعارض اكواد html alking-0999 0 442 08-07-15, 06:27 PM
آخر رد: alking-0999

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم