Mensajes

Lo que te puse fue, valga la redundancia, un ejemplo del método aleatorio que usarías para generar varias frases hechas.
Después tu lo adaptas a tu code.

Usa un repertorio de forma aleatoria, si caben varias respuestas. Es lo que quieres darle más flexibilidad.
Atendendiendo al valor numérico que tome un variable mediante la función random (rnd)

Código [Seleccionar] Expandir


dim i
i = int((rnd*3) +1)
if text1 = "hola" then
   select case i
        case 1
             print "que tal"
        case 2
             print "como está?"
        case 3
             print "hola, que tal"
    end select
end if 

Pues para lograr una cierta flexibilidad a la hora de responder pudieras escoger al azar entre varios saludos preprogramados aleatoriamente.

Código [Seleccionar] Expandir

Dim i
randomize
i = int((rnd*3)+1)
if text1 = "hola" then
Select case i
     case 1
          print "hola"
     case 2
          print "que tal"
     case 3
         print "hola, que como te va?"
  End select
End if

Lo que necesitas hacer es un CD autorun:

Para ello tienes que crear con el bloc de notas un archivo que se llamará AUTORUN.inf y cuyo contenido serán las 3 líneas siguientes:

Código [Seleccionar] Expandir


[autorun]
open=programa.exe
icon=dibujo.ico

Este archivo lo tendrás que poner en el directorio raíz del CD, así como el programa que se ejecutará.

La línea de icon es por si quieres que aparezca un icono en la unidad de disco cuando abras el CD con el explorer.

Para más detalles visita el siguiente link:

http://quicksitebuilder.cnet.com/camiloalie/ElRinconDeWindows/id144.html

No te desanimes!!
Ya dijo Albert Einstein que la imaginacion era tan importante o más que el conocimiento.
Cuenta con mi modesta ayuda!!

Lo que quisieras hacer es algo bien dificil..
Pero primero se más explicito con tus ideas.
1) Una cosa es que no sepas como programar en algun lenguaje, por ejemplo VB.
2) Otra que tengas realmente un algoritmo de como funcionaria la inteligencia artificial.
Porque crear frases y respuestas programadas no seria ningun sistema inteligente. Pero bueno si lo que quieres es simular algo imaginariamente parecido. Puedes guardar los logs de muchas conversaciones de chat y luego usarlos en tu aplicacion como repertorio para la conversacion entre tu y la maquina. Crearias un mecanismo de busqueda para leer en los archivos y buscar dentro de las conversaciones grabadas las repuestas a las sentencias mas parecidas a lo formulado por ti; otra cosa bien distinta seria que tuvieran coherencia con el tema que irias desarrollando en la conversacion con tu sistema.
En fin, antes de escribir una sola linea de codigo en cualquier lenguaje debes tener ya el algoritmo de tu programa; como piensas que deberia funcionar.
Ahora bien si tienes tu algoritmo, entonces exponlo completamente. Llevarlo a VB o a cualquier otro lenguaje no es mas que una traducción para que la computadora le entienda y le de vida.

Vas a necesitar aparte de variables, bases de datos.

Tu hilo está relacionado con la inteligencia artificial.
Me hiciste recordar un programa llamado Dr.Abuse, y te lo puedes descargar de este link:
http://descargas.entrebits.com/d1/1900/1875/2218/drabuse.zip

He usando un Timer, un Picture y dos Button para este ejemplo.
Nota: No lo documento suficientemente porque no se podría redundar en una exposición tan magistral como la anterior.
Cualquier sugerencia que optimize este code es bienvenida.

Código [Seleccionar] Expandir

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hndw As Long) As Boolean

Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054

Private hWndCap As Long

Private Sub START_WEBCAM_Button1_Click()
    hWndCap = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 160, 120, Me.hwnd, 0)
    DoEvents
    SendMessage hWndCap, CONNECT, 0, 0
    Timer1.Enabled = True
End Sub

Private Sub STOP_WEBCAM_Button2_Click()
    DoEvents: SendMessage hWndCap, DISCONNECT, 0, 0
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    'Obtiene frames para Picture1
    SendMessage hWndCap, GET_FRAME, 0, 0
    SendMessage hWndCap, COPY, 0, 0
    Picture1.Picture = Clipboard.GetData
    Clipboard.Clear
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DestroyWindow hWndCap
End Sub

A los interesandos en este hilo:
Publiquen code para transmitir los frames capturados de una forma óptima aunque se tratase de conexiones de 56Kb 

Ya saben a que me refiero.. una aplicacion cliente-servidor.
Pero en particular me gustaria que postearan algunas teorias sobre como transmitir especificamente video de la webcam al cliente remoto, digamos que en tiempo real.

5v5: espero que este ejemplo te inspire..
Deposita un commandbutton y un control ImageList en tu ventana. Recuerda haberle establecido previamente al button su propiedad Style a 1 - graphical en tiempo de diseño. Luego cargale unas imagenes al control ImageList (para este ejemplo he usado 3), entonces pegale este

Código [Seleccionar] Expandir

Private Sub Command1_Click()

    Static Imagen As Integer
   
    Imagen = Imagen + 1
   
    If Imagen > 3 Then Imagen = 1
    Caption = "Imagen " & Imagen
   
    Command1.Picture = ImageList1.ListImages(Imagen).Picture
   
End Sub