You are not logged in.

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

XelaisPWN

Beginner

  • "XelaisPWN" started this thread

Posts: 2

Date of registration: Apr 10th 2009

  • Send private message

1

Friday, April 10th 2009, 6:27am

Making a clock?

Hello, all, i'm really new at this whole Jabaco thing. I've been learning Visual Basic 6 for the past month or so, and I'm starting to get the hang of it. That's why I got Jabaco-to practice visual basic 6.
but enough about my history. For some reason, the code I learned a long time ago for making a digital clock doesn't work.

Jabaco Source

 
1
2
3
4
5
6
7
8

Public Sub Form_Load()
   Timer1.Enabled=True
   Timer1.Interval=1000
End Sub

Public Sub Timer1_Timer()
   label1.Caption=Time
End Sub

Label 1 ends up blank, though. This code always worked before in visual basic, so, can anyone help?

maXim

Trainee

  • "maXim" is male

Posts: 53

Date of registration: Jan 5th 2009

Location: Sesto Fiorentino, Florence (ITALY)

Occupation: design & development (HW, SW & FW)

Hobbies: chess, fly fishing, good wine and beautiful women!

  • Send private message

2

Friday, April 10th 2009, 7:46am

Hi XelaisPWN,

Jabaco is a project still under development and some functions don't result operational, but I'm sure that Manuel will make them available in the next version. For now I have resolved as follows:

Jabaco Source

 
1
2
3
4
5
6
7
8
9
10
11
12
13

Public Sub Form_Load()
   Timer1.Interval = 1000   
   Timer1.Enabled = True  
End Sub
Public Sub Timer1_Timer()
   Label1.Caption = Time
   Label1.Refresh   
End Sub
Public Function Time() As String
   Dim xs(0 To 1) As String
   xs() = Split(CStr(Now), " ")
   Time = xs(1)
End Function

... :whistling: this is not the best solution but works... ;)

XelaisPWN

Beginner

  • "XelaisPWN" started this thread

Posts: 2

Date of registration: Apr 10th 2009

  • Send private message

3

Friday, April 10th 2009, 11:27pm

Oh, I see! It's 24-hour time, but that should be really easy to fix! Thank you so much!

Similar threads

Rate this thread
WoltLab Burning Board