ساعة ايقاف وساعة رقميه Degital and stop watch ساعة رقمية وساعة ايقاف اذا كان لديك برناج فجوال بازك 6 معمول له ست اب يمكنك تصميم ساعة رقمية وساعة ايقاف كلاتى:0 - افتح برناج فجوال بازك 6 من مكان حفظة---------------------------------------------- - تفتح نافذة الرنامج وتتكون من -form1 - tool box to the left( if not available click tool box on the upper bar) -properties window to the right (if not available click properties window on the upper bar-hand shape) - from tool box choose timer sign click and drag to the form and release in any place on the form - you can make double click on the timer it will be moved to the middle of the form then drag to the required place - from the tool box also choose text sign click and drag to the form so it will be text1 - with the same way drag text2 and put to the left of text1 and click and drag text3 and put to the left of text2 - from tool box choose command sign click and drag to the form and put over the text1 - click and drag command2 and put over text2 and drag command3 and put over text3 programing - double click on the timer on the form the page of the code is opened the first line is: Private sub timer1-click() the second line is End sub we start to write the following code under the first line -(it is my own code) 10 x = x + 1 Text1.Text = x Timer1.Interval = 1000 If Text1.Text = 60 Then x = 0 y = Val(Text2.Text) If Text1.Text = 60 Then Text2.Text = y + 1 If Text2.Text = 60 Then Text2.Text = 0 Text3.Text = Text3.Text + 1 End If If Text3.Text = 13 Then Text3.Text = 1 End sup the last line available from the first do not write again -------------------- - open the properties window to the right of the form and choose interval then on front of it write 1000 - double click on command1 the code page is opened then write the following cod under the first line Timer1.Enabled = True - double click on command2 then write the following code Timer1.Enabled = False - then double click on command3 then write the following x = 0 y = 0 z = 0 Text1.Text = "00" Text2.Text = "00" Text3.Text = "00" this have to be between the two lines private....and end sub to make names of the three command do the following: * open the properties window to the right of the form activate command1 then choose caption from the properties window you will find on the front of it command1 so clear and write the new name start - activate command2 then change the name the same way to stop - activate command3 then change the name to re set. operate the watch on on the menu bar click the triangle sign - if not appear click the square sign then the triangle appear the the application starts click the command1 which name is start the time start count seconds when reach 60 the text2 start to count minuets and so on this is my own explanation if any problem may appeared do not hesitate to ask
Posted on: Tue, 17 Sep 2013 23:18:27 +0000
Trending Topics
Recently Viewed Topics
© 2015