Aplicaciones/Fragmentos de Código :: Añadir Un Contador De Tiempo A Un Spinner

vuott escribió: [Ver mensaje]
gambafeliz escribió: [Ver mensaje]
Esta visto que yo cuando sea grande quiero ser como vosotros

El Gran Maestro Jedi, shordi, diría:

Muy largo y peligroso el camino es: oscuridad sobre él siempre está !.

Menos mal que soy unos cachondos mentales sino esto seria una pena.

Estoy liado con un componente y me voy a quedar calvo

Perfil MP

vuott

Citar

Mensajes: 2086

Miercoles, 18 Septiembre 2019, 23:04

Objetivo: Re: Añadir Un Contador De Tiempo A Un Spinner

...pequeña variación.
No se debe poner nada sobre el Formulario !
Activad los Componentes de gambas gb.net y gb.net.curl .
Para eligir el "maximum tempus" teneis que usar el TimeBox que se muestra sobre el Form.
La señorita, que aparecerá en el PictureBox, siempre será Miss Italia 2019.

Código: [Descargar] [Ocultar] [Seleccionar]

Private tb As TimeBox
Private bt As Button
Private sp As Spinner
Private da As DrawingArea
Private tm As Date

Public Sub Form_Open()

With Me
.W = 480
.H = 320
End With
With tb = New TimeBox(Me) As "Tempus"
.W = 120
.H = Me.H * 0.08
.X = (Me.W / 2) - (.W / 2)
.Y = (Me.H / 1.5) - (.H / 2)
End With
With bt = New Button(Me) As "Tasto"
.X = tb.X + tb.W
.Y = tb.Y
.W = tb.W * 0.3
.H = tb.H
.Text = "OK"
End With
With sp = New Spinner(Me)
.W = tb.W
.H = .W
.X = tb.X
.Y = tb.Y - sp.H
End With

End

Public Sub Tasto_Click()

Dim ss As String[]
Dim i As Integer
Dim obs As Observer

ss = Scan(Str(tb.Value), "*:*:*")
If ss.Count == 0 Then Return
i = (Val(ss[0]) * 60) + ss[1]
i = ((i * 60) + Val(ss[2])) * 1000

With da = sp.Children[0]
.Background = Color.Lighter(Color.Yellow)
.W = sp.W
.H = sp.H
End With
obs = New Observer(da) As "Dr"
tm = DateAdd(Now, gb.Millisecond, i)
sp.Start()

End

Public Sub Dr_Draw()

Dim i As Integer
Dim tp As New HttpClient
Dim s As String
Dim im As New Image
Dim pc As PictureBox

With Paint
.Begin(da)
.Brush = .Color(Color.Red)
.Font.Size = 6
i = DateDiff(Now, tm, gb.Millisecond)
.DrawText(CStr(Date(0, 0, 0, 0, 0, 0, i)), 0, 0, da.W, da.H, Align.Center)
.End
End With
If i <= 0 Then
sp.Stop
sp.Delete
tb.Delete
bt.Delete
s = tp.Download("https://cdn.ilbianconero.com/images/2019-09/Carolina.Stramare.Miss.Italia.2019.combo.1080x648.jpg")
tp.Close
im = im.FromString(s)
With Me
.W = im.W
.H = im.H
End With
With pc = New PictureBox(Me)
.X = 0
.Y = 0
.W = im.W
.H = im.H
.Image = im
End With
Endif

End

¡Pues si no os gusta

la señorita Miss Italia 2019, ......no es mi culpa!

última edición por vuott el Jueves, 19 Septiembre 2019, 13:18; editado 5 veces

Perfil MP

shordi

Citar

Mensajes: 4982 Ubicación: Albacete

Jueves, 19 Septiembre 2019, 05:26

Objetivo: Re: Añadir Un Contador De Tiempo A Un Spinner

El lado oscuro tentado te ha. Peligro de caer en el lado oscuro tú tienes. A un paso del lado depilado estás.
Hacia la luz, joven Padawan, ir debes.

Perfil MP

gambafeliz

Citar

Mensajes: 830

Jueves, 19 Septiembre 2019, 07:53

Objetivo: Re: Añadir Un Contador De Tiempo A Un Spinner

