• Martes 13 de Mayo de 2025, 17:24

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.


Mensajes - althenna

Páginas: 1 [2] 3
26
Delphi / Re: floating ... overfloat
« en: Sábado 5 de Noviembre de 2005, 05:02 »
perdon por el doble post


ya encontre el error y ya esta corregido, no cambie a float ni xl ni xu y la formila como habia dicho estaba incorrecta.. puff ya respiro jaajaja muchas gracias y disculpen las molestias de nuevo es que de plano no pierdo la cabeza por que esta en mis hombros (mas bien cuello pero asi es el dicho)

Código: Text
  1. rocedure TForm1.Button2Click(Sender: TObject);
  2. var
  3. XL,XU,XR,FXL,FXU,FXR,producto,error,Eros,m1,m2:double;
  4. n1,n2,n3,n4,n5,n6,n7:double;
  5. begin
  6.   xl:=strtofloat(int1.Text);
  7.   xu:=strtofloat(int2.text);
  8.   eros:= strtofloat(edit1.Text);
  9.   Error:=100;
  10.  
  11.    {ahora sacamos n1=orden0,n2=orden1,n3=orden2,n4=orden3,n5=orden4,n6=orden5 y n7=orden6}
  12.     n1:=strtofloat(edit8.Text); n2:=strtofloat(edit7.Text); n3:=strtofloat(edit6.Text);
  13.     n4:=strtofloat(edit5.Text); n5:=strtofloat(edit4.Text); n6:=strtofloat(edit3.Text);
  14.     n7:=strtofloat(edit2.Text);
  15.  
  16.     while (error>eros) do
  17.        begin
  18.            FXL:= (N1*XL)+(N2*XL)+(N3*XL)+(N4*XL)+(N5*XL)+(N6*XL)+(N7*XL);
  19.            FXU:= (N1*XU)+(N2*XU)+(N3*XU)+(N4*XU)+(N5*XU)+(N6*XU)+(N7*XL);  {PRIMER PASO}
  20.            m1:=  fxl*fxu;
  21.  
  22.            XR:=(XL+XU)/2; {PASO 2}
  23.  
  24.            FXR:= (N1*XR)+(N2*XR)+(N3*XR)+(N4*XR)+(N5*XR)+(N6*XR)+(N7*XR);
  25.            m2:= FXL*FXR;
  26.               if  m2<0 then
  27.                  begin  {inciso a}
  28.                     xu:=xr;
  29.                     FXU:=FXR&#59;
  30.                  end
  31.                else
  32.                   begin   {inciso b}
  33.                     xl:=xr;
  34.                     FXL:= FXR;
  35.                   end;
  36.  
  37.                 error:= ((xu-xl)/xu)*100;
  38.                 floattostr(error);
  39.                 error:= Abs(error);
  40.  
  41.        end;//while
  42.          label12.Caption:='MARGEN DE ERROR ES '+floattostr(error);
  43. end;//proceso
  44.  

27
Delphi / Re: floating ... overfloat
« en: Viernes 4 de Noviembre de 2005, 22:43 »
indefinido? como es eso podrias explicarme

Citar
XR:=(XL*XU)/2; {PASO 2}


por cierto creo que es

 XR:=(XL+XU)/2;

28
ASM (Ensamblador) / Re: Problemas Usando Interrupciones
« en: Viernes 4 de Noviembre de 2005, 19:22 »
ok lo probare en casa  :rolleyes:  gracias  :D

29
ASM (Ensamblador) / Re: Problemas Usando Interrupciones
« en: Viernes 4 de Noviembre de 2005, 18:47 »
hay pero no doy ni una, ya me di cuenta ok

bueno, el codigo sirve para que por medio de una inerrupcion entre un dato y lo guarde en la variable namefld, bueno, en lugar de meter el dato a la variable se podria enviar a un registro?

30
ASM (Ensamblador) / Re: Problemas Usando Interrupciones
« en: Viernes 4 de Noviembre de 2005, 18:31 »
es un archivo .exe

la variable es (bueno no tan variable)

Citar
NAMEFLD DB 20 DUP (' ')

el codigo es este
Citar
MOV AH,0AH
LEA DX,MAXLEN
INT 21H
MOV AH,4CH
INT 21H

pero necesito hacerlo solo con interrupciones... lei algunas (interrupciones)pero ninguna se acerca a lo que quiero hacer

mover el dato que entra a namefld colocarlo en un registro para hacer una operacion con el

gracias

