|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
  AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


.

B4J en español
B4J - Juan Antonio Villalpando

-- Tutorial de iniciación a B4J en español --

 

- Aquí puedes encontrar la instalación y configuración del programa B4J para realizar archivos jar de Java.

Volver al índice del tutorial

_________________________________________

9.- Ejecutar .exe.

- Presentación

- Vamos a ejecutar un archivo adivina.exe

adivina.exe

- Necesitaremos esta librería jShell.zip

- Descomprimimos la librería y copiamos los dos archivos .jar y .xml en:

C:\Program Files (x86)\Anywhere Software\B4J\Libraries

- Reiniciamos la aplicación y en la parte de abajo derecha, pulsamos en Libs, observaremos que ha cargado la jShell, la marcamos.
____________________________

- Código.

1.- Pulsamos Design, saldrá el JavaFx Scene Builder. Ponemos un botón, en la propiedad JavaFX CSS le ponemos de nombre btn_Run.

2.- Lo guardamos con nombre: layout

3.- Copiamos este código.

4.- El archivo adivina.exe deberá estar en la carpeta Objets de la aplicación que has creado.

 
Sub Process_Globals
    ' Juan Antonio Villalpando
    ' juana1991@yahoo.com
    
    ' 20 de noviembre de 2013
    Private fx As JFX
    Private MainForm As Form   
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("layout")
    MainForm.Show
    MainForm.Title = "Ejecutar una aplicación .exe."
    MainForm.BackColor=fx.Colors.White
    ' MainForm.Icon = fx.LoadImage(File.DirAssets, "dibujo_icono.png")
    MainForm.Resizable=False
End Sub



Sub btnRun_MouseClicked (EventData As MouseEvent)
    
    Dim adivina As Shell
    Dim params As List
    Dim FileRun As String
    params.Initialize
    params.Add(File.DirApp)
    FileRun= File.Combine(File.DirApp , "adivina.exe")
    Log(FileRun)

    'adivina.Initialize("adivina",FileRun, Null)
    adivina.Initialize("adivina",FileRun, params)
    adivina.WorkingDirectory = File.DirApp
    adivina.Run(-1)

End Sub

 Private Sub adivina_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    If Success AND ExitCode = 0 Then
        Log("Success")
        Log(StdOut)
    Else
        Log("Error: " & StdErr)
    End If
    ExitApplication
End Sub

__________________________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información