سؤال حول عشوائية الصور - لسه مبتدئ - 16-03-19
السلام عليكم اخواني
انا اعمل الآن على برنامج لإدارة محل العاب
كنت عايز كود بحيث اني اضغط على الصورة الموجودة تتغير بصورة أخرى ويبدأ عداد الوقت
بالعد ثم الضغط مرة أخرى
وينتهي الوقت ويُسجل في تيكست بوكس
بارك الله لكم جميعا
RE: سؤال حول عشوائية الصور - لسه مبتدئ - 16-03-19
انا عارف الموضوع صعب شوية
بس محتاج المساعدة
RE: سؤال حول عشوائية الصور - 5000 - 16-03-19
بالنسبة للإختيار اعشوائي لمجموعة صور تم وضع مسارها في مصفوفة وليكن اسمها photos اكتاب التالي
Dim i = New Random().Next(0, 3) ' 3=عدد الصور
PictureBox1.Image = Image.FromFile(photos(i))
مسألة الوقت وانتهاءه وما الذي تريد أن تضعه في تيكست بوكس فتحتاج توضيح
RE: سؤال حول عشوائية الصور - لسه مبتدئ - 16-03-19
اقصد اخي
اني اضغط مثلا على صورة علامة خطأ
فتظهر مكانها صورة علامة صح
ويبدأ الوقت بالعد في ليبل
وبعد ذلك اقم بالضغط على صورة علامة صح فتظهر مكانها صورة علامة خطأ
ويتوقف الوقت ويسجل في تيكست بوكس
RE: سؤال حول عشوائية الصور - trakktour - 17-03-19
(16-03-19, 09:27 PM)لسه مبتدئ كتب : اقصد اخي
اني اضغط مثلا على صورة علامة خطأ
فتظهر مكانها صورة علامة صح
ويبدأ الوقت بالعد في ليبل
وبعد ذلك اقم بالضغط على صورة علامة صح فتظهر مكانها صورة علامة خطأ
ويتوقف الوقت ويسجل في تيكست بوكس
السلام عليكم
تفضل
كود :
Public Class Form1
Private temps As TimeSpan
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Timer1.Interval = 999
Me.temps = New TimeSpan(0, 0, 0)
Me.DisplayTime()
End Sub
Private Sub DisplayTime()
Dim s As String = Me.temps.ToString
s = Replace(s, ":", "H", 1, 1)
s = Replace(s, ":", "min", 1, 1)
s &= "s"
Me.Label1.Text = s
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
If Timer1.Enabled = False Then
PictureBox1.Image = My.Resources._on 'صورة زر صح
Timer1.Start()
Else
PictureBox1.Image = My.Resources.off 'صورة زر خطأ
Timer1.Stop()
TextBox1.Text = Label1.Text
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.temps = TimeSpan.op_Addition(Me.temps, New TimeSpan(0, 0, 1))
Me.DisplayTime()
End Sub
End Class
RE: سؤال حول عشوائية الصور - لسه مبتدئ - 17-03-19
(17-03-19, 12:18 AM)trakktour كتب : (16-03-19, 09:27 PM)لسه مبتدئ كتب : اقصد اخي
اني اضغط مثلا على صورة علامة خطأ
فتظهر مكانها صورة علامة صح
ويبدأ الوقت بالعد في ليبل
وبعد ذلك اقم بالضغط على صورة علامة صح فتظهر مكانها صورة علامة خطأ
ويتوقف الوقت ويسجل في تيكست بوكس
السلام عليكم
تفضل
كود :
Public Class Form1
Private temps As TimeSpan
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Timer1.Interval = 999
Me.temps = New TimeSpan(0, 0, 0)
Me.DisplayTime()
End Sub
Private Sub DisplayTime()
Dim s As String = Me.temps.ToString
s = Replace(s, ":", "H", 1, 1)
s = Replace(s, ":", "min", 1, 1)
s &= "s"
Me.Label1.Text = s
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
If Timer1.Enabled = False Then
PictureBox1.Image = My.Resources._on 'صورة زر صح
Timer1.Start()
Else
PictureBox1.Image = My.Resources.off 'صورة زر خطأ
Timer1.Stop()
TextBox1.Text = Label1.Text
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.temps = TimeSpan.op_Addition(Me.temps, New TimeSpan(0, 0, 1))
Me.DisplayTime()
End Sub
End Class
وعليكم السلام
اعجز أخي عن الشكر
بارك الله لك وجعله الله في ميزان حسناتك
ومتعك في الدارين
|