Introduction to Proton Basic

[iphone]

Hi guys,

I need any guidance, tutorial and sample schematic to start learning proton.I mean a simple schematic ( in ISIS is better) and some sample source code.

I just download the ProtonDev tutorial but the tutorial not complete (wirhout schematic).

Thanks.

[akutisarizar]

is anyone have that informations also i need too

[foxelec]

Hi friends,

Iphone, what kind of example / schematic are you looking for?

foxelec

[chacacampeon]

I give to you an simple example, inside the zip, you have the code and the design for isis.
http://rapidshare.com/files/52342132/Teclado8x6.zip

Code:

device = 16F648A            'igual que el 16F628 pero con mas memoria
DECLARE REMINDERS = Off
xtal = 4                   'Define oscilador de 4 MHz

CONFIG INTRC_OSC_NOCLKOUT,WDT_OFF,PWRTE_ON,MCLRE_OFF,BODEN_ON,CP_OFF,LVP_OFF,DATA_CP_OFF

declare LCD_TYPE = 0        
Declare	LCD_DTPIN		PORTB.4
Declare	LCD_RSPIN		PORTA.0
Declare	LCD_ENPIN		PORTA.1
Declare LCD_LINES		2
Declare LCD_INTERFACE	4

DIM SCAN_PIN    AS PORTB.0
'******************************************************************************
'       DEFINICION DE VARIABLES
'******************************************************************************

dim SHIFT_KEY   as Bit    'Flag de Tecla Shift Presionada
dim FUNC_KEY    as bit    'Flag de Tecla Func Presionada

dim PosY        as byte
dim VAR1        as BYTE
dim VAR2        as BYTE
dim KEY_VALUE   as BYTE
dim SCAN_PORT   as BYTE

'******************************************************************************
'                       PROGRAMA PRINCIPAL
'******************************************************************************

    TRISA = %11100000 
    TRISb = %00000111                   
    CMCON = 7                        'Apaga Comparadores Puerto A

INICIO:
    
'******************************************************************************
    posy = 1 : SHIFT_KEY = 0 : FUNC_KEY = 0
'****************************************************************************** 
   
    delayms 100                       ' Demora para Estabilizar
    cls
    Print at 1,5, "* TECLADO * "
    PRINT $FE, $C0                   'Mueve cursor a comienzo de 2da linea.
    delayms 50
    print $FE, $0E                   'Underline cursor on 

    
BARRIDO_COLUMNA0:
    fOR SCAN_PORT = 0 TO 5          'Realiza escaneo de la combinacion de la columna 0              
        SELECT SCAN_PORT
            CASE 0                  ' Is VAR1 equal to 1 ?
              PORTA.4 = 0           ' Load RESULT with 1 if yes
              PORTA.3 = 0
              PORTA.2 = 0
            CASE 1                 ' Is VAR1 equal to 2 ?
              PORTA.4 = 0          ' Load RESULT with 1 if yes
              PORTA.3 = 0
              PORTA.2 = 1     
            CASE 2                 ' Is VAR1 equal to 3 ?
              PORTA.4 = 0          ' Load RESULT with 1 if yes
              PORTA.3 = 1
              PORTA.2 = 0
            CASE 3                 ' Is VAR1 equal to 1 ?
              PORTA.4 = 0          ' Load RESULT with 1 if yes
              PORTA.3 = 1
              PORTA.2 = 1
            CASE 4                 ' Is VAR1 equal to 2 ?
              PORTA.4 = 1          ' Load RESULT with 1 if yes
              PORTA.3 = 0
              PORTA.2 = 0     
            CASE 5                 ' Is VAR1 equal to 3 ?
              PORTA.4 = 1          ' Load RESULT with 1 if yes
              PORTA.3 = 0
              PORTA.2 = 1
              delayus 50
        ENDSELECT
        IF SCAN_PIN = 0 THEN
            VAR1 = (~PORTA & 0XE0) >> 5
            VAR2 = (PORTA & 0X1C) << 1
            KEY_VALUE = (VAR1 + VAR2)
            gosub   ENVIAR_VALOR
            GOSUB   ANTIREBOTE
        ENDIF
    NEXT    SCAN_PORT
    GOTO    BARRIDO_COLUMNA0    'Realiza nuevamente el barrido del teclado
    
'******************************************************************************
'                       INICIO DE SUBRUTINAS
'******************************************************************************

