Tarea #2 de Microprocesadores-Javier Alejandro Gutierrez de León-

Microprocesadores

• Mostrar listado de dispositivos Bluetooth con dirección MAC y nombre del dispositivo
• Elabora un programa en RAD-STUDIO para
• Android donde muestra un listado de
• dispositivos de los cuales se puede pegar el
• bluetooth.
• -Javier Alejando Gutierrez de León-
• 

Dato histórico

• El microprocesador surgió de la evolución de distintas tecnologías predecesoras, básicamente de la computación y de la tecnología de semiconductores. El inicio de esta última data de mitad de la década de 1950; estas tecnologías se fusionaron a principios de los años 1970, produciendo el primer microprocesador.

Marco teórico

• El microprocesador es el circuito integrado central más complejo de un sistema informático; a modo de ilustración, se le suele llamar por analogía el «cerebro» de un ordenador.

Materiales

• Computadora con embarcadero instalado
• Celular Android

Procedimiento

• 
• 
• Legenda: Dispositivo seleccionado
• Legenda: Al entrar a la aplicación

Codigo de programación

• unit Unit_2;
• 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.ListView.Appearances, FMX.ListView.Adapters.Base,
• FMX.Controls.Presentation;
• type
• TForm1 = class(TForm)
• Button1: TButton;
• Label1: TLabel;
• Label2: TLabel;
• Label3: TLabel;
• Label4: TLabel;
• ListView1: TListView;
• procedure FormShow(Sender: TObject);
• procedure ListView1ItemClick(const Sender: TObject;
• const AItem: TListViewItem);
• private
• { Private declarations }
• public
• { Public declarations }
• end;
• var
• Form1: TForm1;
• implementation
• {$R *.fmx}
• procedure TForm1.FormShow(Sender: TObject);
• var
• s:string;
• i:integer;
• list:TStringList;
• begin
• list:=TStringList.Create; //crea un listado
• s:=checkBluetooth; // verifica que el dispositivo se encuentre encendido
• Toast(s); //imprime el estado del dispositivo
• if pos('disabled',s)<>0 then exit; //se sale si el bluetooth esta apagado
• list.Clear; //limpia la variable list
• list.AddStrings(getbonded); // produce un listado de dispositivos
• listview1.Items.Clear; //limpia listview1
• for i := 0 to list.Count-1 do
• begin
• ListView1.items.add.Text:=list[i].Split(['='])[0]; //asocia el Nombre del Bluetooth
• ListView1.Items[i].Detail:=list[i].Split(['='])[1]; //asocia la Mac del Bluetooth
• end;
• label4.Text:=i.ToString+' Dispositivos Emparejados';
• end;
• procedure TForm1.ListView1ItemClick(const Sender: TObject;
• const AItem: TListViewItem);
• begin
• label2.Text:='Dispositivo #'+(AItem.Index+1).toString;
• label3.Text:='Nombre: '+Aitem.text;
• label4.Text:='MAC: '+Aitem.Detail;
• end;
• end.

Visto Bueno

• 
• Legenda: Visto bueno de la actividad