---

Simdi.Açtıgımız forma bir tane MSComm ilave edelim.
Ekledigimiz MSComm1 nesnesinin custom özelligine baktıgımızda General kısmında ilk olarak
hangi port'u kullanacagımız yazar.Oraya kullanacagımız port numarasını yazıyoruz.
Genel olarak seri portları Fare,modem ve ethernet kartları kullanır.
General menusunde setting kısmının karsısında 9600,n,8,1degerleri görecegiz.
9600 : yazan kısım Haberleşme için kullanılacak Hızı belirler.(bps cinsinden)
n :yazan kısım Hata kontrolu için ek bir bit ekler.'n=Parity YOk
8:Kullanılacak Bit sayısını ifade eder.
1:Ise Mesajın bittigini belirtmek için kullanılan bit sayısıdır.

Şimdi program kodu ile neler yapabilecegimiz üzerinde duralım.
Mscomm nesnesi hangi yöntemleri kullanır.Bir Bakalım.
MSComm1.commport = 1' Yukarda da anlattıgım gibi kullanılacak portun numarasını belirler.
MSComm1.settings ="9600,n,8,1" '9600 bps hızında,Parity biti yok,8 Bitlik veriler,1 bit stop biti seklinde ayarla.
MSComm1.portopen =True 'portu ac

Eger Porttan bilgi okumak istiyorsak kod su sekilde olur.TexBoxtan okutulan bilgiyi
mscomm1.input degerine eşitlenerek saglanır.
textoku.text=mscomm.input

Eger porta bir bilgi yazıdrmak istiyorsak yazdıracagımız degeri mscomm.output 'a eşitliyoruz.
mscomm1.output = " Hi Visual Basic"

Portu kullanıma kapamak içinde Yine mscomm1.portopen=False yazıyoruz.

Şimdi bunları ufak iki ornekle pekiştirelim.
İlk örnegimiz porta Bir mesaj göndermek olsun.

Bunun için formun üzerine bir tane textbox (txtmesaj) bir tane command (cmdgonder) bir
tanede mscomm (mscomm) nesnesi ilave ediyoruz.

Private Sub cmdgonder_Click()
On Error GoTo hata
Mesaj = txtmesaj.Text
MSComm.Output = Mesaj
Exit Sub
hata:
MsgBox "Mesaj Yollanamadı"
End Sub

Private Sub Form_Load()
MSComm.CommPort = 1
MSComm.Settings = "9600,N,8,1"
On Local Error GoTo hata
MSComm.PortOpen = True
Exit Sub
hata:
MsgBox "Port Acılamıyor"
End Sub


iste bu kadar arkadaslar.biraz programlama bilginiz varsa gerisini uygulama ile halledersiniz.fakat size bir onerim var yuksek baud ratelerde calismayin 9600 yerine 4800 eger gonderilecek bilginin acelesi yoksa 2400 u kulllanin hadi kolaylar gelsin

---

Reklamlar

---

teşekkürler

ben daha önce buna benzer bir yolla veri alıp vermeyi başarmıştım yalnız bir sorunum vardı.
gelen veriler benim istediğim gibi byte türünden değildi karakter olarak geliyordu.
Başa dön

---

onu yapmak icin mscommun gelen verileri icin bir ozzelligi var.mscomm1.input= binary or text diye burda siz bunu binary olarak yapmaniz gerekiyor.ayrica mscomm ile siz mesela A harfini gondereceksin iz mscomm1.input=binary olursa siz bunu 65 in binary halinde alirsiniz egerki bu ozelligi text olarak ayarlarsaniz A harfini direkt olarak alirsiniz
Başa dön

---

teşekkürler, ilk fırsatta dediğiniz gibi deneyeceğim
Başa dön

---

yine de olmazsa asagidaki linkte detayli bilgi var bu konuda

http://www.uslanmam.com/programlama-dil...etigi.html

kolaylar gelsin
Başa dön