USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Desenhar um relógio analógico usando somente código.
Postada em 16/3/2004 por PC            
'Desenhe 1 (UM) TIMER em seu formulário e cole o codigo abaixo.

Private Sub Run(O As Object)
  Const PI  As Single = 3.1415
  Dim NewTime As Single
  Dim GocH As Single, GocM As Single, GocS As Single
  Dim H As Single, M As Single, S As Single
  Dim r As Single
  
  NewTime = Time
  
  H = Hour(NewTime)
  M = Minute(NewTime)
  S = Second(NewTime)
  
  GocH = PI * ((H Mod 12) / 6 + M / 360 + S / 4320)
  GocM = PI * (M / 30 + S / 1800)
  GocS = PI * ((Timer + 1.7) / 30)
  
  O.Cls
    
  If (O.ScaleHeight < O.ScaleWidth) Then r = O.ScaleHeight / 2 Else r = O.ScaleWidth / 2
  
  VeKim O, 3.5 * r / 5, GocH, vbBlue, 6     'hora
  VeKim O, 5 * r / 6, GocM, vbDesktop, 3  'minuto
  VeKim O, r, GocS, vbRed, 1                  'segundo
  VeKim O, r / 6, PI + GocS, vbRed, 2
  Me.Caption = Time
End Sub

Private Sub VeKim(O As Object, r As Single, Goc As Single, Mau As Long, Size As Single)
  Dim Xo As Single, Yo As Single, X As Single, Y As Single
  
  Xo = O.ScaleWidth / 2
  Yo = O.ScaleHeight / 2
  
  X = Xo + r * Sin(Goc)
  Y = Yo - r * Cos(Goc)
  
  O.ForeColor = Mau
  O.DrawWidth = Size
  O.Line (Xo, Yo)-(X, Y)
  
End Sub

Private Sub Form_Resize()
Timer1.Interval = 50
  Run Me
End Sub

Private Sub Timer1_Timer()
  Run Me
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página