ANTIREBOTE:
    delayms 20      'Realiza delay de 20 mS para eliminar rebotes
    IF SCAN_PIN = 0 THEN ANTIREBOTE   'Sigue presionada la tecla?
    delayms 50      'No, entonces realiza delay de 50 mS para eliminar rebotes
    RETURN          'Termina la subrutina
    
'******************************************************************************
'                       ENVIAR_VALOR
'   Subrutina que envia el caracter asignado a la tecla presionada
'******************************************************************************

ENVIAR_VALOR:

IF  KEY_VALUE = 6 THEN       ' Tecla FUNC?
            func_KEY = ~func_KEY       'Si, entonces cambia bandera de FUNC
            shift_key = 0
            IF  func_KEY = 1 THEN
                print $FE, $0C      ' desaparece cursor  
                cursor 1,1
                PRINT  "F"
                cursor 2, posy
                print $FE, $0F        'Blinking cursor on
                return
            ELSE
                print $FE, $0C      ' desaparece cursor  
                cursor 1,1
                PRINT  " "
                cursor 2, posy
                print $FE, $0F        'Blinking cursor on
                return
            ENDIF
    ENDIF
'***************************************************************
    
    IF  KEY_VALUE = 7 THEN     ' Tecla SHIFT?
            SHIFT_KEY = ~SHIFT_KEY       'Si, entonces cambia el estado de shift
            func_key = 0
            IF  SHIFT_KEY = 1 THEN
                print $FE, $0C      ' desaparece cursor  
                cursor 1,1
                PRINT  "S"
                cursor 2, posy
                print $FE, $0F        'Blinking cursor on
                return
            ELSE
                print $FE, $0C      ' desaparece cursor  
                cursor 1,1
                PRINT  " "
                cursor 2, posy
                print $FE, $0F        'Blinking cursor on
                return
            ENDIF
    ENDIF

'******************************************************************
    if  KEY_VALUE = 30  THEN    ' Tecla Borrar
                                             
    ENDIF
'*******************************************************************
    
    if  KEY_VALUE = 39 THEN     'Tecla  MENU 
               
    ENDIF

'**************************************************************
    if key_value = 38 then      ' Tecla  <

    endif
'***************************************************************** 
    if key_value = 46 then      ' Tecla  >

   ENDIF
'*************************************************************   
   if key_value = 47 then      ' Tecla  Enter
      Print at 2,1, "     TODOPIC !!     "
      PRINT $FE, $0C           ' Cursor OFF 
      delayms 1000
      goto inicio  
   ENDIF

'***************************************************************

    IF  SHIFT_KEY = 1 THEN      'La bandera de shift prendida?
        GOSUB Minusculas   'Si, entonces toma la tabla de minusculas
    elseIF func_KEY = 1 THEN      'La bandera de FUNC es un uno?
        GOSUB Simbolos   'Si, entonces toma la tabla de Simbolos
    else
        gosub Mayusculas
    endif
    if  key_value = 0 then      'La tecla tiene asigano un valor nulo?
        return                  'Si, entonces termina la subrutina
    ENDIF
    
    print  at 2,posY, key_value
    inc posy
    RETURN
 
'******************************************************************
'                       TABLA_ASIGNACION
'   Tabla de caracteres asignados al teclado

'*****************************************************************
'*  Las teclas tienen un valor asignado segun se muestra        *
'*  a continuacion:                                             *
'*                                                              *
'*      0   1   2   3   4   5   6   7                           *
'*      8   9   10  11  12  13  14  15                          *
'*      16  17  18  19  20  21  22  23                          *
'*      24  25  26  27  28  29  30  31                          *
'*      32  33  34  35  36  37  38  39                          *
'*      40  41  42  43  44  45  46  47                          *
'*                                                              *
'*  Despues por cada valor de cada tecla se asigna un valor     *
'*  ASCII segun se muestra a continuacion:                      *
'*                                                              *
'*       A   G   M   S   Y   5  0  0                            *
'*       B   H   N   T   Z   6  0  0                            *
'*       C   I   O   U   1   7 $20 0                            *
'*       D   J   P   V   2   8  0  0                            *
'*       E   K   Q   W   3   9  0  0                            *
'*       F   L   R   X   4   0  0  0                            *
'*                                                              *
' La anterior asignacion puede ser cambiada segun se requiera   *
' para ello solo basta modificar la tabla de asignacion.        *

