[عبد العزيز البسكري]

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

إخواني الأفاضل عسى أن تكونوا كلكم بألف خير إن شاء الله

و أرجو منكم فضلا و ليس أمر المساعدة بحل هاته الإشكالية التي أول مرة أغوص بها

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

كود :

      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

هذا الكود المستخدم يعمل جيدا و يجلب الرصيد مثلما ينبغي

المشكلة و سؤالي إخواني الأكارم .. كيف يمكن إخفاء العبارات المحاطة بالمستطيلات الحمراء و منعها من الظهور على التاكست بوكس

بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء إن شاء الله

[wahmed]

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) 


[عبد العزيز البسكري]

شكرا و بارك الله فيك أخي الكريم
فقط أرجع للبيت و أجرب و أخبرك بالنتيجة ان شاء الله
تحياتي

[عبد العزيز البسكري]

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

 بارك الله فيك و لك و جزاك خير الجزاء إن شاء الله و زادك من علمه و فضله

تمام التمام و الحمد لله 

تحياتي واحتراماتي