• Sábado 15 de Marzo de 2025, 07:05

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - VeRaCrUzAnItO-10-

Páginas: 1 [2]
26
Delphi / Ayuda Con El Dblookupcombobox
« en: Miércoles 19 de Octubre de 2005, 15:36 »
Hola a todos.. tengo una duda... no se como usar el dblookupCombobox espero puedan ayudarme ..... de antemano gracias y espero me puedan responder para seguir con mi proyecto..gracias

27
Delphi / Delphi + Access
« en: Domingo 16 de Octubre de 2005, 08:22 »
Hola,

Una tremenda duda, estoy haciendo una aplicación en Delphi con una base de datos en access, el problema esta en que la forma de insertar los datos no es la misma que mysql y pues no tengo ni idea de como se hace; solo se que se le debe de poner algo como "datamodule.append;", pero no se que mas se haga.

Si alguien me pudiera recomendar alguna página con ejemplos o ponerme por aqui unas lineas de código se lo agradeceria mucho.

Por su atenció mil gracias!!!,saludos. :hola:

28
GNU/Linux / Configuración Cable Null Modem
« en: Domingo 20 de Marzo de 2005, 17:23 »
Hola,

Alguien sabe como se configura un cable null modem en linux?, les agradecere mucho su ayuda, saludos.

29
Java / Java + Mysql
« en: Jueves 13 de Enero de 2005, 15:18 »
Hola, soy algo nuevo en java + base de datos, y necesito hacer una conexiòn de mysql a java, ¿alguien sabe como se hace?, muchas gracias, saludos.

Ya tengo mysql, java, y el obdc

Por cierto si conocen de algun tutorial sobre

30
Visual C++ / Problemas Con El Editbox
« en: Lunes 6 de Diciembre de 2004, 04:08 »
Tengo un editbox del cual necesito leer el tamaño de los caracteres y me encuentre una letra, lo intente haciendo con el siguiente código el cual no me muestra errores, pero nunca aparece el MessageBox, tambien lo intente declarando una variable a la cual le asignaba "m_ecuacion.find" y se lo mandaba al MessageBox como "MessageBox("se encontro  :"+ m_ecuacion.find) pero tampoco se pudo. Si alguien me puede ayudar se los agradeceria infinitamente. Saludos y de antemano mil gracias.


[CODE]void CGraficadorDlg::OnOK()
{
   // TODO: Add extra validation here
   
   UpdateData(TRUE);
   if (m_ecuacion.IsEmpty ()== FALSE)
   {
      for (int k=0;k<m_ecuacion.GetLength();k++)
         {
         if (m_ecuacion.Find=='x')
         {
            MessageBox("se encontro x");
         }
         
      
   UpdateData(FALSE);
      }
    }


   
   CDialog::OnOK();
}

31
Visual C++ / Como Leo Caracter Por Caracter Desde Un Edit
« en: Jueves 21 de Octubre de 2004, 23:07 »
Hola,

Como se concatena o lee caracter por caracter desde un edit, se necesita un apuntador a Char no?


Saludos.

32
Visual Basic 6.0 e inferiores / Como Enlazo Vb Con Mysql
« en: Martes 3 de Agosto de 2004, 04:53 »
Hola,

Se que para enlazar VB y Mysql necesito el obdc mi duda es si este especial para VB, o es uno general, en la página de Mysql aparece uno pero no marca especificación para lenguaje en especial, además me han comentado que cada  lenguaje necesita si obdc especial. Si alguién sabe de donde bajarlo y como se enlaza ojala y me explique.

Es todo saludos desde su bello estado. B)

33
Visual C++ / Como Coloco Salto De Linea En Un Edit
« en: Viernes 2 de Julio de 2004, 19:37 »
Hola,

inserto un texto en un edit pero a este le quiero dar formato ya que me aparece todo en una sola linea, asi que le quiero colocar los saltos de lineas, se intento valindandolo con una condicion que si leai por ejemplo una palabra y esta acaba en ";" hiciera el salto de linea "10" en ascci.

ejemplo

lo que inseto aparece asi

ahshs; sjsjsjs,jhsajhs,ajaja;

y quiero que aparezca asi;

ahshs;
sjsjsjs,jhsajhs,ajaja;

que respete la condicion del ";"

34
Delphi / Como Le Cambio Los Atributos A Una Carpeta
« en: Miércoles 30 de Junio de 2004, 04:16 »
quiero cambiarle los atributos a una carpeta , quitarle el atributo de solo lectura; para poder copiar una base de datos en mysql, ¿alguien sabe como?

35
Visual C++ / Como Insetar Un Dialgo De Abrir Archivo
« en: Viernes 11 de Junio de 2004, 19:39 »
cual es el boton para jalar un archivo txt e insertarlo en un textbox.

