Private Sub Komut4_Click()
On Error Resume Next
Me.Metin2.Value = Asc(Me.Metin0.Value)
End Sub
Private Sub Komut5_Click()
Metin2.Value = " "
Metin0.Value = " "
Metin0.SetFocus
End Sub
klavyedeki sayısal ve alfasayısal tuşların ascii kod karşılıklarını bulan küçük bir örnek
asc.rar
(Dosya Boyutu: 12,01 KB | İndirme Sayısı: 55)
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
