Memoria RAM y ROM Ejercicio4

Hola

Pasos para crear una apk en App Inventor

El siguiente video muestra los pasos para crear una aplicación en la plataforma App Inventor 2

Práctica mover servo/imprimir lectura grados

Mover Servo-Imprimir Lectura Grados

#include <Servo.h>  //Para usar la libreria Servo

Servo myServo; //Creas objeto de la libreria para controlar el motor
int const potPin = A0;//Puerto analogo A0
int potVal; //pot hace referencia al potenciómetro
int angle;

void setup() {
  // put your setup code here, to run once:
myServo.attach(9); //se relaciona el servo con el pin 9 señal digital con PWM "señal de modulación por ancho de pulso"

Serial.begin(9600);//Referente al monitor serial "9600 medida standar"
}

void loop() {
  // put your main code here, to run repeatedly:
potVal =analogRead(potPin);
Serial.print("potVal: ");
Serial.print(potVal);

angle=map(potVal,0,1023,5,176);//la funcion map realiza una escala de la lectura respecto a la salida, analogread capacidad 1023 max y serco 180 angulo max
Serial.print(", angle: ");
Serial.println(angle);

myServo.write(angle);
delay(15);
}

Práctica Sensor de Gas Arduino

Sensor de Gas Arduino

int sensorValue;

int GasSensorPin = 0;   //Gas Sensor Connection Declaro en cual se va a realizar la lectura del GAS Puerto analogo "0"

void setup()

{

 pinMode(13, OUTPUT);

 pinMode(11, OUTPUT);

 Serial.begin(9600);      // sets the serial port to 9600 (velocidad de lectura Baudios)Estándar "Referente al monitor serial"

}

void loop()

{

 sensorValue = analogRead(GasSensorPin);       // read analog input pin 0 , no es un dato es una entrada analógica"AnalogRead"

 Serial.println(sensorValue, DEC);  // prints the value read

 if(analogRead(sensorValue)>400){

  digitalWrite(13, HIGH);

  digitalWrite(11, LOW);

  }

  else{

    digitalWrite(13, LOW);

    digitalWrite(11, HIGH);

    }

 delay(100);         

Práctica Servo-Potenciómetro

Código para mover servo con Potenciómetro

#include <Servo.h>

Servo servo_1;  // Definimos los servos que vamos a utilizar

int potenciometro_1 = 5;  // Pin usado para conectar el potenciómeto
int valor_potenciometro_1;    // Esta variable definirá la posición del servo

void setup() {
servo_1.attach(9);  // Difinimos el pines de señal para el servo "attach"=juntar
}

void loop() {

valor_potenciometro_1 = analogRead(potenciometro_1);
// leemos el valor del potenciometro (valor entre 0 y 1023)

valor_potenciometro_1 = map(valor_potenciometro_1, 0, 1023, 0, 180);
// valor proporcional a la escala del servomotor (valor entre 0 y 180)

servo_1.write(valor_potenciometro_1);

delay(10);
// Esperamos para reiniciar el bucle
}

Código para mover un servo encendiendo Leds

Código para manipular Servo

#include <Servo.h>


//Declaramos la variable para controlar el servo
Servo servoMotor;
int rojo=2;
int verde=3;
int azul=4;

void setup() {
  // Iniciamos el monitor serie para mostrar el resultado
  Serial.begin(9600);
  pinMode(rojo,OUTPUT);
  pinMode(azul,OUTPUT);
  pinMode(verde,OUTPUT);
  // Iniciamos el servo para que empiece a trabajar con el pin 9
  servoMotor.attach(9);
}

void loop() {
  digitalWrite(rojo,LOW);
  digitalWrite(verde,LOW);
  digitalWrite(azul,LOW);
  // Desplazamos a la posición 0º
  servoMotor.write(0);
   digitalWrite(rojo,HIGH);
  digitalWrite(verde,LOW);
  digitalWrite(azul,LOW);
  // Esperamos 1 segundo
 
  delay(1000);
 
  // Desplazamos a la posición 90º
  servoMotor.write(90);
  // Esperamos 1 segundo
   digitalWrite(rojo,LOW);
  digitalWrite(verde,HIGH);
  digitalWrite(azul,LOW);
  delay(1000);
 
  // Desplazamos a la posición 180º
  servoMotor.write(180);
   digitalWrite(rojo,LOW);
  digitalWrite(verde,LOW);
  digitalWrite(azul,HIGH);
  // Esperamos 1 segundo
  delay(1000);

Formulario Excel -Guardar Registros

Después de crear el formulario debemos agregar las siguientes instrucciones, dar doble clic al botón "Guardar"

Botón de Guardar el siguiente código:

Private Sub CommandButton1_Click()
For A = 5 To 500 'Aquí declaro una variable''El número 5 representa la fila en la que empezaré'
If Cells(A + 1, 3).Value = "" Then ' aquí ponemos que empezaremos en la fila 6'
Cells(A + 1, 3).Value = TextBox1   'El numero 3 representa la columna ejemplo columna3=C'
Cells(A + 1, 4).Value = TextBox2 ' Teléfono
Cells(A + 1, 5).Value = TextBox3 ' Edad
TextBox1 = Empty ' una vez dado clic se vacia el campo
TextBox2 = Empty
TextBox3 = Empty

Exit For
End If
Next

End Sub

Ahora agrego la programación de los otros dos botones

Para el botón Cancelar el siguiente código:

Private Sub CommandButton2_Click()
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
End Sub

Para el Botón de Cerrado lo siguiente:

Private Sub CommandButton3_Click()
UserForm1.Hide
End Sub

Líneas y Cotas Angulares

2.-Básico Autocad

Isométrico 3