Anonymní profil Rytir91 – Programujte.com

vyřešeno dodány odpory na reset 10k a +. 100k mosi a clk na GND. A zmenšení programovací rychlosti na 750k :)

Řek bych že nemám nastavený interní oscilátor, může se někdo kouknout na program? Přidávám fotku toho bodu kde se to zastaví.

problém vyřešen, nastal ovšem nový.

P6-CLOCK= opraveno na 7

jedná se o poslední bod programování

Ahoj, mám nový problém.

program:

program blik;

{$NOSHADOW}
{ $WG}                     {global Warnings off}

Device = Tiny13, VCC=5;

Import SysTick;

From System Import LongInt;

Define
  ProcClock      = 4000000;       {Hertz}
  SysTick        = 10;             {msec}
  StackSize      = $0016, iData;
  FrameSize      = $0016, iData;

Implementation

{$IDATA}

{--------------------------------------------------------------}
{ Type Declarations }

type

{--------------------------------------------------------------}
{ Const Declarations }

{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}

{--------------------------------------------------------------}
{ functions }

procedure InitPorts;
begin
  PortB:= %00111111;
end InitPorts;

{--------------------------------------------------------------}
{ Main Program }
{$IDATA}

begin
  InitPorts;

  EnableInts;
  loop
 
  PortB := %00000010;
  MDelay(60000);
  PortB := %00000000;
  MDelay(1000);
  endloop;
end blik.

Když zkompiluju a chystáp se naprogramovat pomocí UP(2.53) a presta napíše mi to

Piny:

P1-VPP =1

P3-VDD=8

P4-GND=4

P5-DATA/MOSI=5

P6-CLOCK=2

P7-MISO=6

díky za rady.

PS: Datasheet a návod na prostředí výše.

#4 Mircosoft

řádek 62: end blik.

K mému překvapení proběhla kompilace.

Hned jak to rozjedu na bastl desce tak potvrdím funkčnost. Mohl bys mi prosím ještě pořádně vysvětlit co to je?

StackSize      = $0064, iData;
  FrameSize      = $0064, iData;

Pro příště abych si to mohl nastavit sám :) Jinak díky.

Ahoj, mám malej problém, v e-labu píšu malej program a nedáří se mi ho zkompilovat, vždy píše chybu:
Error: Adr: $4 not inside current ram page: IDATA

Program je následující:
 

program blik;

{$NOSHADOW}

{ $WG}                     {global Warnings off}

Device = Tiny13, VCC=5;

Import SysTick;

From System Import LongInt;

Define

  ProcClock      = 4000000;       {Hertz}

  SysTick        = 10;             {msec}

  StackSize      = $0064, iData;

  FrameSize      = $0064, iData;

Implementation

{$IDATA}

{ Type Declarations }

type

{ Const Declarations }

{ Var Declarations }

{$IDATA}

{ functions }

procedure InitPorts;

begin

  PortB:= %00111111;

end InitPorts;

{ Main Program }

{$IDATA}

begin

  InitPorts;

  EnableInts;

  loop

  PortB := %00000001;

  MDelay(60000);

  PortB := %00000000;

  MDelay(1000);

  endloop;

end blik.

Jedná se o řádek 62. Příkládám odkaz na GME kde v sekci dokumenty je datasheet. WEB
Program je psán v prostředí E-LAB PED32 (AVRco) WEB
Odkaz na mikro Paskal nemám, používám publikaci ATMEL AVR PASCAL (Vladimír Váňa), předpokládám že celý problém je v nastavení velikosti
StackSize      = $0064, iData;
  FrameSize      = $0064, iData;
Přesné hodnoty neznám a nemám tušení kde je vycucat.

Jinak díky za rady.

#2 Mircosoft
 

Jedná se o řádek 62. Příkládám odkaz na GME kde v sekci dokumenty je datasheet. WEB

Program je psán v prostředí E-LAB PED32 (AVRco) WEB

Odkaz na mikro Paskal nemám, používám publikaci ATMEL AVR PASCAL (Vladimír Váňa), předpokládám že celý problém je v nastavení velikosti

StackSize      = $0064, iData;
  FrameSize      = $0064, iData;

Přesné hodnoty neznám a nemám tušení kde je vycucat.

Ahoj, mám malej problém, v e-labu píšu malej program a nedáří se mi ho zkompilovat, vždy píše chybu:

Error: Adr: $4 not inside current ram page: IDATA

Program je následující:

program blik;

{$NOSHADOW}

{ $WG}                     {global Warnings off}

Device = Tiny13, VCC=5;

Import SysTick;

From System Import LongInt;

Define

  ProcClock      = 4000000;       {Hertz}

  SysTick        = 10;             {msec}

  StackSize      = $0064, iData;

  FrameSize      = $0064, iData;

Implementation

{$IDATA}

{ Type Declarations }

type


{ Const Declarations }

{ Var Declarations }

{$IDATA}

{ functions }

procedure InitPorts;

begin

  PortB:= %00111111;

end InitPorts;


{ Main Program }

{$IDATA}

begin

  InitPorts;

  EnableInts;

  loop

  PortB := %00000001;

  MDelay(60000);

  PortB := %00000000;

  MDelay(1000);

  endloop;

end blik.

Děkuji za rady.