elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Temas
Páginas: [1] 2
1  Programación / Desarrollo Web / Ayuda con CakePHP en: 28 Octubre 2011, 16:49 pm
Saludos mi problema es que no me esta reconociendo mi aplicación... estoy haciendo un videotutorial de youtube... para aprender este frame... pero me he atorado en algo.. ya instale y ya tengo mi localhost (wamp)...

Tengo mi controlador:

Citar
tareas_controller.php:

<?php
class TareasController extends AppController{
var $name ='Tareas';

function index(){
$this->set('tareas', $this->Tarea->find('all'));
}

}
?>

Tengo mi modelo:
Citar
tarea.php:

<?php
class Tarea extends AppModel {
var $name ='Tarea';
}
?>

Tengo mi vista (con error):
Citar
index.ctp:

<h2>Tareas</h2>
<?php if (empty($tareas)): ?>
No hay tareas en esta lista
<?php else: ?>
<table>
<tr>
<th>Titulo</th>
<th>Estatus</th>
<th>Creado</th>
<th>Modificado</th>
<th>Acciones</th>
</tr>
<?php foreach($tareas as $tarea): ?>
<tr>
<td>
<?php echo $tarea['Tarea']['titulo'] ?>
</td>
<td>
<?php
if ($tarea['Tarea']['hecha']) echo "Hecha";
else echo "Pendiente";
?>
</td>
<td>
<?php echo $tarea ['Tarea']['creado'] ?>
</td>
<td>
<?php echo $tarea ['Tarea']['modificado'] ?>
</td>
<td>
<!-- acciones en las tareas seran añadidas mas tarde -->
</td>
</tr>
<?php endforeach; ?>
</table>
<?php endif: ?>
<?php echo $html->link('Agregar Tarea', array('action'=>'add')); ?>

y cuando abro mi http://localhost/listatareas/tareas/index
me sale este error:

Citar

y mis carpetas las tengo bien distribuidas:

Citar
2  Programación / Desarrollo Web / Problema con mi ligthbox en: 23 Octubre 2011, 19:44 pm
Primero buenas tardes/noches/dias a todos :)... estoy intentando hacer este efecto:

http://www.lokeshdhakar.com/projects/lightbox2/

pero... u.u

Segun hice todas las indicaciones que me van diciendo en el lightbox, pero una mis imagenes se van para atras... cuando descomento esta etiqueta comentada "hasta el final claro":
<!--<div id="Layer1"><img src="FondoIndex.png" alt="1007x649" width="1007"

y cuando la comento le doy clic en la imagen y solamente me abre otra ventana donde esta la imagen... que si tengo bien acomodadas mis carpetas? si.. estan todas en una sola carpeta... "Pruebas: las imagenes del final de este post."

