|
|
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.
Mensajes - VeRaCrUzAnItO-10-
76
« en: Martes 13 de Abril de 2004, 18:49 »
Gracias ahora mismo lo pruebo, me diste una idea. 
77
« en: Martes 13 de Abril de 2004, 01:57 »
 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!!!!.
78
« en: Miércoles 7 de Abril de 2004, 23:10 »
Como enlazo dos fomularios? 
79
« 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.
80
« 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. ¡¡   Por fin gano el Veracruz !!!
81
« 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 y al Climax  si los Tiburones Ganan!! za,za,za...yacuza...yacuza..mesa,mesa,mesa que mas aplauda le mando le mando a la niña!.
82
« en: Lunes 22 de Marzo de 2004, 18:21 »
Gracias Zeekel, entonces por ejemplo yo que necesito hacer un contador de palabras, mi algoritmo pordria ser asi: f:txtCont.text ' es el textbox en blanco' aux ' variable de tipo char que si no me equivoco es basic es byte cont=0 'el que lleva la cuenta de las palabras pal=" " 'la cadena es la que voy almacenado las palabas [CODE]do while (aux<>" ") and (not Vbcrlf(f)) and (not eof(f) pal=pal+aux ' me guarda la pabra en la variable cont=cont+1 ' aumenta contador loop Bueno mejor lo pruebo asi  Graias!.
83
« 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!.
84
« en: Viernes 19 de Marzo de 2004, 17:01 »
 Grcias por los tips!! bueno de la web del programador algo me habian comentado pero se me olvido la pàgina y muchas gracias por el liny; y con el MSDN el problema es que la maquinas de la facultad no tienen instalado  , pero de todos modos muchas gracias!!. ....Yo naci con la luna de plata...
85
« en: Jueves 18 de Marzo de 2004, 16:15 »
El "readkey" en pascal solo es cuando por ejemplo pones algun mensaje como "identificador no valido, cualquier tecla pla continuar" ,el redkay lee cualquier tecla y te saca de la opcion, es como un continuar. Bueno espero explicarme, por que definicion clara del readkey que te pueda dar no tengo. Y bueno aprovechando,¿ no sabes o saben de alguna página que tenga ejercicios o ejemplos del manejo de arreglos,etiquetas,combobox,textbox básicos?
86
« 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?
87
« 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!!!.
88
« 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
|
|
|
Mostrar Mensajes
