Jump to content

MBOB

Members
  • Gesamte Inhalte

    37
  • Benutzer seit

  • Letzter Besuch

Posts erstellt von MBOB

  1.     Sub HighContrastImageCB(ByVal sender As BrickletThermalImaging, ByVal image As Byte())
            Dim myBitmap As New Bitmap("c:\temp\ir8060.jpg")

            Dim img As Byte() = image

            Dim i As Single
            Dim x As Single
            Dim y As Single
            Dim img_color(4800) As Color
            Dim img_highest As Byte

            For i = 0 To 4799
                img_color(i) = Color.FromArgb(0, img(i), 0, img(i)) 'RGB(255, 0, 0)
            Next i

            For y = 0 To 59
                For x = 0 To 79
                    myBitmap.SetPixel(x, y, img_color(x * y))
                Next x
            Next y

            PicBox_IR.Image = myBitmap

        End Sub

     

  2. grafik.thumb.png.8f5dea27bc046679561e921ee540f2b7.pnggrafik.png.74b94546f2a784b0641829e458a23cf6.png

    Anbei das Bild des BrickViewers.

    Bei mir (VB-Programm) sieht das Bild (rötliches Muster, da ich Byte-Werte nur als RED-Intensivität dargestellt habe) unstrukturiert aus, obwohl ich die 4800 Bytes Zeile 0, dann Zeile 1 u.s.w. auslese !?!?!

    Alle anderen Parameter habe ich auf Standart-Parameter lassen

     

    Kann ich bitte einen ausführlicheren Beispiel-Code haben, als euer Beispiel-Code https://github.com/Tinkerforge/thermal-imaging-bricklet/raw/master/software/examples/vbnet/ExampleCallback.vb

     

  3. Ich möchte den Kameraschlitten vertikal nutzen.

    Die Kamera am Schlitten hat 1 kg Gewicht.

    Ich weiß, dass der Stepper oder SilentStepper beim Viewer mit „enabled“ verbunden sein muss, sonst fährt der Schlitten ungebremst nach unten!

    Rein vom Drehmoment müsste sich das Gewicht der Kamera locker ausgehen!

     

    Macht es einen Unterschied, ob ich den Stepper oder den Silent Stepper verwende?

    Wie muss ich die Einstellungen ändern, damit die Kamera in einer bestimmten Höhe gehalten werden kann?

     

  4. Hallo Community

     

    Ich habe über den BrickViewer Zugriff auch das Thermal Imaging Bricklet und sehe auch ein LiveBild.

    Ich habe über Visual Basic .NET Zugriff auf das Bricklet mit der richtigen UID über den USB Anschluss

     

    Wie bekomme ich das LiveBild als BMP in die PictureBox?

    1. Der ExampleCode hilft mir leider nicht!

    -----------ANFANG----------

    ' Callback subroutine for high contrast image callback

    Sub HighContrastImageCB(ByVal sender As BrickletThermalImaging, _ ByVal image As Byte())

    ' image is an array of size 80*60 with a 8 bit grey value for each element

    End Sub

    -----------ENDE----------

     

    2. Abfrage der 4800 Arrays und mit "bitmap.setpixel" das PictureBox-Bild pixel-weise zusammenzusetzen scheint mir sehr umständlich!

     

    Ziel:

    1. LiveBild > PictureBox

    2. Color Palette = HotCold

×
×
  • Neu erstellen...