الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف استخدم ال Timer

مغلق
بدأه MyDear في 20 سبتمبر 2006 · 4 رد · 1,197 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ألسلام عليكم ورحمه الله

اخواني عندي سؤال امل منكم مساعدتي

ارغب ان افوم بعمل فورم يحتوي على TextBox و Button و Label

حيث يقوم بعمل التالي :

عند الضغط على الزر يقوم بطباعة محتويات الـ TextBox في الـ Label ولكن حرف حرف

بمعني عندما اكتب "بسم الله الرحمن الرحيم" في الـ TextBox وبعد الضغط على الـ Button تظهر نفس الجملة في الـ Label

ولكن يظهر الحرف ب ثم بعد خمسة ثواني يظهر الرحف الثاني بسـ ......الخ

وجزاكم الله كل خير

#2

Code:

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		'لجعل التايمر يعمل كل خمس ثوانى بس ايه البطء ده؟
		Timer1.Interval = 5000
		Timer1.Enabled = True
	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		'تعريف المتغير استاتيك كى لا يفقد قيمته 
		Static i As Integer
		Dim chr As String, txt As String
		txt = TextBox1.Text
		'تحميل حرف حرف 
		chr = txt.Substring(i, 1)
		Label1.Text = Label1.Text & chr
		'ايقاف التايمر و الخروج من الاجراء فى حاله تحميل كل الحروف بداخل الليبل
		If i = txt.Length Then
			Timer1.Enabled = False
			Exit Sub
		End If
		i = i + 1
	End Sub
End Class
#3

جزاك الله خير

ولكن تظهر رساله الخطاء التالية

chr = txt.Substring(i, 1)

Index and length must refer to a location within the string.

Parameter name: length

#4

شكراً للأخ / half angel على الرد.... بس انا ايضا كنت بجهز الرد فأحببت ان اشارك بما كتبته من كود

 Dim I As Integer ' متغير عام
	Dim length As String ' متغير عام

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		Dim numm2, numm3, rr As String
		length = Len(TextBox1.Text)
		If I > length Then Exit Sub

		length = Len(TextBox1.Text)
		rr = TextBox1.Text
		numm2 = Microsoft.VisualBasic.Left(rr, I)
		Label1.Text = numm2
		I = I + 1

	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		I = 1
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Timer1.Interval = 5000
		Timer1.Enabled = True
	End Sub

برمجة - قواعد بيانات
http://www.pmpsoft.com

#5

اسف على الخطاء غير المقصود الكود بعد تصحيح الخطاء

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		'لجعل التايمر يعمل كل خمس ثوانى بس ايه البطء ده؟
		Timer1.Interval = 1000
		Timer1.Enabled = True
	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		'تعريف المتغير استاتيك كى لا يفقد قيمته 
		Static i As Integer
		Dim chr As String, txt As String
		txt = TextBox1.Text
		'ايقاف التايمر و الخروج من الاجراء فى حاله تحميل كل الحروف بداخل الليبل
		If i = txt.Length Then
			Timer1.Enabled = False
			i = 0
			Exit Sub
		End If
		'تحميل حرف حرف 
		chr = txt.Substring(i, 1)
		Label1.Text = Label1.Text & chr
		i = i + 1
	End Sub

هذا الموضوع مغلق.

مواضيع مشابهة