+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تقسيم النص حسب النقطة والفاصلة (/showthread.php?tid=7209)
الصفحات:
1
2
تقسيم النص حسب النقطة والفاصلة - ام لارا - 05-12-12
سؤال اخر . كيف اغيرها تلقئيا بالتايمر
يعنى يأتى بالرسالة التى تليها حسب وقت معين . بوركتم
تقسيم النص حسب النقطة والفاصلة - ismail2012 - 05-12-12
بالنسبة للسؤال الأول صراحة لم أفهمه جيدا
بالنسبة للطلب الثاني وهو عرض الرسائل في أوفات معينة يتم تحديدها بالتيمر
أولا أحب أن أشرح لك عمل البرنامج طبعا قمنا بتقسيم النص الموجود في التكست بنائ على النقطة وتخزين جميع النصوص في مصفوفة نصية وهي s
بمعنا s(0) تعطينا أول جملة موجودة بداية من أول النص إلى النقطة الأولى و s(2) تعطينا الجملة الثانية من النقطة الأولى الي النقطة الثانية وهكذا فقمنا بعمل حلقة تكرارية وهي i تبدأ من الصفر وتنتهي بنهاية المصفوفة
أما إذا أردنا أن نعرض الرسائل في تيمر
أولا حدد الوقت interval إلى 1000 لكي يعرض الرسائل كل ثانية أما إذا تم تحديد 5000 فسيعرض الرسائل كل 5 ثوان الخ
واكتب الكود الجديد
كود :
Public Class Form1
Dim s() As String
Dim Counter As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
s = TextBox1.Text.Split(".")
Timer1.Enabled = True
Counter = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox(s(Counter))
If Counter >= s.Length - 1 Then Timer1.Enabled = False
Counter += 1
End Sub
End Classتقسيم النص حسب النقطة والفاصلة - ام لارا - 05-12-12
جزيت خيرا لا اريدها فى مسج بوكس .
طيب اريدها تظهر فى تكست بوكس آخر ؟
وكل 5 ثوانى يغير ما فى التكست الاخر الى النقطة التى تليها وهكذا
يعنى لا اريد مسج بوكس هذه .وبوركت
تقسيم النص حسب النقطة والفاصلة - ismail2012 - 05-12-12
الأمر بسيط إن شاء الله
اضيفي تكست بوكس جديد وغير msgbox الى TextBox2.Text ليصبح الكود الجديد كالتالي
كود :
Public Class Form1
Dim s() As String
Dim Counter As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 5000
s = TextBox1.Text.Split(".")
Timer1.Enabled = True
Counter = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox2.Text = (s(Counter))
If Counter >= s.Length - 1 Then Timer1.Enabled = False
Counter += 1
End Sub
End Classوأي أستفسار آخر لا تترددي
تقسيم النص حسب النقطة والفاصلة - ام لارا - 05-12-12
ممتاز جدا وبارك الله فيك وجزاك خير.
جربته واشتغل تمام . باقى اضع فيه الفكرة التى اريده وسأرد عليك
تقسيم النص حسب النقطة والفاصلة - ام لارا - 09-12-12
سلام عليكم .
س 1 : كيفية زيادة النقطة وجعلها اكثر من خيار ، يعنى نقصطة وفاصلة وفاصلة منقوطة هكذا .
س 2 - اعادة التشغيل مرة اخرى عند الانتهاء .
س 3 : جعل القيمة 5000 فى جملة شرطية ، لو أن الخيار كذا مفعل تكون على حسبه . يعنى اذا كان النص يساوى 5 اذا اضف 5000 أو شيك بوكس .
وبوركتم
تقسيم النص حسب النقطة والفاصلة - ismail2012 - 11-12-12
السلام عليكم
كيف حالك ام لارا
أأسف على الـتأخيير في الرد
هذا الكود الجديد مع طلباتك الجديدة
ماعدا الطلب الأخير لأني لم أفهمة جيدا أرجوا توضيحة
الكود
كود :
Public Class Form1
Dim s() As String
Dim Counter As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 2000
s = TextBox1.Text.Split(New Char() {"."c, ","c, ";"c})
Timer1.Enabled = True
Counter = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox2.Text = (s(Counter))
Counter += 1
If Counter >= s.Length Then Counter = 0
End Sub
End Classتقسيم النص حسب النقطة والفاصلة - ام لارا - 11-12-12
وعليكم السلام الحمد لله بارك الله فيك
اقصد اذا كانت قيمة الشيك بوكس تساوى 5 ، إذا التايمر تكون قيمته 5000 واذا كانت 6 تكون 6000 وهكذا .
سؤال : كيفية عمل زر ايقاف مؤقت وايقاف نهائى
س 2 : كيفية تشغيل تكست بوكس اخر بعد انتهاء التكست بوكس الحالى
تقسيم النص حسب النقطة والفاصلة - ismail2012 - 13-12-12
السلام عليكم
تم عمل تطبيق به الطلبات الجديدة يا أخت أم لارا
عدا قولك
إقتباس :اقصد اذا كانت قيمة الشيك بوكس تساوى 5 ، إذا التايمر تكون قيمته 5000 واذا كانت 6 تكون 6000 وهكذاالتشك بوكس يحمل قيمة منطقية صواب أو خطا ولا يحمد قيمة عددية أو نصية
شكرا
تقسيم النص حسب النقطة والفاصلة - ام لارا - 13-12-12
جزاك الله خيرا شكرا لك مثال واضح