Mensajes

De un control de cibercafe para un trabjo final que tengo que entregar y no tengo idea de como empezar.
osea cliente/servidor si alguien puede ayudarme se lo agradeceria infinitamente.
mi correo es mahiro_46@hotmail.com

si buscases un poco más en google, encontrarias bastantes programas capaces de hacer eso.

aqui te dejo un enlace
http://www.lawebdelprogramador.com/buscar/mostrar.php?apa1=6&apa2=16

Saludos

creo que no se entiende mi explicación, aqui les va un poco más de tallada:

lo unico que quiero cambiar es la parte de la función  ValorFuncion para que en lugar de tener el valor inicializado en "x+2", el usuario a partir de un TextBox ingrese el valor y esa función se remplace en el return
osea que el return quede algo así:

Return Convert.ToSingle(ValorGuardadoenTextBox)

el metodo completo que uso y no me causa problemas es este:

Código [Seleccionar] Expandir

Function ValorFuncion(ByVal X As Double) As Single
        Return Convert.ToSingle(X + 2)
    End Function



Private Sub ciFuncion_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles ciFuncion.Paint
        Dim t As Single
        Dim Xmin, Xmax As Single
        Dim Ymax, Ymin As Single
        ctXMin.Text = "-0.83"
        ctXMax.Text = "6.30"

        Xmin = Convert.ToSingle(ctXMin.Text)
        Xmax = Convert.ToSingle(ctXMax.Text)

        If (Xmin >= Xmax) Then
            MsgBox("X máx tiene que ser mayor que X mín")
            Exit Sub
        End If


        Ymin = ValorFuncion(Xmin)
        Ymax = ValorFuncion(Xmin)
        End If
    End Sub

estoy haciendo una pequeña aplicación sobre Visual Basic.net 2005 Express Edition (no es gran cosa porque mis conocimientos son casi nulos en .net) en la cual tomo un valor de un TextBox, valido el campo y ahora si regreso el resultado.

miren si lo hago de esta forma si funciona

Código [Seleccionar] Expandir


'los valores de X los definí desde un principio entonces
'el usuario solo ingresa los valores de su función a evaluar
Function ValorFuncion(ByVal X As Double) As Single
        Return Convert.ToSingle(x + 2)
End Function


pero así no es el caso, lo que quisiera hacer es que tome el valor del textbox lo valide y calcule el valor,  no tengo problemas hasta la validación cuando tengo problema es al asignarle el valor a la funcion

Código [Seleccionar] Expandir



Function ValorFuncion(ByVal X As Double) As Single
        Return Convert.ToSingle(ValReturn)
    End Function
'Aqui ValReturn es el valor que se me regresa una ves validada
'la función la cual se regresa como un string


Espero puedan ayudarme porque al ejecutar el código me devuelve este error

"La cadena de entrada no tiene el formato correcto"
y la verdad no sé como hacerle.



Gracias y saludos

[i = lpos + 2]

hay si funciona T.T

Celaya eres mi nuevo dios en Visual Basic...

gracias por el consejo

oye una pregunta

porque i = lpos + 2

no entiendo porque lo incrementas 2 veces

gracias por el consejo... pero lo he implementado de la siguiente forma (con un ciclo FOR) y funciona pero por ejemplo si tengo en el espacio 3 un salto de linea, en el espacio 5 otro y en el 7 otro, lo que hace mi programa es que se detiene en el espacio 3 e imprime como 20 veces que esta en el espacio 3 y asi para el 5 y 7

este es el codigo ayudenme porfavor

Código [Seleccionar] Expandir


Dim sText, sFnd
Dim lPos
Dim cont As Integer

    cont = 1
  'Texto en el cual se va a buscar, puede ser un cuadro de texto o cualquier String.
 
  sText = RichTextBox1.Text
  sFnd = vbCrLf 'Texto buscado.

  NumText = Len(RichTextBox1.Text)

  For i = 1 To NumText
   lPos = InStr(i, sText, sFnd)
  If lPos > 0 Then
    Call MsgBox("La cadena se encontró en la posición " & lPos, vbExclamation)
  Else
    Call MsgBox("No se encontró la cadena")
  End If
   'cont = cont + 1
Next i


[25]

Hola estoy haciendo un proyecto para la escuela el cual consiste en abrir un documento de texto contar los saltos de linea y cortar el documento ejemplo

#de lineas maximo por hoja = 25
# numero de lineas del documento = 100

Total de paginas generadas = 100/25 = 4

todo esto lo estoy manejando por medio de un richtextbox pero al momento de realizar la búsqueda no funciona mi código llevo toda la tarde y no encuentro solución podrían ayudarme

Código [Seleccionar] Expandir


Dim sText, sFnd
Dim lPos
Dim cont As Integer

  cont = 1
  sText = RichTextBox1.Text 
  sFnd = vbCrLf     'Texto buscado (salto de linea).

'pretendo ir avanzando por el texto para hacer una comparacion
'buscando el salto de linea
 
While Len(RichTextBox1.Text) > cont

lPos = InStr(1, sText, sFnd)
  If lPos > 0 Then    'Se encontró la cadena

    call MsgBox("La cadena se encontró en la posición " & lPos, vbExclamation)
' estos msgbox son temporales, después los sustituiré por la continuación del programa
  Else
    call MsgBox("No se encontró la cadena")
  End If
   cont = cont + 1
   Wend




el problema que tengo es que no puedo moverme entre todos los caracteres que hay en el richtexbox1 para buscar los saltos de linea

ojala puedan ayudarme

pregunta
¿funciona sobre un celeron M a 1.5GHZ?
768 mb ram y 64 en video

gracias por la ayuda...

ya lo implemente y quedo así

Expr = StrReverse(grd.TextMatrix(Fila, Columna))
  For k = 1 To Len(Expr)
     Car = Mid(Expr, k, 1)
     PilaList.AddItem Car
  Next k

hola tengo una pequeña duda...
tengo un listbox que se llama SalidaList entonces quiero sacar el contenido de ese listbox (el ultimo elemento del listbox) invertir su contenido y colocarlo caracter por caracter en otro listbox (PilaList)
he intentado hacer esto... pero no funciona

Código [Seleccionar] Expandir


Expr = StrReverse(Salidalist.List)
For k = 1 To Len(Expr)
     Car = Mid(Expr, k, 1)
     PilaList.List = Car
     PilaList.ListCount = PilaList.ListCount + 1  'para moverse a la siguiente localidad de pila
Next k



en pocas palabras si supongo que tengoen :
SalidaList
PRUEBA
quiero que en PilaList
A
B
E
U
R
P

... lo que tampoco puedo hacer es que lo escriba en la parte de arriba de la pila si por ejemplo tenemos $ guardado en la pila lo conserve

A
B
E
U
R
P
$

lo estoy intentando con un PilaList.ListCount - 1

podrían ayudarme para saber en que me estoy equivocando

[How to install PHP 5.x on Windows Server 2003 with IIS 6]

mira lo que encontre, espero te sirva
How to install PHP 5.x on Windows Server 2003 with IIS 6
http://www.peterguy.com/php/install_IIS6.html

bastante bueno el tutorial