Mayusculas:
    LOOKUPl  KEY_VALUE,["A","G","M","S","Y","5",0,0,_
                       "B","H","N","T","Z","6",0,0,_
                       "C","I","O","U","1","7",$20,0,_
                       "D","J","P","V","2","8",0,0,_
                       "E","K","Q","W","3","9",0,0,_
                       "F","L","R","X","4","0",0,0],KEY_VALUE
    RETURN

Simbolos:
    LOOKUPl  KEY_VALUE,["_","=","[",0,0,"%",0,0,_
                       ".","-","]",0,0,"^",0,0,_
                       ",",":",$27,0,"!","&",0,0,_
                       "?",";",$60,0,"@","*",0,0,_
                       "/",$22,"<",0,"#","(",0,0,_
                       "+",$27,">",0,"$",")",0,0],KEY_VALUE
    RETURN
    
Minusculas:    
    LOOKUPl  KEY_VALUE,["a","g","m","s","y","5",0,0,_
                       "b","h","n","t","z","6",0,0,_
                       "c","i","o","u","1","7",$20,0,_
                       "d","j","p","v","2","8",$20,0,_
                       "e","k","q","w","3","9",0,0,_
                       "f","l","r","x","4","0",0,0],KEY_VALUE
    RETURN
    end

[eleckits]

The bast way to master proton is to read the manual it is a very good guide

[iphone]

Hi foxelec,

Thanks for respond ... Actually I'm looking for tutorial or book that I can learn as I learn how to write VB. That's mean step by step. Example are good but not for newbie (with know nothing about Proton).

I like to read the step by step as I'm not so fast learner.

Ok .. my question, how to set osc if I using 10Mhz Xtal, 20 Mhz Xtal ... how to config HSS to make 40Mhz (18F4550) or 48Mhz (18F4550) and what is config bit etc. I'm confuse a lot.

To learn by example is also can but it will take more time as it just use try and error method without knowing why it happen and what step should being taken to resolve it. To me, I like example after I know head and tail of how proton works.

Or maybe somebody can make tutorial (chapter by chapter) like how to set osc in proton ... how to configure osc using HSS.


eleckits,

Can you share the manual please. I just download Proton DS manual but not so good to me... 


BTW thanks for responds.

[orange]

chacacampeon:

TYhank you very much.

[eleckits]

Hi, iphone

As I said before you have to read the manual, everything in it.

If you have a question post the code here then I can help you as soon as possible.

to select microcontroller for example 18F4550 :

Device = 18F4550

if you want to set 10M crystal :

XTAL = 10

to use configuration bits for example :

CONFIG MCLRE_OFF , WDT_OFF , BODEN , PWRTE_ON , INTRC_OSC_NOCLKOUT , CP , CPD


 

[hosmis]

http://www.4shared.com/file/23306644/e644cf48/Proton_Kullanm.html

[nileshhande]

Error:

"there was an error opening this document,this file cannot be found.."

[iphone]

eleckits & chacacampeon

Thanks for info  and example

Maybe I should start make a simple file and then ask help overhere if any problem. That's would much simpler to discuss.


nileshhande,

I successfull download Proton_kulamm.html ..  then I upload to electromech.4shared.com  (filename = Proton_kulanm.rar) for you.

password = zuki

[RCO]

Try this book

Experimenting With PicBasic Pro Compiler


http://rapidshare.de/files/24615570/EWPBP_MAZ.rar.Htm

[iphone]

RCO,

As I know it's for PIC Basic Pro .... its diffrent then proton basic .... or I'm miss something ?

[Wizpic]

RCO,

As I know it's for PIC Basic Pro .... its diffrent then proton basic .... or I'm miss something ?

Prton and pic basic pro are roughly the same, PBP code and be converted to proton, That's the way i started to learn
like others said above the best way is to try and write the code then if it don't work then ask here and you will get all the help you need

Another way os to go to the proton forum and read some posted and code help that is on there, it all depends on what you want to do.

The best way is to set yorself a task )pick some that you want to design) then start writing the code sim it in isis or on a dev board and take it from there. otherwise if you don't you will soon get bored nad give up.

start of by getting something to print on LCD, flash leds look inside the sample folder and you will see plenty of sample load them up and start changing the code round and altering it and see what happens.

chacacampeon  a very nice sample of code easy to learn and understand well done.

wizpic

 

[forter]

Wizpic!
I think all "Basic's" are similar. but Pic Basic and Proton Basic have some differents, for example in description of variables and many more.