Espero que me puedan a ayudar a solucionar mi problema :(...

Citar
Código
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  4. <title>Documento sin t&iacute;tulo</title>
  5. <style type="text/css">
  6. <!--
  7. #Layer1 {
  8. 	position:absolute;
  9. 	left:0px;
  10. 	top:0px;
  11. 	width:44px;
  12. 	height:24px;
  13. 	z-index:1;
  14. }
  15. #Layer2 {
  16. 	position:absolute;
  17. 	left:139px;
  18. 	top:73px;
  19. 	width:218px;
  20. 	height:32px;
  21. 	z-index:2;
  22. }
  23. .Estilo1 {color: #FFFFFF}
  24. #Layer5 {	position:absolute;
  25. 	left:724px;
  26. 	top:534px;
  27. 	width:75px;
  28. 	height:30px;
  29. 	z-index:16;
  30. }
  31. #Layer3 {
  32. 	position:absolute;
  33. 	left:147px;
  34. 	top:162px;
  35. 	width:590px;
  36. 	height:64px;
  37. 	z-index:17;
  38. }
  39. -->
  40. </style>
  41. <script type="text/javascript">
  42. <!--
  43. function MM_swapImgRestore() { //v3.0
  44.   var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
  45. }
  46.  
  47. function MM_preloadImages() { //v3.0
  48.   var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  49.     var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  50.     if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
  51. }
  52.  
  53. function MM_findObj(n, d) { //v4.01
  54.   var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
  55.     d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  56.   if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  57.   for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  58.   if(!x && d.getElementById) x=d.getElementById(n); return x;
  59. }
  60.  
  61. function MM_swapImage() { //v3.0
  62.   var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  63.    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
  64. }
  65.  
  66.  
  67.  
  68. <style type="text/css">
  69. <!--
  70. #Layer4 {
  71. 	position:absolute;
  72. 	left:170px;
  73. 	top:463px;
  74. 	width:439px;
  75. 	height:63px;
  76. 	z-index:18;
  77. }
  78.  
  79. -->
  80. </style>
  81. //-->
  82. <script type="text/javascript" src="js/prototype.js"></script>
  83. <script type="text/javascript" src="js/scriptaculous.js?load=effects,builder"></script>
  84. <script type="text/javascript" src="js/lightbox.js"></script>
  85.  
  86. </script>
  87.  
  88. <link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
  89. </head>
  90.  
  91.  
  92. <body onload="MM_preloadImages('Button1.png')" link="#FFFFFF" vlink="#FFFFFF" alink="#00CCFF">
  93.  
  94. <!--<div id="Layer1"><img src="FondoIndex.png" alt="1007x649" width="1007" height="649" longdesc="BackGroundIndex" /></div>
  95. <div id="Layer2">
  96.   <h1 align="center" class="Estilo1">&iquest;Que es el Cyberpunk?</h1>
  97. </div>
  98. <div id="Layer5"><a href="Index.html" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image2','','Button1.png',1)"><img src="Button2.png" alt="ButtonAtras" name="Image2" width="150" height="25" border="0" id="Image2" /></a></div>
  99. <div id="Layer3">
  100.   <p class="Estilo1"> El termino Cyberpunk fue originalmente acu&ntilde;ado por Bruce Bethke como titulo de una relato corto, publicado en 1983. </p>
  101.   <p class="Estilo1">El<em> cyberpunk</em> es un subg&eacute;nero que toma su nombre de la combinaci&oacute;n de <em>cibern&eacute;tica</em> y <em>punk</em>,   con lo cual podr&iacute;a definirse como un mix de ciencia avanzada,   tecnolog&iacute;as de la informaci&oacute;n y cibern&eacute;tica, a lo que a&ntilde;adir&iacute;amos un   grado de desintegraci&oacute;n o cambio radical en el orden social.</p>
  102.   <p class="Estilo1"> Seg&uacute;n <em>Lawrence Person</em>, <em>los</em> <em>cyberpunk</em>s <em>son   seres marginados, alejados, solitarios, que viven al margen de la   sociedad, generalmente en futuros dist&oacute;picos donde la vida diaria es   impactada por el r&aacute;pido cambio tecnol&oacute;gico, una atm&oacute;sfera de informaci&oacute;n   computarizada ubicua y la modificaci&oacute;n invasiva del cuerpo humano</em>.   </p>
  103.   </div>-->
  104.  
  105.   <!--¡Imagenes! con framework-->
  106. <div id="Layer4"><a href="Cyber1.jpg" rel="lightbox[roadtrip]"><img src="Cyber1.jpg" width="75" height="95" longdesc="Image#1" /></a>
  107.  
  108. <a href="Cyber2.jpg" rel="lightbox[roadtrip]"><img src="Cyber2.jpg" width="75" height="95"longdesc="Image#2" /></a>
  109.  
  110. <a href="Cyber3.jpg" rel="lightbox[roadtrip]"><img src="Cyber3.jpg" width="75" height="95" longdesc="Image#3" /></a></div>
  111.  
  112. </body>
  113. </html>
  114.  


