ismetin step kodu - end if If sayac=1 then degisken(0) = 1...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Public Class Form1 Dim degisken(0) As Byte Dim sayac as integer=1 Private Sub TextBox1_TextChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged degisken(0) = CByte (TextBox1.Text) End Sub Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load SerialPort1.Open() TextBox1.MaxLength = 8 End Sub Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If sayac=1 then degisken(0) = 1 end if If sayac=1 then degisken(0) = 1
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: end if If sayac=1 then degisken(0) = 1 end if SerialPort1.DtrEnable = True SerialPort1.DtrEnable = False SerialPort1.Write(degisken, 0, 1) degisken(0) = 8 SerialPort1.DtrEnable = True SerialPort1.DtrEnable = False SerialPort1.Write(degisken, 0, 1) degisken(0) = 4 SerialPort1.DtrEnable = True SerialPort1.DtrEnable = False SerialPort1.Write(degisken, 0, 1) degisken(0) = 2 semihin nerisi : cbyte(2,4,8 diye dier bacaklardan sinyal alabilirsin) degisken(0) = cbyte(1) SerialPort1.DtrEnable = True SerialPort1.DtrEnable = False SerialPort1.Write(degisken, 0, 1) End Sub End Class...
View Full Document

Page1 / 2

ismetin step kodu - end if If sayac=1 then degisken(0) = 1...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online