Group - ungroup of commands


Results 1 to 16 of 16

Threaded View

  1. #10
    Join Date
    Dec 2008
    Location
    Ploiesti, ROMANIA
    Posts
    582


    Did you find this post helpful? Yes | No

    Default Re: Group - ungroup of commands

    Mr.Henrik, I need Your advice, again ...
    I make some "experiments" with my specific matrix ... searching for best solution.
    I use the code from previous post, with good results.
    But now I need to have a little different function of buttons.
    I need to have portb.x = 1 while correspondent button.x is pressed.
    I don't understand why the code don't work proper ...
    Code:
    @ __config _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _BODEN_ON & _LVP_OFF 
    include "alldigital.pbp"
       Define   OSC 4           ' 4MHz 
       CMCON = 7                ' Disable on-chip comparator, PORTA in digital mode
    
    
    TRISA = %00011100           ; coloane la RA2, 3, 4 ; randuri la RA1, 0 ,7 
    PORTA = %00011100
    PORTB = %00000000
    TRISB = %00000000
    
    status_1 VAR BYTE
    
    Main:
    ;reading buttons on row 1
    PortA.0 = 0
    TrisA.1 = 1
    pause 10
    status_1 = PortA & %00011100
    ;    PortA.0 = 1
    ;    TrisA.1 = 0
    select case status_1
                    
    case 12
      while status_1 = 12
      portb.1 = 1
      wend
      portb.2 = 0 
    
    case 20
      while status_1 = 20
      portb.2 = 1
      wend
      portb.2 = 0
                    
    case 24
      while status_1 = 24
      portb.3 = 1
      wend
      portb.3 = 0
        
    end select
    PortA.0 = 1
    TrisA.1 = 0
    
    Goto main
    I KNOW I made some mistakes, but I DONT KNOW where ... Please, can You help me ?! Thank You so much !
    Attached Images Attached Images  

Members who have read this thread : 0

You do not have permission to view the list of names.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts