Menú

Mostrar Mensajes

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.

Mostrar Mensajes Menú

Mensajes - Eleкtro

#9081
Scripting / Re: Ayuda co codigo pyhton
17 Abril 2013, 20:07 PM
Cita de: daryo en 17 Abril 2013, 19:35 PMen caso de que lo quieras compilar la herramienta que buscas es py2exe previamente instalado python

Py2Exe es un full-of-errors y comederos de cabeza cuando se utiliza en x64, yo no lo usaría para "compilar" mis scripts aunque me pagasen por ello.

Si la cuestión trata de "compilar", les recomiendo este y ningún otro: http://cx-freeze.sourceforge.net/

...Pero son libres de elegir.

Saludos!
#9082
El tema ha sido movido a Programación General.
Delphi/Pascal no es un lenguaje interpretado :P.
http://foro.elhacker.net/index.php?topic=388274.0
#9083
A petición de un usuario aquí tienen la plantilla por defecto que uso para mis instaladores...


Setup.iss

Código (inno) [Seleccionar]
; = = = = = = = = = = = = = = = = = = =
; Default Template (by Elektro H@cker) |
;                                      |
;            InnoSetup 5.5.3           |
; = = = = = = = = = = = = = = = = = = =

[Setup]

; Info
; ----
#define Name "Application"
#define Version "1.0"
#define EXE "Application.exe"
AppName={#Name}
AppVersion={#Version}
AppVerName={#Name} {#Version}
AppCopyright=Elektro H@cker
AppPublisher=Elektro H@cker

; Paths
; -----
DefaultDirName={pf}\{#Name}
DefaultGroupName={#Name}
OutputDir=.\Output\
OutputBaseFilename={#Name}
UninstallDisplayIcon={app}\{#EXE}

; Resources
; ---------
;SetupIconFile=Icon.ico
;WizardImageFile=Icon.bmp
;WizardSmallImageFile=Icon.bmp
;InfoBeforeFile=Info.txt

; Compression
; -----------
Compression=lzma/ultra
InternalCompressLevel=Ultra
SolidCompression=True

; Appearance
; ----------
AlwaysShowComponentsList=False
DisableDirPage=True
DisableProgramGroupPage=True
DisableReadyPage=True
DisableStartupPrompt=True
FlatComponentsList=False
LanguageDetectionMethod=None
PrivilegesRequired=PowerUser
RestartIfNeededByRun=False
ShowLanguageDialog=NO
ShowTasksTreeLines=True
Uninstallable=True
ArchitecturesAllowed=x86 x64
;ArchitecturesInstallIn64BitMode=x64

[Languages]
Name: spanish; MessagesFile: compiler:Languages\Spanish.isl

[Dirs]
;{sd}                  = C:\
;{commonappdata}       = C:\ProgramData
;{sd}\Users\{username} = C:\Users\UserName
;{userdesktop}         = C:\Users\UserName\Desktop
;{localappdata}        = C:\Users\UserName\AppData\Local
;{userappdata}         = C:\Users\UserName\AppData\Roaming
;{userstartmenu}       = C:\Users\UserName\AppData\Roaming\Microsoft\Windows\Start Menu

[Files]
;Source: {app}\*.*; DestDir: {app}; DestName:; Attribs:; Flags:;
;Attribs: ReadOnly Hidden System
;DestName: Example.exe
;Flags: 32bit 64bit Deleteafterinstall IgnoreVersion NoCompression Onlyifdoesntexist recursesubdirs uninsneveruninstall

[Registry]
;Root: HKCR; Subkey: SystemFileAssociations\.ext\Shell\OPTION; ValueName: Icon; ValueType: String; ValueData: {app}\{#Exe}; Flags: ;
;Root: HKCR; Subkey: SystemFileAssociations\.ext\Shell\OPTION\Command; ValueType: String; ValueData: """{app}\{#Exe}"" ""%1"""; Flags: ;
;Flags: uninsdeletevalue uninsdeletekey

[Tasks]
;Name: Identifier; Description: Title; GroupDescription: Group; Flags:;
;Flags: Unchecked

[Run]
;Filename: "{cmd}"; Parameters: "/C command"; StatusMsg: "Installing..."; Flags: RunHidden WaitUntilTerminated
;Filename: {app}\{#Exe}; Description: {cm:LaunchProgram,{#Nombre}}; Flags: NoWait PostInstall SkipIfSilent ShellExec Unchecked
;Flags: 32bit 64bit RunHidden WaitUntilTerminated NoWait PostInstall SkipIfSilent ShellExec Unchecked

[Icons]
Name: {userstartmenu}\Programs\{#Name}; Filename: {app}\{#Exe}; Iconfilename: {app}\{#Exe}; WorkingDir: {app}

[Code]

const
 Custom_Height = 440;
 Custom_ProgressBar_Height = 20;
 Page_Color = clwhite;
 Page_Color_Alternative1 = clblack;
 Page_Color_Alternative2 = clwhite;
 Font_Color = clblack;


var
 DefaultTop,
 DefaultLeft,
 DefaultHeight,
 DefaultBackTop,
 DefaultNextTop,
 DefaultCancelTop,
 DefaultBevelTop,
 DefaultOuterHeight: Integer;


procedure InitializeWizard();
begin

 DefaultTop := WizardForm.Top;
 DefaultLeft := WizardForm.Left;
 DefaultHeight := WizardForm.Height;
 DefaultBackTop := WizardForm.BackButton.Top;
 DefaultNextTop := WizardForm.NextButton.Top;
 DefaultCancelTop := WizardForm.CancelButton.Top;
 DefaultBevelTop := WizardForm.Bevel.Top;
 DefaultOuterHeight := WizardForm.OuterNotebook.Height;


 // Pages (Size)
 WizardForm.Height := Custom_Height;
 WizardForm.InnerPage.Height := WizardForm.InnerPage.Height + (Custom_Height - DefaultHeight);
 WizardForm.LicensePage.Height := WizardForm.LicensePage.Height + (Custom_Height - DefaultHeight);


 // Pages (Color)
 WizardForm.color := Page_Color_Alternative1;
 WizardForm.FinishedPage.Color  := Page_Color;
 WizardForm.InfoAfterPage.Color := Page_Color;
 WizardForm.InfoBeforePage.Color := Page_Color;
 WizardForm.InnerPage.Color := Page_Color;
 WizardForm.InstallingPage.color := Page_Color;
 WizardForm.LicensePage.Color := Page_Color;
 WizardForm.PasswordPage.color := Page_Color;
 WizardForm.PreparingPage.color := Page_Color;
 WizardForm.ReadyPage.Color := Page_Color;
 WizardForm.SelectComponentsPage.Color  := Page_Color;
 WizardForm.SelectDirPage.Color  := Page_Color;
 WizardForm.SelectProgramGroupPage.color := Page_Color;
 WizardForm.SelectTasksPage.color := Page_Color;
 WizardForm.UserInfoPage.color := Page_Color;
 WizardForm.WelcomePage.color := Page_Color;


 // Controls (Size)
 WizardForm.InfoAfterMemo.Height := (Custom_Height - (DefaultHeight / 2));
 WizardForm.InfoBeforeMemo.Height := (Custom_Height - (DefaultHeight / 2));
 WizardForm.InnerNotebook.Height :=  WizardForm.InnerNotebook.Height + (Custom_Height - DefaultHeight);
 WizardForm.LicenseMemo.Height := WizardForm.LicenseMemo.Height + (Custom_Height - DefaultHeight);
 WizardForm.OuterNotebook.Height := WizardForm.OuterNotebook.Height + (Custom_Height - DefaultHeight);
 WizardForm.ProgressGauge.Height := Custom_ProgressBar_Height
 WizardForm.ReadyMemo.Height := (Custom_Height - (DefaultHeight / 2));
 WizardForm.Taskslist.Height := (Custom_Height - (DefaultHeight / 2));
 WizardForm.WizardBitmapImage.Height := (Custom_Height - (DefaultHeight - DefaultBevelTop));
 WizardForm.WizardBitmapImage2.Height  := (Custom_Height - (DefaultHeight - DefaultBevelTop));


 // Controls (Location)
 WizardForm.BackButton.Top := DefaultBackTop + (Custom_Height - DefaultHeight);
 WizardForm.Bevel.Top := DefaultBevelTop + (Custom_Height - DefaultHeight);
 WizardForm.CancelButton.Top := DefaultCancelTop + (Custom_Height - DefaultHeight);
 WizardForm.LicenseAcceptedRadio.Top := WizardForm.LicenseAcceptedRadio.Top + (Custom_Height - DefaultHeight);
 WizardForm.LicenseNotAcceptedRadio.Top := WizardForm.LicenseNotAcceptedRadio.Top + (Custom_Height - DefaultHeight);
 WizardForm.NextButton.Top := DefaultNextTop + (Custom_Height - DefaultHeight);
 WizardForm.Top := DefaultTop - (Custom_Height - DefaultHeight) div 2;
 //WizardForm.ProgressGauge.Top := (DefaultHeight / 2)


 // Controls (Back Color)
 WizardForm.DirEdit.Color  := Page_Color_Alternative2;
 WizardForm.GroupEdit.Color  := Page_Color_Alternative2;
 WizardForm.InfoAfterMemo.Color := Page_Color_Alternative2;
 WizardForm.InfoBeforeMemo.Color := Page_Color_Alternative2;
 WizardForm.LicenseMemo.Color := Page_Color_Alternative2;
 WizardForm.MainPanel.Color := Page_Color;
 WizardForm.PasswordEdit.Color  := Page_Color_Alternative2;
 WizardForm.ReadyMemo.Color := Page_Color_Alternative2;
 WizardForm.Taskslist.Color := Page_Color;
 WizardForm.UserInfoNameEdit.Color  := Page_Color_Alternative2;
 WizardForm.UserInfoOrgEdit.Color  := Page_Color_Alternative2;
 WizardForm.UserInfoSerialEdit.Color  := Page_Color_Alternative2;


 // Controls (Font Color)
 WizardForm.FinishedHeadingLabel.font.color  := Font_Color;
 WizardForm.InfoafterMemo.font.Color  := Font_Color;
 WizardForm.FinishedLabel.font.color  := Font_Color;
 WizardForm.DirEdit.font.Color  := Page_Color_Alternative1;
 WizardForm.Font.color := Font_Color;
 WizardForm.GroupEdit.font.Color  := Page_Color_Alternative1;
 WizardForm.InfoBeforeMemo.font.Color  := Page_Color_Alternative1;
 WizardForm.LicenseMemo.font.Color  := Page_Color_Alternative1;
 WizardForm.MainPanel.font.Color := Font_Color;
 WizardForm.PageDescriptionLabel.font.color  := Font_Color;
 WizardForm.PageNameLabel.font.color  := Font_Color;
 WizardForm.PasswordEdit.font.Color  := Page_Color_Alternative1;
 WizardForm.Taskslist.font.Color  := Font_Color;
 WizardForm.UserInfoNameEdit.font.Color  := Page_Color_Alternative1;
 WizardForm.UserInfoOrgEdit.font.Color  := Page_Color_Alternative1;
 WizardForm.UserInfoSerialEdit.font.Color  := Page_Color_Alternative1;
 WizardForm.WelcomeLabel1.font.color  := Font_Color;
 WizardForm.WelcomeLabel2.font.color  := Font_Color;
 WizardForm.ReadyMemo.font.Color := Page_Color_Alternative1;

end;



Este es el aspecto por defecto:




Y se puede customizar un poco el aspecto para conseguir algo parecido a esto, sólamente cambiando las variables de la plantilla...

[/code]
#9084
Cita de: Orni1 en 17 Abril 2013, 00:36 AMpero a mi me cuesta mucho.

De lo que se trata es de aprender poco a poco, con ejemplos pero sin que te lo den todo hecho, yo ya te dí casi todo hecho, solo hay que colocar cada cosa en su sitio :P.

Intenta hacerlo y si aún no lo has conseguido postea el código que llevas y te lo corregiré en un minuti momento.

Un saludo.
#9086
Cita de: Orni1 en 16 Abril 2013, 23:47 PM
Lo que quiero es que en la ventana cmd pueda escribir el texto a añadir a todas las lineas del texto.
El que tu me pones la ventana cmd me pide el nombre del archivo de texto.

La idea es que partiendo del archivo frutero.txt (u otro nombre) la ventana cmd pida el texto a añadir a las lineas de ese archivo de texto.

Fíjate en el código, puedes pedir el texto a introducir exáctamente de la misma manera que se puede pedir el archivo de texto en el script que te he puesto de ejemplo. Te quise poner un ejemplo de las dos maneras.

Set /P /?

CitarEl modificador /P permite establecer el valor de una variable para una línea
de entrada escrita por el usuario. Muestra la cadena del símbolo del sistema
antes de leer la línea de entrada. La cadena del símbolo del sistema puede
estar vacía.

Saludos!
#9087
¡ Llegó la nueva versión del instalador !

He corregido un error que sufrieron algunas personas con la carpeta de instalación del VS en la version antigua de este instalador...
Además lo he optimizado tanto en el sistema de la instalación de los componentes, como en su desinstalación... ...Y contiene más librerías, más controles, y más snippets!


La instalación completa y la instalación por defecto han sido testeadas en Windows 7 de 32 y 64 Bits, en Windows XP tampoco debería haber problemas.



LO PUEDEN DESCARGAR DE FORMA DIRECTA EN EL COMENTARIO PRINCIPAL DE ESTE HILO.



         
#9088
Cita de: Seazoux en  7 Abril 2013, 16:59 PM
De nada, eh? xD

Me ha hecho mucha gracia el video, es un tutorial express xD

"...Y después de instalar esto le pinchamos aquí para abrir el .NET, que tarda unas 400 horas en abrirse, pero yo ya lo tenia abierto así que..." X'D

Gracias por el video.

PD: El idioma por defecto de la IDE es Inglés, para poder elegir Español (como comentas en tu tuto) hay que instalar el idioma español para la IDe (Que va incluida en el instalador).
#9089
...Es decir: Como añadir un string al final de cada línea de un archivo de texto.

Pues así:

Código (dos) [Seleccionar]
@Echo OFF
Title Frutero

Set /P "InputText=Arrastra el archivo de texto... >> "
Set "String= tiene fruta"
Call :Writter "%InputText%" "%String%" ".\Frutero.txt"
Pause&Exit

:Writter
((FOR /F "Usebackq Tokens=*" %%@ IN ("%~1") DO (Echo %%@%~2)) > %3) & (GOTO:EOF)



Saludos!
#9090
Te está diciendo que intentas usar una variable que no tiene ningún valor asignado.

Asígnale un valor, y listo:

Código (csharp) [Seleccionar]
float primernumero = 0;
float segundonumero = 0;
float resultado = 0;
string operacion = null;


El ¿porque?, pues me imagino que porque C# es así de restrictivo, no sé, no manejo C#... :P

Saludos!