Mensajes

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

No, no para nada, acá todo lo que se dice es en broma, solo es para pasarla bien un rato entre comunidad, nadie se molestará (no creo), yo mido 1.70 

Asi que a grabar partidas eso vuelve el torneo mas interesante y de mejor nivel.

No es ni tan mala idea, un buen jugador deberia poder jugar con cualquier civilización y tener muchas estrategias... 

Nota: yo no tengo ni estrategias, ni civilizaciones, es decir, no soy un buen juador...

¿Gago no es el centrocampista argentino que juega en el Real Madrid? 

que es un gago?

Se refiere a aquel individuo que sufre un trastorno del habla, si quieres hago una tablita en Excel 

¡Saludos!

Código (vb) [Seleccionar] Expandir

variable = "environ("windir")"

Yo acá no veo comillas dentro de comillas, lo que veo es un error de sintaxis... y una de las soluciones es --> "Concatenación" 

[solo q me dijeran mas o menos donde podia conseguirlos]

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

Si mal no recuerdo, la conexión como tal no se hace con SQl, tendrías que abrirla aparte y ayudarte con un recorset para las consultas.

El SQl lo usaras solo para las consultas y otras cositas.

Léete esto, no es tan difícil de entender, aunque si nunca has tratado con SQl seria entendible y te puede dar ideas.

Guía Muy básica de SQL - Microsoft JET

¡suerte en tu busqeda de conocimientos! 

pequeño detalle, pensé que solo lo querías cambiar de 0 a 2 y viceversa por eso no te deje ejemplo con las otras constantes 

Excelente entonces...

¡Saludos y suerte!

Es verdad, un buen jugador debe estar preparado para todo y para todos.

A palabras verdes, oidos sordos 

lo que pretendo es cambia el atributo de todo el contenido de toda la carpeta

ejemplo:

C:\prueba --> 1.txt,2.txt,3.txt,4.txt,5.txt,6.txt,7.txt,8.txt,9.txt

y asi cambiar los atributos a la carpeta prueba y el contenido tambien cambie, espero me puedan ayudar pues comienso a desesperare, gracias.

Pero seguro probaste bien, porque yo lo hice antes de postear el code y me funciona como quieres, no entiendo, algo haces mal. Solo que haya algo que no me has dicho 

es cuestion de poco más de un segundo para que cambie los atributos de todo el contenido.

busco nomas no eh encontrado algun codigo con el cual pueda poner atributos normales a unos archivos ocultos dentro de una carpeta y el k realise no me funciono

Obviaste una que otra cosa... 

Código (vb) [Seleccionar] Expandir


Option Explicit
Dim sPath As String
Dim sName As String
Dim sFullName As String

Private Sub CmdAtributo_0_Click()
    sPath = "c:\prueba\"
    sName = Dir(sPath & "*.*", vbHidden)

    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        sName = Dir
    Wend
       
    sName = Dir(sPath, vbDirectory + vbHidden)
    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        sName = Dir
    Wend
End Sub

Private Sub CmdAtributo_2_Click()
    sPath = "c:\prueba\"
    sName = Dir(sPath & "*.*")

    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbHidden
        sName = Dir
    Wend
       
    sName = Dir(sPath, vbDirectory)
    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbHidden
        sName = Dir
    Wend
End Sub

¡Saludos!