Ayuda con programas para visual basic 6

[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

[cassiani]

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

[seba123neo]

te falta la extensión del archivo:

C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj.jpg

[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

[krackwar]

que lea el primer signo i vea si es un "-"
s4lu2!

[cassiani]

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] Expandir


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 

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!

[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

[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:

Código [Seleccionar] Expandir

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:

Código [Seleccionar] Expandir

IMAGE\ tri.bmp "

tiene que ser asi:

Código [Seleccionar] Expandir

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..