|
Página 2 de 2
|
Añadir Un Contador De Tiempo A Un Spinner
| Autor |
Mensaje |
 vuott 
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación: 
|
 Re: Añadir Un Contador De Tiempo A Un Spinner
El Gran Maestro Jedi, shordi, diría:
Muy largo y peligroso el camino es: oscuridad sobre él siempre está !.
|
#11 Miercoles, 18 Septiembre 2019, 19:45 |
|
 |
gambafeliz
Analista Programador
Registrado: Julio 2019
Mensajes: 830
Edad: 54
|
Re: Añadir Un Contador De Tiempo A Un Spinner
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 
|
#12 Miercoles, 18 Septiembre 2019, 19:48 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
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. 
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 |
#13 Miercoles, 18 Septiembre 2019, 23:04 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación:  Albacete
|
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.
===================
No podemos regresar
|
#14 Jueves, 19 Septiembre 2019, 05:26 |
|
|
gambafeliz
Analista Programador
Registrado: Julio 2019
Mensajes: 830
Edad: 54
|
Re: Añadir Un Contador De Tiempo A Un Spinner
|
#15 Jueves, 19 Septiembre 2019, 07:53 |
|
|
gambafeliz
Analista Programador
Registrado: Julio 2019
Mensajes: 830
Edad: 54
|
Re: Añadir Un Contador De Tiempo A Un Spinner
...
¡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 |
#16 Jueves, 19 Septiembre 2019, 07:55 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Añadir Un Contador De Tiempo A Un Spinner
..¶¶¶¶¶¶¶¶7………………………………$¶¶¶¶¶$
….¶¶¶¶¶¶¶¶¶¢…………………………¶¶¶¶¶¶¶$
….ø¶¶¶¶¶$¶¶¶¶……………………..¢¶¶¶¶¶¶¶$
……¶¶¶¶¶¶¶¶¶¶¶¶………………….¶¶¶¶¶¶¶¶ø
……..¶¶¶¶¶¶¶¶¶¶¶¶¢…………….¶¶¶¶¶¶¶¶¶o
…………¶¶¶¶¶¶¶¶¶¶¶¶…………..¶¶¶¶¶¶¶¶¶
…………..¢¶¶¶¶¶¶¶¶¶¶¶…………¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶$¶¶¶¶¶7……o¶¶¶¶¶¶¶¶7
………………….7¶¶¶¶¶¶¶¶¶¶….o¶¶¶¶¶¶¶¶
……………………….o¶¶¶¶¶¶¶¶….¶¶¶¶¶¶¶
………………………………….$¶¶¶o¶¶¶¶¶¶
……………………….o¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………….¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶7
…………….¶¶¶ø……¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………..¶¶¶¶……….¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶……¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………..¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
………………….7¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
…………………………o¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
……………………………¶¶¶¶¶¶¶¶¶¶¶¶¶1
|
#17 Jueves, 19 Septiembre 2019, 13:33 |
|
|
gambafeliz
Analista Programador
Registrado: Julio 2019
Mensajes: 830
Edad: 54
|
Re: Añadir Un Contador De Tiempo A Un Spinner
|
#18 Jueves, 19 Septiembre 2019, 16:05 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 2 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
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
|
|
|
|
|
Foro 
