program correction

+ Reply to Thread
Results 1 to 4 of 4
  1. - 10th June 2025, 14:43 #1
    binary01's Avatar
    binary01
    binary01 is offline Junior Member
    Join Date
    Jun 2025
    Posts
    2

    Default program correction

    Hello,
    Please someone help me correct the program. I am new to PICBASIC, I found this program on a forum and I can't compile it because there are errors. This program motivated me to continue learning PICBASIC.

    '************************************************* ***************
    @ device pic12F675, CPD_ON, PROTECT_ON, MCLR_OFF, PWRT_ON, WDT_Off, INTRC_OSC_NOCLKOUT
    '************************************************* *
    Out1 var PORTA.0
    Out2 var PORTA.1
    time var word
    i var word
    j var byte
    k var byte
    '************************************************* *
    trisio = %11111100
    CMCON = %00000111 ' Отключаем встроенный компаратор
    ANSEL = %00000000 ' Set AN0 analog
    adcon0 = %00000000 'АЦП
    OPTION_REG.7 = 0
    WPU = %00100000 ' Подтягивающие резисторы (автоматически выключаются при установке порта на вывод)
    '************************************************* *
    gosub ton
    '************************************************* *


    main:
    '******************-1-*****************************
    gosub wail3
    '******************-2-*****************************
    for j = 0 to 10
    gosub yelp
    next j
    '******************-3-*****************************
    for k = 0 to 4
    gosub Krach2
    next k
    pause 260
    for k = 0 to 5
    gosub Krach2
    next k
    pause 137
    for k = 0 to 5
    gosub Krach2
    next k
    pause 137
    for k = 0 to 5
    gosub Krach2
    next k
    pause 137
    for k = 0 to 5
    gosub Krach2
    next k
    '******************-4-*****************************
    gosub short_konec
    '******************-5-*****************************
    for j = 0 to 20
    gosub phaser
    next j
    '******************-6-*****************************
    for j = 0 to 30
    gosub Krach3
    next j
    '******************-7-*****************************
    for j = 0 to 7
    gosub wail2
    next j
    for k = 0 to 9
    gosub Krach2
    next k
    for j = 0 to 3
    gosub wail2
    next j
    for j = 0 to 15
    gosub Krach3
    next j
    '******************-8-*****************************
    gosub short_konec
    gosub konec
    '******************-9-*****************************
    for j = 0 to 20
    gosub phaser
    next j
    '******************-10-****************************
    for j = 0 to 30
    gosub Krach3
    next j
    '******************-11-****************************
    for j = 0 to 10
    gosub hilo
    next j
    '************************************************* *
    Out1 = 0
    Out2 = 0
    '************************************************* *
    goto main


    '************************************************* *
    '******************* Кряк 2 ***********************
    '************************************************* *
    Krach2: '*
    time = 1000 '*
    gosub out '*
    time = 700 '*
    gosub out '*
    time = 600 '*
    gosub out '*
    time = 500 '*
    gosub out '*
    time = 400 '*
    gosub out '*
    time = 300 '*
    gosub out '*
    time = 250 '*
    gosub out '*
    time = 250 '*
    gosub out '*
    time = 250 '*
    gosub out '*
    time = 300 '*
    gosub out '*
    time = 400 '*
    gosub out '*
    time = 500 '*
    gosub out '*
    time = 600 '*
    gosub out '*
    time = 700 '*
    gosub out '*
    time = 1000 '*
    gosub out '*
    return '*
    '************************************************* *



    '************************************************* *
    '******************* Кряк 3 ***********************
    '************************************************* *
    Krach3: '*
    time = 1150 '*
    gosub out '*
    time = 750 '*
    gosub out '*
    time = 650 '*
    gosub out '*
    time = 550 '*
    gosub out '*
    time = 450 '*
    gosub out '*
    time = 300 '*
    gosub out '*
    time = 250 '*
    gosub out '*
    time = 250 '*
    gosub out '*
    time = 250 '*
    gosub out '*
    time = 300 '*
    gosub out '*
    time = 450 '*
    gosub out '*
    time = 550 '*
    gosub out '*
    time = 650 '*
    gosub out '*
    time = 750 '*
    gosub out '*
    time = 1150 '*
    gosub out '*
    return '*
    '************************************************* *



    '************************************************* *
    '******************* Wail_1 ***********************
    '************************************************* *
    wail1: '*
    for i = 1500 to 400 step -1 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 400 to 1500 '*
    time = i '*
    gosub out '*
    next i '*
    return '*
    '************************************************* *



    '************************************************* *
    '******************* Wail_2 ***********************
    '************************************************* *
    wail2: '*
    for i = 1500 to 400 step -8 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 400 to 1500 step 8 '*
    time = i '*
    gosub out '*
    next i '*
    return '*
    '************************************************* *



    '************************************************* *
    '******************* Wail_3 ***********************
    '************************************************* *
    wail3: '*
    for i = 1667 to 556 step -1 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 556 to 1667 step 1 '*
    time = i '*
    gosub out '*
    next i '*
    return '*
    '************************************************* *



    '************************************************* *
    '******************** Yelp ************************
    '************************************************* *
    yelp: '*
    for i = 1000 to 300 step -4 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 300 to 1000 step 4 '*
    time = i '*
    gosub out '*
    next i '*
    return '*
    '************************************************* *



    '************************************************* *
    '******************** phaser **********************
    '************************************************* *
    phaser: '*
    for i = 609 to 238 step -7 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 238 to 609 step 7 '*
    time = i '*
    gosub out '*
    next i '*
    return '*
    '************************************************* *




    '************************************************* *
    '********************* konec **********************
    '************************************************* *
    konec: '*
    for i = 2000 to 800 step -20 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 800 to 4000 step 2 '*
    time = i '*
    gosub out '*
    next i '*
    return '*
    '************************************************* *



    '************************************************* *
    '**************** short_konec *********************
    '************************************************* *
    short_konec: '*
    for i = 2000 to 600 step -15 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 600 to 1500 step 2 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 1500 to 600 step -15 '*
    time = i '*
    gosub out '*
    next i '*
    for i = 600 to 1800 step 2 '*
    time = i '*
    gosub out '*
    next i '*
    return '*
    '************************************************* *



    '************************************************* *
    '********************** HiLo **********************
    '************************************************* *
    HiLo: '*
    for i = 0 to 300 '*
    time = 400 '*
    gosub out3 '*
    next i '*
    for i = 0 to 300 '*
    time = 550 '*
    gosub out3 '*
    next i '*
    return '*
    '************************************************* *



    '************************************************* *
    '*************** Первоначальный тон ***************
    '************************************************* *
    Ton: '*
    time = 850 '*
    for i = 0 to 300 '*
    gosub out '*
    next i '*
    return '*
    '************************************************* *



    '************************************************* *
    '**************** Управление колоколом ************
    '************************************************* *
    Out: '*
    Out2 = 0 '*
    pauseus 10 '*
    Out1 = 1 '*
    pauseus time '*
    Out1 = 0 '*
    pauseus 10 '*
    Out2 = 1 '*
    pauseus time '*
    return '*
    '************************************************* *




    '************************************************* *
    '**************** Управление колоколом ************
    '************************************************* *
    Out3: '*
    Out1 = 0 '*
    Out2 = 0 '*
    pauseus time '*
    Out1 = 1 '*
    pauseus time '*
    Out1 = 0 '*
    pauseus 10 '*
    Out2 = 1 '*
    pauseus time '*
    Out2 = 0 '*
    pauseus time '*
    return '*
    '************************************************* *
    Reply With Quote Reply With Quote
  2. Yesterday, 01:45 #2
    richard's Avatar
    richard
    richard is offline Prolific Poster
    Join Date
    May 2013
    Location
    australia
    Posts
    2,635

    Did you find this post helpful? Yes | No

    Default Re: program correction

    a pic12f675 has no PORTA


    @ device pic12F675, CPD_ON, PROTECT_ON, MCLR_OFF, PWRT_ON, WDT_Off, INTRC_OSC_NOCLKOUT

    is an outdated and no longer valid method of setting device config registers
    Warning I'm not a teacher
    Reply With Quote Reply With Quote
  3. Yesterday, 07:15 #3
    binary01's Avatar
    binary01
    binary01 is offline Junior Member
    Join Date
    Jun 2025
    Posts
    2

    Did you find this post helpful? Yes | No

    Default Re: program correction

    Thanks for the reply. Can you help me correct the errors? Show me what I need to correct.
    Reply With Quote Reply With Quote
  4. Yesterday, 10:46 #4
    richard's Avatar
    richard
    richard is offline Prolific Poster
    Join Date
    May 2013
    Location
    australia
    Posts
    2,635

    Did you find this post helpful? Yes | No

    Default Re: program correction

    This program motivated me to continue learning PICBASIC.
    i gave you two massive clues if you really are using a 12f675, a read of the manual and a search of the forum/pbp manual will yield all you need to know re setting config [fuses]registers and pin usage. a read of the pic12f675 data sheet will reveal even more about the registers used to configure the chip and use the gpio pins.

    what have you tried ?
    where did the code come from and what do you expect it to do ?
    what chip are you using ?
    what version of pbp ?

    and do read the forum faq and learn how to use code tags
    Code:
    trisio = 111100
