baddog777
Üye
- Katılım
- 21 Haz 2009
- Mesajlar
- 43
- Puanları
- 1
Arkadaslar, hazırladıgım isis simulasyonunda, vbasic de program hazırlayıp gonderdıgım metni picin epromuna atmaya calısıyorum, sorunum, vbasıc de yaptıgım programdan giden veri pic tarafında alındıgında gonderdiğim text ile hıc bır alakası olmayan sekilde pic epromuna kaydediliyor!
aynı işlemi diger bır ısıs simulasyonu ile pic1 den pic2 simulasyonuna text gönderdiğimde alınan veri bozulmadan eproma kaydediliyor! devrede max232 kullanıyorum. sorun nerde bırturlu anlayamadım, devrede herhangı bir sorun bulamadım, ki iki ayrı sımulasyon bırbırı ıle duzgun olarak iletişim saglıyor,
vb kodu kısaca asagıdakı gıbı, gonderim seklımde mı hata var yardımcı olursanız sevınırım!
karakterleri tek tek gonderdım olmadı ascii kodu olarak gonderdım yıne olmadı! programda bu deneme satırlarıda var zaten!
Private Sub Command1_Click()
yazi = Text1.Text
uz = Len(yazi)
For t = 1 To uz
' yazi1 = Asc((Mid(yazi, t, 1)))
' MSComm1.Output = Str$(yazi1)
MSComm1.Output = Mid(yazi, t, 1)
'MSComm1.Output = yazi
Next
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 3
MSComm1.InputLen = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
End Sub
aynı işlemi diger bır ısıs simulasyonu ile pic1 den pic2 simulasyonuna text gönderdiğimde alınan veri bozulmadan eproma kaydediliyor! devrede max232 kullanıyorum. sorun nerde bırturlu anlayamadım, devrede herhangı bir sorun bulamadım, ki iki ayrı sımulasyon bırbırı ıle duzgun olarak iletişim saglıyor,
vb kodu kısaca asagıdakı gıbı, gonderim seklımde mı hata var yardımcı olursanız sevınırım!
karakterleri tek tek gonderdım olmadı ascii kodu olarak gonderdım yıne olmadı! programda bu deneme satırlarıda var zaten!
Private Sub Command1_Click()
yazi = Text1.Text
uz = Len(yazi)
For t = 1 To uz
' yazi1 = Asc((Mid(yazi, t, 1)))
' MSComm1.Output = Str$(yazi1)
MSComm1.Output = Mid(yazi, t, 1)
'MSComm1.Output = yazi
Next
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 3
MSComm1.InputLen = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
End Sub