Entradas etiquetadas con Saludos
Tablas de multiplicar
13 abr
Bueno, este principalmente es un código publicado por Javier (JaAViEr), en el cual hace una tabla de multiplicar usando el bucle while en C++. Me pareció interesante aunque realmente su uso no es muy funcional, pero divierte un poco.
Dejaré la aplicación original en C++ y pondré unas traducciones que hice a otros lenguajes.
- C++ (Original by Javier)
#include <iostream> using namespace std; int main() { int n,t,x=0; cout << "Ejemplo: Empezar:2 - Terminar: 10" <<endl; cout << endl << "Numero a Empezar > "; cin >> n; cout << "Numero a Terminar > "; cin >> t; while (x<=t){ cout << n << "x" << x << "=" << x*n <<endl; x++; } }
y aquí mis traducciones :
- Pascal
program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { you can add units after this }; var N,T:Integer; X:Integer=0; {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} begin Writeln('Ejemplo: Empezar:2 -> Terminar:10'); Write('Numero a empezar > '); Readln(N); Write('Numero a terminar > '); Readln(T); while X<=T do begin Write(N,'x',X,'=',x*N,' '); Inc(X); end; end.
- Python (Soy novato en él, así que perdonen errores…)
print("Tabla de multiplicar") X = 0 N = input("Introduzca el numero a iniciar > ") T = input("Introduzca el numero para finalizar > ") while X <= T: print N,"x",X,"=",X*N," " X += 1
- Ruby (Ni hablar apenas aprendí hoy, xD)
print 'Tablas de multiplicar' print 'Introduzca el numero a iniciar > ' Num = gets.chomp print 'Introduzca el numero para finalizar > ' Ter = gets.chomp X = 0 #Bucles N = Num.to_i T = Ter.to_i while X <= T print N,'x',X,'=',N*X,' ' X += 1 end
Agrego la traducción a Java gracias a Jh0uBrt.
import java.io.*; public class Mult { public static void main(String[] args) throws IOException { BufferedReader linea = new BufferedReader( new InputStreamReader(System.in)); System.out.println("Tabla de Más >
¡Nuevas aplicaciones lanzadas!
8 abr
Creo que el título lo dice todo , DaW – Labs acaba de lanzar dos nuevas aplicaciones:
Reproductor de audio.
Cliente de mensajería Messenger®.
Para obtener más información sobre los productos pueden hacer click en las imágenes o visitar directamente los siguientes enlaces:
Los proyectos están en sus inicios, pero se actualizarán constantemente, espero lo disfruten y no olviden que DaW – Labs está en constante desarrollo.
Saludos.
Obtener el nombre de la ventana activa
30 mar
¿Alguna vez han querido obtener el nombre de la ventana activa?, pues si es así, les servirá ésta función, la cual emplea algunas API’s para obtener el título de la ventana que se está ejecutando.
Primero creemos nuestro proyecto y en él agregamos:
1 TTimer 1 TListBox 1 TLabel
Nos quedará algo como ésto:
Ahora vamos a la parte buena, programar.
Vamos a declarar una función que la llamaremos “GetActiveCaption” y pondremos el siguiente código…
function GetActiveCaption: string; var Handle: THandle; Len: LongInt; Title: String; begin Result := ''; Handle := GetForegroundWindow; if Handle <> 0 then begin Len := GetWindowTextLength(Handle) + 1; SetLength(Title, Len); GetWindowText(Handle, PChar(Title), Len); ActiveCaption := TrimRight(Title); end; end;
Con ésta función obtenemos el nombre de la ventana. Para obtener el nombre de la que está activa pues simplemente agregamos en el evento OnTimer del TTimer éste código.
procedure TForm1.Timer1Timer(Sender: TObject); begin ListBox1.AddItem(ActiveCaption,nil); end;
Listo, eso es todo.
Saludos,