CMCON = 000111 ' Отключаем встроенный компаратор
ANSEL = 000000 ' Set AN0 analog
adcon0 = 000000 'АЦП
OPTION_REG.7 = 0
WPU = 100000 ' Подтягивающие резисторы (автоматически выключаются при установке порта на вывод)
'************************************************* *
gosub ton
'************************************************* *




main:
'******************-1-*****************************
gosub wail3
'******************-2-*****************************
for j = 0 to 10
gosub yelp
next j
'******************-3-*****************************
for k = 0 to 4
gosub Krach2
next k
pause 260
for k = 0 to 5
gosub Krach2
next k
pause 137
for k = 0 to 5
gosub Krach2
next k
pause 137
for k = 0 to 5
gosub Krach2
next k
pause 137
for k = 0 to 5
gosub Krach2
next k
'******************-4-*****************************
gosub short_konec
'******************-5-*****************************
for j = 0 to 20
gosub phaser
next j
'******************-6-*****************************
for j = 0 to 30
gosub Krach3
next j
'******************-7-*****************************
for j = 0 to 7
gosub wail2
next j
for k = 0 to 9
gosub Krach2
next k
for j = 0 to 3
gosub wail2
next j
for j = 0 to 15
gosub Krach3
next j
'******************-8-*****************************
gosub short_konec
gosub konec
'******************-9-*****************************
for j = 0 to 20
gosub phaser
next j
'******************-10-****************************
for j = 0 to 30
gosub Krach3
next j
'******************-11-****************************
for j = 0 to 10
gosub hilo
next j
'************************************************* *
Out1 = 0
Out2 = 0
'************************************************* *
goto main




