Si se que google no muerde pero esque no sabia como se llamaba ese efecto.. :S y pues no sabia como buscarlo... oie una pregunta y como le hago para el zoom con eso  :S ¿? solo es aumentar de tamaño la imagen cuando le doi clic en zoom :S ¿?

http://cancunfiestarestaurant.com/src/menu.html

Es queria ver si alguien sabe como hacer o si me puede redireccionar a un tutorial... para lograr ese efecto de imagenes :/... "no estoy haciendo propaganda". solamente quisiera aprender a hacer ese efecto para futuras necesidades .

Saludos como dice el titulo... Puedo hacer un subneteo con esta ip ¿?...

198.168.15.210  (Supongamos que esa es la direccion Ip, que me da mi ISP)
255.255.255.0

quiero dividir esa IP para hacer una red en mi empresa... 10 computadoras en tal lado y 7 en otro y aprox. 15 en otro lugar... esas quiero que esten en red... conectadas en 2 switchs (que se comunican entre ellos)...

un switch lo qiero poner como puente conectado a un router y el router estaria conectado al modem que me da mi ISP... se puede hacer ese subneteo ¿?...

:S

esa es mi duda. principal :S
y como haria el subneteo ¿? Normal... o tengo que usar el VLSM ¿?

172.168.128.0/17

perdon se me olvido ponerla pero esque en ese calculo lo que haces son las subredes no es asi :/ ¿?... no estas basandote en host porque si te das cuenta yo necesito los host de 16 000  host en tal router... mi pregunta en si es como saco ese VLSM basandome en los host que necesito... porque lo que yo entiendo en ese calculo esque tu pusiste 16 000 subredes y no host :S o me equivoco :S ¿?

he ai mi problema... lo que necesito de ayuda es que si alguien me puede explicar como hago el vlsm pero basandome en los host que necesito :S... espero que me puedan ayudar :/ osea volver a hacer esa tabla... pero como le hago el vlsm a mi ip para que cuando lo haga en cada subred me alcanzen los host que me piden :S


Si mi direccion ip es la siguiente:
172.16.128.0

AYUDA!!!!
Entre a Pixel.bar (bueno la pagina principal)
intentando buscar el driver de esta tarjeta de video...

pixelview pv-bt878p+(rev. 9f)

ya que no la consigo ...
la tengo en windows 7 trabajando "segun" porque no me funciona por el driver...
necesito su ayuda

PORFAVOR! me urge
Es para mi compu claro.. :S no es con el fin de ganar dinero :S
Es necesidad propia .

function CientoFloat(s:string): real;
var
v: real;
i: integer;
d: integer;
Num1: integer;
c: integer;
Extra: integer;
begin
       v:=0;  d:=0;  c:=length(s);  Extra:=0;
       while (c<=(lenght(s)+1)) do
       begin
       for i:=1 to length (s) do
            begin
                 if s[i] in ['0'..'9','-'] then
                    d:= ord(s[i])-48;
                    Num1:=Num1+d;
            end;
            v:=exp(Num1*ln(Extra));
            Extra:=Num1;
            c:=c+1;
       end;
 CientoFloat := v;
end;

(lo modifique jeje vi uno de mis errores :S)

Aqui tengo el codigo de mi 13e-4 para poder hacer esta funcion lo que hice fue dividir en dos mi cadena... pero me sale error se supone que cuando encuentre los 2 numeros tanto el de la izquierda como el de la derecha deberia de funcionar no ¿? :/

Uses math;
 
Procedure dofrexp(Const X : extended);
 
var man : extended;
    exp: longint;
 
begin
  man:=0;
  exp:=0;
  frexp(x,man,exp);
  write(x,' has ');
  Writeln('mantissa ',man,' and exponent ',exp);
end;
 
 
begin
//   dofrexp(1.00);
   dofrexp(1.02e-1);
   dofrexp(1.03e-2);
   dofrexp(1.02e1);
   dofrexp(1.03e2);
end.

Disculpen... como utilizaria la matiza :S esque no le entiendo a esta matiza :/

Al parecer como no existe ningun tema... que se especifique en pascal, y como yo he tenido muchos problemas con el... entonces decidi abrir este tema...porque primero que nada me a estado gustando programar en pascal y quiero aprender mas, y por lo mismo hice esto... entonces si alguien tiene problemas entre todos (me incluyo yo) lo solucionaremos.

Pero am. por mientras quiero ser el primero   ya que ya abri muchos temas sobre esto entonces ya no abrire mas y pondre mis problemas aqui
espero que me puedan ayudar. ...

procedure EstadoE18;
var
  c : char;
begin
{$ifdef DEBUG}
  writeln(stderr,'Estado E18');
{$endif}
  Avanzar;
  c := Leer;
{como pongo el caracter '}
  if c in '''' then   //Mi problema esta aqui
  begin
    S := S + c;
    Avanzar;
    c := Leer;
    EstadoT19;
  end;

En parte de mi codigo de un automata que ando haciendo... lo que quiero esque en el momento en que me lea el caracter '    , me envie a un estado T19... pero no me lo leo porque sabemos que ese caracter sirve para que sea referencia a un texto.
Si yo lo pongo:

if c in '''  then   (me pone en rojo igual el then)

if c in '38'  then   (haciendo referencia al ASCII me sale error)

como podria solucionarlo :S ¿?  

Disculpen tengo un problema mas :S

en una cadena yo tengo 4e^5

el numero puede cambiar el del 5 en este caso...

lo que yo quiero es arrojar el resultado de esta manera 4x10^5 pero no quiero escribirlo... si no que quiero que el mismo pascal me lo lea como ese tipo de funcion como le podria a hacer ....y que elevado a la 5. se pueda cambiar... y que siga aceptandolo :S y me regrese el resultado en flotante.

function CientoFloat(s:string): real;
var
v: real;
i: integer;
d: integer;
Numero: integer;
Num1: integer;
c: integer;
Extra: integer;
begin
       v:=0;  d:=0;  c:=1;  Extra:=0;
       while length(s) in ['0'..'9'] and c<2 do
       begin
            for i:=1 to length (s) do
            begin
                 if s[i] in ['0'..'9'] then
                    d:= ord(s[i])-48;
 
            end;
            Num1:=d;
            v:=exp( Num1 * ln( Extra ) );
            c:=c+1;
            Extra:=Num1;
       end;
        CientoFloat := v;
end;

Saludos he creado esta funcion para eso intentando dividir... mi cadena para poder identificar el numero de la izquierda en mi ejemplo el 4.... y luego dividirlo y usar el numero de la derecha en mi caso el 5...
pero no me sale correctamente... :/
alguien podria ayudarme :/ ¿?

 
lo ce, lo ce he estado preguntando mucho pero esque estoy muy oxidado en pascal y como no lo uso mucho :/...
y ahurita tengo un proyecto que estoy haciendo, entonces mi problema es el siguiente:

procedure EstadoT2;
//Pendiente: Hexadecimal a Entero
var
  c : char;
  Numero: integer;
begin
{$ifdef DEBUG}
  writeln(stderr,'Estado T2');
{$endif}
  Avanzar;
  c := Leer;
 [glow=green,2,300] while c in ['a'..'f'] or ['0'..'7'] or ['A'..'F'] do
  begin
    S := S + c;
    Avanzar;
    c := Leer;
  end;[/glow]
 Numero:=  HextoInt(S);
 
 
  writeln('Token ID reconocido: ', S);
end;

Nota: HextoInt ya lo tengo declarado como una funcion , mi problema es en el while
quiero hacer esa condicion y no me funciona
alguien podria ayudarme porfavor ¿?