31
ASM (Ensamblador) / Problemas Usando Interrupciones
« en: Viernes 4 de Noviembre de 2005, 17:18 »
una variable y dejarlo en un registro

32
Delphi / floating ... overfloat
« en: Domingo 30 de Octubre de 2005, 20:29 »
se que el codigo esta de lo mas simple pero es en base de un algoritmo matematico por lo cual lo debo de dejar asi, mi problema es cierto error el la linea donde se calcula el m2 (cuyo resultado lo necesito para tomar una decision), declare las variables como tipo double y use el strtofloat para tomar los datos

Código: Text
  1.  
  2. procedure TForm1.Button2Click(Sender: TObject);
  3. var
  4. XL,XU,XR,FXL,FXU,FXR,producto,error,Eros,m1,m2:double;
  5. n1,n2,n3,n4,n5,n6,n7:double;
  6. begin
  7.   xl:=strtoint(int1.Text);
  8.   xu:=strtoint(int2.text);
  9.   eros:= strtoint(edit1.Text);
  10.   Error:=100;
  11.  
  12.    {ahora sacamos n1=orden0,n2=orden1,n3=orden2,n4=orden3,n5=orden4,n6=orden5 y n7=orden6}
  13.     n1:=strtofloat(edit8.Text); n2:=strtofloat(edit7.Text); n3:=strtofloat(edit6.Text);
  14.     n4:=strtofloat(edit5.Text); n5:=strtofloat(edit4.Text); n6:=strtofloat(edit3.Text);
  15.     n7:=strtofloat(edit2.Text);
  16.  
  17.     while (error>eros) do
  18.        begin
  19.            FXL:= (N1*XL)+(N2*XL)+(N3*XL)+(N4*XL)+(N5*XL)+(N6*XL)+(N7*XL);
  20.            FXU:= (N1*XU)+(N2*XU)+(N3*XU)+(N4*XU)+(N5*XU)+(N6*XU)+(N7*XL);  {PRIMER PASO}
  21.            m1:=  fxl*fxu;
  22.  
  23.            XR:=(XL*XU)/2; {PASO 2}
  24.  
  25.            FXR:= (N1*XR)+(N2*XR)+(N3*XR)+(N4*XR)+(N5*XR)+(N6*XR)+(N7*XR);
  26.  
  27.  
  28.            // **********ERROR EN ESTA LINEA**********
  29.  
  30.  
  31.             m2:= FXL*FXR;
  32.               if  m2<0 then
  33.                  begin  {inciso a}
  34.                     xu:=xr;
  35.                     FXU:=FXR;
  36.                  end
  37.                else
  38.                   begin   {inciso b}
  39.                     xl:=xr;
  40.                     FXL:= FXR;
  41.                   end;
  42.  
  43.                 error:= ((xu-xl)/xu)*100;
  44.                 floattostr(error);
  45.                 error:= Abs(error);
  46.  
  47.        end;//while
  48.          label12.Caption:='MARGEN DE ERROR ES '+floattostr(error);
  49. end;//proceso
  50.  
  51.  

Editado:
Agregué un distinctivo a la linea donde está el error.
Citar
// **********ERROR EN ESTA LINEA**********

33
Delphi / Re: Ayuda Con Los Arrays
« en: Sábado 29 de Octubre de 2005, 01:02 »
ah ok gracias

34
Delphi / Re: Delphi 2005
« en: Sábado 29 de Octubre de 2005, 01:01 »
ok gracias ahora a robarle tiempo al tiempo  :P

35
Delphi / Delphi 2005
« en: Sábado 22 de Octubre de 2005, 01:17 »
yo se yo se, que AUN NO DOMINO PARA NADA delphi 7 pero necesito trabajar con delphi 2005 para un proyecto de antemano gracias por su atencion y disculpen las molestias

36
Delphi / Re: Ayuda Con Los Arrays
« en: Jueves 20 de Octubre de 2005, 19:24 »
Citar
clase TStringList.

estoy usando delphi 7 y no me da esa opcion

37
Delphi / Re: Ayuda Con Los Arrays
« en: Jueves 20 de Octubre de 2005, 17:36 »
Cita de: "Amilius"

Si estás analizando un texto, sería bueno que uses un componente Tmemo y su propiedad lines, instancia de la clase TStringList. Puedes acceder a los elementos de una cadena como si fuera una matriz que comienza en 1.
ok lo intentare, lo que pasa es que el algoritmo nos lo dieron y asi venia, pero como yo no entre no me quedo muy claro que digamos, intentare lo que sugieres pero aun no decido si usar un arreglo o un listbox para poner las palabras que son permitidas, es decir las palabras correctas(permitidas) en el lexico

