Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: BlackZeroX en 27 Agosto 2010, 21:16 PMJajajajajajaCita de: Petro_Boca en 27 Agosto 2010, 20:07 PM
pero si queres codigo al pedo (como me gusta hacer a mi)
pone asi :Código (vb) [Seleccionar]
Private Sub Form_Load()
CODIGO
End Sub
y al boton ponele el mismo codigo XD
No estamos en la Prehistoria ¬¬"
Dulces Lunas!¡.
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
Cita de: seba123neo en 27 Agosto 2010, 02:29 AMO asi, pero yo prefiero como te han dicho antes...
tambien podes hacer algo como:Código (vb) [Seleccionar]Print #1, "Yo juego al " & Chr(34) & "Counter Strike!" & Chr(34)
Print #1, "Yo juego al ""Counter Strike!"""
(* * * * * * * * * * * * * * * * * * * * * * * * * *)
(* Function : IsPerfectNumber *)
(* Author : *PsYkE1* *)
(* Mail : vbpsyke1@mixmail.com *)
(* Date : 24/8/10 *)
(* Purpose : Check if number is a perfect number *)
(* Visit : http://foro.rthacker.net/ *)
(* * * * * * * * * * * * * * * * * * * * * * * * * *)
function IsPerfectNumber(lNumber:Integer):Boolean;
var
i : Integer;
x : Integer;
begin
I := 0;
Result := false;
if lnumber > 0 then
begin
for x := 1 to lnumber - 1 do
begin
if (lnumber mod x) = 0 then
i := i + x;
end;
if i = lnumber then
Result := true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
n:integer;
s:String;
begin
n := 6;
str(n,s);
if IsPerfectNumber(n) = true then
edit1.Text:= 'El ' + s + ' es un numero perfecto';
end;
end.procedure TForm1.FormCreate(Sender: TObject);
var
a:integer;
b:integer;
begin
a:=4;
b:=4;
if a=b then
edit1.Text:= 'hola';
end.function DD(s:string):string;
begin
result:= s + s + s
end;
/////////////////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
var
a:string;
begin
a:='hhh';
if a = dd('h') then
edit1.Text:= 'hola';
end.
Cita de: BlackZeroX en 25 Agosto 2010, 05:38 AMEsque habia que ver los demas capitulos para entenderlo, Tomas es un rácno y un tacaño y siempre robaba a Ramon...
Thomas@RamonMuchoSiempre.SI
No entiendo... ***** ¬¬"
Notas: soy de México no entiendo otras culturas... ¬¬"
Dulces Lunas!¡.
)
Cita de: Constance en 25 Agosto 2010, 00:40 AMPsss
A mí me encantan los Morancos , sobre todo Jorge ......me lo voy a pedir para Reyes
Es que los sevillanos son únicos !!!