Citar
3  Programación / Programación General / Dudas con mi Micro Z80 en: 29 Septiembre 2011, 07:23 am
Disculpen me estoy basando de este libro para hacer mi I.S.A. del micro Z80: www.zilog.com/docs/z80/um0080.pdf
Tengo este codigo inicial, para poder empezar a programar mis instrucciones:

Obviamente lo estoy haciendo en pascal, tengo muchas malas espinas, siento que me falta algo o siento que estoy mal en algo, espero me puedan decir, que me falta para poder empezar a programar mis instrucciones...

Y si de paso tienen algun material que me pueda facilitar el programado de mi I.S.A. micro se los agradeceria.

Citar
Código
  1. {$inline on}
  2. {$define DEBUG}
  3.  
  4. program emulador8080;
  5.  
  6. {$ifdef DEBUG}
  7. uses
  8.   crt    //Necesaria para el procedimiento clrscr
  9.   ;
  10. {$endif}
  11.  
  12. const
  13.   MAXMEM = $FFFF;
  14.   MAXPUERTOS= $FF;
  15.   VECTOR_RESET = $0000;
  16.  
  17. type
  18.   TDirMem = 0..MAXMEM;
  19.   TDirPuertos = 0..MAXPUERTOS;
  20.  
  21.   TMemoria = array[TDirMem] of byte;
  22.   TPuertos = array[TDirPuertos] of byte;
  23.  
  24.   TPSW = record
  25.     S,    
  26.     Z,
  27.     H, {Half Carry} 
  28.     P, {Parity/Overflow}
  29.     N, {Add/Substract}
  30.     C {Carry} : boolean;
  31.   end;
  32.  
  33. var
  34.   Mem : TMemoria;
  35.   Puertos : TPuertos;
  36.   PSW : TPSW;
  37.   {General Purpose Register}
  38.   {Main Register Set}
  39.   A,
  40.   B,C,
  41.   D,E,
  42.   H,L,    
  43.   {Alternate Register Set}
  44.   A1,
  45.   B1,C1,
  46.   D1,E1,
  47.   H1,L1    : byte;
  48.   {Special Purpose Register}
  49.   IX,IY,SP,PC: word;
  50.   {I= Interruptor, R= Refresh}
  51.   I,R    : byte;
  52.  
  53.   INTE  : boolean;
  54.   Halt  : boolean;  
  55.  
  56. {=============================================================================
  57.  Interfaz de control del Emulador =============================================================================}
  58.  
  59. {$IFDEF DEBUG}
  60.  
  61. function Desensamblado(I: byte): string;
  62.   function NombreRegistro(r : byte): string; inline;
  63.   var
  64.     op  : string;
  65.   begin
  66.     case r of
  67.     0: op := 'B';
  68.     1: op := 'C';
  69.     2: op := 'D';
  70.     3: op := 'E';
  71.     4: op := 'H';
  72.     5: op := 'L';
  73.     6: op := '[HL]';
  74.     7: op := 'A';
  75.     end;
  76.     NombreRegistro := op;
  77.   end;
  78.  
  79. begin
  80.     case I of        {Decodify}
  81.     $00:  Desensamblado := 'NOP';        {Execute}
  82.   end;
  83. end;
  84.  
  85. procedure Interfaz_CargarContenidoMemoria;
  86. var
  87.   F : file of byte;
  88.   Nombre : string;
  89.   i     : word;
  90.   b     : byte;
  91. begin
  92.   write('Nombre del archivo: '); readln(Nombre);
  93.   assign(F, Nombre);
  94.   system.reset(F);
  95.   i := 0;
  96.   while not eof(F) do
  97.   begin
  98.     read(F,b);
  99.     Mem[i] := b;
  100.     i := i + 1;
  101.   end;
  102.   close(F);
  103. end;
  104.  
  105. procedure Interfaz_GuardarContenidoMemoria;
  106. var
  107.   F : file of byte;
  108.   Nombre : string;
  109.   i     : word;
  110. begin
  111.   write('Nombre del archivo: '); readln(Nombre);
  112.   assign(F, Nombre);
  113.   system.rewrite(F);
  114.   for i := 0 to MAXMEM do
  115.     write(F,Mem[i]);
  116.   close(F);
  117. end;
  118.  
  119. procedure Interfaz_Desplegar;
  120.   procedure DesplegarPSW;
  121.   begin
  122.     with PSW do
  123.     begin
  124.       if S then write('S(X)') else write('S( )');
  125.       if Z  then write(' Z(X)') else write(' Z( )');
  126.       if H  then write(' H(X)') else write(' H( )');
  127.       if P  then write(' P(X)') else write(' P( )');
  128.       if N  then write(' N(X)') else write(' N( )');
  129.       if C  then writeln(' C(X)') else writeln(' C( )');
  130.     end;
  131.   end;
  132. var
  133.   S,s2 : char;
  134.   valor : byte;
  135.   valor16 : word;
  136. begin
  137.   clrscr;
  138.   DesplegarPSW;
  139.   writeln('A= ', A);
  140.   write('B= ', B);    writeln(' C= ', C);
  141.   write('D= ', D);    writeln(' E= ', E);
  142.   write('H= ', H);    writeln(' L= ', L);
  143.   writeln('IX= ', IX);
  144.   writeln('IY= ', IY);
  145.   writeln('SP= ', SP);
  146.   writeln('PC= ', PC);
  147.   write('I= ', I); writeln(' : ', Desensamblado(i));
  148.   write('Q=salir, [ABCDEHL]=regs, F=PSW, M=mem, X=IX, Y=IY, P=PC, S=SP, R=leer, W=escribir, ENTER=continuar: ');
  149.   readln(S);
  150.   S := upcase(S);
  151.   case S of
  152.   'Q': Halt := true;
  153.   'A': begin
  154.           write('A= '); readln(valor);
  155.           A := valor;
  156.        end;
  157.   'B': begin
  158.           write('B= '); readln(valor);
  159.           B := valor;
  160.        end;
  161.   'C': begin
  162.           write('C= '); readln(valor);
  163.           C := valor;
  164.        end;
  165.   'D': begin
  166.           write('D= '); readln(valor);
  167.           D := valor;
  168.        end;
  169.   'E': begin
  170.           write('E= '); readln(valor);
  171.           E := valor;
  172.        end;
  173.   'F': begin
  174.           write('Bandera [SZHPNC]'); readln(S2);
  175.           S2 := upcase(S2);
  176.           case S2 of
  177.           'S':    PSW.S  := not PSW.S;
  178.           'Z':    PSW.Z  := not PSW.Z;
  179.           'H':    PSW.H  := not PSW.H;
  180.           'P':    PSW.P  := not PSW.P;
  181.           'N':    PSW.N  := not PSW.N;
  182.           'C':  PSW.C  := not PSW.C;
  183.           end;
  184.        end;
  185.   'H': begin
  186.           write('H= '); readln(valor);
  187.           H := valor;
  188.        end;
  189.   'L': begin
  190.           write('L= '); readln(valor);
  191.           L := valor;
  192.        end;
  193.   'P': begin
  194.           write('PC= '); readln(valor16);
  195.           PC := valor16;
  196.        end;
  197.   'S': begin
  198.           write('SP= '); readln(valor16);
  199.           SP := valor16;
  200.        end;
  201.   'M': begin
  202.           write('Dir= '); readln(valor16);
  203.           write('valor= '); readln(valor);
  204.           Mem[valor16] := valor;
  205.        end;
  206.   'R': Interfaz_CargarContenidoMemoria;
  207.   'X': begin
  208.           write('IX= '); readln(valor16);
  209.           IX := valor16;
  210.        end;
  211.   'Y': begin
  212.           write('IY= '); readln(valor16);
  213.           IY := valor16;
  214.        end;
  215.   'W': Interfaz_GuardarContenidoMemoria;
  216.   end;
  217. end;
  218.  
  219. {$ENDIF}
  220.  
  221. {=============================================================================
  222.  Funciones relativas al PSW  =============================================================================}
  223.  
  224. function PSW_ParidadPar: boolean; inline;
  225. var
  226.   conta : byte;    //Número de 1's presentes en A
  227.   i     : byte;
  228. begin
  229.   conta := 0;
  230.   for i := 0 to 7 do
  231.     conta := conta + (A shr i) and $01;
  232.   PSW_ParidadPar := (conta mod 2) = 0;
  233. end;
  234.  
  235. procedure PSW_ActualizarLogico(temp  : byte); inline;
  236. begin
  237.   with PSW do
  238.   begin
  239.     S  := (temp and $80) = $80;    
  240.     Z  := temp = $00;    
  241.     H := false;
  242.     P  := PSW_ParidadPar;    
  243.     C  := false;
  244.   end;
  245. end;
  246.  
  247. procedure PSW_ActualizarAritmetico(r1, r2 : byte; temp : word); inline;
  248. begin
  249.   with PSW do
  250.   begin
  251.     S  := (temp and $80) = $80;
  252.     Z  := temp = $00;
  253.     PSW.H := ((temp xor r1 xor r2) and $10) = $10;
  254.     P  := PSW_ParidadPar;
  255.     PSW.C  := temp > 255;
  256.   end;
  257. end;
  258.  
  259. {=============================================================================
  260.  Funciones relativas a la ALU  =============================================================================}
  261.  
  262. function ALU_add(r1, r2, Cin : byte): byte; inline; {ADD}
  263. var
  264.   temp : word;
  265. begin
  266.   temp   := r1 + r2 + Cin;
  267.   PSW_ActualizarAritmetico(r1, r2, temp);
  268.   ALU_add := temp;
  269. end;
  270.  
  271. function ALU_sub(r1, r2, Bin : byte): byte; inline; {Subtract}
  272. var
  273.   temp : word;
  274. begin
  275.   temp   := r1 - r2 - Bin;
  276.   PSW_ActualizarAritmetico(r1, r2, temp);
  277.   ALU_sub := temp;
  278. end;
  279.  
  280.  
  281. function ALU_and(r1, r2 : byte): byte; inline;  {Logical AND}
  282. var
  283.   temp : byte;
  284. begin
  285.   temp := r1 and r2;
  286.   PSW_ActualizarLogico(temp);
  287.   ALU_and := temp;
  288. end;
  289.  
  290. function ALU_or(r1, r2 : byte): byte; inline; {Logical OR}
  291. var
  292.   temp : byte;
  293. begin
  294.   temp := r1 or r2;
  295.   PSW_ActualizarLogico(temp);
  296.   ALU_or := temp;
  297. end;
  298.  
  299. function ALU_xor(r1, r2 : byte): byte; inline; {Logical Exclusive OR}
  300. var
  301.   temp : byte;
  302. begin
  303.   temp := r1 xor r2;
  304.   PSW_ActualizarLogico(temp);
  305.   ALU_xor := temp;
  306. end;
  307.  
  308. function ALU_bcd(r : byte): byte; inline;
  309. var
  310. temp:byte;
  311. begin
  312.   temp:=(r and $0f);
  313.   ALU_bcd:=((r shr 4)*16)+temp;
  314. end;
  315.  
  316. {=============================================================================
  317.  Funciones relativas a la Unidad de Control =============================================================================}
  318.  
  319. procedure CPU_VerificarInterrupciones;
  320. begin
  321. end;
  322.  
  323. procedure CPU_Reset;
  324. begin
  325.   A := $00;
  326.   B := $00;    C := $00;
  327.   D := $00;    E := $00;
  328.   H := $00;    L := $00;
  329.   with PSW do
  330.   begin
  331.     S := false;    
  332.     Z := true;
  333.     H := false;    
  334.     P  := false;    //NOTA : Checar      
  335.     C := false;
  336.   end;
  337.   SP := MAXMEM;
  338.   PC := VECTOR_RESET;
  339.   Halt := false;
  340.   INTE := true; {NOTA: Los estudiante deben verificar esto.}
  341. end;
  342.  
  343. {=============================================================================
  344.  Funciones relativas a la Memoria =============================================================================}
  345.  
  346. function Memoria_Leer(d : word): byte; inline;
  347. begin
  348.   Memoria_Leer := Mem[d];
  349. end;
  350.  
  351. procedure Memoria_Escribir(d : word; b : byte); inline;
  352. begin
  353.   Mem[d] := b;
  354. end;
  355.  
  356. function Memoria_DecodificarDirecto: word; inline;
  357. begin
  358.   Memoria_DecodificarDirecto := (Memoria_Leer(PC+2) shl 8) or Memoria_Leer(PC+1);
  359. end;
  360.  
  361. function Memoria_LeerInmediato: byte; inline;
  362. begin
  363.   Memoria_LeerInmediato := Memoria_Leer(PC+1);
  364. end;
  365.  
  366. function Memoria_LeerDirecto: byte; inline;
  367. begin
  368.   Memoria_LeerDirecto := Memoria_Leer( Memoria_DecodificarDirecto );
  369. end;
  370.  
  371. procedure Memoria_EscribirDirecto(v : byte);
  372. begin
  373.   Memoria_Escribir( Memoria_DecodificarDirecto, v );
  374. end;
  375.  
  376. function Memoria_LeerPila: word; inline;
  377. var
  378.   alto, bajo : byte;
  379. begin
  380.   bajo := Memoria_Leer(SP);
  381.   SP := SP + 1;
  382.   alto := Memoria_Leer(SP);
  383.   SP := SP + 1;
  384.   Memoria_LeerPila := (alto shl 8) or bajo;
  385. end;
  386.  
  387. procedure Memoria_EscribirPila(v : word);
  388. begin
  389.   SP := SP - 2;
  390.   Memoria_Escribir(SP, v and $00FF);
  391.   Memoria_Escribir(SP+1, (v shr 8) and $00FF);
  392. end;
  393.  
  394. {=============================================================================
  395.  Funciones relativas a los Registros
  396.  =============================================================================}
  397.  
  398. procedure Registros_Escribir(r : byte; v : byte);
  399. begin
  400.   case r of
  401.   $00: B := v;
  402.   $01: C := v;
  403.   $02: D := v;
  404.   $03: E := v;
  405.   $04: H := v;
  406.   $05: L := v;
  407.   $06: Mem[(H shl 8) or L] := v;
  408.   $07: A := v;
  409.   end;
  410. end;
  411.  
  412. function Registros_Leer(r : byte): byte; inline;
  413. var
  414.   op  : byte;
  415. begin
  416.   case r of
  417.   0: op := B;
  418.   1: op := C;
  419.   2: op := D;
  420.   3: op := E;
  421.   4: op := H;
  422.   5: op := L;
  423.   6: op := Mem[(H shl 8) or L];
  424.   7: op := A;
  425.   end;
  426.   Registros_Leer := op;
  427. end;
  428.  
  429. function Registros_LeerPar(I : byte): word; inline;
  430. var
  431.   r : byte;
  432.   temp : word;
  433. begin
  434.   r := (I and $30) shr 4;
  435.   case r of
  436.   $00: temp := (B shl 8) or C;
  437.   $01: temp := (D shl 8) or E;
  438.   $02: temp := (H shl 8) or L;
  439.   $03: temp := SP;
  440.   end;
  441.   Registros_LeerPar := temp;
  442. end;
  443.  
  444. procedure Registros_EscribirPar(I: byte; v : word);
  445. var
  446.   r : byte;
  447. begin
  448.   r := (I and $30) shr 4;
  449.   case r of
  450.   $00: begin
  451.         B := (v and $FF00) shr 8;
  452.         C := (v and $00FF);
  453.       end;
  454.   $01: begin
  455.         D := (v and $FF00) shr 8;
  456.         E := (v and $00FF);
  457.       end;
  458.  
  459.   $02: begin
  460.         H := (v and $FF00) shr 8;
  461.         L := (v and $00FF);
  462.       end;
  463.  
  464.   $03: SP := v;
  465.   end;
  466. end;
  467.  
  468. procedure IXIY(Registro : boolean);
  469. var 
  470. Reg: word;
  471. begin
  472.       if Registro= true then
  473.       Reg:=IX
  474.       else Reg:=IY;
  475.     PC:=PC+1;
  476.     I:=Mem[PC];
  477. end;
  478.  
  479. {=============================================================================
  480.  Instrucciones del Procesador  Z80 =============================================================================}
  481.  
  482. procedure InstruccionDesconocida( ByteCode : byte);
  483. begin
  484.   writeln(stderr, 'Instrucción desconocida: ', ByteCode);
  485.   PC := PC + 1;
  486. end;
  487.  
  488. procedure NOP;
  489. begin
  490.   PC := PC + 1;
  491. end;
  492.  
  493. {=============================================================================
  494.  R U T I N A   P R I N C I P A L   D E L   E M U L A D O R   
  495.  =============================================================================}
  496. begin
  497.   {Arranque de la máquina (RESET)}
  498.   CPU_Reset;
  499.   {Ciclo de Instrucción}
  500.   repeat
  501.     I := Mem[PC];    {Fetch}
  502.     case I of        {Decodify}
  503.     $00:  NOP;        {Execute}
  504.     else
  505.       InstruccionDesconocida(I);
  506.     end;
  507.     if INTE then
  508.       CPU_VerificarInterrupciones;
  509. {$ifdef DEBUG}
  510.     Interfaz_Desplegar;
  511. {$endif}
  512.   until Halt;
  513. end.
  514.  
