Mecatronica

ARDUINO Y SIMULINK

2018-05-17T15:57:00.000-07:00

https://la.mathworks.com/videos/series/arduino-with-matlab-and-simulink-99406.html

programas a reproducir para aprender interfaces con matlab

2018-05-17T15:25:00.001-07:00

GUI EN MATLAB

RESPONDIENDO A UN SOLO BIT

2015-11-04T09:28:00.001-08:00

unsigned short dato; // Se declara “dato” para almacenar un byte u octeto
void main() {
ANSEL=ANSELH=0x00; // Deshabilita entradas analógicas, pone todo en digital
PORTB=0x00; // Pone a 0 todos los bits del registro RB
TRISB=0x00; // Habilita todos los bits de RB como salidas
// Inicializa módulo USART (8 bit, 9600 bauds, sin bit de paridad)
Uart1_Init(9600);
do { // Ciclo infinito para checar continuamente la transmisión
if (Uart1_Data_Ready()) { // Si un byte es recibido
dato = Uart1_Read(); // Lee el byte recibido del pin Rx del PIC en “dato”
switch (dato){ // Verifica el valor del byte recibido por el PIC
case 'A': PORTB.F0=1; break; // Si el dato es “A” pone 1 en el bit 0 de RB
case 'R': PORTB.F1=1; break; // Si el dato es “R” pone 1 en el bit 1 de RB
case 'V': PORTB.F2=1; break; // Si el dato es “V” pone 1 en el bit 2 de RB
case 'a': PORTB.F0=0; break; // Si el dato es “a” pone 0 en el bit 0 de RB
case 'r': PORTB.F1=0; break; // Si el dato es “r” pone 0 en el bit 1 de RB
case 'v': PORTB.F2=0; break; // Si el dato es “v” pone 0 en el bit 2 de RB
}
Uart1_Write(dato); // Envía el dato leído vía USART por el pin Tx
}
} while (1);
}

ENVIO DE TEXTO A TRAVEZ DE TERMINAL,VERDE , AZUUL, AMARILLO CON PUNTO COMO TERMINADOR

2015-11-04T08:28:00.002-08:00

void main(){
char str[6]="verde";
char str1[6]="azuul";
char str2[6]="rojos";
char str3[6]="amari";
char cad[6];
ANSEL=ANSELH=0x00;
TRISB=0x00;
Uart1_Init(9600);
osccon=0x77;
while(1) {
if (Uart1_Data_Ready()) {
Uart1_Read_Text(cad,"\.",255);
Uart1_Write_text(cad);
// verde
if(!strcmp(str,cad))
{
Uart1_Write(13);
PORTB=0B00000001;
delay_ms(100);
cad[0]=cad[1]=cad[2]=cad[3]=cad[4]=cad[5]=" ";
} // azuul
else if(!strcmp(str1,cad))
{
Uart1_Write(13);
PORTB=0B00000010;
delay_ms(100);
cad[0]=cad[1]=cad[2]=cad[3]=cad[4]=cad[5]=" ";
} // rojos
else if(!strcmp(str2,cad))
{
Uart1_Write(13);
PORTB=0B00000100;
delay_ms(100);
cad[0]=cad[1]=cad[2]=cad[3]=cad[4]=cad[5]=" ";
} //amari
else if(!strcmp(str3,cad))
{
Uart1_Write(13);
PORTB=0B00001000;
delay_ms(100);
cad[0]=cad[1]=cad[2]=cad[3]=cad[4]=cad[5]=" ";
}
else {
//Uart1_Write_text(" Falso ");
Uart1_Write(13);
PORTB=0B00010000;
delay_ms(100);
cad[0]=cad[1]=cad[2]=cad[3]=cad[4]=cad[5]=" ";
}
} //if

}

}

El arduino Nano y su descripcion

2015-10-28T17:56:00.006-07:00

Lo que debo saber para graficar php

2015-10-28T17:53:00.001-07:00

Comunicacion basica Esp8266 usando php

2015-10-28T17:49:00.001-07:00

Conectividad Wifi esp8266

2015-10-28T17:47:00.000-07:00

CUENTA MONEDAS

2013-12-09T11:23:00.000-08:00

UN EXCELENTE PROGRAMA PARA APRENDER LAS INTRUCCIONES IMFILL,BWLABEL,REGIONPROPS ETC...

%% COUNT OF COINS
% Ing. Diego Barragn Guerrero
% www.matpic.com - www.eqbyte.com
%% Convert image to BW

coin1 = im2bw(imread('coins.png'));
%% Fill image regions and holes
coin2 = imfill(coin1,'holes');
%% Label and count connected components
[L Ne]=bwlabel(double(coin2));
%% Measure properties of image regions
prop=regionprops(L,'Area','Centroid');
%% Counter
total=0;
%% Show image
imshow(imread('coins.png'));hold on
%% Money count based on area of coin
for n=1:size(prop,1) %For 1 to Total number of coins
    cent=prop(n).Centroid;
    X=cent(1);Y=cent(2);
    if prop(n).Area>2000
        text(X-10,Y,'5 C') 
        total=total+5;
    else
        total=total+10;
        text(X-10,Y,'10 C') 
    end
end
hold on
title(['Total of money: ',num2str(total),' Cents'])

examen de polo

2013-11-26T02:39:00.000-08:00

modelo=input('introduce modelo de coginete ');
a=xlsread('tablas.xlsx');
b=xlsread('tablas.xlsx',2);
[r,c]=find(a==modelo);
co=a(r,c+1)
Pa=input('introduce el valor de la carga axial ');
Pr=input('introduce el valor de la carga radial ');
e=Pa/co
valor=Pa/Pr