shordi escribió: [Ver mensaje]
El lado oscuro tentado te ha. Peligro de caer en el lado oscuro tú tienes. A un paso del lado depilado estás.
Hacia la luz, joven Padawan, ir debes.

Perfil MP

gambafeliz

Citar

Mensajes: 830

Jueves, 19 Septiembre 2019, 07:55

Objetivo: Re: Añadir Un Contador De Tiempo A Un Spinner

vuott escribió: [Ver mensaje]
...
¡Pues si no os gusta la señorita Miss Italia 2019, ......no es mi culpa!

Eso se cambia por un carrusel playboy y listo

Ostras que he puesto Playboy, arrrto, queria decir Playmobil

última edición por gambafeliz el Jueves, 19 Septiembre 2019, 07:56; editado 1 vez

Perfil MP

vuott

Citar

Mensajes: 2086

Jueves, 19 Septiembre 2019, 13:33

Objetivo: Re: Añadir Un Contador De Tiempo A Un Spinner

..¶¶¶¶¶¶¶¶7………………………………$¶¶¶¶¶$
….¶¶¶¶¶¶¶¶¶¢…………………………¶¶¶¶¶¶¶$
….ø¶¶¶¶¶$¶¶¶¶……………………..¢¶¶¶¶¶¶¶$
……¶¶¶¶¶¶¶¶¶¶¶¶………………….¶¶¶¶¶¶¶¶ø
……..¶¶¶¶¶¶¶¶¶¶¶¶¢…………….¶¶¶¶¶¶¶¶¶o
…………¶¶¶¶¶¶¶¶¶¶¶¶…………..¶¶¶¶¶¶¶¶¶
…………..¢¶¶¶¶¶¶¶¶¶¶¶…………¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶$¶¶¶¶¶7……o¶¶¶¶¶¶¶¶7
………………….7¶¶¶¶¶¶¶¶¶¶….o¶¶¶¶¶¶¶¶
……………………….o¶¶¶¶¶¶¶¶….¶¶¶¶¶¶¶
………………………………….$¶¶¶o¶¶¶¶¶¶
……………………….o¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………….¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶7
…………….¶¶¶ø……¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………..¶¶¶¶……….¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶……¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………..¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………….7¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………………………o¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
……………………………¶¶¶¶¶¶¶¶¶¶¶¶¶1

Perfil MP

gambafeliz

Citar

Mensajes: 830

Jueves, 19 Septiembre 2019, 16:05

Objetivo: Re: Añadir Un Contador De Tiempo A Un Spinner

vuott escribió: [Ver mensaje]
..¶¶¶¶¶¶¶¶7………………………………$¶¶¶¶¶$
….¶¶¶¶¶¶¶¶¶¢…………………………¶¶¶¶¶¶¶$
….ø¶¶¶¶¶$¶¶¶¶……………………..¢¶¶¶¶¶¶¶$
……¶¶¶¶¶¶¶¶¶¶¶¶………………….¶¶¶¶¶¶¶¶ø
……..¶¶¶¶¶¶¶¶¶¶¶¶¢…………….¶¶¶¶¶¶¶¶¶o
…………¶¶¶¶¶¶¶¶¶¶¶¶…………..¶¶¶¶¶¶¶¶¶
…………..¢¶¶¶¶¶¶¶¶¶¶¶…………¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶$¶¶¶¶¶7……o¶¶¶¶¶¶¶¶7
………………….7¶¶¶¶¶¶¶¶¶¶….o¶¶¶¶¶¶¶¶
……………………….o¶¶¶¶¶¶¶¶….¶¶¶¶¶¶¶
………………………………….$¶¶¶o¶¶¶¶¶¶
……………………….o¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………….¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶7
…………….¶¶¶ø……¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………..¶¶¶¶……….¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶……¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………..¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………….7¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………………………o¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
……………………………¶¶¶¶¶¶¶¶¶¶¶¶¶1

Enserio esto es una obra de arte

Si es que sois los mejores

Perfil MP

Responder al tema

Ir a la página Anterior 1, 2

Página 2 de 2

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4022s (PHP: -62% SQL: 162%)
Consultas SQL: 47 - Debug off - GZIP Activado

Comunidad Gambas-es

Comunidad hispana de usuarios de GAMBAS

Añadir Un Contador De Tiempo A Un Spinner