gracias

Edit, oye estoy usando un richedit, cual  es mejor de usar el richedit o el tmemo :unsure: , lo que pasa es que este editor de texto lo habia hecho el año pasado y lo estoy continuando, pero no recuerdo por que use un richedit mejor que el tmemo... :whistling:

38
Delphi / Re: Ayuda Con Los Arrays
« en: Jueves 20 de Octubre de 2005, 02:15 »
aahhh ok lo que pasa es que me confundi un poco. como los usaba en c++ creo que son algo semejantes no??

bueno paso el algoritmo del analisis lexico, creo que se usan 2 arrays

Código: Text
  1.  
  2. Do linea-1
  3.  
  4.      posicion:=0;
  5.      Estado:=0;
  6.  
  7.      matriz[posicion],[estado]
  8.       do
  9.        caracter_actual:=listbox[i];
  10.        posicion:=tabsim[i];
  11.        estado:=matris[posicion],[estado];
  12.        lexema:=lexema+caracter;
  13.  
  14.        While (estado<50)
  15.            begin
  16.              token[k]:= estado;  
  17.            end;
  18.       While (not fa)
  19. //  hay que regresarse al token para que no se repita el caracter
  20.  
  21.  

39
Delphi / Ayuda Con Los Arrays
« en: Martes 18 de Octubre de 2005, 21:29 »
de nuevo yo (ya me habia tardado)

bueno lo que pasa es que estoy haciendo un corrector lexico pero necesito usar un arra, pero no se como digamos meter bien la informacion al array para que se busque la palabra ahi...

bueno a lo que voy es...
como se usan los arrays y su sintaxis
por fa

gracias de antemano y disculpen mis preguntas tan malas

40
Delphi / Tengo Un Problema Con Mi Codigo
« en: Domingo 29 de Mayo de 2005, 22:06 »
resultado....

no se por que...

Código: Text
  1.  
  2. procedure THomogeneas.Button1Click(Sender: TObject);
  3. var
  4. f1 :string;
  5.  
  6. begin
  7. p:=1;
  8. Y1:=strtofloat(edit1.Text);
  9. Y2:=strtofloat(edit2.Text);
  10. Y3:=strtofloat(edit3.Text);
  11. Y4:=strtofloat(edit4.Text);
  12. Y5:=strtofloat(edit5.Text);
  13. Y6:=strtofloat(edit6.Text);
  14. Y7:=strtofloat(edit7.Text);
  15.  
  16.  
  17.  
  18.   While not(r6 =0) do
  19.      Begin
  20.        p:=p+1;
  21.          r0:=Y1;
  22.  
  23.         r1:=(p*r0)+y2;
  24.         r2:=(p*r1)+y3;
  25.         r3:=(p*r2)+y4;
  26.         r4:=(p*r3)+y5;
  27.         r5:=(p*r4)+y6;
  28.         r6:=(p*r5)+y7;
  29.  
  30.        if (p=11) then
  31.           Begin
  32.             p:= p-22;
  33.           End;
  34.  
  35.   End; //hile
  36.  
  37. edit8.Text:= floattostr(result);
  38. res.Caption:=floattostr(p);
  39.  
  40.  
  41. end; //botton
  42.  
  43.  