e=input('introduce el error ');

if valor>e
[r,c]=find(b==e);
x=b(r,c+1)
y=b(r,c+2)
end
if valor<=e
[r,c]=find(b==e) ;
x=b(r,c+3)
y=b(r,c+4)
end

pzero=x*Pr+y*Pa
tao=(a(r,c+1)/pzero)^3
Nb=input('introduce la velocidad rotacional ');

t10=(10E6*tao)/(60*Nb)

Contador con TMR0

2013-09-05T01:21:00.001-07:00

char *text[10];
unsigned int pulsos;
void main()
{
ANSEL=0;
ANSELH=0;
OSCCON=0x77;
TRISA=0xFF;
TRISB=0x00;
T1CON=0b00000011;
Lcd_Init(&PORTB);
Lcd_Cmd(Lcd_CLEAR);
Lcd_Cmd(Lcd_CURSOR_OFF);
while (1)
{
TMR1L=0;
TMR1H=0;
Delay_ms(1000);
pulsos=((TMR1H<<8 p="">wordToStr(pulsos,text);
Lcd_Out(1,1,text);
}
}

Este programa realiza la cuenta de los pulsos que ingresan al sistema

555 astable -practica alumnos del itz

2013-09-03T07:14:00.001-07:00

Material para la practica del 555

VR es un potenciometro de 100k
C1 de 10uF, si es posible consigan mas capacitores de valores diferentes
C2 es un capacitor de lenteja

Frequencia = 1.44 / {(R1 + 2R2) * C1}
Ciclo de trabajo = (R1 + R2) * 100/ (R1 + 2R2)

Neumatica basica

2013-07-16T08:07:00.000-07:00

Este es el documento que contiene los circuitos basicos neumaticos a reproducir en fluidsim:

http://www.cygintegral.cl/Biblioteca/Neumatica-4.pdf

Activando Relees con el Pic

2012-06-17T11:54:00.001-07:00

void main()
{
osccon = 0x77; //reloj interno a 8Mhz
portD = 0x00; //PuertoD en 0
trisD = 0; //PuertoD salidas
while (1) //ciclo infinito
{
portD = 0b00000001; //manda 1 a RD0
delay_ms(3000); //retardo de 3 minutos
portD = 0b00000010; //manda 1 a RD1
delay_ms(1000); //retardo de 1 minuto
}
}

Pwm con pic y botones

2012-06-17T11:45:00.003-07:00

unsigned short j, oj;

void InitMain()

{

osccon = 0x77; // oscilador a 8MHz

PORTB = 0; // Set PORTB to 0

TRISB = 0; // PORTB son salidas

ADCON1 = 6; // todo pin ADC a digital I/O

PORTA = 255;

TRISA = 255; // PORTA como entradas

PORTC = 0xFF; // Set PORTC to $FF

TRISC = 0; // PORTC son salidas

Pwm_Init(5000); // Inicializa el modulo PWM

}//~

void main() {

InitMain();

j = 80; // valor inicial para j

oj = 0; // oj will keep the 'old j' value

Pwm_Start(); // Empieza PWM

while (1) { // ciclo infinito

if (Button(&PORTA, 0,1,1)) // presiona el boton en RA0

j++ ; // incrementa j

if (Button(&PORTA, 1,1,1)) // presiona el boton en RA1

j-- ; // decrementa j

if (oj != j) { // si cambia el ciclo,

Pwm_Change_Duty(j); // cambia la frecuencia,

oj = j; // se menoriza,

PORTB = oj; // and display on PORTB

}

Delay_ms(200); // retardo de 200ms

}

Puente H con pic y transistores

2012-06-17T11:41:00.001-07:00

void main()

{

osccon = 0X77; //reloj interno a 8 Mhz

PORTD = 0x00; //inicia el puertoD

TRISD = 0x00; //el puertoD son salidas

ANSEL = 0; //configura los puertos como digitales

ANSELH = 0; //configura los puertos como digitales

while(1) //ciclo infinito

{

PORTD=0b00000101; //manda 1 a RD0 y RD2

delay_ms(5000); //retardo de 5s

PORTD=0b00001010; //manda 1 a RD1 y RD3

delay_ms(5000); //retaardo de 5s

}

Pasos unipolar a transistores

2012-06-17T11:35:00.000-07:00

void main()

{

osccon = 0x77; //reloj interno a 8Mhz

portD = 0x00; //inicia puertoD

TrisD = 0x00; //el puertoD son salidas

while(1) //ciclo infinito

{

portD.f0=1; //manda 1 a RD0

delay_ms(200); //retarda 200ms

portD.f0=0; //manda 0 a RD0

portD.f1=1; //manda 1 a RD1

delay_ms(200); //retarda 200ms

portD.f1=0; //manda 0 a RD1

portD.f2=1; //manda 1 a RD2

delay_ms(200); //retarda 200ms

portD.f2=0; //manda 0 a RD2

portD.f3=1; //manda 1 a RD3

delay_ms(200); //retarda 200ms

portD.f3=0; //manda 0 a RD0

}

Luces del Auto increible con pic

2012-06-17T11:22:00.000-07:00

Este programa realiza el mismo efecto de luces que el auto increible, sencillo y didactico para empezar a programar pics en C...

void main()

{

osccon=0x77; //oscilador interno a 8 Mhz

PORTD=0xff; //Puerto D salidas

TRISD=0; // PORTD is output

while(1) //Ciclo infinito

{

portD=0b00000001; //Coloca 1 en RD0