| Author |
|
matherp
Guru
Joined: 11 December 2012
Location: United Kingdom
Online Status: Offline
Posts: 2272
|
| Posted: 01 September 2018 at 5:48pm | IP Logged
|
|
|
Quote:
| OPTION LCDPANEL CONSOLE but short of a reset, I can't figure out how to stop the LCD acting as a console - any suggestions? |
|
|
OPTION LCDPANEL NOCONSOLE, same as MM+
|
| Back to Top |
|
| |
goc30
Regular Member
Joined: 12 April 2017
Location: France
Online Status: Offline
Posts: 94
|
| Posted: 01 September 2018 at 6:04pm | IP Logged
|
|
|
hi peter
I have a problem with input's pins
I want to use some pins in interrupt mode as explained in Micromite's doc like
SETPIN 42, INTH, Spbtn1
...
do
..
loop
sub Spbtn1
end sub
|
|
|
system send
if I use without target, it accept my config and work correctly (need scanning in do...loop)
where is my fault ??
Edited by goc30 on 01 September 2018 at 6:06pm
|
| Back to Top |
|
| |
matherp
Guru
Joined: 11 December 2012
Location: United Kingdom
Online Status: Offline
Posts: 2272
|
| Posted: 01 September 2018 at 6:32pm | IP Logged
|
|
|
Quote:
| I have a problem with input's pins |
|
|
Thanks for the report - hopefully this should fix it - no version change
2018-09-01_183214_Armmite1.3.zip
|
| Back to Top |
|
| |
goc30
Regular Member
Joined: 12 April 2017
Location: France
Online Status: Offline
Posts: 94
|
| Posted: 01 September 2018 at 7:11pm | IP Logged
|
|
|
I field good
I have also an Rotary encoder and for that I need interrupt mode
thank peter 
Edited by goc30 on 01 September 2018 at 7:12pm
|
| Back to Top |
|
| |
matherp
Guru
Joined: 11 December 2012
Location: United Kingdom
Online Status: Offline
Posts: 2272
|
| Posted: 01 September 2018 at 7:29pm | IP Logged
|
|
|
Quote:
| I have also an Rotary encoder and for that I need interrupt |
|
|
Here is my patented switch-bounce immune rotary encoder I/F code
option default integer
const false=0
const true=1
const in0=3 'encoder pins pulled high so should be reading high in detent positions, centre pin connected to ground
const in1=2 'swap the pin definitions as required to get the correct sense of rotation
'
init:
setpin in0,intB,rint 'enable interrupts on both edges of both pins
setpin in1,intB,rint
rotatedright=false
rotatedleft=false
resetenc=true
value=0
lastvalue=0
print value
'
MAIN:
Do
if value <> lastvalue then
print value
lastvalue=value
endif
Loop
end
'
sub rint:
pin0=NOT pin(in0) 'reverse sense to get positive logic
pin1=NOT pin(in1)
if pin0 then
if pin1 and not resetenc then 'in0 and in1 both active
if rotatedleft and not rotatedright then
value=value-1
rotatedleft=false
endif
if rotatedright and not rotatedleft then
value=value+1
rotatedright=false
endif
else 'only in0 active
if resetenc and not rotatedleft then
rotatedright=true
resetenc=false
endif
endif
else
if pin1 then 'only in1 active
if resetenc and not rotatedright then
rotatedleft=true
resetenc=false
endif
else 'both off so reset
rotatedleft=false
rotatedright=false
resetenc=true
endif
endif
if pin(in0)=pin0 or pin(in1)=pin1 then goto rint 're-enter if another change has happened almost immediately
ireturn |
|
|
|
| Back to Top |
|
| |
goc30
Regular Member
Joined: 12 April 2017
Location: France
Online Status: Offline
Posts: 94
|
| Posted: 02 September 2018 at 2:14am | IP Logged
|
|
|
hi peter
I had to change your "rint" sub because I had an error (too many subs for interrupt)
new version
sub rint
rint2:
pin0=NOT pin(in0) 'reverse sense to get positive logic
pin1=NOT pin(in1)
if pin0 then
if pin1 and not resetenc then 'in0 and in1 both active
if rotatedleft and not rotatedright then
value=value-1
rotatedleft=false
endif
if rotatedright and not rotatedleft then
value=value+1
rotatedright=false
endif
else 'only in0 active
if resetenc and not rotatedleft then
rotatedright=true
resetenc=false
endif
endif
else
if pin1 then 'only in1 active
if resetenc and not rotatedright then
rotatedleft=true
resetenc=false
endif
else 'both off so reset
rotatedleft=false
rotatedright=false
resetenc=true
endif
endif
if pin(in0)=pin0 or pin(in1)=pin1 then goto rint2 're-enter if another change has happened almost immediately
end sub |
|
|
for digital inputs I use an anti-rebound procedure
my prog is like exemple prog in Micromite manual
option default integer
const false=0
const true=1
const in0=49
const in1=50
'
Dim integer protb 'lecture pin 3 avec antirebond
Dim integer valrot 'valeur codeur rotatif
dim integer lastvalue
Dim integer vrot
Dim integer vrotsens 'sens de rotation 0=positif, 1=negatif
init:
setpin in0,intH,rint3 'enable interrupts on high of rot A pin
setpin in1,DIN
Protb=(Pin(in1) xor 1) 'to define first state of pin "B"
value=0
print value
'
MAIN:
Do
'--- need 2 pass minimum with same value to confirm
Protb=((Protb*2) And 3) Or (Pin(in1) xor 1)
'----
if valrot<> lastvalue then
print valrot
lastvalue=value
endif
Loop
end
'
'------- interrupt proc ----
rint3:
If Protb=3 Then 'state 1 confirm
valrot=valrot+1
'vrotsens=0
End If
If protb=0 Then 'state zero confirm
valrot=valrot-1
'vrotsens=2
End If
valrot
'Print valrot
IReturn
|
|
|
I also cabled the circuit specified by manufacturer in datasheet (2 x 10k and 1 x 10nf))
Edited by goc30 on 02 September 2018 at 2:18am
|
| Back to Top |
|
| |
Active Topics
Memberlist
Search
Help
Login
Register
Bookmark
Email
Topic: Armmite - STM32H7: Developments