'************************************************* *
'******************* Кряк 2 ***********************
'************************************************* *
Krach2: '*
time = 1000 '*
gosub out '*
time = 700 '*
gosub out '*
time = 600 '*
gosub out '*
time = 500 '*
gosub out '*
time = 400 '*
gosub out '*
time = 300 '*
gosub out '*
time = 250 '*
gosub out '*
time = 250 '*
gosub out '*
time = 250 '*
gosub out '*
time = 300 '*
gosub out '*
time = 400 '*
gosub out '*
time = 500 '*
gosub out '*
time = 600 '*
gosub out '*
time = 700 '*
gosub out '*
time = 1000 '*
gosub out '*
return '*
'************************************************* *






'************************************************* *
'******************* Кряк 3 ***********************
'************************************************* *
Krach3: '*
time = 1150 '*
gosub out '*
time = 750 '*
gosub out '*
time = 650 '*
gosub out '*
time = 550 '*
gosub out '*
time = 450 '*
gosub out '*
time = 300 '*
gosub out '*
time = 250 '*
gosub out '*
time = 250 '*
gosub out '*
time = 250 '*
gosub out '*
time = 300 '*
gosub out '*
time = 450 '*
gosub out '*
time = 550 '*
gosub out '*
time = 650 '*
gosub out '*
time = 750 '*
gosub out '*
time = 1150 '*
gosub out '*
return '*
'************************************************* *






'************************************************* *
'******************* Wail_1 ***********************
'************************************************* *
wail1: '*
for i = 1500 to 400 step -1 '*
time = i '*
gosub out '*
next i '*
for i = 400 to 1500 '*
time = i '*
gosub out '*
next i '*
return '*
'************************************************* *






