إستفتاء : أعجبتك ؟
عجبتني ونفعت معي
لم تعجبني وبه أخطاء برمجيه
[عرض النتائج]
 
ملحوظة: هذا إستفتاء عام, يمكن لأي مستخدم أن يرى أي إختيار أنت قمت بالتصويت له .
تقييم الموضوع :
  • 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 ك ب / التحميلات : 117)
الرد }}}
تم الشكر بواسطة: abulayth


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تتعامل مع برنامج الإكسيل من برنامجك rinawi 7 6,626 12-11-22, 12:11 AM
آخر رد: خالد العصاوي
  نظرة على DropBox SDK و التعامل معها +برنامج رفع و تحميل ملفات ابو ليلى 4 4,871 08-09-22, 11:54 AM
آخر رد: saif2023
  برنامج مبيعات ومشتريات وإدارة أعمال ( الفاتورة الإلكترونية ) yassoo1985 2 2,245 04-06-22, 01:14 PM
آخر رد: yassoo1985
Heart طلب برنامج Advanced Installer أبو خالد الشكري 0 1,417 16-05-22, 09:12 PM
آخر رد: أبو خالد الشكري
  أهم طرق إدارة المخازن وتطبيقها على برنامج مخازن وارد ومنصرف Menna ahmeed 0 1,967 27-04-22, 12:52 PM
آخر رد: Menna ahmeed
  طريقة إنشاء برنامج طباعة ملصقات الباركود ملهمـ 1 4,397 22-12-21, 05:09 PM
آخر رد: alessam4pro
Heart [VB.NET] برنامج ادارة المطاعم و الكافيهات mgr21002100 6 6,650 14-01-21, 07:59 PM
آخر رد: abarrak
  تفعيل برنامج Visual Studio 2019 Adilo idabdellah 4 11,512 20-05-20, 11:48 AM
آخر رد: الفاضي
  برنامج المبيعات والمشتريات والمخازن و المطاعم mgr21002100 2 3,587 07-04-20, 04:29 AM
آخر رد: mgr21002100
  شرح انشاء برنامج دردشة بسيط CLARO 1 5,532 25-08-19, 04:30 AM
آخر رد: أمجد وضاح

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


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