Anasayfa > Kodlar > VB ile Asc kodlarını sıralama

VB ile Asc kodlarını sıralama


Asc Kodlarını sıralayan mini bir prog.

Private Sub Command1_Click()
f = 33
e = 255
If Option1.Value = True Then
wrap = Chr(10)
For i = f To e
satir = Str(i) + "......" + Chr(i)
lineoftext = lineoftext + satir + wrap
Next i
text1.Text = lineoftext
Else
f = Abs(Val(Text2.Text))
e = Abs(Val(Text3.Text))
If e > 255 Or f > 255 Then
e = 255
f = 0
Text3.Text = 255
MsgBox "Asc Kodları 255' e Kadardır.", vbOKOnly, "Asc Kod Sıralaması"
End If

wrap = Chr(10)
For i = f To e
satir = Str(i) + "......" + Chr(i)
lineoftext = lineoftext + satir + wrap
Next i
text1.Text = lineoftext
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
Option1.BackColor = CommonDialog1.Color
Option2.BackColor = CommonDialog1.Color
Frame1.BackColor = CommonDialog1.Color
Label1.BackColor = CommonDialog1.Color
Label2.BackColor = CommonDialog1.Color

End Sub

Private Sub Timer1_Timer()
If Option2.Value = True Then
Label1.Visible = True
Label2.Visible = True
Text2.Visible = True
Text3.Visible = True
Image1.Visible = False
Text2.TabIndex = 0
Text3.TabIndex = 1
Command1.TabIndex = 2
Else
Label1.Visible = False
Label2.Visible = False
Text2.Visible = False
Text3.Visible = False
Image1.Visible = True

End If

End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: