www.elektronik.si

[galex4]

A mi ve kdo povedat, ali je kdo delal s tem. Enkrat sem poizkusil example za tipke Button pa mi prevajalnik ni hotel prevest. Je problem v prevajalniku. Nekam čudno se mi zdi da so podpičja v sami kodi. Podpičja se pišejo v c-ju.

Example za PIC-e zaenkrat delujejo vredu, pri programiranju atmele pa ne.
Ali je kdo imel s tem probleme in kako jih je rešil?

[gumby]

Če te prav razumem... ti hočeš program za PIC v C prevesti z BASIC in ga dat v atmela?

[galex4]

ne, mikroBASIC ni samo za PIC-e, je tudi tako za AVR kot za 8051 pa tudi za ARM

šprašujem ali je kdo že sprobal example Button za tipke mikroBASIC 8051 (Atmel - ne AVR). Ker mi prevajalnik noče prevesti mi javla napako.

Ali je kdo odpravil to napako?

[drVrh]

Pravkar sem sprobal ta Example za 8051 mikrokontrolerje meni prevede brez problema, sem ga zapisal v mikrokontroler 89C2051, povezal na testni plošči.

No če misliva enak program, pokaži kodo, pokaži kaj ti napiše prevajalnik.

Pa pri mojem programu ni nikakršnjih podpičij.

[galex4]

za mikroBASIC 8051 mislim da to delajo bosanci

prosim če pripneš kodo da vidim če imava isto.

prevajalnik je iz te strani http://www.mikroe.com/sr/compilers/

[jurem]

[galex4]

tu je example, ki se nahaja tam kjer je prevajalnik naložen koda:

'*
' * Project name:
' Button_Test (Demonstration of using Button Library)
' * Copyright:
' (c) Mikroelektronika, 2008.
' * Revision History:
' 20080725:
' - initial release;
' * Description:
' This program demonstrates usage on-board button as PORT0 input.
' On every P0.B0 one-to-zero transition PORT2 is inverted.
' * Test configuration:
' MCU: AT89S8253
' Dev.Board: Easy8051B
' Oscillator: External Clock 10.0000 MHz
' Ext. Modules: -
' SW: mikroBasic for 8051 v1.0
' * NOTES:
' - Make sure you turn ON the PORT LEDs (SW2). (board specific)
' - Put button jumper (J6) into GND position and pull-up PORT0. (board specific)
'*

program Button_Test

' button connections
dim Button_Pin as sbit at P0.B0 ' declare Button_Pin. It will be used by Button Library.
' end Button connections
oldstate as bit bdata ' old state flag

main:
P0 = 255 ' configure PORT0 as input
P2 = 0xAA ' initial PORT2 value
oldstate = 0 ' set oldstate to start value

while TRUE
if (Button(1, 0) <> 0) then ' detect logical one
oldstate = 1 ' update flag
end if
if (oldstate and Button(1, 1)) then ' detect one-to-zero transition
P2 = not P2 ' invert PORT2
oldstate = 0 ' update flag
end if
wend ' endless loop
end.

javla mi to:

5 303 Identifier "p0" was not declared button.mbas
7 303 Identifier "oldstate" was not declared button.mbas
7 303 Identifier "oldstate" was not declared button.mbas
7 304 Syntax error: Expected "end" but "oldstate" found button.mbas
7 304 Syntax error: Expected "." but "as" found button.mbas
0 102 Finished (with errors): 15 sep 2009, 15:09:56 button.mbproj

v komentarju piše da gre za tega AT89S8253 in ne za AT89C2051, vendar mi tudi javlja napako ko prevedem kodo, ki je napisana v user manual guide v priponki, (ga nemorem skopirat) in se nahaja na strani 420 - 421

2. zelo podobni kodi vendar ta v user manual guide ima kar podpičja??

Pri PIC-ih je tudi enako narejen example vendar dela na vseh mikrokontrolerjih razen da moraš preurediti porte

če ima kdo tak example, ki delajo za AT89C2051 naj prosim objavi ali mi javi na zs. Hvala

[Vlado]

Sicer tega Basic-a ne poznam, vendar:

[galex4]

tudi to sem že zamenjal z P1 in P3 vendar se spet ustavi pri tem:

if (Button(1, 0) <> 0) then ' detect logical one

kao da Button ni deklariran

[Vlado]

ali si zamenjal port tudi pri deklariranju porta:

[galex4]

dim Button_Pin as sbit at P0.B0 ' declare Button_Pin. It will be used by Button Library.

tudi ta ukaz sem spremenin na dim Button_Pin as sbit at P1.B0

vendar se je ustavilo pri kot sem omenil že v prejšnjem postu.

[Vlado]

Malo sem gledal navodila in v navodilih piše:

Dim Button_Pin as sbit at P0_0 in ne P0.0 !

Vlado

[galex4]

[Krampus]

Shrani projekt in program z drugim imenom Button.XXX je ime knjižnice.

Projekt je v primerih shranjen kot Button_Test in ne Button.

[galex4]

spet se oglašam po dolgem času. Težavo sem odpravil s to kodo:

dim Button_Pin as sbit at P3_3_bit
dim oldstate as bit

oldstate = 0
P3.7 = 0

main:
while true
if (Button(1,0) <> 0) then
oldstate = 1
end if

if (oldstate and Button(1,1)) then
P3.7 = not P3.7
oldstate = 1
end if
wend
end.

sedaj me zanima kako dodati še drugo tipko, ali mi kdo lahko pomaga?