36
C/C++ / Ligador En C
« en: Jueves 10 de Junio de 2004, 15:24 »
Hola,

Mi duda es respecto a saber donde puedo encontrar ayuda o un codigo de referencia para hacer un "ligador" en C.Saludos.

37
C/C++ / Cargadores Y Ligadores
« en: Jueves 27 de Mayo de 2004, 02:51 »
Hola, alguien me podria ayudar para bajar o coseguir el codigo de un cargador estatico  y un ligador .

Gracias, saludos.

38
Visual Basic 6.0 e inferiores / Llenar 128 Textbox
« en: Sábado 17 de Abril de 2004, 21:24 »
Tienen 128 cajas de texto, la cuales las tienen que llenar conforme entren datos, estos datos son númericos y alfabeticos, cada caja de texto vale 512 asi que multiplicadas por 128 es 65536 , asi que si entran un dato que valga  1489 este se debe dividir entre los 65536 para que asi llene la cajas que les correspondan con el nombre del archivo(textNom),que son 44.013, si e vuelve a ingresar otro dato este debe de empezar en lugar 45 y asi ahta llenar las 128 cajas de texto.

Yo lo que hice primero fue con un
            'textTam es la caja de texto donde tomo el numero, valor son los 65536
            cargagado=textTam/valor
            for i=0 to cargado
                 text(i%)=textNom 'lee  leido
            next i%
Pero solo me llena uno.
Como le puedo hacer para que solo me llene dato enteros.

Les pongo mi codigo

