Reparando tu compu!

Contáctanos

domingo, 26 de abril de 2020

ECG en Arduino

Se programar en arduino...... pero en YT aprendí a hacer un ECG...........



Ref. de youtube:

/*
//What is an analogical read: http://www.arduino.cc/en/Tutorial/AnalogReadSerial
*/References from youtube, ECG with Arduino:
//https://www.youtube.com/watch?reload=9&v=9Si4efa434U
//https://www.youtube.com/watch?v=xySBTU_9vGo

int L0Mas =11;
int L0Menos = 10;
int Senal =A0;

// the setup routine runs once when you press reset:
void setup() {

  // initialize serial communication at 9600 bits per second:
  Serial.begin(9600);
pinMode(L0Mas, INPUT);
pinMode(L0Menos,INPUT);

}

// the loop routine runs over and over again forever:
void loop() {
  if ((digitalRead(L0Mas)==1) || (digitalRead(L0Menos)==1)){
  Serial.println('!');
  }
  else{
    Serial.println(analogRead(A0));
  // read the input on analog pin 0:
  //int sensorValue = analogRead(A0);
  // print out the value you read:
   // int sensorValue1 = digitalRead(11);
    // int sensorValue2 = digitalRead(12);
  //Serial.println(sensorValue+sensorValue1+sensorValue2);
//  delay(1);        // delay in between reads for stability
//https://www.youtube.com/watch?reload=9&v=9Si4efa434U
//Serial.println(1024/2);
  }
  delay(1);
  }

///

viernes, 24 de abril de 2020

Encriptación de disco

Con Bitlocker para windows o luks https://launchpad.net/ecryptfs


Ref: https://www.cyberciti.biz/hardware/howto-linux-hard-disk-encryption-with-luks-cryptsetup-command/

jueves, 16 de abril de 2020

martes, 14 de abril de 2020

problema con un picture box en Visual Basic

Problema con un picture box en visual basic y arduino............

Aprendiendo a unir VB con arduino me tope con este video https://www.youtube.com/watch?v=0PYCXe94u3k , lo práctique pero  hay algo que no me funciona.... estoy abierta a sugerencias.




Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
 
        SerialPort1.PortName = "COM3"
 
        If SerialPort1.IsOpen Then
 
        Else
            Try
 
            Catch ex As Exception
                SerialPort1.Open()
 
            End Try
 
            Timer1.Start()
            Button1.Enabled = False
            Button2.Enabled = True
 
        End If
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim data As Object
        data = SerialPort1.ReadExisting().ToString()
 
        PictureBox1.String(data)  '''''''''aquiii es donde no se furula
    End Sub
End Class