[Wizpic]

I know they are quite different but you can easily convert PBP to proton that's what i have done in the past and basicstamp code is quite easy to convert to proton.

the best why is copy PBP code into proton and complie it and hunt the bugs (errors) and correct them

wizpic

[Wizpic]

Here is a sample that i converted  Parallax basicstamp to proton.
basic stamp

Code:

'{$STAMP BS2}
'{$PBASIC 2.5}
'***************** Simple PLX-DAQ Example *****************
' Simple PLX-DAQ routine for data.
' Program will send data on serial port to be
' accepted and placed into an Excel worksheet.

' This program also demonstrates reading the current ROW from Excel,
' and starting over again once it meets to exceeds 300.

' Check "Reset Stamp on Connect" to catch configuration data.

' January, 2007
' By Martin Hebel
' SelmaWare Solutions - www.selmaware.com
' Southern Illinois University Carbondale - www.siu.edu/~isat/est

'***************** PLX-DAQ data structures Used ****************
' SEROUT   Sends serial data from programming port (P16)
'          [ ] defines data to be sent.

' PLX-DAQ directives used:
' DATA          Places data into the next row of Excel spreadsheet
'               Up to 26 comma-separated values may be stored.
'               Each value following "DATA," must be separated by comma-strings ","
'               DATA,val1,val2,val3...Val26
'               DATA,TIME, decimal value of X, Signed-Decimal value of X

' TIME          Replaced by PLX-DAQ with real system time (DATE may also be used)
'               in DATA directive.  Column cells should be formatted for time.

' TIMER         Replaced by PLX-DAQ with the seconds since last may also be used
'               to show time since last RESETTIMER.
'               Column should NOT be formatted for 'Time'.

' LABEL         Places headings on the columns for rows A-J using up to
'               10 comma-separated labels.
'               LABEL,label1,label2,...label10

' CLEARSHEET    Clears columns A-J, rows 2 and on. (labels remain).
' RESETTIMER    Resets the timer to 0.
'
' ROW,GET       Requests the last row data went into.
'               Accept returning data with SERIN pin, baud,[dec variable]

' ROW,SET,val   Sets the row the next data set will use.
'**************************************************************

X       VAR    Byte       'Variable to represent data
sPin    CON    16         'Serial Pin - P16, Programming port
Baud    CON    84         'Baud mode for a rate of 9600, 8-N-1
                          'BS2P, BS2SX use 240 for 9600, 8-N-1
Row     VAR    Word       'Variable to hold row data
'**************************************************************

PAUSE 1000                             'Allow data communications to stabilize
SEROUT sPin,Baud,[CR]                  'Send a lone CR to ensure PLX-DAQ buffer is ready

        'Label 3 columns with TIME, X, and SIN X
SEROUT sPin,Baud,[CR,"LABEL,Time,Timer,X,SIN X",CR]
SEROUT sPin,Baud,["CLEARDATA",CR]      'Clear all data columns (A-J) in Excel
SEROUT sPin,Baud,["RESETTIMER",CR]     'Reset Timer to 0

DO
  FOR X = 0 TO 255                     'Count from 0 to 255
     ' Send String with data for Excel
     SEROUT sPin,Baud,["DATA,TIME,TIMER,", DEC X, ",", SDEC SIN X,CR]
     ' Request last row of data
     SEROUT sPin,Baud,["ROW,GET",CR]
     ' Accept returning data and store into Row with 200mS timeout
     SERIN sPin, Baud,200,TimeOut,[DEC Row]
     ' If Row is or exceeds 300, set row back to 2
     IF row >= 300 THEN SEROUT sPin,Baud,["ROW,SET,2",CR]
     Timeout:
  NEXT
LOOP

proton

Code:

'{$STAMP BS2}
'{$PBASIC 2.5}
'***************** Simple PLX-DAQ Example *****************
' Simple PLX-DAQ routine for data.
' Program will send data on serial port to be
' accepted and placed into an Excel worksheet.

' This program also demonstrates reading the current ROW from Excel,
' and starting over again once it meets to exceeds 300.

' Check "Reset Stamp on Connect" to catch configuration data.

' January, 2007
' By Martin Hebel
' SelmaWare Solutions - www.selmaware.com
' Southern Illinois University Carbondale - www.siu.edu/~isat/est

'***************** PLX-DAQ data structures Used ****************
' SEROUT   Sends serial data from programming port (P16)
'          [ ] defines data to be sent.

