wireless application,wirefree kc21 bluetooth

ootbaby — Sat, 14 Jul 2007 02:37:46 +0800

hi guys,

im currently dealing with bluetooth module project which im going to make it serial connection with my pc...i have written a set of serial port code using vb6..which i dunno whether it is correct or not...can some1 check for me?

Private Sub Check1_Click()
Dim real As String
real = "a"
MSComm1.Output = real
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim real As String
real = "d"
MSComm1.Output = real
End Sub

Private Sub Command3_Click()
Dim real As String
real = "b"
MSComm1.Output = real
End Sub

Private Sub Command4_Click()
Dim real As String
real = "c"
MSComm1.Output = real
End Sub

Private Sub Command5_Click()
Dim real As String
real = "a"
MSComm1.Output = real
End Sub
Private Sub Form_keypress(KeyAscii As Integer)
MSComm1.Output = Chr(KeyAscii) ' It should be in string/char format
' Text1.Text = KeyAscii
End Sub

Private Sub Form_Load()
' if already opened then close it
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False

MSComm1.CommPort = 4 ' Use COM4
MSComm1.Settings = "9600,N,8,1" ' 9600 baud, no parity, 8 data
' and 1 stop bit
MSComm1.InputLen = 0 ' Read entire buffer when Input

' Trigger the OnComm event whenever data is received
MSComm1.RThreshold = 1

MSComm1.PortOpen = True ' Open port

End Sub

Private Sub MSComm1_OnComm()
Dim strInput
If (MSComm1.CommEvent = comEvReceive) Then
Do
strInput = MSComm1.Input
Display1.Caption = Display1.Caption & strInput
Loop While MSComm1.InBufferCount
End If
End Sub

and also,

im using PIC16F877A,boostbasic programmer.. has any1 here ever deal with USART?
below is the link of the boostbasic compiler

http://www.sourceboost.com/Products/BoostB...xampleCode.html

the problem now is i send ascii code let say 'a' from my pc, my PIC did not hav any signal from output...wat is wrong with my code and how to debug.

'*************** USART Initializing routines ***********************
sub usart_init()
trisc.6 = 0
trisc.7=1 'RC6 as output TX
'RC7 as input RX
txsta = 0
spbrg = 25 'for 9600 baud at 4 Mhz freq
txsta = 0x22 '00100010
rcsta = (10010000b) 'with continuous recieve
end sub
'************** USART Initializing routines ends *******************

'******************** USART TX procedure ***************************
sub usart_tx(b as byte)
do while ( !(txsta & 0x02) )
_asm nop
_asm clrwdt
loop
txreg = b
end sub
'******************** USART TX procedure ends **********************

'******************** USART RX procedure ***************************
function usart_rx() as byte

if ( (rcsta.OERR = 1) ) then
rcsta.CREN = 0
rcsta.CREN = 1
usart_rx = 0x00
else
do while (pir1.RCIF = 0)
_asm nop
loop
usart_rx = rcreg
end if

end function
'******************** USART RX procedure ends *********************

'************************ Procedure to output char to lcd *****************************
sub motor_putch(c as byte)
portb.3 = 1 'pin 3 of prt b as high
end sub
'************************ Procedure to output char to lcd ends ************************

Sub main()

call usart_init() 'Initialize software rs232

call usart_tx(97) 'send char a to rs232 terminal in dec
call usart_tx(98) 'send char b to rs232 terminal
call usart_tx(99) 'send char c to rs232 terminal

Do while 1
call motor_putch(call usart_rx()) 'get a char from rs232 terminal and display on lcd
Loop

End Sub

please help please help...due date is jz around the corner

im thinking of outsource this project, partly. just to get a signal out from PIC, price is nego, any1 interested plz email yanjiehum@gmail.com

[WTA] Bluetooth module with VB 6

ootbaby — Wed, 30 May 2007 20:18:35 +0800

hi all,

my final year project is bluetooth remote controlled robot.

my robot is using PIC16f877a, stepper motor(which i havnt decide which 1 to use, but definately using unipolar), wirefree kc-21 bluetooth module

software : VB6, IVT BlueSoleil(bluetooth detection program).

my question is..how to write VB 6 code to open hyperterminal, n set the baunrate inside..then make it just click it to connect my bluetooth with pc.

how?

is my hyperterminal need to set up 1st?

Lowyat.NET: Latest topics by ootbaby

wireless application,wirefree kc21 bluetooth

[WTA] Bluetooth module with VB 6