+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [ تمّ الحل ] : تعديل على نص المخرجات لأوامر Command AT (/showthread.php?tid=39754)
[ تمّ الحل ] : تعديل على نص المخرجات لأوامر Command AT - عبد العزيز البسكري - 20-10-21
السلام عليكم و رحمة الله و بركاته
إخواني الأفاضل عسى أن تكونوا كلكم بألف خير إن شاء الله
و أرجو منكم فضلا و ليس أمر المساعدة بحل هاته الإشكالية التي أول مرة أغوص بها
لمعرفة الرصيد الموجود بهاتفي النقال قمت باستعمال هذا الكود
كود :
If Not (SerialPort1.IsOpen = True) Then
SerialPort1.Open()
End If
SerialPort1.Write("AT+CUSD=1," & Convert.ToString(Chr(34)) & "*710#" & Convert.ToString(Chr(34)) & ",15" & System.Environment.NewLine)
System.Threading.Thread.Sleep(7000)
Me.TextBox1.Text = SerialPort1.ReadExisting
المشكلة و سؤالي إخواني الأكارم .. كيف يمكن إخفاء العبارات المحاطة بالمستطيلات الحمراء و منعها من الظهور على التاكست بوكس
بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء إن شاء الله
RE: تعديل على نص المخرجات لأوامر Command AT - wahmed - 20-10-21
PHP كود :
Dim v = Regex.Match(TextBox1.Text, "\+CUSD:(.+?)OK", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value
Dim Credit = Regex.Match(v, "Credit\s?(\d+(\.\d+)?)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim
Dim Bonus = Regex.Match(v, "Bonus\s?(\d+(\.\d+)?)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim
Dim Internet = Regex.Match(v, "Internet:(\d+)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim
TextBox1.Text = v
MsgBox("Credit= " & Credit)
MsgBox("Bonus= " & Bonus)
MsgBox("Internet= " & Internet)
RE: تعديل على نص المخرجات لأوامر Command AT - عبد العزيز البسكري - 20-10-21
شكرا و بارك الله فيك أخي الكريم
فقط أرجع للبيت و أجرب و أخبرك بالنتيجة ان شاء الله
تحياتي
RE: تعديل على نص المخرجات لأوامر Command AT - عبد العزيز البسكري - 20-10-21
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء إن شاء الله و زادك من علمه و فضله
تمام التمام و الحمد لله
تحياتي واحتراماتي