Ana içeriğe git

Haberler

Konu: PIC, UART ve VB  (260 Kez okunmuş) önceki konu - sonraki konu

0 Üyeler ve 1 Ziyaretçi konuyu incelemekte.
PIC, UART ve VB
Merhaba,
Bir süre önce takıldığım problemi siz dostlardan gelen cevaplarla yeniden algoritma kurdum ve de çalıştırdım.PIC'in 8 pinini birden EXOR komutu ile karşılaştırıp düşük 4bayt için bir karakter yüksek bayt için bir karakter yolluyor.Böylece PIC'ten gelen iki baytı okuyup işleri daha kolay hale getirdim.
Kod: [Seç]
  Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Dim gelen As String = SerialPort1.ReadByte

        '*********************EXOR TESTİ BAŞLAR******************************
        '
        '
        '                Aa  KONTROLU
        '
        '
        '********************************************************************

        If gelen = 65 Then '  A
            PictureBox35.Image = Image.FromFile("c:\resm" + "\F.bmp")
        End If
        If gelen = 97 Then '  a
            PictureBox36.Image = Image.FromFile("c:\resm" + "\F.bmp")
            '          PictureBox22.BackColor = Color.Red    ZATEN  KIRMIZI OLARAK BAŞLIYOR RED YAPMAYA GEREK YOK
            '          Label22.ForeColor = Color.Red
        End If
        '---------------------------------------------------
        If gelen = 65 Then '  A
            PictureBox35.Image = Image.FromFile("c:\resm" + "\F.bmp")
        End If
        If gelen = 98 Then '  b
        End If
        '---------------------------------------------------
        If gelen = 65 Then '  A
            PictureBox35.Image = Image.FromFile("c:\resm" + "\F.bmp")
        End If
        If gelen = 99 Then '  c
            PictureBox36.Image = Image.FromFile("c:\resm" + "\D.bmp")
        End If
        '---------------------------------------------------
        If gelen = 65 Then '  A
            PictureBox35.Image = Image.FromFile("c:\resm" + "\F.bmp")
        End If
        If gelen = 100 Then '  d
            PictureBox36.Image = Image.FromFile("c:\resm" + "\C.bmp")
        End If
        '---------------------------------------------------
Diye devam edip gidiyor.
https://www.youtube.com/watch?v=NbSZSXbPE3M&feature=youtu.be
https://youtu.be/yRO9un-OfBA
  • Son Düzenleme: Ocak 10, 2017, 15:23:31 - ashes
Uçurtmalar Rüzgarın Gücü ile Değil, O Güce Karşı Koydukları için Yükselir.