Elektrotekno.com Ana Sayfa || Elektronikle İlgili Programlar || Çeviriciler, Programlayıcı Yazılımlar ve Programlama Dilleri


visual basic ile haberlesme ara yuzu

Kayıt: 09 Ekm 2009
Mesajlar: 17

Offline
gokhangok865
Tarih: 01 11 2009 18:28

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 Smile
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

1 Kullanıcı bu konu için gokhangok865 arkadaşımıza teşekkür ettiler

Kayıt: 01 Oca 2007
Mesajlar: 127
Konum: ankara
Offline
kozmoz
Tarih: 02 11 2009 10:01

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
Kayıt: 09 Ekm 2009
Mesajlar: 17

Offline
gokhangok865
Tarih: 02 11 2009 11:16

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
Kayıt: 01 Oca 2007
Mesajlar: 127
Konum: ankara
Offline
kozmoz
Tarih: 02 11 2009 12:48

teşekkürler, ilk fırsatta dediğiniz gibi deneyeceğim
Başa dön
Kayıt: 09 Ekm 2009
Mesajlar: 17

Offline
gokhangok865
Tarih: 02 11 2009 13:08

yine de olmazsa asagidaki linkte detayli bilgi var bu konuda

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

kolaylar gelsin
Başa dön



visual basic ile haberlesme ara yuzu


Benzer Konular
- MPU6050 İvmeölçer Cayro Termotere 16F877A Proton Basic Kodu
- HMC5883L Dijital Pusula 16F877A Proton Basic Kodu
- ADXL345 akselerometre 16f877A Proton Basic Kodu

- PIC basic ve asm dersleri

- Mikrodenetleyici Temrinleri (Pic Basic Pro)
- 0-9 0-99 matrix uygulama pic basic kodlariyla birlikte
- 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic+Ares+İsis)
- 433-868 mhz RF seri haberlesme modulleri
- Basic Engineering Circuit Analysis, Gazi üni. Devre 2 cevap

- Visual Basic İçin Detaylı Kaynak

- ez430-rf2500 ile visual c#

Sitemize üyelik ve içeriğin indirilmesi tamamen ücretsizdir. Sitemizde paylaşılan tüm dokümanlar (Tezler, makaleler, ders notları, sınav soru cevaplar, projeler) paylaşımcıların bireysel çalışmaları olup telif hakları kendilerine aittir ya da açık bir şekilde kamusal alana yerleştirilmiş dokümanların birer kopyalarıdır. Kişilerin bireysel çalışmalarını sitemizde yüklemesinde, sitemizde paylaşıma teşvik eden puanlama sisteminin de etkisi büyüktür. Bunlara rağmen hala size ait olan ve burada bulunmasına izin vermediğiniz dokümanlar varsa iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.
Powered by phpBB | Translated by phpBB Turkiye | Ads by Google Adsense | Design by Crazy Bat based
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72