Ynt: Ynt: Vb6 ve isis ve tabi virtual serial port driver :):)

[iskender1984]

Merhaba sevgili meslekdaşlar! Konu başlığından da anlaşılacağı üzere eğlenceli bi konu! Arkadaşlar bi sensör checker yapma işine girmek istiyorum! Simulasyon şeklindeki çalışmalarımda biraz zorlanıyorum...Bilgisi olan arkadaşlarımdan yardım istiyorum... Konu şu... pic 16f877'de 7 tane sensörün voltaj çıkışını visual basicte yazdığım bi rutinde görmek istiyorum! Bir kanal için istediğimi yaptım...hserout [#gerilim] şeklinde picten gönderdiğim veriyi visual basite mscomm1.input komutu ile bir label'de yada textboxta görebiliyorum! Fakat picteki diğer analog çıkışları nasıl göndereceğimi bir türlü akıl edemedim!!  Belki işlerin yoğunluğundan kaynaklanan dikkattiszlikten belkide kafamın yetmemesinden! sonuçta burada takılıp kaldım! diğer 6 adc yi visual basic tarafına nasıl göndermeliyim? Çalışmalarımda oluşturduğum kodlar şunlar;

pic tarafı:

DEFINE  OSC  20
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 129 ' 9600 Baud @ 20MHz, 0,16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically




TRISA=255
trise=255
trisb=255


'*****ADC TANIMLAMALAR*****     
DEFINE ADC_BITS        10        'ADC 10 BİTLİK
DEFINE ADC_CLOCK       0
ADC_DEGERI0 VAR WORD           
ADC_DEGERI1 VAR WORD             
ADC_DEGERI2 VAR WORD         
ADC_DEGERI3 VAR WORD             
adc_degeri4 var word
adc_degeri5 var word
adc_degeri6 var word
GERILIM0 VAR WORD               
GERILIM1 VAR WORD               
GERILIM2 VAR WORD               
GERILIM3 VAR WORD   
gerilim4 var word
gerilim5 var word
gerilim6 var word           
ADCON1=%10000010                'ADC AÇIK


BASLIYORUZ:

 

ADCIN 0,ADC_DEGERI0           
GERILIM0=ADC_DEGERI5*49/10   

hserout [ #gerilim0]
pause 200


GOTO BASLIYORUZ

END

vb6 tarafı:



Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub

Private Sub Timer1_Timer()
Data = MSComm1.Input
Label1.Caption = Data
Text1.Text = Data
End Sub


birde arkadaşlar uart olan piclerde max232 yi kullanmak ille de gereklimidir??? yoksa isiste old8uğu gibi db9(rs232) soketine direk bağlayabilir miyiz???

mesaj birleştirme:: 11 Temmuz 2012, 12:53:23
arkadaşlar aynı şekilde hserout ile diğer kanallarida pc Ye gönderiyorum..ama vb deki programında aynı labelde yada aynı textde sırayla gosteriyo benim amacım 7 adet textboxta picteki 7 adet analog değeri görebilmek..varmı bu ihtiyar adama yardım etmek isteyen
mesaj birleştirme:: 11 Temmuz 2012, 21:09:20
ararkadaslar yokmu bi fikri olan?