Visual Basic.Net Dersleri

Çok güzel

Derslerin Devamını İsterim

Eline sağlık.tht deki çoğu projeler vb.net ile yapılıyordu.Bu yüzden kendimi bunda iyice geliştirceğim.

sağol bu dili ögrenme peşindeydim bende

Merhaba,

sezgin1444 arkadaş çok kapsamlı bir çalışma yapmış. Emeğine sağlık. Ama gördüm ki konu 2015 te donmuş, ben de fazla bilgi dağılımı olmasın hepsi bir arada olsun diye bu yazıdan devam etmek ve de arşivimde bulunan, ayrıca da programlarımda kullandığım kodları paylaşmak istiyorum. Admin arkadaşlar uygun görmezler ise ayrıca bir post da açabilir oradan devam edebilirim. Vb.Net 2010 express edition kullanmaktayım.​

_________________________________________________________________________________________________________________________________________________-
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Label9.Text = Today' BU KOD label9 da günün tarihini gösterir
Label19.Text = "CONTROL FROM PC"
Label49.Text = "PLEASE ENTER COMPORT NUMBER"
ComboBox1.Items.Clear()
Dim port As String
Try
For Each port In System.IO.Ports.SerialPort.GetPortNames()
ComboBox1.Items.Add(port)
Next
Catch ex As System.Exception
End Try
Dim rakkam As String = "port"
If rakkam = ComboBox1.Text Then
SerialPort1.PortName = ComboBox1.Text
SerialPort1.Open()
End If
End Sub

'Daha öncede yazmıştım bu kod PC'ye takılan USB'nin saanal COMPORT değerini Combo box ta gösterir.
------------------------------------------------------------------------------------------



Private Sub ComboBox1_MouseEnter(sender As Object, e As System.EventArgs) Handles ComboBox1.MouseEnter
Cursor = Cursors.Hand
End Sub
Bu kod ile mausu combobox ın üstüne getirince el simgesi olur
------------------------------------------------------------------------------------------

Private Sub ComboBox1_MouseLeave(sender As Object, e As System.EventArgs) Handles ComboBox1.MouseLeave
Cursor = Cursors.Default
End Sub
Bu kod ile mausu combobox ın üstüne getirince el simgesi silinir normale döner
------------------------------------------------------------------------------------------

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Label49.Text = " "
SerialPort1.PortName = ComboBox1.Text
SerialPort1.Open()
End Sub

Bu kod ile combobox ın içindeki hangi port numarasını aktif eder tıklarsak o numarayı onaylar.
------------------------------------------------------------------------------------------

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Bu kod form u kapatır
------------------------------------------------------------------------------------------

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

Label10.Text = TimeOfDay

End Sub
bu kod ile Label10 da günün saatini okuruz.
------------------------------------------------------------------------------------------

Private Sub Button1_MouseEnter(sender As Object, e As System.EventArgs) Handles Button1.MouseEnter

Cursor = Cursors.Hand

Button1.BackColor = Color.Red

Button1.ForeColor = Color.White

End Sub
Bu kod ile Buton1 in üstüne gelince cursör el simgesi olur rengi kırmızı yazısı ise beyaz olur
------------------------------------------------------------------------------------------

Private Sub Button1_MouseLeave(sender As Object, e As System.EventArgs) Handles Button1.MouseLeave

Cursor = Cursors.Default

Button1.BackColor = Color.Green

Button1.ForeColor = Color.White

End Sub
Bu kod ile Buton1 in üstünden ayrılırsa cursör el simgesi silinir normal olur rengi yeşil yazısı ise beyaz olur
_____________________________________________________________________________________________________________________________________


Private Sub Label19_Click(sender As System.Object, e As System.EventArgs) Handles Label19.Click

'PC'den MCU ya test datası yollar
Dim yazb As String = "b"
SerialPort1.Write(yazb)

Bu kod ile PC'den MCU'ya klavye "b" yani ASCII Hex'62' yollar
_____________________________________________________________________________________________

Dim yaz0 As String = "0"
SerialPort1.Write(yaz0)
Exit Sub
End Sub

Bu kod ile PC'den MCU'ya klavye "0" yani ASCII Hex'30' yollar

------------------------------------------------------------------------------------------

Private Sub Label19_MouseEnter(sender As Object, e As System.EventArgs) Handles Label19.MouseEnter '---PC DEN DATA YOLLAR KOMUTU
Cursor = Cursors.Hand
Label19.ForeColor = Color.Yellow
End Sub
bu kod kürsör kontroludur
------------------------------------------------------------------------------------------

Private Sub Label19MouseLeave(sender As Object, e As System.EventArgs) Handles Label19.MouseLeave
Cursor = Cursors.Default
Label19.ForeColor = Color.White
End Sub
bu kod kürsör kontroludur
------------------------------------------------------------------------------------------

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click


'DATAYI YOLLAMA RUTİNİ
If Label1.ForeColor = Color.Teal Then'
Label1.ForeColor = Color.Red
PictureBox1.BackColor = Color.Red
Dim yazb As String = "b"
SerialPort1.Write(yazb)
Dim yaz0 As String = "0"
SerialPort1.Write(yaz0
Exit Sub
End If

Bu kod ile picturebox a tıkladığımız zaman label1.forecolor u test eder, Renk Teal ise kırmızı yapar. Aynı zamanda da picturbox ı da kırmızı yapar ve seriporttan Hex'62' yani klavye "b" yollar

'DATAYI KAPATMA RUTİNİ

If Label1.ForeColor = Color.Red Then
Label1.ForeColor = Color.Teal
PictureBox1.BackColor = Color.Teal
Dim yazb As String = "b"
SerialPort1.Write(yazb)
Burada olayın tersi olmaktadır.
'--------------

Dim yaz0 As String = "0"
SerialPort1.Write(yaz0)
Exit Sub
End If
End Sub
------------------------------------------------------------------------------------------


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'My.Computer.Audio.Play("c:\ses2.wav",AudioPlayMode.WaitToComplete)'müzik bitinceye kadar işlem durur
'My.Computer.Audio.Play("c:\ses2.wav", AudioPlayMode.Background)'arkada fonda tek sefer çalar
My.Computer.Audio.Play("c:\ses.wav", AudioPlayMode.BackgroundLoop) 'arkada fonda devamlı loop yapar

End Sub
Bu kodlar ile C:\ deki ses.wav adlı dosyanınçalınma şeklini düzenler

verdim teşekkürü