|
Buon Giorno a tutti , mi chiamo Maurizio e vorrei riuscire a Risolvere un mio Problema Personale che è questo :
Tempo fa mi ero riuscito finalmente a costruirmi un Orologio Analogico sfruttando però il Sistema di programmazione Visual basic 6.0 , ora pero e da un po di tempo che sto tentando di Riprodurre tutti i miei vecchi Programmi scritti per l'appunto in VB6 in Excel .
Per tanto la mia domanda e Questa c'é qualche brava persona che riuscirebbe a trasformarmi questo mio Listato da VB6 a Excel .
Option Explicit
Const Pi As Double = 3.14159265358979
Private Sub Form_Load()
Me.Scale (-5500, 5500)-(5500, -5500)
lnOre.X1 = 0
lnOre.Y1 = 0
lnMin.X1 = 0
lnMin.Y1 = 0
lnSec.X1 = 0
lnSec.Y1 = 0
Ora.Top = -2000
Ora.Left = -Ora.Width / 2 ' Qui Viene data la Posizione di Dove _
si vedrà la nostra label con la data _
e L'ora Digitale , che nel mio caso _
e la parte Bassa dello Schermo
End Sub
Private Sub Form_Resize()
Me.Refresh
If Me.Width > 9330 Then Me.Width = 9330
Me.Height = Me.Width
Form_Load
End Sub
Private Sub Tempo_Timer()
Dim Sec, Min, Ore As Integer
Me.DrawWidth = 5 ' Stà ad indicare lo Spessore _
del Cerchio Del Nostro Orologio
Me.Circle (0, 0), 4200 ' Stà ad indicare la Posizione _
del Cerchio Dell'orologio sul _
Piano del Form
Me.DrawWidth = 20 ' Sta' ad indicare il Puntino _
Centrale trà Una lancetta e _
L'altra
Me.PSet (0, 0), vbBlack ' Stà ad Indicare il Colore che _
in questo Caso o messo il Nero _
mostrato a video
Sec = Second(Time)
Min = Minute(Time)
Ore = Hour(Time)
lnSec.X2 = Sin(Sec * 6 * Pi / 180) * 4000
lnSec.Y2 = Cos(Sec * 6 * Pi / 180) * 4000
lnMin.X2 = Sin((Min + Sec / 60) * 6 * Pi / 180) * 3500
lnMin.Y2 = Cos((Min + Sec / 60) * 6 * Pi / 180) * 3500
lnOre.X2 = Sin((Ore + Min / 60) * 30 * Pi / 180) * 3000
lnOre.Y2 = Cos((Ore + Min / 60) * 30 * Pi / 180) * 3000
'lblSec.Top = lnSec.X2
'lblSec.Left = lnSec.Y2
'lblMin.Top = lnMin.X2
'lblMin.Left = lnMin.Y2
'lblOre.Top = lnOre.X2
'lblOre.Left = lnOre.Y2
'lblOre.Caption = Ore
'lblMin.Caption = Min
'lblSec.Caption = Sec
Ora.Caption = Time & Chr(13) & Date & "" ' Qui o Indicato la _
Data e L'ora _
Corrente in Formato _
Digitale
Ora.FontSize = Int(Me.Height / 380) ' Qui o Apportato La _
larghezza Della _
Label che Verrà _
Mostrata a Video
End Sub
Grazie a tutti coloro che vorranno darmi una mano in Merito , anche perchè su internet ne o trovati parecchi che trattano questo Articolo ma e una cosa Indecifrabile per uno come me , che e un Autodidatta ! Sinceri saluti da A. Maurizio
| 
