فيجول بيسك
انشاء مشاريع بستخدام لغة فيجول بيسك
https://t.iss.one/vbdotnet1

الربط بين الأجهزة

اولاُ Straight-Through Cable :
استخدام Straight-Through Cable:
يستخدم لربط الآجهزه مع بعض عن طريق الـ Switch في الشبكه ويتم استخدام Straight-Through Cable بين سويتش و راوتر او بين سويتش و كمبيوتر  او منفذ LAN الى switch او الى الكمبيوتر ويكون طرفي السلك
من A <-------------------> A
او من B <-------------------> B

ثانياً Cross-Over Cable :
استخدام Cross-Over Cable :
يستخدم لربط جهازين متشابهين مع بعض . مثلا كمبيوتر وكمبيوتر سويتش وسويتش راوتر وراوتر وهكذا ويكون طرفي السلك  
من A <--------------------------> B

ثالثاُ Roll-Over Cable:
استخدام Roll-Over Cable:
يستخدم لربط جهاز كمبيوتر مع الروتر ليتم عملية الــ Configuration للــROUTER  ويكون طرفي السلك
من A <-----------------------> -A
او من B <-----------------------> -B

مثال بسيط أن لدينا 100 جهاز كمبيوتر مطلوب توصيلها بالانترنت وسويتش به 48 فتحه او Port فماذا يمكننا أن نفعل في هذه الحالة؟

نستخدم الطريقة الاولى فى التوصيل كابل ( Standard ) بين 47 جهاز + سويتش ، وتبقى فتحة واحدة فى السويتش نستخدم فيها الطريقة الثانية كابل ( Crossover ) ونقوم باحضار سويتش تانى ونقوم بالتوصيل فى الفتحة رقم 48 فى السويتش الاول + الفتحة الاولى فى السويتش الثانى مستخدمين طريقة Crossover لانها بين جهازين متشابهين ( سويتش + سويتش ) وهكذا مع باقى الاجهزة.


A
اخضر مخطط
اخضر
برتقالي مخطط
ازرق
ازرق مخطط
برتقالي
بني مخطط
بني
B
برتقالي مخطط
برتقالي
اخضر مخطط
ازرق
ازرق مخطط
اخضر
بني مخطط
بني

-A هو عكس A
-B هو عكس B
ترتيب A وا B يكون من اليسار الى اليمين
ترتيب -A وا -B يكون نفس ترتيب A وا B ولكن من الليمين الى اليسار

السلام عليكم ورحمة الله وبركاته


كود جلب الوقت والتاريخ لاى دولة اون لاين

بدلاً من اتمام جلب الوقت والتاريخ لجهاز العميل والتلاعب به




فى البداية قم بانشاء هذا الـ Function