4  Programación / Desarrollo Web / Problemas con las entradas de mi blog en: 29 Septiembre 2011, 00:10 am
Se supone que en mi blog estE: www.editado.blogspot.com
tengo puesto que me salgan 5 entradas pero me sale solo una entrada...

Ya me he ido a Diseño > Entradas del Blog > Editar >(Opciones de la página principal)
Número de entradas en la página principal.

Y le cambio el numero a 5 y en el combobox ya prove con las 2 opciones: Dias de entrada y entradas, y mis demas opciones las tengo asi como se daran cuenta en mi imagen:

Citar
5  Programación / .NET (C#, VB.NET, ASP) / Problemas con mi combobox en VB 2010 en: 24 Septiembre 2011, 20:57 pm
Saludos, mi problema es con mi combobox... lo cargo con este codigo en el FORM_LOAD:


Citar
Sub combollenado()
        conexion.iniciar()
        conexion.Mysqlcon.Open()
        'cmb_id.Items.Clear()
        'cmb_id.DataSource = Nothing
        cmd = New MySqlCommand("select id from usuarios", conexion.Mysqlcon)
        da = New MySqlDataAdapter(cmd)
        da.Fill(ds)
        cmb_id.DataSource = ds.Tables(0)
        cmb_id.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString
        conexion.Mysqlcon.Close()
    End Sub

Me lo llena bien

Citar

Y cuando le doy clic en el boton guardar
Me sale de la siguiente manera:

Citar

Alguien podria ayudarme porfavor.... :(
6  Comunicaciones / Redes / Problemas con mi red. (S-PT al R4) en: 10 Septiembre 2011, 01:29 am
Mi server, no me funciona en el R4.
lo que sucede es que hice mi VLSM (subred de subredes)....
tengo VLANS y tambien el R-WLess dentro.

Pero lo unico que no me funciona es el S-PT



segun yo tengo bien la conexión entre ambos... se encuentra en el FA 0/0 el S-PT pero aun asi no lo agarra... subi mi programa para ver si me pueden ayudar en:

http://www.megaupload.com/?d=05LSMSVO


podrian tambien redirigirme a una pagina donde expliquen bien y que se entienda como hacer el ACL... es que tambien quiero no permitir que el Router Inalambrico se conecte con el S-PT
7  Programación / Desarrollo Web / Problema con mi plantilla en: 29 Agosto 2011, 05:53 am
http://geekcancun.blogspot.com/

Ese es mi blog. mi problema es el area de archivos, antes lo que hice fue cargar una plantilla que descargue que tenia muchos coroles y todo y se veia muy poco profesional bueno de echo nada profesional.

Entonces lo que quise es cambiar el diseño con una plantilla simple pero me dejo esa area de Archivos muy mal alguien podria ayudarme con ello? que tengo que hacer?



Y si me dan consejos para ser un buen blogger tambien seria una ayuda, ya que apenas empece esto.
8  Programación / Programación C/C++ / Function(Crear Matriz) C++ en: 22 Agosto 2011, 14:42 pm
Saludos tengo este codigo de una matriz en C++:

Código:
///////////////////////////////////////////////////////Matriz A
  cout <<"Matriz A" <<endl;
  cout <<"Numero de Filas: ";   cin >>a; /*Filas*/
  cout <<"Numero de Columnas: "; cin >>b; /*Columnas*/
  vector<vector<int> > MatA ( a, vector<int> ( b ) );
  cout <<endl;

///////////////////////////////////////////////////////Valores Matriz A    
  int otro=0;
  cout <<"Dame los valores de la Matriz A " <<a <<"x"<<b <<endl;
  cout <<"(Con un enter por cada numero)"<<endl<<endl;
  for ( int i = 0; i < a; i++ ) {posicion.Y= 3+i;
  for ( int j = 0; j < b; j++ ){
	  color(14);	  
      //Posicionando cursor
	  posicion.X= 3+otro;
	  SetConsoleCursorPosition(consola, posicion); 
	  otro=otro+5;
	  //Captura Valor
	  cin >> valA;
	  //Inserta valor a matriz
	  MatA[i][j] = valA;
	 	 
	  color(15);
 }otro=0;}
system("cls");


Lo que yo quiero es crear la matriz llamandola desde una "function" como este codigo basico:

Código:
void matrizn(int **m,int f,int c){
//CARGANDO LA MATRIZ DINAMICA.
for(int i=0;i<f;i++)
for(int j=0;j<c;j++){
cout<<"Introduzca el elemento ["<<i+1<<"]["<<j+1<<"]= ";
cin>>m[i][j];}
}

pero lo que quiero es utilizar esta sintaxis:

Código:
vector<vector<int> > MatA ( a, vector<int> ( b ) );

para crear mi matriz, yo digo que todo el asunto esta en ese codigo, para que yo lo pueda hacer dinamico, pero busco y busco y no lo encuentro al igual que probe intentar hacerlo con el codigo mostrado y no me salio espero me puedan ayudar saludos.
9  Programación / Programación C/C++ / Organizar introduccion de datos en Matriz en: 22 Agosto 2011, 03:52 am
Saludos ven que en C++...

cuando vas agregando los datos en una matriz por ejemplo... 2x3
nos la empieza a capturar asi... por cada enter....

1[Enter]
2[Enter]
3[Enter]
4[Enter]
5[Enter]
6[Enter]

Entonces lo que me gustaria saber si ai alguna manera de hacer esto:
1[Enter]2[Enter]3[Enter]
4[Enter]5[Enter]6[Enter]

para que sea mas agradable para el usuario...?
Espero me puedan ayudar con mi duda :)

http://es.answers.yahoo.com/question/index?qid=20081113191144AAg63ov
10  Programación / Programación C/C++ / Vector POO (Problemas) en: 21 Agosto 2011, 22:31 pm
#include <vector>
int main (){
.
.
vector<vector<int> > MatA ( a, vector<int> ( b ) );
.
return 0;
}


Tengo una duda... encontre un codigo que me ayudo a crear mis matrices por medio
de la libreria Vector... mi problema real es que no entiendo como es que crea la matriz en este codigo

Código:
vector<vector<int> > MatA ( a, vector<int> ( b ) );

Alguien podria explicarmelo ¿?
porfavor
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines