¿Que sensor estas usando como cámara termica?.
Un saludo
Estoy usando el MLX90614, tengo un modelo que abarcar un rango bastante amplio, estoy esperando que me llegue un modelo un poco más caro pero que es más direccional, con lo que espero que gane precisión.
Más o menos empieza a funcionar, he decidido ir pintanto pixel a pixel cada medida en la pantalla de VB (ahora mismo estoy usando 4x4 pixels por medida).
El problema que tengo es el siguiente:
- Desde el micro envio la temperatura y el punto X y el punto Y donde estoy midiendo.
- Con estos datos pinto el pixel de la pantalla correspondiente (en mi caso, ahora mismo estoy pintando 4x4 pixeles)
- Lo que ocurre es que pinto el pixel actual, pero no me mantiene los pixeles ya pintados.
Estoy usando un PictureBox, y el codigo para pintar los pixeles es el siguiente:
Dim temp As String
Dim Pantalla As Bitmap
Pantalla = New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim h As Integer
Dim v As Integer
Dim PixelColor As Color
PixelColor = Color.White
temp = Temperatura
h = Horizontal * 4
v = Vertical * 4
If temp > "29.00" Then
PixelColor = Color.Red
ElseIf temp > "28.00" Then
PixelColor = Color.DarkOrange
ElseIf temp > "27.00" Then
PixelColor = Color.Orange
ElseIf temp > "26.00" Then
PixelColor = Color.Yellow
ElseIf temp < "26.00" Then
PixelColor = Color.LightYellow
End If
For xi = h To h + 4
For yi = v To v + 4
Pantalla.SetPixel(xi, yi, PixelColor)
Next
Next
PictureBox1.Image = PantallaComo podéis ver el código todavía no esta optimizado porque estoy haciendo pruebas todavía, pero querría resolver antes lo de ir pintando todos los pixeles sin perderlos.
Supongo que si pinto todos los pixeles y al final hago el PictureBox1.Image = Pantalla se resolvería, pero quiero ir viendo como se van pintado pixel a pixel.
¿Alguna idea de como puedo hacerlo?
