Mensajes

Vale, parece que ya van mejorando las cosas con esto, Me baje el driver de MySQL y parece que va mejor, solo que al conectar me dice access denied for user... y mi Ip, yo me conecto a traves de un router, puede influir eso en que el servidor me rechaze la conexion?

Gracias, ya me lo baje de su web, y consegui copiar la pelicula

intent conpiar el otro dia una peli en dvd al pc (una imagen) pero el Alcohol me decia que tenia protecion y que no podia, y el clone DVD decia que tenia proteccion CSS o algo asi, que programa debo utilizar para quitarle esta proteccion?

Como no lo metas en una dll o algo asi, y lo llames desde visual, me da a mi que vas a tener que escribir mucho....

Código [Seleccionar] Expandir


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = "13" Then
Res "Hola"
Res "q2"
res "q3"
....
End If
End Sub


no?

Código [Seleccionar] Expandir


Dim Lai As Integer


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = "13" Then
Res "Hola"
End If
End Sub

Public Sub Res(mensaje As String)
Randomize
Lai = Rnd * 10
If mensaje = "Hola" Then
Select Case Lai
Case "1"
Text2.Text = Text2.Text & vbCrLf & "Hola que te cuentas?"
Case "2"
Text2.Text = Text2.Text & vbCrLf & "Hola"
Case "2"
Text2.Text = Text2.Text & vbCrLf & "Hola, hoy no tengo ganas de hablar"
Case "3"
Text2.Text = Text2.Text & vbCrLf & "Hola, uff que dia llevo"
Case "4"
Text2.Text = Text2.Text & vbCrLf & "Hola, como te va?"
Case "5"
Text2.Text = Text2.Text & vbCrLf & "Hola, que pasa!?"
Case "6"
Text2.Text = Text2.Text & vbCrLf & "Hola, toy ocupado luego hablamos"
Case "7"
Text2.Text = Text2.Text & vbCrLf & "Hola, que pasa neng!"
Case "8"
Text2.Text = Text2.Text & vbCrLf & "Adios"
Case "9"
Text2.Text = Text2.Text & vbCrLf & "Toy cansado me voy ya"
Case "10"
Text2.Text = Text2.Text & vbCrLf & "No quiero hablar con tigo"
End Select
End If
End Sub
Se necesitan dos text box, text1 es para escibir, con multiline a false, y text2 para ver las respuestas, multiline a true en este

que responda es posible, que responda bien el 50% de las preguntas tambien, pero no el 100% de las preguntas

viendo lo que quieres hacer, a mi me parece imposible que la maquina te responda, pero tambien se me ocurren ideas, y me gusta tu proyecto, no me inportaria ayudarte, pero yo pienso, que primero, deberias hacer una biblioteca/base de datos  de frases pequeñas, y luego hacer un algoritmo que las dijera dependiendo de la situacion.... primero te recomiendo que hagas algo basico, y luego lo vallas ampliando... porque este es muy chungo, y es inposible hacer que una maquina actue como una persona, no lo digo por desanimarte, es que no creo en la IA...

Gracias, ya encontre un metodo,

Código [Seleccionar] Expandir


Set fg.CellPicture = LoadPicture(ruta)


Se pueden meter imagenes en una rejilla?