Search found 13 matches

by Targa
23 Jan 2007 15:48
Forum: mikroPascal for AVR General
Topic: Function Ord.
Replies: 3
Views: 4429

Function Ord.

Example: function Ord(character : char) : byte;
mikroPascal for AVR Help - Built-in Routines

Code: Select all

program Test_Ord;
var c : Byte;

begin
  while True do
    begin
      c := Ord('A');  // returns 65
    end;
end.
E-3 Identifier 'Ord' was not declared
by Targa
22 Jan 2007 22:08
Forum: mikroPascal for AVR General
Topic: E-3 Error in ASM Code: Label not found "33"
Replies: 12
Views: 15221

Testing: procedure LongIntToStr2(input: LongInt; var output: array[12] of char); //... while true do begin data:= 1.234; FloatToStr2(data,Txt); Glcd_Write_Text(Txt,1,1,1); data1:= 2147483647; LongIntToStr2(data1,Txt1); Glcd_Write_Text(Txt1,1,2,1); data1:= -2147483647; LongIntToStr2(data1,Txt1); Glcd...
by Targa
22 Jan 2007 19:26
Forum: mikroPascal for AVR General
Topic: Problems of speed and usart
Replies: 5
Views: 5220

BigAVR manual - OSCILLATOR (Page 14):
With jumper J1 you can choose which clock will be used to drive MCU.


If that does not function, tries External crystal (10MHz).
Then, if this functions, check the settings over again.
by Targa
20 Jan 2007 16:32
Forum: mikroPascal for AVR General
Topic: Adding strings.
Replies: 2
Views: 3703

Adding strings.

E-46 Adding strings is not allowed, use "concat" procedure instead var Str1 : string[3]; // ... Txt := 'ABC' + Str1; or var Str1, Str2 : string[3]; // ... Txt := Str1 + Str2; or const Str1 : string[3] = 'ABC' // ... Txt := 'ABC' + Str1; Example (mikroPascal for AVR Help - Strings - String Splicing)...
by Targa
19 Jan 2007 23:02
Forum: mikroPascal for AVR General
Topic: E-3 Error in ASM Code: Label not found "33"
Replies: 12
Views: 15221

To rayhall:

- Implemented floating point
- Implemented real math and trigonometry

Yes, that is correct also and functions.
For example:
data : Real;
data := 1.5;
etc.

But, procedure FloatToStr(input: real; var output: array[0..23] of char); does not seem to function.
by Targa
19 Jan 2007 20:34
Forum: mikroPascal for AVR General
Topic: E-3 Error in ASM Code: Label not found "33"
Replies: 12
Views: 15221

To rayhall:
The problem in your code is FloatToStr(data,Txt);
in Help nothing stands over it, except mikroPascal for AVR Help - Simple Types - real under construction!

Real is 32–bit, thus FloatToStr(input: real; var output: array[0..23] of char);
by Targa
19 Jan 2007 19:31
Forum: mikroPascal for AVR General
Topic: New Project
Replies: 2
Views: 3444

There is a bug in the software. You have to use the "New Project" button on the task bar.

See:
http://www.mikroe.com/forum/viewtopic.php?t=8091
by Targa
19 Jan 2007 03:05
Forum: mikroPascal for AVR General
Topic: MMC/SD test with EasyAVR4 and BigAVR
Replies: 24
Views: 25555

Re: FAT not work at ATMEGA128

TEST3 - NOT WORK use only MMC_FAT_INIT + UART NOT WORK Program freeze by use MMC + UART routines. Simple MMC routines not work. The code (TEST3) adapted to ATmega16: program mmc_fat_usart_test3; var i : byte; begin // INITIALIZATION Usart1_Init(19200); // Init UART Delay_ms(200); Usart1_Write_Text(...
by Targa
18 Jan 2007 22:01
Forum: mikroPascal for AVR General
Topic: MMC/SD test with EasyAVR4 and BigAVR
Replies: 24
Views: 25555

This code functions: Hardware: MMC 64 MB (FAT), EasyAVR4, ATmega16. Software: mikroPascal for AVR 4.0, MMC/SD FAT16 library. USART: program mmc_fat_16_test; var file_contents : string[50]; filename : string[14]; caracter, loop, loop2 : byte; size : longint; //----- Writes string to USART ----- proce...
by Targa
18 Jan 2007 03:24
Forum: mikroPascal for AVR General
Topic: MMC/SD test with EasyAVR4 and BigAVR
Replies: 24
Views: 25555

Successful test :
Hardware: SD 64 MB (FAT), EasyAVR4, ATmega16.
Software: mikroPascal for AVR 4.0, MMC/SD FAT16 library.
by Targa
15 Jan 2007 01:27
Forum: mikroPascal for AVR General
Topic: divide incorrect
Replies: 9
Views: 7383

This code functions: program Test_div; var d : array[1..3] of Word; Txt : string[5]; function ShowData(i, data, n : Word): Word; begin d[i] := data div n; WordToStr(d[i],Txt); Glcd_Write_Text(Txt,1,1,1); result := d[i]; end; begin Glcd_Init(PORTD, 2, 3, 4, 5, 7, 6, PORTA); Glcd_Set_Font(font5x7,5,8,...
by Targa
14 Jan 2007 17:04
Forum: mikroPascal for AVR General
Topic: divide incorrect
Replies: 9
Views: 7383

That is determines an Bug. That also: Wrong result: data := data1 div 2; if Assignment outside of the Procedure data1 := 2000; program Test_div; var data1 : Word; Txt: string[5]; procedure ShowData; var data : Word; begin data := data1 div 2; WordToStr(data,Txt); Glcd_Write_Text(Txt,1,3,1); end; beg...
by Targa
14 Jan 2007 02:43
Forum: mikroPascal for AVR General
Topic: divide incorrect
Replies: 9
Views: 7383

This code functions (Version: 4.0.0.0): program Test_div; var data: Word; Txt: string[6]; begin Glcd_Init(PORTD, 2, 3, 4, 5, 7, 6, PORTA); Glcd_Set_Font(font5x7,5,8,32); while true do begin data := 2000; data := data div 2; WordToStr(data,Txt); Glcd_Write_Text(Txt,1,1,1); data := 2000 div 2; WordToS...

Go to advanced search