Código: Text
  1. Dim Entrada As Integer
  2. Dim Kb As Double
  3. Dim resp As Double
  4. Dim kbResp As Integer
  5. Dim aux As String
  6. Dim cargados As Byte
  7. Private Sub cdmSalir_Click()
  8. End
  9. End Sub
  10.  
  11.  
  12. Private Sub cmdAgregar_Click()
  13. 'llena los elementos con datos de entrada en las lista
  14. Nombres.AddItem txtNom.Text & &#34; - &#34; & txtTam.Text
  15. 'AQUI LLENA A LOS CUADROS DE TEXTO
  16. cargados = total / txtTam
  17. For i% = 0 To cargados
  18.     Text1(i%) = txtNom
  19.     Next i%
  20. 'el contardor de datos de entrada
  21. Entrada = Entrada + 1
  22. txtEntrada = Entrada
  23. 'si entrada llega a su limite de elementos que se pueden agregar el botón se anula
  24. If Entrada = 128 Then
  25.    cmdAgregar.Enabled = False
  26.    End If
  27. 'si al descargas la entrada se vuelve negativo el textbox se anula
  28. If txtEntrada = -1 Then
  29.    txtEntrada.Enabled = False
  30.    End If
  31. 'si se ingresa de golpe los 655536+1 este nos marca que el espacio se ha sobrepasado
  32. If txtTam.Text = 65537 Then
  33.    cmdAgregar.Enabled = False
  34.    mensaje = MsgBox(&#34;Limite de Tamaño Pasado&#34;, vbApplicationModal)
  35.    End If
  36. 'hacemos la suma de los kb cargados al ingresar los datos
  37. Kb = Kb + txtTam
  38. lblkb.Caption = Kb
  39. 'restamos los 65530 que es la multiplicación de 128*512 los kb ingresados para saber el espacio disponible
  40. resp = resp - Kb
  41. txtEspacio = resp
  42. 'marca si el tamaño se ha sobrepasado;nota no elimina el elmento que sobrepaso el limite
  43. If resp &#60;= 0 Then
  44.    cmdAgregar.Enabled = False
  45.    mensaje = MsgBox(&#34;Limite de Tamaño Pasado&#34;, vbApplicationModal)
  46.  End If
  47.  
  48.  
  49. End Sub
  50.  
  51.  
  52. Private Sub cmdCargar_Click()
  53. Do While descarga.ListIndex &#62;= 0
  54.    'se colocan antes de eliminar en un auxiliar los elementos de descarga
  55.    auxi = descarga.List(descarga.ListIndex)
  56.    'se eliminan los elementos de descargas, pero ya antes estos se guardaron en un auxiliar
  57.    descarga.RemoveItem descarga.ListIndex
  58.    'vuelve a llenar los textbox con la información supuestamente eliminada
  59.    For i% = 0 To 127
  60.        Text1(i%) = auxi
  61.     Next i%
  62.    'se llena &#34;nombres&#34; con los elementos auxiliares cuando estos se quieren volver a cargar
  63.    Nombres.AddItem auxi
  64.    Loop
  65. 'al hacer la carga vuelve a aumentar el crgador
  66. Entrada = Entrada + 1
  67. txtEntrada = Entrada
  68. 'si entrada llega al mámixo de elementos el botón de agregar se anula
  69. If Entrada = 128 Then
  70.    cmdAgregar.Enabled = False
  71.    End If
  72.    
  73.  
  74.  
  75. End Sub
  76.  
  77. Private Sub cmdDescarga_Click()
  78. 'elimina los elementos de carga para enviarlos a descargas
  79. Do While Nombres.ListIndex &#62;= 0
  80.     aux = Nombres.List(Nombres.ListIndex)
  81.     Nombres.RemoveItem Nombres.ListIndex
  82.     'llena los textbox con espacios en blanco al eliminar
  83.     For i% = 0 To 127
  84.          Text1(i%) = &#34; &#34;
  85.         Next i%
  86.     descarga.AddItem aux
  87.     'resta los elementos cuando estos se descargab
  88.     Entrada = Entrada - 1
  89.     txtEntrada = Entrada
  90.     'borra las etiquetas de kb
  91.     Label5.Visible = False
  92.     lblkb.Visible = False
  93. Loop
  94.  
  95.  
  96. End Sub
  97. Private Sub Form_Load()
  98. resp = 65536#
  99. total = 128
  100. End Sub
  101.  
  102. Private Sub txtNom_KeyPress(KeyAscii As Integer)
  103. 'valida para solo admitir letras
  104. cadena = &#34;ZXCVBNMASDFGHJKLÑPOIUYTREWQzxcvbnmñlkjhgfdaqwertyuiop.&#34; + Chr(8) 'chr(8) = delete, es decir admitimos borrar
  105. If InStr(cadena, Chr(KeyAscii)) = 0 Then
  106.     KeyAscii = 0
  107. If Not InStr(cadena, Chr(keyAcii)) Then
  108.     mensaje = MsgBox(&#34;Solo Caracteres Alfabeticos&#34;, vbApplicationModal)
  109. End If
  110. End If
  111.  
  112.  
  113. End Sub
  114.  
  115. Private Sub txtTam_KeyPress(KeyAscii As Integer)
  116.    'valida el textbox de txtTam para solo admitir dato numéricos
  117.   If Not IsNumeric(Chr(KeyAscii)) Then
  118.   mensaje = MsgBox(&#34;Solo Datos Numéricos&#34;, vbApplicationModal)
  119.   KeyAscii = 0
  120.   End If
  121. End Sub
  122.  
  123.      
  124.  

39
Visual Basic 6.0 e inferiores / Validar Textbox Solo Pala Letras
« en: Miércoles 14 de Abril de 2004, 18:49 »
con que funcion valido un textbox para que solo admita letras?

40
Visual Basic 6.0 e inferiores / Colores De Texto O Cajas De Texto
« en: Martes 13 de Abril de 2004, 01:57 »
:unsure:

Hola;

Gracias por la pasada informacion para enlazar formularios.

 Mi pregunta ahora es: tengo que jalar desde un textbox un palabra, esta mandarla a un list, de un list pasarla a otra caja de texto, pero el problema esta que por cada palabra debo de generar un color que la diferencie , por ejemplo si capturo 1 palabra este debera de mandarla en azul a un list y en azul al textbox, si capturo otra palabra esta debera de ser de diferente color, espero explicarme por que ni yo le entiendo muy bien.

Por su ayuda mil gracias!!!!.

41
Visual Basic 6.0 e inferiores / Enlazar Dos Formularios
« en: Miércoles 7 de Abril de 2004, 23:10 »
Como enlazo dos fomularios? :huh:

42
Visual FoxPro / Manual Fox Pro
« en: Miércoles 7 de Abril de 2004, 00:54 »
Hola,

Alguièn sabe de algùn buen manual para alguièn que se esta iniciando en fox Pro?o algùn libro que recomienden, ojala sea de alguna libreria que este en D.F. por que ando perdido por estos lugares.

43
Delphi / Manejo De Archivos
« en: Domingo 28 de Marzo de 2004, 16:16 »
Hola,

soy nuevo en delphi, mas que nada en su ambiente , pues en pascal se programar. Mi duda es, si el manejo de archivos en delphi es igual que en pascal, pues en pascal tenemos recorridos secuencial y directo , se ocupan palabras reservadas como "file","seek","reset","rewrite","eof", ¿estas son las mismas que en delphi?.

Si alguien conoce de un manual para archivos en delphi ojala y me pueda ayudar.

Muchas gracias de antemano.


¡¡ :lol:  :D Por fin gano el Veracruz :lol: :D  !!!

44
Visual Basic 6.0 e inferiores / Una Lista Dentro De Un Textbox
« en: Jueves 25 de Marzo de 2004, 15:38 »
Hola,

Todos se habran dado cuenta que cuando se programa en Basic y ponemos una palabra reservada como "Currentx","string","enable", cualquier palabra de esta, nos aparece una lista con los valores de los parametros que puede tomar, yo quisiera saber con que funcion al escribir texto esta me devuleve la posicion del puntero para poder aparecer una lista ahi.Algo que simule los mismo de Basic.

Pues muchas gracias!!!.

Pa' las vacaciones yo invito las chelas :lol:  y al Climax :kicking:  si los Tiburones Ganan!! :D


za,za,za...yacuza...yacuza..mesa,mesa,mesa que mas aplauda le mando le mando a la niña!.

45
Visual Basic 6.0 e inferiores / Fin De La Linea
« en: Lunes 22 de Marzo de 2004, 00:38 »
Cual es la marca para saber el fin de linea y de archivo de un texto, por ejemplo en Pascal el fin de linea es  <eoln> y el fin de archivo es <eof> , ¿en visual basic existen estas funciones? ;)

Es que nesesito hacer un contador de palabras en visual, este programa lo tengo en pascal y no he encontrado esta funcion en visual basic.

Tambien en pascal los tipo de datos "char" indican solo un caracter, en visual basic este corresponde a "byte"?

Sale gracias!.

46
Visual Basic 6.0 e inferiores / ¿readkey?
« en: Jueves 18 de Marzo de 2004, 04:23 »
Solo esa pregunta, ¿existe alguna funcion similar en visual Basic que sea como el "readkey" es pascal?

47
Visual Basic 6.0 e inferiores / Cuadros De Texto
« en: Martes 16 de Marzo de 2004, 06:18 »
Soy nuevo en esto de basic, tengo un programa el cual debe de guardar los datos puestos en cuadros de texto en arrays, miren declaro en un modulo mis array

Option Base 1
public memoria(4,4) As Variant
sub main
form1.show

despues pongon mis botones que por todos son 12 cuadros de texto, estos guardan la infomacion,se supone asi:

   crg 3 A
   crg 2 B
   sum A B
   fin

Los lee de lso cuadro de texto, despues declaro una boton que es aceptar, este lleva un código asi:
      text1.text=memoria(1,1)
      text2.text=memoria(1,2)
y asi etc..etc...

Mi duda es por que me marca erros en la etiqueta "text", no se si el array deba de ser del mismo tipo que los cuadros de texto o que se le pone para que los guarde en una matria.

De antemano mil gracias!!!.

48
Pascal / Error : Constant And Case Types Do Not Match
« en: Martes 2 de Marzo de 2004, 03:36 »
Hola, aqui pidiendo su ayuda despues de en verdad namas no saber que hacer, este es un programa de archivos el cual en la funcion de "Modificar" me manda el error "Constant and CASE types do not match"

aqui les envio el pedazo de código haber si me pueden prestar su ayuda.
De antemano mil gracias.

[/CODE]
        2:Begin
              clrscr;
              writeln ('Nombre del Archivo');
              readln (nomArch);
              writeln ('Numero de Departamento');
              readln (ndepa);
              writeln ('Desea Modificar **a-Duracion** **b-Renta** **c-Incremento');
              readln (opcMov);
              case opcMov of
              'a':begin
                    clrscr;
                    writeln ('Nueva Duracion');
                    readln (durCont);
                    end;
              'b':Begin
                    clrscr;
                    writeln ('Nueva Renta');
                    readln (renta);
                    end;
              'c':Begin
                    clrscr;
                    writeln ('Nuevo Incremento');
                    readln (incAnual);
                    end;
                    modificar(nomArch,ndepa,opcMov,durCont,renta,incAnual);
                    readkey;
              end;

Eso aparece en .pas, en el código principal y el unidad el tpu  la tengo declarada asi:
[CODE]function modificar(nomArch:str50;ndepa:integer;opcMov:char;durCont:integer;renta:real;incAnual:real):boolean;
       var
         f:file of depto;
         d:depto;
         aux:real;
         begin
             modificar:=false;
             assign(f,nomArch);
             reset(f);
             while not (eof(f)) do
             begin
                 read(f,d);
                 if ndepa=d.ndep then
                 begin
                     modificar:=true;
                     writeln ('Datos de Departamento Modificado');
                     case opcMov of
                     'a':begin
                           seek(f,filepos(f)-1);
                           d.dur:=durCont;
                           write(f,d);
                           end;
                     'b':begin
                           seek(f,filepos(f)-1);
                           d.rent:=renta;
                           write(f,d);
                           end;
                     'c':begin
                           seek(f,filepos(f)-1);
                           d.inc:=incAnual;
                           write(f,d);
                           end;
                     end;
                 end;
             close(f);
         end;
         end;

Y pa que no digan que no hay abundancia, tambien por ahi les anezo el .pas y .tpu

Páginas: 1 [2]