Ayuda con programas para visual basic 6

Iniciado por ThonyMaster, 28 Abril 2008, 03:22 AM

0 Miembros y 2 Visitantes están viendo este tema.

ThonyMaster



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
Sin Firma

cassiani

#11
Cita de: dj-blydex en 30 Abril 2008, 01:13 AM
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

El detalle es justamente eso  :-\ tu no te preocupas por elaborar los programas, si yo fuera tu profesor también te aplazaría la materia  :xD este foro no es para hacerle la tarea a nadie, es para AYUDAR, pero solo si la persona que solicita la ayuda pone de su parte. Si al menos intentaras hacerlos y te quedas a medio trabajo es diferente, porque veríamos que tienes interés en sacar los ejercicios y por muy básicos que sean te daríamos las dos manos para que salieras de donde te quededaste, pero no pretenderás que alguien de aquí haga los ejercicios para que tus los entregues. ¿la nota es para ti o para nosotros?

Entonces dices: "q me mostraran algún lugar dond salgan esos ejercicios o parcidos ", ¿has intentado aunque sea una sola vez buscarlos con dedicación? se sincero... no creo que te hallas dedicado a hacerlo de verdad, no hablo de colocar el nombre en el mágico buscador y esperar los resultados, hablo de fajarte con cada uno de esos ejercicios, analizarlos, inferir y luego buscar como empezar a elaborarlos...

Las cosas son así ¡panita!...

ThonyMaster

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 ::) ::)
Sin Firma

seba123neo

te falta la extensión del archivo:

C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj.jpg
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

ThonyMaster

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
Sin Firma

krackwar

que lea el primer signo i vea si es un "-"
s4lu2!
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

cassiani

#16
Uhm... parece que cambiaste la estrategia, pero haces lo mismo  :-\

Estos ejercicios son lógica pura, si no la tienes no llegaras muy lejos... :¬¬

En matemáticas, al multiplicar los signos tenemos:

Signos iguales dan suma y signos diferentes dan resta, esa premisa será la que usaras para resolver este ejercicio, lo demás es conocer los controles y eventos que necesitaras para elaborarlo.

Esta es una de las tantas formas que puedes usar:
Código (vb) [Seleccionar]

Option Explicit

Private Sub CmdDeterminar_Click()
    If Text1.Text = "" Or Text2.Text = "" Then Exit Sub
   
    If (Text1.Text < 0 And Text2.Text < 0) Or _
    (Text1.Text > 0 And Text2.Text > 0) Then
   
        MsgBox "El resultado será positivo"
    Else
        MsgBox "El resultado será negativo"
    End If
End Sub


Pd: A mi no me engañas  :xD

Edit: 0 es neutro


krackwar

si se nota que hace lo mismo por eso mismo no le des el codeeee :¬¬ :¬¬ :¬¬ como maximo dale la ideea.
s4lu2!
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

ThonyMaster

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
Sin Firma

seba123neo

primero que nada no trabajes con rutas de tu pc,pone las imagenes siempre en la carpeta donde tenes guardado el proyecto y la cargas asi:

Image1.Picture = LoadPicture(App.Path & "\2.bmp")

porque si la llevas a otra pc,no te andarian con las rutas de tu pc...

y veo errores en las rutas ,en algunos hay espacios a lo ultimo y eso no tiene que ser asi,por ejemplo en:

IMAGE\ tri.bmp "

tiene que ser asi:

IMAGE\tri.bmp"

no dejar espacios..

y bueno abria que optimizar mas ese codigo,hacerlo mas corto,pero bueno si recien empezas no te voy a complicar..
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson