Re: 為何變數無法致能? (版主加註:有關PIC18F252)
|
||||
---|---|---|---|---|
高級會員
|
謝謝版主的回答...
我想我需要再把PIC18FXX2 Data Sheet再好好看過... 因為我沒注意到[d],[a]沒寫時會自動用預設值... 得好好kk書囉!
發表於: 2004/10/7 20:32
|
|||
|
Re: 為何變數無法致能? (版主加註:有關PIC18F252)
|
||||
---|---|---|---|---|
高級會員
|
現在指令的執行好像都OK..
請問一下版主... 指令執行到最後一行"goto Trans"都屬正常.. TRMT也被致能變為"1"... 也確實跳到Trans... Q1: 可是好像TRMT從此就一直是滿的"1"狀態... 是代表資料傳已經出去了.. 但VB端接收不到... 指令就一直在 "banksel TXSTA btfss TXSTA,TRMT goto Trans" 三行打轉.... 因為TMRT一直為滿的?! Q2: 還有我VB程式一執行就發生錯誤... " Run - time error '8005' Port already open " 請問這是什麼原因.... VB程式 Private Sub C1_Click() Dim buf$ buf = Trim(MSComm1.Input) If Len(buf) = 0 Then T1.Text = "empty" Else T1.Text = buf End If MSComm1.PortOpen = False End Sub .............................................. Private Sub Form_Load() MSComm1.PortOpen = True End Sub
發表於: 2004/10/5 22:03
|
|||
|
Re: 為何變數無法致能?
|
||||
---|---|---|---|---|
高級會員
|
版主...
我想我已經了解你說的意思了... 因為我是看著16系列的書開始入門... 但我用的是18系列的IC... 我只注意到要修改標頭檔而已.. 卻忽略了指令部份... 原來指令也已經變了... 我再修改程式指令試試... 多謝你的指點...
發表於: 2004/10/5 15:40
|
|||
|
Re: 搜尋VB高手...
|
||||
---|---|---|---|---|
高級會員
|
非常感謝各位的指導....
解開迷惑小弟多日的問題... 我會繼續加油的... 除了感謝還是感謝!! 以後希望大家還是不吝賜教... ps: http://www.usblab.idv.tw/ 進不去ㄋㄟ! 有其他網址可進嗎? 我很想進去看看.....
發表於: 2004/10/5 9:42
|
|||
|
Re: 為何變數無法致能? (版主加註:有關PIC18F252)
|
||||
---|---|---|---|---|
高級會員
|
版主不好意思....
你所建議我看的部份我已經下載看過了... 可是我還不是很了解你所指我不熟指令的使用語法的意思... 可否麻煩你再說明白一點... 是我所寫的指令有錯誤?! 還是致能的指令錯誤?! 還是哪個觀念有誤?! 麻煩再不厭其煩的指點我一下....
發表於: 2004/10/4 20:41
|
|||
|
Re: 為何變數無法致能?
|
||||
---|---|---|---|---|
高級會員
|
謝謝版主的答覆...
的確我是這方面的新手... 對於您的建議我會再好好研究一下... 以後請多多指教!
發表於: 2004/10/4 11:32
|
|||
|
為何變數無法致能? (版主加註:有關PIC18F252)
|
||||
---|---|---|---|---|
高級會員
|
請教各位...
為何我程式執行時... 使用Watch視窗觀看變數.. 剛開始幾行都ok... 可是執行(單步執行)到下面幾行卻沒照指令執行... 也就是都無法對該變數給予致能... bcf TXSTA,SYNC bsf RCSTA,SPEN bsf TXSTA,TXEN 是否為小弟解開迷惑... 感激不盡... PIC串列傳送程式: list p=18F252 #include<p18F252.INC> trans_c equ 0x20 ;********************** org 0x00 nop initial: movlw .3 movwf trans_c ;設定trans_c次數為3次 banksel SPBRG movlw .129 ;Baud Rate=1200 bps movwf SPBRG banksel TXSTA bcf TXSTA,SYNC ;SYNC設定為0 banksel RCSTA bsf RCSTA,SPEN ;SPEN設定為1 banksel TXSTA bsf TXSTA,TXEN ;TXEN設定為1 Trans: banksel TXSTA btfss TXSTA,TRMT goto Trans banksel TXREG movlw 0x55 movwf TXREG banksel trans_c decfsz trans_c,f goto Trans end
發表於: 2004/10/2 17:38
|
|||
|
Re: 搜尋VB高手...
|
||||
---|---|---|---|---|
高級會員
|
非常感謝crete_hsu的熱心解答...
答案簡潔有力.... 謝囉.... 麻煩再幫忙解決一下... VB-如何選擇Hand shaking Q1: Hand shaking 該如何選擇... 0 - comNone 1 - comXOnXoff 2 - comRTS 3 - comRTSXOnOff Q2: 0 - 3 個別意義及其差別?!
發表於: 2004/10/2 9:52
|
|||
|
搜尋VB高手...
|
||||
---|---|---|---|---|
高級會員
|
請問各位高手...
我現在是用PIC18F252這顆IC... 透過 RS-232 用VB程式接收... 我現在先參考書籍(VB接收程式).. 可我搞不清楚幾個問題? VB的書又找不到這些指令.... 各位能否撥空幫我解答一下? 感激不盡.... VB程式 Private Sub Command1_Click() Dim buf$ buf = Trim(MSComm1.Input) If Len(buf) = 0 Then T1.Text = "empty" Else T1.Text = buf End If MSComm1.PortOpen = False End Sub Q1: buf = Trim(MSComm1.Input) ......Trim ? 是從電腦端(port1)抓值出來嗎? Q2: 跟 buf = Val(MSComm1.Input) 有什麼差別嗎? Q3: If Len(buf)=0 Then .....Len()?是什麼意思?
發表於: 2004/10/1 23:06
|
|||
|