VB 6.0 TV

Experto:
Usuario:
Fecha: 04/05/2008
Valoración: (3,00 sobre 5) Categoría: Programación
01/05/2008
psichofra, usuario preguntando en Programación
Usuario
Al grano estoy haciento "una tv" pero no logro poner los canales pongo el ocx de WMP pero solo me permite una URL entonces quisiera que me explicaras si esta a tu alcance claro, como poner mas de una URL en para que me la reprodusca el WMP no es ningun video de mi pc es una señal directa de varias TV online de mi pais quisiera hacerlo de la sig. manera pero no doy con el codigo.
que al introducir por ejemplo 12 en un textbox me direccione al canal de TV, prove con el codigo:
If text1.text = 12 then
WindowsMediaPlayer1.URL = www.telepuertovirtual2.tv / vtvdsl(en esta linea me da el error creo q esta claro)
End If
pero creo que ese codigo esta mas malo XD la verdad es q penas ac un año que estoy empexando a conocer bien el VB por eso mi duda espero que entiedas lo que quise decir
01/05/2008
psichofra, usuario preguntando en Programación
Usuario
ajajaj que torpe me voy a auto responder tan solo no me habia fijado que faltaban las comillas :S bueno aprobecho para hacer otra pregunta como ago para poner dos botones que al precionarlos suban o bajen un numero en el text box es decir para que el usuario no tenga la necesidad de escribirlo como si fuese el control de la tv
01/05/2008
psichofra, experto respondiendo en Programación
Experto
Si, cabal, faltaban las comillas,
Ahora, para la consulta, para eso se puede hacer de dos maneras, la primera utilizando el control spinner
o bien utilizando 3 controles, un textbox con un numero inicial y dos command button.
el textbox que tenga la propiedad de enabled = false, y el command button que incremente o decremente el valor en el textbox manteniendo siempre control sobre el limite (que no baje de 0 y que no suba de cierto valor predeterminado)

Julius
-Guatemala-
01/05/2008
psichofra, usuario preguntando en Programación
Usuario
si lo del enable = false eso es logico pero lo que no doy es con el codigo para aumentar o disminuir, me da error lo intente hacer con el condicional if pero no da
02/05/2008
psichofra, experto respondiendo en Programación
Experto
veamos, hay una variable que puede llamarse canal entonces queda asi y el textbox se llama sle_canal
entonces para el boton que va para arriba
if canal <= limitesuperior then
    canal = canal + 1
    sle_canal.text = canal
end if
entonces para el boton que va para abajo
if canal >=0 then
    canal = canal - 1
    sle_canal.text = canal
end if
04/05/2008
psichofra, usuario preguntando en Programación
Usuario
La verdad no me sirbieron esos codigos mm no me corrieron aqui dejo los que programa por si alguien los quiere:
Pra poner las Url para los canales de Tv:
'el numero puede variar segun el canal al que se lo asignemos
If Text1.Text = 1 Then
WindowsMediaPlayer1.URL = "aqui el link de el canal hay que dejar las comillas"
End If
para cambiar canal directo al textbox:
'para chanel +
Text1 = IIf(Val(Text1) < 99, Val(Text1) + 1, 99)
If Text1.Text >= 99 Then
Text1.Text = 0
End If
'para chanel -
Text1 = IIf(Val(Text) < 99, Val(Text1) - 1, 99)
If Text1.Text <= 0 Then
Text1.Text = 99
End If
04/05/2008
psichofra, usuario preguntando en Programación
Usuario
Bien. Una respuesta aceptable.
Enlaces patrocinados