• Domingo 22 de Diciembre de 2024, 06:26

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 - lavi

Páginas: [1]
1
C/C++ / TURBO C..
« en: Miércoles 19 de Noviembre de 2008, 14:24 »
Hola, estoy terminando una tarea, y el Turbo C me tira este error al compilar... "247: Too much data defined in file"... error del compilador¿? o de codigo? Saben como solucionarlo?

Gracias..
 :wacko:

2
C/C++ / Error en llamado de función..
« en: Lunes 17 de Noviembre de 2008, 20:18 »
Hola, estoy empezando con C y tengo errores, no me reconoce las funciones, trabajo con el TurboC 4.5, lo unico que hago es en un solo modulo, tengo el main; y fuera de él tengo 3 structs, y 3 arrays, y alli funciones de ingreso, modificacion y búsqueda; el problema surge cuando llamo desde dentro de unas funciones (todas las que están fuera del main) a otras;
por ejemplo tira error el llamar dentro de la funcion ingresarDoc, la funciòn existeDoc; tengo importado #include <stdio.h>
#include <conio.h>.... alguien puede mirar el cod. y decirme que parece es??   :wacko:

GRACIASS.

Código: Text
  1. void ingresarDoc(){
  2. int mCI;
  3. char mNombre1[31], mNombre2[31], mApellido1[31], mApellido2[31], mFechaNac [21], mSexo[10], mNacionalidad[20], mNroCredencial[20];
  4.     printf("Ingrese los datos del Docenten");
  5.     printf("CI:n");
  6.     scanf("%d", &mCI);
  7.     if (mCI == 0){
  8.         printf("No ha ingresado correctamente la CI del alumno");
  9.         printf("CI:n");
  10.         scanf("%d", &mCI);
  11.     }else{
  12.         printf("Primer nombre:n");
  13.         scanf("%s", &mNombre1);
  14.         printf("Segundo nombre:n");
  15.         scanf("%s", &mNombre2);
  16.         printf("Primer Apellido:n");
  17.         scanf("%s", &mApellido1);
  18.         printf("Segundo Apellido:n");
  19.         scanf("%s", &mApellido2);
  20.         printf("Fecha de Nacimiento:n");
  21.         scanf("%s", &mFechaNac);
  22.         printf("Sexo:n");
  23.         scanf("%s", &mSexo);
  24.         printf("Nacionalidadn");
  25.         scanf("%s", &mNacionalidad);
  26.         printf("Nro. Credencialn");
  27.         scanf("%s", &mNroCredencial);
  28.      }
  29.  
  30.      int existeDoc(){
  31.      int i=0;
  32.         for(i=0; i<=topeDoc; i++){
  33.             if (arrayDoc[i].CI == mCI){
  34.                 existeDoc=1;
  35.             }else{
  36.                 existeDoc=0;
  37.             }
  38.     }
  39.      if  (existeDoc() ==0){
  40.         ArrayDoc[topeDoc].CI = mCI;
  41.         ArrayDoc[topeDoc].nombre1 = mNombre1;
  42.         ArrayDoc[topeDoc].nombre2 = mNombre2;
  43.         ArrayDoc[topeDoc].apellido1 = mApellido1;
  44.         ArrayDoc[topeDoc].apellido2 = mApellido2;
  45.         ArrayDoc[topeDoc].fechaNac = mFechaNac;
  46.         ArrayDoc[topeDoc].sexo = mSexo;
  47.         ArrayDoc[topeDoc].nacionalidad = mNacionalidad;
  48.         ArrayDoc[topeDoc].nroCredencial = mNroCredencial;
  49.      }
  50. }
  51.  
  52.  
  53.  

3
C# / Comenzando con errores!
« en: Lunes 17 de Noviembre de 2008, 20:10 »
Hola, estoy empezando con C y tengo errores, no me reconoce las funciones, trabajo con el TurboC 4.5, lo unico que hago es en un solo modulo, tengo el main; y fuera de él tengo 3 structs, y 3 arrays, y alli funciones de ingreso, modificacion y búsqueda; el problema surge cuando llamo desde dentro de unas funciones (todas las que están fuera del main) a otras;
por ejemplo tira error el llamar dentro de la funcion ingresarDoc, la funciòn existeDoc; tengo importado #include <stdio.h>
#include <conio.h>.... alguien puede mirar el cod. y decirme que parece es?? &lt;_&lt;

GRACIASS.


Código: Text
  1. void ingresarDoc(){
  2. int mCI;
  3. char mNombre1[31], mNombre2[31], mApellido1[31], mApellido2[31], mFechaNac [21], mSexo[10], mNacionalidad[20], mNroCredencial[20];
  4.     printf("Ingrese los datos del Docenten");
  5.     printf("CI:n");
  6.     scanf("%d", &mCI);
  7.     if (mCI == 0){
  8.         printf("No ha ingresado correctamente la CI del alumno");
  9.         printf("CI:n");
  10.         scanf("%d", &mCI);
  11.     }else{
  12.         printf("Primer nombre:n");
  13.         scanf("%s", &mNombre1);
  14.         printf("Segundo nombre:n");
  15.         scanf("%s", &mNombre2);
  16.         printf("Primer Apellido:n");
  17.         scanf("%s", &mApellido1);
  18.         printf("Segundo Apellido:n");
  19.         scanf("%s", &mApellido2);
  20.         printf("Fecha de Nacimiento:n");
  21.         scanf("%s", &mFechaNac);
  22.         printf("Sexo:n");
  23.         scanf("%s", &mSexo);
  24.         printf("Nacionalidadn");
  25.         scanf("%s", &mNacionalidad);
  26.         printf("Nro. Credencialn");
  27.         scanf("%s", &mNroCredencial);
  28.      }
  29.  
  30.      int existeDoc(){
  31.      int i=0;
  32.         for(i=0; i<=topeDoc; i++){
  33.             if (arrayDoc[i].CI == mCI){
  34.                 existeDoc=1;
  35.             }else{
  36.                 existeDoc=0;
  37.             }
  38.     }
  39.      if  (existeDoc() ==0){
  40.         ArrayDoc[topeDoc].CI = mCI;
  41.         ArrayDoc[topeDoc].nombre1 = mNombre1;
  42.         ArrayDoc[topeDoc].nombre2 = mNombre2;
  43.         ArrayDoc[topeDoc].apellido1 = mApellido1;
  44.         ArrayDoc[topeDoc].apellido2 = mApellido2;
  45.         ArrayDoc[topeDoc].fechaNac = mFechaNac;
  46.         ArrayDoc[topeDoc].sexo = mSexo;
  47.         ArrayDoc[topeDoc].nacionalidad = mNacionalidad;
  48.         ArrayDoc[topeDoc].nroCredencial = mNroCredencial;
  49.      }
  50. }
  51.  
  52.  
  53.  

4
Visual Basic 6.0 e inferiores / ACCEDER a Base de DATOS desde OTRA PC
« en: Martes 19 de Agosto de 2008, 14:50 »
HOLA.. He buscado la forma de conectarme desde una alicaciòn de visual de una pc con wind xp a una base (con la que trabaja la misma apicacion duplicada) en otra pc que està en red punto a punto; pero siempre me tira ERROR AL ABRIR LA RUTA DE LA BASE???
Yo utilizo la path que para acceder a la base q esta en la otra pc con el nombre de la máquina en la red también.. esto es correcto? .. Ej: \PC2cProgramaBase.mdb

¿?

Espero puedan ayudarm pronto!!  :wacko:

gracias

lau :rolleyes:

5
ASP / Levantar A Un Web Server
« en: Miércoles 12 de Marzo de 2008, 00:31 »
Quiero conectar una bd .. q ya subi en sql al servidor.. con q lineas de cod. logro q el servidor abra dicha bd ? con estas...

Código: Text
  1. Dim cnn
  2. Dim str
  3. Dim rs
  4. Dim SQL
  5. DBName = &#34;driver={Microsoft Access Driver (*.mdb)};dbq=C:&#092;Inetpub&#092;wwwroot&#092;foros&#092;Foro.mdb&#34;
  6. Set cnn = Server.CreateObject(&#34;ADODB.Connection&#34;)
  7. cnn.Open DBName
  8. Set rs = CreateObject(&#34;ADODB.Recordset&#34;)
  9. rs.ActiveConnection = cnn
  10.  

espero puedan ayduarme

pd. en caso d q la base de datos este en sql y el server utilize mysql.. cual seria el driver?.. porq claramente el de access no lo sera?

gracias..

6
SQL Server / Crear Base
« en: Lunes 10 de Marzo de 2008, 12:42 »
Hola, necesito crear una bd en sql; y en realidad no sé x donde emepezar porq nunca lo hice antes (solo programo en vb)..alguien me puede decir a q web recurrir para un ejemplo o pasar alguno por el foro?? Es recomendable utilizar alguna herramienta o no?

Desde ya gracias.

lavi :)

7
ASP / Nueva En Asp
« en: Jueves 6 de Marzo de 2008, 14:36 »
Hola, soy nueva en esto de la prog. web... en realidad yo programo en vbasic pero ahora tengo que crear un foro para una web y la verdad NO SE POR DONDE EMPEZAR...
si alguien me recomienda alguna herramienta o alguna web.. o info. lo agradezco..

salu2

8
Visual Basic 6.0 e inferiores / Utilización Del Order By
« en: Martes 12 de Febrero de 2008, 00:50 »
Puedo utilizar el SELECT * FROM Tabla ORDER BY Nombre en medio de éste código...?? Me tira un semejate error... pero en realidad mi idea es levantar la tabla ordenada por apellidos... el abrirtabla alli sería un OpenRecordset que está en otro módulo...

espero PUEDAN AYUDARME.... GRACIAS..


Código: Text
  1. Public Function CargarTodos() As Collection
  2.     Set CargarTodos = New Collection
  3.     Set rs = mBASE.abrirtabla(&#34;Select * from Afiliado1 order by Apellido&#34;)
  4.       Do While Not rs.EOF
  5.         Set ficha = New cAfiliado1
  6.           'ficha.ID = rs!ID
  7.           ficha.Numero = rs!Numero
  8.           ficha.CI = rs!CI
  9.           ficha.Nombre = rs!Nombre
  10.           ficha.Apellido = rs!Apellido
  11.           ficha.Direccion = rs!Direccion
  12.           ficha.Telefono = rs!Telefono
  13.           ficha.FechaIng1 = rs!FechaIng1
  14.           ficha.FechaIng2 = rs!FechaIng2
  15.           ficha.FechaIng3 = rs!FechaIng3
  16.           ficha.FechaBaja1 = rs!FechaBaja1
  17.           ficha.FechaBaja2 = rs!FechaBaja2
  18.           ficha.FechaBaja3 = rs!FechaBaja3
  19.           ficha.IDCategoria = rs!IDCategoria
  20.           ficha.HABILITADO = rs!HABILITADO
  21.           CargarTodos.Add ficha
  22.         Set ficha = Nothing
  23.         rs.MoveNext
  24.     Loop
  25.  
  26.  

9
Visual Basic 6.0 e inferiores / Configurar Tamaño Hoja Printer
« en: Martes 8 de Enero de 2008, 14:56 »
holas! yo otra vez con el tema de impresión; ya logré solucionar los otros problemas pero me quedó en el tintero el hecho de acortar el tamaño de una hoja a un ancho de 25 cm y un alto de 10; cosa que con el PaperSize no pude resolver y usando:

 
Código: Text
  1. Printer.Height = 1010
  2.  Printer.Width = 2510
  3.  

tampoco funcionó .... espero ideas... gracias.

10
Visual Basic 6.0 e inferiores / Ordenar Una Coleccion
« en: Miércoles 19 de Diciembre de 2007, 13:31 »
Holas... a ver si alguien puede ayudarme.. tengo que pasar como parametro una coleccion y ordenar sus items por apellidos; y no puedo hacerlo desde la consulta sql con el sort sino con un algoritmo..  si alguien tiene algún código sobre esto se lo agradeceria...

gracias.

11
Visual Basic 6.0 e inferiores / Porq No Pasa De Un Registro Al Otro???
« en: Lunes 10 de Diciembre de 2007, 23:33 »
la idea es que genere un autonumérico mediante el programa...
trabajo en 3 capas para acceder a bd; presentación (forms), dominio (conecta presentación y persistencia) , persistencia (accede directamente a la bd);;; y miren el cód. q lo q no logro es que de un id 417 pase al 418 automaticamente...

presentación (frmingreso) luego de hacer el alta; insertaria el nuevo id en la caja de texto;

   txtId.TEXT = CLDAFILIADO1.NuevoID.ID

en dominio; busca la de persistencia para el nuevo id del afiliado

Public Function NuevoID() As cAfiliado2
    Set NuevoID = New cAfiliado2
    NuevoID.ID = clpAfiliado2.NuevoID.ID
End Function

en persistencia,,,, seria donde estaría el error... supongo MIREN EL COD!

Public Function NuevoID() As cAfiliado2
'Agrego un nuevo id a cada afiliiado que voy ingresando
    Set NuevoID = New cAfiliado2
    Set rs = mBASE.abrirsnapshot("Afiliado2")
    If Not rs.EOF And Not rs.BOF Then
        rs.MoveLast
        NuevoID.ID = Val(rs!ID) + 1
    Else
        NuevoID.ID = 1
    End If
End Function


NO SE; QUEDA TRABADO Y CON ESTE COD NO PASA DEL 417 AL 418 ...

DESDE YA GRACIAS.... :)

12
Visual Basic 6.0 e inferiores / No Mostrar Mensaje "imprimiendo"
« en: Miércoles 28 de Noviembre de 2007, 19:36 »
La idea es que cada vez q manda el form a imprimir con datos distitnos no muestre el mensaje "Imprimiendo..." que sale por defecto, porq si tengo 500 registros no querrán cerrarlo 500 veces;  :P ; espero ideas...

este es el cód; q manda a imprimir...

Private Sub frmGenerar_Click()
  Dim colrecibos As New Collection
  Set colrecibos = cldimpresos.CargarTodos
If colrecibos.Count <> 0 Then

  Dim CANT, J As Long
  CANT = Val(Text4.TEXT)
  X = 1
Do While X < CANT
    If X = CANT Then
        Exit Sub
        MsgBox "No existen recibos para imprimir"
    End If

For J = 1 To colrecibos.Count
If colrecibos.Item(J).IdCategoria = Val(Combo1.TEXT) Then
    Form.Mat1.Caption = colrecibos.Item(J).NumA1
    Form.Mat2.Caption = colrecibos.Item(J).NumA2
    Form.Mat3.Caption = colrecibos.Item(J).NumA3
    Form.TOTAL2.Caption = colrecibos.Item(J).total
    Form.IVA.Caption = 0
    Form.IMPORTETOTAL.Caption = colrecibos.Item(J).total
    Form.PrintForm
  'Printer.NewPage
    X = X + 1
    'MsgBox "1"
End If
Next
Loop
Else
    MsgBox "No existen recibos con esas propiedades para imprimir"
End If
End Sub

desde ya GRACIAS...

Lavi :)

13
Visual Basic 6.0 e inferiores / Imprimir En Hojas Fanfold
« en: Miércoles 14 de Noviembre de 2007, 20:24 »
He tratado de imprimir una determinada cantidad de datos (10 valores) en hojas fanfold. Mando a imprimir el formulario con las etiquetas y sus valores, esos van cambiando, y tengo q imprimir un conjunto de valores por hoja. El problema es que el recibo ya viene impreso en estas hojas yo solo tengo q ubicar las etiquetas en las coordenadas; pero en realidad no me funciona siempre se corren; conocen alguna forma de ubicar las medidas, o de hacer una equivalencia a centímetros en visual basic ??  digo, creo q sería la únca forma de realizarlo...
espero ideas...

gracias... ;)

14
Visual Basic 6.0 e inferiores / Cuando Ejecuto Se Cuelga Vb
« en: Viernes 2 de Noviembre de 2007, 19:00 »
Planteo una función, con bastantes bloques if, recorre dos colecciones y carga datos a la bd y a otra colección; no se, al ejecutar el programa y llamarla se cuelga visual, pero no me doy cuenta porq? No tira error, les pongo el cod. de la función, no sé si servirá de algo pero por lo menos quizas alguna idea de que puede ser,  ;), MUCHAS GRACIAS...