'************************************************* *
'******************* Wail_2 ***********************
'************************************************* *
wail2: '*
for i = 1500 to 400 step -8 '*
time = i '*
gosub out '*
next i '*
for i = 400 to 1500 step 8 '*
time = i '*
gosub out '*
next i '*
return '*
'************************************************* *






'************************************************* *
'******************* Wail_3 ***********************
'************************************************* *
wail3: '*
for i = 1667 to 556 step -1 '*
time = i '*
gosub out '*
next i '*
for i = 556 to 1667 step 1 '*
time = i '*
gosub out '*
next i '*
return '*
'************************************************* *






'************************************************* *
'******************** Yelp ************************
'************************************************* *
yelp: '*
for i = 1000 to 300 step -4 '*
time = i '*
gosub out '*
next i '*
for i = 300 to 1000 step 4 '*
time = i '*
gosub out '*
next i '*
return '*
'************************************************* *






'************************************************* *
'******************** phaser **********************
'************************************************* *
phaser: '*
for i = 609 to 238 step -7 '*
time = i '*
gosub out '*
next i '*
for i = 238 to 609 step 7 '*
time = i '*
gosub out '*
next i '*
return '*
'************************************************* *








'************************************************* *
'********************* konec **********************
'************************************************* *
konec: '*
for i = 2000 to 800 step -20 '*
time = i '*
gosub out '*
next i '*
for i = 800 to 4000 step 2 '*
time = i '*
gosub out '*
next i '*
return '*
'************************************************* *






'************************************************* *
'**************** short_konec *********************
'************************************************* *
short_konec: '*
for i = 2000 to 600 step -15 '*
time = i '*
gosub out '*
next i '*
for i = 600 to 1500 step 2 '*
time = i '*
gosub out '*
next i '*
for i = 1500 to 600 step -15 '*
time = i '*
gosub out '*
next i '*
for i = 600 to 1800 step 2 '*
time = i '*
gosub out '*
next i '*
return '*
'************************************************* *






'************************************************* *
'********************** HiLo **********************
'************************************************* *
HiLo: '*
for i = 0 to 300 '*
time = 400 '*
gosub out3 '*
next i '*
for i = 0 to 300 '*
time = 550 '*
gosub out3 '*
next i '*
return '*
'************************************************* *






'************************************************* *
'*************** Первоначальный тон ***************
'************************************************* *
Ton: '*
time = 850 '*
for i = 0 to 300 '*
gosub out '*
next i '*
return '*
'************************************************* *






'************************************************* *
'**************** Управление колоколом ************
'************************************************* *
Out: '*
Out2 = 0 '*
pauseus 10 '*
Out1 = 1 '*
pauseus time '*
Out1 = 0 '*
pauseus 10 '*
Out2 = 1 '*
pauseus time '*
return '*
'************************************************* *








'************************************************* *
'**************** Управление колоколом ************
'************************************************* *
Out3: '*
Out1 = 0 '*
Out2 = 0 '*
pauseus time '*
Out1 = 1 '*
pauseus time '*
Out1 = 0 '*
pauseus 10 '*
Out2 = 1 '*
pauseus time '*
Out2 = 0 '*
pauseus time '*
return '*
'************************************************* *
Quick reply to this messageReply   Reply With QuoteReply With Quote   Multi-Quote This Message
    Warning I'm not a teacher
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Similar Threads

  1. Adapting a PICAXE program to PBP, to program a PIC (compiler Errors)
    By zorgloub in forum mel PIC BASIC Pro
    Replies: 4
    Last Post: - 10th May 2022, 15:58
  2. HC-12 error correction
    By iw2fvo in forum mel PIC BASIC Pro
    Replies: 14
    Last Post: - 23rd November 2015, 15:31
  3. sht_75 and SHT XX pgm correction
    By iw2fvo in forum Code Examples
    Replies: 5
    Last Post: - 17th October 2015, 08:06
  4. ADC non linear reading correction table
    By RFsolution in forum mel PIC BASIC Pro
    Replies: 3
    Last Post: - 29th December 2013, 03:24
  5. Forward error correction
    By Ron Marcus in forum General
    Replies: 2
    Last Post: - 2nd June 2005, 15:12

Members who have read this thread : 5

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

Bookmarks

Posting Permissions

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

Forum Rules