Scribd
Upload
6 views

Codigo Programacion

Uploaded by

navegaweb
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
6 views

Codigo Programacion

Uploaded by

navegaweb
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 10

Visual Basic

Dim pablo As String

Dim dato As String

Private Sub Command1_Click()

dato = "f"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command10_Click()

pablo = MsgBox("Borrando programa", vbCritical, "PELIGRO")

dato = "l"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command11_Click()

dato = "b"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command12_Click()

dato = "a"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command2_Click()

dato = "d"

MSComm1.Output = dato & vbCrLf

End Sub
Private Sub Command3_Click()

dato = "c"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command4_Click()

dato = "e"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command5_Click()

dato = "g"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command6_Click()

dato = "h"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command7_Click()

dato = "i"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Command8_Click()

dato = "j"

MSComm1.Output = dato & vbCrLf

End Sub
Private Sub Command9_Click()

dato = "k"

MSComm1.Output = dato & vbCrLf

End Sub

Private Sub Form_Load()

MSComm1.RThreshold = 1

MSComm1.InputLen = 1

MSComm1.Settings = "9600,n,8,1"

MSComm1.CommPort = 14

MSComm1.InBufferSize = 16

MSComm1.InputLen = 10

MSComm1.DTREnable = False

MSComm1.PortOpen = True

End Sub
Arduino AI

//Declaracion de variables y pines

byte rele;

int pel;

int mercurio = 2;

int venus = 3;

int tierra = 4;

int marte = 5;

int jupiter = 6;

int saturno = 7;

int urano = 8;

int neptuno = 9;

int sol = 10;

int led1 = 11;

int led2 = 12;

int led3 = 13;

int led4 = 22;

int led5 = 23;

int led6 = 24;

int led7 = 25;

int led8 = 26;

int led9 = 27;

void setup() {

//Planetas/motores de planetas

pinMode(mercurio, OUTPUT);

pinMode(venus, OUTPUT);

pinMode(tierra, OUTPUT);

pinMode(marte, OUTPUT);
pinMode(jupiter, OUTPUT);

pinMode(saturno, OUTPUT);

pinMode(urano, OUTPUT);

pinMode(neptuno, OUTPUT);

pinMode(sol, OUTPUT);

//Planetas/tiras led de planetas

pinMode(led1,OUTPUT);

pinMode(led2,OUTPUT);

pinMode(led3,OUTPUT);

pinMode(led4,OUTPUT);

pinMode(led5,OUTPUT);

pinMode(led6,OUTPUT);

pinMode(led7,OUTPUT);

pinMode(led8,OUTPUT);

pinMode(led9,OUTPUT);

//Iniciacion del puerto serial para comunicaciones

Serial.begin(9600);

void loop() {

if (Serial.available()>0){

rele=Serial.read();
if (rele=='a')

digitalWrite(mercurio, LOW);

digitalWrite(led1, LOW);

if (rele=='b')

digitalWrite(venus, LOW);

digitalWrite(led2, LOW);

if (rele=='c')

digitalWrite(tierra, LOW);

digitalWrite(led3, LOW);

if (rele=='d')

digitalWrite(marte, LOW);

digitalWrite(led4, LOW);

if (rele=='e')

digitalWrite(jupiter, LOW);

digitalWrite(led5, LOW);
}

if (rele=='f')

digitalWrite(saturno, LOW);

digitalWrite(led6, HIGH);

if (rele=='g')

digitalWrite(urano, LOW);

digitalWrite(led7, HIGH);

if (rele=='h')

digitalWrite(neptuno, LOW);

digitalWrite(led8, HIGH);

if (rele=='i')

digitalWrite(sol, LOW);

digitalWrite(led9, HIGH);

if (rele=='j')

digitalWrite(mercurio, LOW);
digitalWrite(led1, LOW);

digitalWrite(venus, LOW);

digitalWrite(led2, LOW);

digitalWrite(tierra, LOW);

digitalWrite(led3, LOW);

digitalWrite(marte, LOW);

digitalWrite(led4, LOW);

digitalWrite(jupiter, LOW);

digitalWrite(led5, LOW);

digitalWrite(saturno, LOW);

digitalWrite(led6, HIGH);

digitalWrite(urano, LOW);

digitalWrite(led7, HIGH);

digitalWrite(neptuno, LOW);

digitalWrite(led8, HIGH);

digitalWrite(sol, LOW);

digitalWrite(led9, HIGH);

if (rele=='k')

digitalWrite(mercurio, HIGH);

digitalWrite(led1, HIGH);

digitalWrite(venus, HIGH);

digitalWrite(led2, HIGH);

digitalWrite(tierra, HIGH);

digitalWrite(led3, HIGH);

digitalWrite(marte, HIGH);
digitalWrite(led4, HIGH);

digitalWrite(jupiter, HIGH);

digitalWrite(led5, HIGH);

digitalWrite(saturno, HIGH);

digitalWrite(led6, LOW);

digitalWrite(urano, HIGH);

digitalWrite(led7, LOW);

digitalWrite(neptuno, HIGH);

digitalWrite(led8, LOW);

digitalWrite(sol, HIGH);

digitalWrite(led9, LOW);

if (rele=='l')

for (pel=0; pel < 1; pel++ )

digitalWrite(mercurio, HIGH);

digitalWrite(led1, HIGH);

digitalWrite(venus, LOW);

digitalWrite(led2, LOW);

digitalWrite(tierra, HIGH);

digitalWrite(led3, HIGH);

digitalWrite(marte, LOW);

digitalWrite(led4, LOW);

digitalWrite(jupiter, HIGH);

digitalWrite(led5, HIGH);

digitalWrite(saturno, LOW);

digitalWrite(led6, HIGH);
digitalWrite(urano, HIGH);

digitalWrite(led7, LOW);

digitalWrite(neptuno, LOW);

digitalWrite(led8, HIGH);

digitalWrite(sol, HIGH);

digitalWrite(led9, LOW);

for (pel=0; pel < 1; pel++ )

digitalWrite(venus, LOW);

digitalWrite(led1, LOW);

digitalWrite(venus, HIGH);

digitalWrite(led2, HIGH);

digitalWrite(tierra, LOW);

digitalWrite(led3, LOW);

digitalWrite(marte, HIGH);

digitalWrite(led4, HIGH);

digitalWrite(jupiter, LOW);

digitalWrite(led5, LOW);

digitalWrite(saturno, HIGH);

digitalWrite(led6, LOW);

digitalWrite(urano, LOW);

digitalWrite(led7, HIGH);

digitalWrite(neptuno, HIGH);

digitalWrite(led8, LOW);

digitalWrite(sol, LOW);

digitalWrite(led9, HIGH);

You might also like