Practicas

 Objetivo Crear mediante el uso B4A una loteria mexicana que barajee las cartas aleatoriamente y usando nuestra voz para decirlas Codigo Sub Class_Globals Private Root As B4XView Private xui As XUI     Private btnAuto As B4XView Private btnReiniciar As B4XView Private btnSiguiente As B4XView Private imgCarta As B4XView Private lblNombreCarta As B4XView Private ivfondo As ImageView Dim cartas As List Dim indiceActual As Int Dim mp As MediaPlayer Dim tmrAuto As Timer Dim ivfondo As ImageView End Sub Public Sub Initialize ' No se requiere código aquí por ahora End Sub Private Sub B4XPage_Created (Root1 As B4XView) Root = Root1 Root.LoadLayout("MainPage") ivfondo.Initialize("") Root.AddView(ivfondo, 0, 0, Root.Width, Root.Height) ivfondo.Bitmap = LoadBitmap(File.DirAssets, "mexico-cinco-mayo-fondo-sombrero-mexicano_1101-3237-removebg-preview.png") ivfondo.SendToBack ivfondo.Gravity = Gravity.FILL mp.Initial...

 Objetivo El objetivo de este proyecto fue crear un teléfono mediante el uso de Arduino que haría llamadas y recibiría  Código #include <Wire.h> #include <U8g2lib.h> #include <SoftwareSerial.h> #include <Keypad.h> #define SIM_TX 2 #define SIM_RX 3 SoftwareSerial sim800l(SIM_TX, SIM_RX); #define PIN_BUZZER 13 #define PIN_LED 12 // Display SSD1306 con U8g2 en modo 1 (paginado) para ahorro de RAM U8G2_SSD1306_128X64_NONAME_1_HW_I2C display(U8G2_R0, U8X8_PIN_NONE); // Teclado 4x4 const byte FILAS = 4; const byte COLUMNAS = 4; char teclas[FILAS][COLUMNAS] = {   {'1','2','3','A'},   {'4','5','6','B'},   {'7','8','9','C'},   {'*','0','#','D'} }; byte pinesFilas[FILAS] = {11, 10, 9, 8}; byte pinesColumnas[COLUMNAS] = {7, 6, 5, 4}; Keypad teclado = Keypad(makeKeymap(teclas), pinesFilas, pinesColumnas, FILAS, COLUMNAS); String numtel = "...