' PLX-DAQ directives used:
' DATA          Places data into the next row of Excel spreadsheet
'               Up to 26 comma-separated values may be stored.
'               Each value following "DATA," must be separated by comma-strings ","
'               DATA,val1,val2,val3...Val26
'               DATA,TIME, decimal value of X, Signed-Decimal value of X

' TIME          Replaced by PLX-DAQ with real system time (DATE may also be used)
'               in DATA directive.  Column cells should be formatted for time.

' TIMER         Replaced by PLX-DAQ with the seconds since last may also be used
'               to show time since last RESETTIMER.
'               Column should NOT be formatted for 'Time'.

' LABEL         Places headings on the columns for rows A-J using up to
'               10 comma-separated labels.
'               LABEL,label1,label2,...label10

' CLEARSHEET    Clears columns A-J, rows 2 and on. (labels remain).
' RESETTIMER    Resets the timer to 0.
'
' ROW,GET       Requests the last row data went into.
'               Accept returning data with SERIN pin, baud,[dec variable]

' ROW,SET,val   Sets the row the next data set will use.
'**************************************************************
Include "proton_4.inc"
Device 18F452
Dim X       As   Byte       'Variable to represent data
Symbol sPin    =PORTC.6         'Serial Pin - P16, Programming port
Symbol Baud    =   84         'Baud mode for a rate of 9600, 8-N-1
                          'BS2P, BS2SX use 240 for 9600, 8-N-1
Dim Row     As    Word       'Variable to hold row data
'**************************************************************

DelayMS 1000                             'Allow data communications to stabilize
SerOut sPin,Baud,[CR]                  'Send a lone CR to ensure PLX-DAQ buffer is ready

        'Label 3 columns with TIME, X, and SIN X
SerOut sPin,Baud,[CR,"LABEL,Time,Timer,X,SIN X",CR]
SerOut sPin,Baud,["CLEARDATA",CR]      'Clear all data columns (A-J) in Excel
SerOut sPin,Baud,["RESETTIMER",CR]     'Reset Timer to 0

Loop:
  For X = 0 To 255                     'Count from 0 to 255
     ' Send String with data for Excel
     SerOut sPin,Baud,["DATA,TIME,TIMER,", Dec X, ",", SDEC Sin X,CR]
     ' Request last row of data
     SerOut sPin,Baud,["ROW,GET",CR]
     ' Accept returning data and store into Row with 200mS timeout
     'SERIN sPin, Baud,200,TimeOut,[DEC Row]
     ' If Row is or exceeds 300, set row back to 2
     If Row >= 300 Then SerOut sPin,Baud,["ROW,SET,2",CR]
      DelayMS 1500
  Next
 
GoTo Loop

quite simple you can sim it i ISIS on the proton virtual baord, it's design to upload data straight into excel you can read all about it and get it from here

http://www.parallax.com/html_pages/downloads/software/software_plxdaq.asp

I found it useful for some of my applications

wizpic

[iphone]

Wizpic,

Can you upload the files (include ISIS file) over here.

Maybe I can use it in my learning process.

BTW, what is proton virtual board ... is it hardware base ?

Thanks

[olotill]

Dear Iphone...

Did you speak spanish???  Because 2 years ago we post on Todopic forum some samples to start learning Proton Basic compiler, maybe you will find helpfull that examples...

On the order if you need some basic examples we can start a mini tutorial about Proton Basic, I think is the best way to learn..

Best Regards...

Olotill

[iphone]

olotill,

I support you on mini tutorial on proton. I'm not speak spanish.

Maybe rego can make a section for  newbie learning.

[Wizpic]

Iphone VHB(virtual hardware board) is just a dev board but obly built up in ISIS

Here are some of the files of them

enjoy but you can find more of them in the proton IDE folder under plugs in and VHB syuff

wizpic

Lets us know wht you want to do and we can help you. have ago at flashing a LED and show us your code. then we can go up from there but really you need a task you set yourself

[nileshhande]

@iphone,
a small code for toggle few outputs..
good luck..

[Pero2007]

http://www.picbasic.org/forum/archive/index.php/f-70.html

[twonuts]

As well as proton basic manual, you need to be able to read the datasheet for the pic you want to use. All pics are not the same.

Proton has lots of code examples for you to play with. Best way to learn.

[Pero2007]

Proton PICBASIC Development Forums
http://www.picbasic.org/