41
Delphi / Re: Uso De Sonido
« en: Miércoles 18 de Mayo de 2005, 04:38 »
ME DOY UN  TIRO!!! BUAA NO PUEDO BAJARLO!!! :(\

editado

olvidenlo las compu de la escuela son las culpables ya baje el archivo en un cyber *lo que hace la desesperacion*

42
Delphi / Re: Uso De Sonido
« en: Martes 17 de Mayo de 2005, 18:27 »
mmm tengo algunos problemas con el codigo...

por ejemplo

TPlayList = class *sale un error... que no eds class sino otra propiedad... pero no se cual, busque en ayuda pero no salio nada... ni siquyiera un ejemplo

constructor Create; *algo que tiene que ver con ccreate

procedure LoadFromFile;  *no recuerdo que me decia


otra pregunta
Inc(index) mueve el index adelante... pero y si lon quiero mover para atras??

ahh si en

AssignFile(f, 'playlist.txt');

puse
AssignFile(f, 'c:\playlist.txt'); *la f que significa??
gracias y perdon en serio creo que doy mucha lata

43
Delphi / Re: Uso De Sonido
« en: Martes 10 de Mayo de 2005, 19:04 »
mmm... hace mucho (o tal vez nunca) use los vectores... pero generalmente lo hacia en c++ no recuerdo bien podrias darme un ejemplo

44
Delphi / Re: Uso De Sonido
« en: Jueves 28 de Abril de 2005, 16:56 »
^^ eso me sirvio... pero en si no es lo que busco.... ya que quiero que sea automatico el cambio de archivo wav...  la propiedad "mediaplayer.next " diganme como puedo usarla para que funcione como deberia... ya que creo que este seria el que me  seviria :hola:

gracias gran enko  :smartass:

45
Delphi / Animacion
« en: Viernes 15 de Abril de 2005, 22:41 »
como dice el topic... intente hacerlo llamandolo como una imagen comun pero no acepta el formato... como quiero agregar animaciones sencillas y hechas por mi.. quiero hacerlo usando gifs animados (ya que estoy mas acostumbrada y ni eh tocado el flash)

graciaz

46
Delphi / Re: Uso De Sonido
« en: Jueves 14 de Abril de 2005, 17:15 »
primero que nada disculpen el doble post

bueno ya pude arreglar aquel inconveniente... (gracias a ti enzo por que estaba en otro post tuyo)

pero ahora quiero usar el mismo media player para  poder ..

me explico

quiero usar el mismo Mplayer para escuchar diferentes sonidos, es decir, si al principio tenia a.wav despues mediante una bandera (si esta en true), cambie el sonido a B.wav y asi sucesivamente...

lo intente usando

//mediaplayer1.filename:= 'C: ..b.wav'

y

//mediaplayer.next

pero seguia con el mismo archivo a.wav

debo cambiar mis archivos wav por otra extencion para que pueda hacer lo que quiero??


muchas graxias de antemano  :(  lamento ser tal molestia

47
Delphi / Re: Uso De Sonido
« en: Domingo 10 de Abril de 2005, 23:09 »
Citar
hum eso lo meto en el codigo o es una propiedad *pregunta estupida yo se*

editado

ya cai .. lo siento es que soy de efecto retrasado...

pero volviendo....hum no hay otra manera de introducir sonido a un programa... y si la hay me podrian dar los pasos... aun no domino el delphi y no tengo a quien preguntar

48
Delphi / Re: Uso De Sonido
« en: Jueves 7 de Abril de 2005, 20:26 »
Tengo algunos problemas...

Grabe la voz con la grabadora de sonidos de Windows, en formato .wav... use el media player de systems, segui los pasos e instrucciones del ayuda de Delphy (7 y tengo windows Me) pero la voz no se escucha...

Cambie las propiedades

DeviceType(para archivos wav)
Autoopen (a true)
Filaname(C:..... /a.wav)

......entre otros .......

Intente con  los siguientes codigos:

//////////////////////
begin
  with player do
  begin
  FileName := 'C:\Documents and Settings\usuario\Mis documentos\a.wav';
    AutoRewind := True;
    Open;          { Open Media Player }
    try
      Wait := True;  { Waits until sounds is done playing to return }
      Play;          { Play sound }
      Play;          { Play again after first playing is completed }
    finally
      Close;
      end;
    end;
//////////////////////


//como pueden ver los saque del ayuda de delphy///

//////////////////////
begin
    FileName := 'C:\Documents and Settings\usuario\Mis documentos\a.wav';
    Open;
    EndPos := TrackLength[1]div 2;
    Play;
  end;

//////////////////////

////con este ultimo cuando preciono el boton de deshabilitan los botones del player///

/*ambos se activan con un boton*/

pero aun sigue sin escucharse..  y si tengo las bocinas encendidas...

que error tengo necesito grabar desde otro programa?? ya que no me marca error alguno el codigo pero sigue sin escucharse de antemano gracias
 :(

49
Delphi / Re: Uso De Sonido
« en: Lunes 7 de Marzo de 2005, 22:10 »
muchas gracias hector en caso de algun inconveniente puedo preguntarte? :hola:

50
Delphi / Uso De Sonido
« en: Jueves 3 de Marzo de 2005, 18:36 »
En delphi... es decir

tenemos planeado hacer un programa que enseñe a leer... por eso queremos agregar la voz... como lo hacen en los preescolares... por favor ayuda  :(

Páginas: 1 [2] 3