VİSUAL BASİC

[burakayaz]

MERABALAR şu an çıldırmak üzerindeyim
bir kitapta seri port kontrollü devre var onu uygulamaya çalışıyorum

ilk sorunum vb ile ilğili

yazdığım program ile  comm.commport = 1
sorun gösteriyor ve run time error '424' diyor

ikincisi pic c ile yazdığımı hex çeviremiyorum
1 error yazıyor kodlarda bunlAR
vb deki

Private Sub cmdport_Click(Index As Integer)
If txtport(Index) = 1 Then
txtport(Index) = 0
Else
txtport(Index) = 1
End If
End Sub

Private Sub Form_Load()
For i = 0 To 7
txtport(i) = 0
Next i
comm.CommPort = 1 sorunnnnlu '424'
comm.comm.Settings = "9600,n,8,1"
comm.PortOpen = True
End Sub

Private Sub Text5_Change()

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Text1_Change()

End Sub

Private Sub txtport_Click(Index As Integer)
kontrol = ""
For i = 7 To 0 Step -1
kontrol = kontrol & txtport(i)
Next i
kontrol = "P" & kontrol
comm.Output kontrol
End Sub

picc yazdıgım kodlar

#include <pic.h>
#include <serial.c>
main(void)
{
	unsigned char c,s,i;

	TRISB = 0;
	TRISA = 1;
	PORTB = 0;

        while(1)
        {
	        c = getch();
	        if(c == 'P')
	        {
		        s = 0;
		        for(i=0; i<8;i++)

		        {
			        c = getch() - '0';
			        s = (s << 1) + c;
	        	}
	        	PORTB = s;             /* PORTB ye */

	       }
	}
}

             


3.önümüzdeki hafta okulda göstermeliyiz yardım ediniz litfenn

veya elinizde hex ve vb yazılmış kodlar varmı

teşekürler

code taglarını kullanınız.

[tcitak]

start-> run then enter following;
for XP
regsvr32 c:\windows\system32\mscomm32.ocx
for win98
regsvr32 c:\windows\system\mscomm32.ocx

[burakayaz]

bunları biliyorum xpde çalışıyorum yanlışlık nerede hata veriyor pic c de visual basicte

[SpeedyX]

 dim   comm   as   new   mscommlib.mscomm  
  comm.commport=1  
  comm......  
  .........  
  comm.portopen=true

yinede olmuyorsa buraya bakabilirsiniz.

[burakayaz]

teşekkürler sorunumu çözdümm