[/CODE]
Public Function RECIBOSXCATEGORIA(idcat As Integer, numeroinicial As Long, dia As Integer, mes As Integer, año As Integer) As Collection
Dim COLFAMILIAR As Collection
Dim COLTITULAR As Collection
Set COLFAMILIAR = clpAfiliado2.CargarTodos
Set COLTITULAR = clpAfiliado1.CargarTodos
Dim i, j, X As Long
For i = 1 To COLFAMILIAR.Count
    For j = 1 To COLTITULAR.Count
    If idcat = COLTITULAR.Item(j).IdCategoria And idcat = COLFAMILIAR.Item(i).IdCategoria Then
        X = 0
        If COLFAMILIAR.Item(i).ID = COLTITULAR.Item(j).ID Then
        Set clreciboCat1 = New cReciboCat1
            X = 1
            If X = 1 Then
                X = 2
                clreciboCat1.NombreFamiliar2 = COLFAMILIAR.Item(i).nombre
                End If
            ElseIf X = 2 Then
                X = 3
                clreciboCat1.NombreFamiliar2 = COLFAMILIAR.Item(i).nombre
                End If
            ElseIf X = 3 Then
                X = 4
                clreciboCat1.NombreFamiliar3 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 4 Then
                X = 5
                clreciboCat1.NombreFamiliar4 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 5 Then
                X = 6
                clreciboCat1.NombreFamiliar5 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 6 Then
                X = 7
                clreciboCat1.NombreFamiliar6 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 7 Then
                X = 8
                clreciboCat1.NombreFamiliar7 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 8 Then
                X = 9
                clreciboCat1.NombreFamiliar8 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 9 Then
                X = 10
                clreciboCat1.NombreFamiliar10 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 10 Then
                X = 11
                clreciboCat1.NombreFamiliar10 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 11 Then
                X = 11
                clreciboCat1.NombreFamiliar11 = COLFAMILIAR.Item(i).nombre
        Set CLCAT = CLDCAT.Cargarxid(COLFAMILIAR.Item(i).IdCategoria)
        clreciboCat1.ID = CLDCAT.NuevoID
        clreciboCat1.numeroinicial = numeroinicial
        clreciboCat1.Numero = cldrecibocat.Nuevonumero
        clreciboCat1.nombre = COLTITULAR.Item(j).nombre
        clreciboCat1.Valor = CLCAT.Valor
        clreciboCat1.Iva = CLCAT.Iva
        clreciboCat1.Total = CLCAT.Iva + CLCAT.Valor
        clreciboCat1.Categoria = CLCAT.nombre
        clreciboCat1.Direccion = COLTITULAR.Item(j).Direccion
        clreciboCat1.Telefono = COLTITULAR.Item(j).Telefono
        clreciboCat1.mes = mes
        clreciboCat1.año = año
        clreciboCat1.dia = dia
        clreciboCat1.IdCategoria = CLCAT.ID
        RECIBOSXCATEGORIA.Add clreciboCat1
        cldrecibocat.Alta (clreciboCat1)
        End If
        Set clrecibocat = Nothing
     Next
