Creacion de Formulario Con Servicio Bluethoo Tamaño de Pantalla

Get Started. It's Free
or sign up with your email address
Rocket clouds
Creacion de Formulario Con Servicio Bluethoo Tamaño de Pantalla by Mind Map: Creacion de Formulario Con Servicio Bluethoo Tamaño de Pantalla

1. Microprocesadores: Android Nombre: Jonathan Gutiérrez

2. Introducción : En la siguiente actividad se realizo una aplicación android utilizando botones y etiquetas para así a prueba y error poder medir la pantalla del celular y obtener los datos si esta encendido o apagado el Bluethoo.

3. Android es un sistema operativo móvil desarrollado por Google, basado en el Kernel de Linux y otros software de código abierto. Fue diseñado para dispositivos móviles con pantalla táctil, como teléfonos inteligentes, tabletas, relojes inteligentes, automóviles y televisores.

4. Conclusion: la programacion que se realizo ha cumplido su funcion y hemos aprendido a dar permisos de bluethoo a aplicaciones android y ademas a dar el rango de pixeles de nuestra pantalla.

5. firma de aprobado:

6. Pantallazos:

7. Codigo: Android: unit Unit_Bluetooth; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, Androidapi.JNI.BluetoothAdapter, Androidapi.JNI.JavaTypes, Androidapi.JNIBridge, Android.JNI.Toast, Androidapi.Helpers, FMX.ListBox, FMX.Layouts, FMX.Memo, FMX.Edit, FMX.Objects, FMX.ListView.Types, FMX.ListView, System.Rtti, FMX.Grid, Data.Bind.GenData, System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.EngExt, Fmx.Bind.DBEngExt, Data.Bind.Components, Data.Bind.ObjectScope, FMX.Controls.Presentation; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Label1: TLabel; Button7: TButton; Button8: TButton; procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button5Click(Sender: TObject); Var s: String; // list:TStringList; begin // list:=TStringList.Create; s:=checkBluetooth; // Asegúrese de que el Bluetooth está habilitado Toast(s); if pos('disabled',s)<>0 then begin button5.TintColor:=$FFFA0202; //color rojo label1.text:='Habilite el dispositivo Bluetooth!!!'; exit; end else begin button5.tintcolor:=$FF9ACE31; //color lime label1.text:='Dispositivo Bluetooth Activo!!!'; end; end; procedure TForm1.Button6Click(Sender: TObject); begin button5.tintcolor:=$0; Close(); end; end. Codigo: Android:unit Unit_Bluetooth; interface usesSystem.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, Androidapi.JNI.BluetoothAdapter, Androidapi.JNI.JavaTypes, Androidapi.JNIBridge, Android.JNI.Toast, Androidapi.Helpers, FMX.ListBox, FMX.Layouts, FMX.Memo, FMX.Edit, FMX.Objects, FMX.ListView.Types, FMX.ListView, System.Rtti, FMX.Grid, Data.Bind.GenData, System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.EngExt, Fmx.Bind.DBEngExt, Data.Bind.Components, Data.Bind.ObjectScope, FMX.Controls.Presentation; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Label1: TLabel; Button7: TButton; Button8: TButton; procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button5Click(Sender: TObject);Var s: String; // list:TStringList;begin // list:=TStringList.Create; s:=checkBluetooth; // Asegúrese de que el Bluetooth está habilitado Toast(s); if pos('disabled',s)<>0 then begin button5.TintColor:=$FFFA0202; //color rojo label1.text:='Habilite el dispositivo Bluetooth!!!'; exit; end else begin button5.tintcolor:=$FF9ACE31; //color lime label1.text:='Dispositivo Bluetooth Activo!!!'; end;end; procedure TForm1.Button6Click(Sender: TObject);beginbutton5.tintcolor:=$0;Close();end; end.