[zinom]

(11-06-19, 08:48 PM)المتألق9 كتب : خالد السعداني يشرح ب c#

بالإضافه لمتابعة شرح أ - خالد السعدنى

الادوات 

2-تيكست بوكس

المسميات

1-txtphone

2-textmessage

1-بوتتن

الاكواد

المكتبات

كود :

Imports System.Threading.Tasks
Imports System.Windows.Forms
Imports System.IO.Ports

المتغيرات

كود :

   Private Sp As New SerialPort()

الارسال (Button)

كود :

       Sp.PortName = "COM18"
       Sp.ReadTimeout = 2000
       Sp.Open()
       Sp.Write("AT" & ControlChars.Cr)
       Sp.Write("AT+CMGF=1" & ControlChars.Cr)
       System.Threading.Thread.Sleep(1500)
       Sp.Write("AT+CMGS=""" & txtphone.Text & """" & ControlChars.CrLf)
       System.Threading.Thread.Sleep(1500)
       Sp.Write(textmessage.Text & ChrW(&H1A).ToString())
       MessageBox.Show("message send succesfully")
       Sp.Close()