24/05/2016, 15:45
HilasNemkid
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
For a = 1 To 255
ListBox1.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As Integer
For a = 65 To 90
ListBox2.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a As Integer
For a = 97 To 122
ListBox3.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a As Integer
For a = 48 To 57
ListBox4.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Application.Exit()
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
For a = 1 To 255
ListBox1.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As Integer
For a = 65 To 90
ListBox2.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a As Integer
For a = 97 To 122
ListBox3.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a As Integer
For a = 48 To 57
ListBox4.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Application.Exit()
End Sub
End Class