Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - ThonyMaster

#441
gracias aora tengo lio con un codigo por mas q le haga periqitos osea arreglos o sea lo q sea me da error se trata de llamar una imagen con los option button y mostrar su nombre en un label. ya nos e q acer!!!! por mas q le ponga las extansiones de jpg o bmp nada no muestra la imagen!!!

Private Sub Command1_Click()

If Option1 And Option2 And Option3 And Option4 And Option5 = False Then
x = MsgBox("debe seleccionar una opcion", vbCritical, "Opciones")
End If

If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj.bmp")
Label1.Caption = "ES UN DJ"
End If

If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\mini.bmp")
Label1.Caption = "ES UNA MINITECA"
End If

If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\cerw.bmp")
Label1.Caption = "ES UN CAJON CERWIN VEGA"
End If

If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\car.bmp")
Label1.Caption = "ES CARIBBEAN"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ tri.bmp ")
Label1.Caption = "ES TRIDIMENSION"
End If

End Sub

-Programa que a través de una selección de imágenes  muestre la reconversión monetaria

Private Sub Command1_Click()
If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\1.bmp")
Label1.Caption = "un bolivar fuerte"
End If

If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\2.bmp")
Label1.Caption = "dos bolivares fuertes"
End If

If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\5.bmp")
Label1.Caption = "cinco bolivares fuertes"
End If

If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\10.bmp")
Label1.Caption = "dies bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 10.bmp ")
Label1.Caption = "veinte bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 50.bmp ")
Label1.Caption = "cincuenta bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 100.bmp ")
Label1.Caption = "cien bolivares fuertes"
End If
End Sub
#442
como ago un  osea como hago para q el programa haga esto: programa que lea 2 números enteros y sin multiplicarlos determine si su resultado es  positivo o negativo
#443
weno panas disculpenme ice las cosas mal weno ya de todos modos los ice solo me faltan detalles como aora si pueden ayudarme aunq sea diciendome como llamo una  imagen ejemplo :

If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj")
Label1.Caption = "ES UN DJ"
end if

al yo correr el programa me dice run-time error 53 pueden ayudarme a llamar la imagen de esa manera con option button gracias
a por cierto  cΔssiΔnі me caes bien jeje
me darias tu correo?? jeje ::) ::)
#444


Tu no estas pidiendo ayuda tu estas pidiendo que te hagan el trabajo  :¬¬
[/quote]

mira pana yo no les pedia q me icieran los programas ni la tarea solo q me dijeran mas o menos donde podia conseguirlos q me AYUDAEN A CONSEGUIR ALGUNOS q pesados son solo q qaria q me mostraran algun lugar dond salgan esos ejercicios o parcidos
#445
panas disculpenme peor son 20 ejercicios y los q no puse fue porq los ice ya disculpenme no importa no escriban mas ya no me ayuden de todos modos yo no lo veia de esa manera no se preocupen por decir mas nada dejenlo asi
#446
Código (vb) [Seleccionar]
panas una profesora de mi colegio me qiere raspar la materia y me mando acer todos estos programas para el martes 28 de abril y necesito conseguir todos estos programas con sus codigos y todo en visual basic 6 me podrian ayudar a conseguir unos

son estos:
-1 programa que permita calcular si un numero es primo o no y mostrarlo en una lista

-2 programa que permita calcular los dias de la semana

-3 calcular el menor de tres numeros y reflejarlos en una lista

-4 programa que permita leer la longitud de los lados de un triangulo y determine si es isoseles, equilatero o escaleno mostrando su imagen

-5 programa que lea 2 numeros enteros y sin multiplicarlos determine si su resultado es  positivo o negativo

-6 programa que calcule el promedio de calificaciones de un alumno  al leer la matricula y dos calificaciones del alumno calcule su promedio mustre la matricula las 2 calificaciones y el promedio de las calificaciones


AYUNDEME SI PUEDN PORFAAAAAAAAA  :-( :-( :-( :-( :-(
#447
Multimedia / Re: Editar Audio
18 Marzo 2008, 21:06 PM
panas quisiera saber si no tienen algun cursillo de audio profesioal ya q qiero trabajar con sonido gracias
#448
pana yo lo instale pero cuando voy a correr un programa se me cierra el VB o me dice depurar y al darle se abre C++ pero no son errores mios si no del programa VB segun mi computadora es lo q dice
#449
panas yo instale el VB 6 y cada ves q hago un programita ejemplo de suma con 3 text
y un command buton en lo q trato de ver la corrida aver si funciona me da error el VB y se cierra y si le doy a depurar se abre C++ y se cierra el VB prodian ayurde con eso porfa lo necesito porq pracico muxo en el siempre