كود :

   Function GetDateTime(ByVal key As String) As String()
       Dim WEB_ As New Net.WebClient
       Dim GData As String = WEB_.DownloadString("https://timezoneapi.io/api/timezone/?Asia/Beirut&token=" & key)
       Dim GetDT As String = GData.Split(",")(35).Replace("""", Nothing).Replace("date_time:", Nothing).Replace("\", Nothing)
       Dim GetDate As String = GetDT.Split(Space(1))(0).Split("/")(1) & "/" & GetDT.Split(Space(1))(0).Split("/")(0) & "/" & GetDT.Split(Space(1))(0).Split("/")(2)
       Dim GetTime As String = GetDT.Split(Space(1))(1)
       Dim myDateTime As String() = New String() {GetDate, GetTime}
       Return myDateTime
   End Function

من ثم قم باستخدام الكود كالتالى فى اى حدث

Try
           Dim MyDate As String = GetDateTime("lNVzqaAeXkPQ")(0)
           Dim MyTime As String = GetDateTime("lNVzqaAeXkPQ")(1)

           TextBox1.Text = MyDate & "  -  " & MyTime
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

ركز على السطرين وهم

كود :
 Dim MyDate As String = GetDateTime("lNVzqaAeXkPQ")(0)
           Dim MyTime As String = GetDateTime("lNVzqaAeXkPQ")(1)


وهو السطر الاول لجلب التاريخ

والسطر الثاني لجلب الوقت ( الوقت بهذا الكود خاص لبنان )


ناتى الى الاجزاء المهمة لفهم الكود كيف يعمل وكيف يستخدم حتى توضح لك الصورة


فى البداية بهذا السطر يحتوى على كود
كود :

           Dim MyDate As String = GetDateTime("lNVzqaAeXkPQ")(0)


وهو lNVzqaAeXkPQ كود كمفتاح لحساب جلب الوقت والتاريخ


كما ان الـ Function يحتوى على رابط وهو التالى

كود :

https://timezoneapi.io/api/timezone/?Asia/Beirut&token=


كل هذا يتم من خلال خدمة هذا الموقع

https://timezoneapi.io/developers/timezone


تذكر انك ستحتاج الدخول على هذا الموقع

لاتمام جلب كود المفتاح لتتمكن من جلب الوقت والتاريخ

الكود يتم جلبه مجانى وبدون اى اشتراك او تسجيل


ولكن لا اعلم الى كم من المدة او العدد يعمل هذا المفتاح

حتى يتطلب تغيير واذا كان دائم او لا فالله اعلم

لكونى قمت بعمل الكود على السريع دون الاطلاع على تفاصيل الموقع


فى البداية عند الدخول على الموقع ستقوم بالنزول بالاسفل حتى تصل الى

PHP كود :

Get time zone and date/time details 


اسفل منه ستجد سطر تحتوى على قائمة

تاكد بكونك قمت باختيار cURL من هذه القائمة


اسفلها مباشراً سيظهر رابط وباخر الرابط توجد جملة 

PHP كود :

TOKEN 


موضئ باللون الاصفر كخلفية له كل ما عليك فعله هو الضغط عليها

ليتم توليد كود كمفتاح لك لاستخدامه


عند اتمام توليد كود المفتاح كل ما عليك وضعه فى كلا من هذه الاسطر

كود :

           Dim MyDate As String = GetDateTime("lNVzqaAeXkPQ")(0)
           Dim MyTime As String = GetDateTime("lNVzqaAeXkPQ")(1)


بدلاً من lNVzqaAeXkPQ

وبكده تكون انهيت العامل الرئيسي لجلب الوقت والتاريخ


ناتى الى النقطة الاخيرة وهى كيف تغيير الوقت والتاريخ للدولة

فكما اشرت ان الوقت والتاريخ يشير الى دولة لبنان

فكيف يتم تغييرها الى دولة اخري


تعال معى كده فى الرابط ولاحظ التالى

PHP كود :

https://timezoneapi.io/api/timezone/?Asia/Beirut&token= 


ستجد فى الرابط كلاً من كلمة Asia وهو يشير الى القارة

وكذلك كلمة Beirut وهو يشير الى عاصمة الدولة للبنان


فمثلاً اذا احببنا التغيير لدولة خارج القارة وليكن مثل مصر 

فسيتم تغيير كلمة Asia الى Africa

ومن ثم تغيير كلمة Beirut الى Cairo


لاحظ اولاً ان كل اول حرف من الكلمة حرف كبير

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


بكده تكون انهيت الامر واصبح الوقت والتاريخ يتم جلبه

طبقاً لما تريده تماماً 


اتمنى ان يكون الشرح مبسط ولا يوجد به اى تعقيد

تم عمل هذا الموضوع مرجعاً الى هذا الموضوع ولكي يستفاد منه الجميع

https://vb4arb.com/vb/showthread.php?tid=29822


تحياتى لكم

وتمنياتى للجميع التوفيق

السلام عليكم ورحمة الله
في هذا الموضوع هحاول اجمع كل دوال التعامل مع النصوص ولو نسيت حاجة ياريت الاخوة يضفوها لكى تكون مرجع للجميع

طول النص عدد الاحرف

PHP كود :

Dim txt As String = "ABCDEFGHIJK"
'Len
MsgBox(Len(txt)) '11
'Length
MsgBox(txt.Length) '11 


حذف الفراغات المسافات

PHP كود :

Dim txt As String = "  ABCDEFGHIJK  "
'Trim على يمين ويسار النص
MsgBox(Trim(txt))
'Rtrim على يمين النص
MsgBox(RTrim(txt))
'Ltrim على يسار النص
MsgBox(Ltrim(txt)) 



تحويل النص بين كبير وصغير كبتل صمول

PHP كود :

Dim txt As String = "abcdEFGHIJK"
'UCase الى حروف كبيرة
MessageBox.Show(UCase(txt))
'ToUpper الى حروف كبيرة
MessageBox.Show(txt.ToUpper)
'LCase الى حروف صغيرة
MessageBox.Show(LCase(txt))
'ToLower الى حروف صغيرة
MessageBox.Show(txt.ToLower) 


لأخد جزء من النص

PHP كود :

'اذا النص لم يكفى يتم اكمال الباقى فراغات
Dim txt As String = "ABCDEFGHIJK"
'LSet من الجهة اليسرى
MsgBox(LSet(txt, 6)) 'ABCDEF
'RSet من الجهة اليمنى
MsgBox(RSet(txt, 6))
'Mid من البداية التى تحددها
MsgBox(Mid(txt, 3, 6)) 'CDEFGH 


عكس النص

PHP كود :

Dim txt As String = "ABCDEFGHIJK"
'StrReverse
MsgBox(StrReverse(txt)) 'KJIHGFEDCBA 


وضع فرغات مسافات

PHP كود :

Dim txt As String = "ABCDEFGHIJK"
'Space
MsgBox(txt & Space(2) & txt) 'ABCDEFGHIJK  ABCDEFGHIJK 


تحويل النص من والى مصفوفة

PHP كود :

Dim txt As String = "ABC_DEF_GHI_JKL"
'
Dim txt_split() As String = Split(txt, "_")
'
'Split
MsgBox(txt_split(0)) 'ABC
MsgBox(txt_split(1)) 'DEF
MsgBox(txt_split(2)) 'GHI
MsgBox(txt_split(3)) 'JKL
'Join
MsgBox(Join(txt_split)) 'ABC DEF GHI JKL
MsgBox(Join(txt_split, "_")) 'ABC_DEF_GHI_JKL 


مقارنة بين نصين

PHP كود :

'Split
MsgBox(StrComp("ABCD", "ABCD")) ' 0
'
MsgBox(StrComp("ABCD", "ABCZ")) ' 1
'
MsgBox(StrComp("ABCD", "abcd")) '-1
MsgBox(StrComp("ABCD", "abcd", CompareMethod.Text)) ' 0

'Like
MsgBox("ABCDE" Like "ABCDE") 'True
MsgBox("abcde" Like "ABCDE") 'False
'? تعوض عن حرف 
MsgBox("ABCD" Like "?BCD") 'True
'* تعوض عن اى شي
MsgBox("AB2@" Like "*B**") 'True
'# تعوض عن رقم
MsgBox("ABC2" Like "ABC#") 'True
'[-] تعوض من الى
MsgBox("ABC2" Like "[A-Z]BC[1-9]") 'True
'[!-] تعوض ليس من الى
MsgBox("A@BC" Like "A[!a-z]BC") 'True
'[!] ليست العنصر المحدد
MsgBox("ABCD" Like "A[!#]CD") 'True


'= تساوى 
MsgBox("ABCDE" = "ABCDE") 'True
'<> لا تساوى
MsgBox("abcde" <> "ABCDE") 'True 



تكرار نص

PHP كود :

'StrDup
MsgBox(StrDup(8, "A")) 'AAAAAAAA
MsgBox(StrDup(3, "AZ ")) 'AZ AZ AZ 


استبدال نص

PHP كود :

'Replace
Dim txt As String = "ABCDEFGHIJK  ABCDEFGHIJK"
'
MsgBox(Replace(txt, "AB", "ZZ")) 'ZZCDEFGHIJK  ZZCDEFGHIJK
'
MsgBox(Replace(txt, "AB", "ZZ", 14)) 'ZZCDEFGHIJK
'
MsgBox(Replace(txt, "AB", "ZZ", 1, 1)) 'ZZCDEFGHIJK  ABCDEFGHIJK 


معرفة موقع نص

PHP كود :

'InStr
Dim txt As String = "ABCDEFGHIJK"
'
MsgBox(InStr(txt, "sz")) '0
'
MsgBox(InStr(txt, "ef")) '0
'
MsgBox(InStr(txt, "EF")) '5
'
MsgBox(InStr(txt, "ef", CompareMethod.Text)) '5 


معرفة الحرف عن طريق رقمه

PHP كود :

Dim txt As String = "ABCDEFGHIJKL"
'GetChar
MsgBox(GetChar(txt, 4)) 'D 


تعنى سطر او كتابة سطر

PHP كود :

'vbNewLine
Dim txt As String = "ABCDEFGHIJK"
'
MsgBox(txt & vbNewLine & txt)
'ABCDEFGHIJK
'ABCDEFGHIJK 


التعامل مع مكتبات الرموز ( Ascii ) و ( Unicode )

PHP كود :

'Asc
'(ascii code) ترجع بالرمز المقابل فى جدول الرموز
MsgBox(Asc("A")) '65
MsgBox(Asc("E")) '69
'Ascw
'(unicode) ترجع بالرمز المقابل فى جدول الرموز
MsgBox(AscW("A")) '65
MsgBox(AscW("E")) '69
'Chr
'(ascii code) تعيد الحرف المقابل للقيمة فى جدول الرموز
MsgBox(Chr(65)) 'A
'chrw
'(unicode) تعيد الحرف المقابل للقيمة فى جدول الرموز
MsgBox(ChrW(35) & ChrW(13) & ChrW(65))
'#
'A 


حذف جزء من النص

PHP كود :

Dim txt As String = "ABCDEFGHIJKL"
'Remove
MsgBox(txt.Remove(2, 5)) 'ABHIJKL 


دمج نصين

PHP كود :

Dim txt As String = "ABCDEFGHIJKL"
'Insert
MsgBox(txt.Insert(2, "ZZ")) 'ABZZCDEFGHIJKL 


التحقق من وجود نص

PHP كود :

Dim txt As String = "ABCDEFGHIJKL"
'Contains
MsgBox(txt.Contains("A")) 'True
MsgBox(txt.Contains("Z")) 'False 

كود لتنفيد اوامر cmd في vb.net


كود :

Public Class Form1
    Private psi As ProcessStartInfo
    Private cmd As Process
    Private Delegate Sub InvokeWithString(ByVal text As String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            cmd.Kill()
        Catch ex As Exception
        End Try
        TextBox2.Clear()
        If TextBox1.Text.Contains(" ") Then
            psi = New ProcessStartInfo(TextBox1.Text.Split(" ")(0), TextBox1.Text.Split(" ")(1))
        Else
            psi = New ProcessStartInfo(TextBox1.Text$)
        End If
        Dim systemencoding As System.Text.Encoding
        System.Text.Encoding.GetEncoding(Globalization.CultureInfo.CurrentUICulture.TextInfo.OEMCodePage)
        With psi
            .UseShellExecute = False
            .RedirectStandardError = True
            .RedirectStandardOutput = True
            .RedirectStandardInput = True
            .CreateNoWindow = True
            .StandardOutputEncoding = systemencoding
            .StandardErrorEncoding = systemencoding
        End With
        cmd = New Process With {.StartInfo = psi, .EnableRaisingEvents = True}
        AddHandler cmd.ErrorDataReceived, AddressOf Async_Data_Received
        AddHandler cmd.OutputDataReceived, AddressOf Async_Data_Received
        cmd.Start()
        cmd.BeginOutputReadLine()
        cmd.BeginErrorReadLine()
    End Sub
    Private Sub Async_Data_Received(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
        Me.Invoke(New InvokeWithString(AddressOf Sync_Output), e.Data)
    End Sub
    Private Sub Sync_Output(ByVal text As String)
        TextBox2.AppendText(text & Environment.NewLine)
        TextBox2.ScrollToCaret()
    End Sub
End Class

التعامل مع ملفات الجهاز ( إنشاء ، كتابة ، نقل ، نسخ )

السلام عليكم و رحمه الله و بركاته

اقدم اليكم 4 اكواد للتعامل مع الملفات بمختلف صيغها ..

صنع ملف txt : 

كود :

My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)


كتابة علي الملف txt :

كود :

My.Computer.FileSystem.WriteAllText("TheFile.txt", "TextContents", False)


نقل الملفات من مكان لآخر بمختلف الصيغ :

كود :

My.Computer.FileSystem.MoveFile("C:\OldDirectory\File.txt", "c:\NewDirectory\File.txt")


نسخ الملفات من مكان لآخر بمختلف الصيغ :

كود :

My.Computer.FileSystem.CopyFile("C:\Source.txt", "C:\NewFolder\Dest.txt")


تحياتي لكم و تمنياتي لكم بالتوفيق

Free Source Code & Tutorials | Visual Basic, VB.NET, C#, PHP/MySQL, C/C++, Java/JavaScript, ASP/ASP.NET, MS Access, FoxPro, SQL
https://www.sourcecodester.com/