'------------------------------------------------------------ 'Programın adı: Uyg_6_6.bas 'Programın işlevi: PC klavyesinden girilen küçük harfleri büyük harfe çevirerek tekrar PC'ye gönderen program. 'Tarih:17/03/2007 Uyarlama:1.00 Derleyici:PBP '------------------------------------------------------------ Include "modedefs.bas" ' Seri modları ilave et. SO var PORTC.6 ' Seri çıkış pin'ini tanımla SI var PORTC.7 ' Seri giriş pin'ini tanımla B0 var byte loop: Serin SI,T2400,B0 ' B0'ın içine karakter gir. If (B0 < "a") or (B0 > "z") Then print 'Eğer küçük harfse, büyük harfe çevir. B0 = B0 - $20 print: Serout SO,T2400,[B0] ' Karakteri gönder Goto loop ' İşlemi devamlı yap. End '------------------------------------------------------------