Next
End Function
[CODE]

15
Visual Basic 6.0 e inferiores / Error 91
« en: Lunes 29 de Octubre de 2007, 13:56 »
Tengo una aplicación con base de datos y al hacer el ejecutable y ponerlo en otra máquina me tira:  -Error  91 en tiempo de ejecución, la variable de tipo obj. y de bloque with no está establecida...-  Estoy segura q es por la bd, q no carga los registros al levantar el form; pero a qué se debe? como lo soluciono?

Desde ya gracias... ;)

16
Visual Basic 6.0 e inferiores / Control Tabstrip
« en: Viernes 12 de Octubre de 2007, 22:44 »
Tengo una consulta, como manejo un tabstrip si tendría que tener 3 solapas y en cada una de ellas en realidad lo q debo mostrar son solo unas etiquetas y unos botones, si o si lo debo hacer con matriz??

Desde ya muchas gracias,

Lavi ;)

17
Visual Basic 6.0 e inferiores / Re: Ahora El Printer
« en: Sábado 29 de Septiembre de 2007, 17:30 »
Hola; ya busqué en los foros pero me he mareado con todo lo q he leido y no llegué a mi solución; mi pregunta es simple, manejando las coordenadas del
obj printer:

printer.currentx = x
printer.currenty = y
printer.print "cadena"

me imprime lo q puse en esas coordenadas... pero... tengo que ubicar como 15 valores en distintas coordenadas y luego mandar.....
como LOGRO SIMPLEMENTE PASAR DE UNA LINEA A OTRA.. ?? y luego de tener todo ubicado en las distintas posiciones recién hacer printer.print e IMPRIMIR...

Gracias...
 ;)

18
Visual Basic 6.0 e inferiores / Ayuda Con Data Report
« en: Lunes 3 de Septiembre de 2007, 21:47 »
hola...
Levanto de una bd en data report y tengo un recibo q la empresa me dio con un diseño ya establecido ?? que hago ? se puede poner como imagen de fondo y completar los campos arriba ?
gracias

Páginas: [1]