My problem with Bascom Versions 2080 and 2081 still persists, those versions refuse to start, contrary to Version 2079.
Question is why.
The most obvious difference between 2079 and 2081 are the quite different file sizes.
File size of 2081 is 3791 KB, file size of 2079 is 11477 KB.
I assume that the older versions were carrying some modules with them which have been outsourced to Windows modules from 2080 on.
Maybe some of my system cleaners have fiddled around just with the required Windows modules so that they cannot be loaded anymore.
As I mentioned earlier, any other program -old and newer ones - works.
I would appreciate to get some help.
Best regards, Meister
↧
BASCOM-AVR : Bascom stops to start : REPLY
↧
BASCOM-AVR : Simulation : REPLY
[quote:ff24095333="MOR_AL"]I followed your instructions in detail, several times, but it did not work.[/quote:ff24095333]
You're right. Also I did follow my instructions in detail and it did not work.
But there's nothing wrong about you and me, instead this simulator feature seemingly was lost after an update.
With my current version 2.0.8.1 it does not work, but I tried out the same code on 2.0.7.6 and there it worked as supposed.
This is something for MCS support, write them to get it fixed.
And btw., for simulating such code, include a $SIM in your code, this removes any wait loops and makes simulation much more convenient.
↧
↧
BASCOM-AVR : Simulation : REPLY
[quote:04d0eb89ab="EDC"]PORTB is chosen for keyboard reading but it also in the code description drive the LCD[/quote:04d0eb89ab]
The simulator - which it is all about - does not know a certain pin setting for the simulated devices, nor does it care.
A LDC-write is simply redirected to the simulator's display window, a GetKBD() is not executed opcode by opcode, instead with a click of the windows keypad a value is injected into the assigned variable.
↧
BASCOM-AVR : Simulation : REPLY
1 - I used the example as it is in AN # 144 - CodeLok AVR. I did not change anything. Line 29: [b:f5e2c7060c]$Regfile="attiny2313.dat"[/b:f5e2c7060c] .
2 On lines 84 (Wait 2) and 87 (Wait 4) the simulation takes a long time. The example does not have $SIM. As I am learning Bascom-AVR, so I did not change anything.
3 - [i:f5e2c7060c]And btw., for simulating such code, include a $SIM in your code, this removes any wait loops and makes simulation much more conveniente.[/i:f5e2c7060c] It's ok! I'll do it.
4 - LCD settings...
MOR_AL
↧
BASCOM-AVR : Bascom stops to start : REPLY
File size for me, Win10-64bit
Bascom avr 2079 = 3.788.288 Bytes 16/06/2015
Bascom avr 2080 = 3.817.984 Bytes 13/12/2016
Bascom avr 2081 = 3.881.472 Bytes 07/12/2017
Almost the same, not that huge difference that you have.
I suggest that you upload the bascavr.exe 2079 version to https://www.virustotal.com to check it.
↧
↧
BASCOM-AVR : Bascom stops to start : REPLY
[quote:7468028f9d]Almost the same, not that huge difference that you have.
I suggest that you upload the bascavr.exe 2079 version to https://www.virustotal.com to check it.[/quote:7468028f9d]
No virus detected.
Very strange. Are you shure about your versions?
No question, my version 2079 shows up in explorer as 2079...
See attachment please.
↧
BASCOM-AVR : Bascom stops to start : REPLY
Yep, I'm really sure.
We are talking about the [b:f61665c9c6]bascavr.exe[/b:f61665c9c6] 2078= 3.7Mb, 2077= 5,4Mb, 2076= 3,5Mb
So following this line your file is way to big.
Did you renamed it or has it for other reason a different name then [b:f61665c9c6]bascavr.exe[/b:f61665c9c6] ?
[img:f61665c9c6]https://www.mcselec.com/userpix/497_Bascom2079_1.jpg[/img:f61665c9c6]
↧
BASCOM-AVR : Bascom stops to start : REPLY
Yes, I renamed by adding the extension _2079 to avoid confusion (for myself).
I can copy that file to the Bascom directory created by the (from scratch) installation of 2081
and bascavr_2079 runs from there, contrary to the actually installed version 2081 which gives the error shown in my first post.
↧
BASCOM-AVR : Bascom stops to start : REPLY
If a file size differs from that what it is expected to be, as EDC suggested, the file is suspicious to a virus infection.
Maybe MCS could help to sort out the issue that version 2079 of bascavr.exe on my PC is three times as large as the same version on EDC's PC.
Best regards, Meister
↧
↧
BASCOM-AVR : Bascom stops to start : REPLY
Take attention on Marks words
[quote:86a7ee75d0]This forum is for users, by users, this is NOT the MCS support site. So please do not address me personally. There is really no guarantee that i read the topics especially since we recover from a server change. [/quote:86a7ee75d0]
↧
AVR-DOS : High speed write and read in SD card : NEWTOPIC
Hi
I have a project that need to write each 6 dword 800 sample per second(SPS)
but when i writing in SD just write 380(SPS)
i use AVR-DOS and config_MMCSD_HC.bas
and atxmega128a1 at 32MHz
please help me
:roll:
↧
BASCOM-AVR : Bascom stops to start : REPLY
six1, you have messed up this conversation.
↧
Share your working BASCOM-AVR code here : SAMSUNG-S5230 LCD Library : REPLY
I found an original display S5230 and confirm doublescreen and flicker. I correct init and now it works nice.
Replace existing init subroutine in library with this one:
↧
↧
BASCOM-AVR : FORMAT STRING : NEWTOPIC
Hi,
what is the mask, for the FORMAT command, to format a string as follows?
eg: 123.5 in 000000.5
or
eg: 1 in 000001.0
[b:111ebd61c6][color=red:111ebd61c6](BASCOM-AVR version : 2.0.8.1 )[/b:111ebd61c6][/color:111ebd61c6]
↧
BASCOM-AVR : FORMAT STRING : REPLY
Hi
I looked at the help
[code:1:b444016b0d]
dim Var as single
Dim varstring as string * 16
varstring= str(var)
Print Format(vartring,"000.00")
[/code:1:b444016b0d]
[quote:b444016b0d]1 in 000001.0[/quote:b444016b0d]
first you must transform your num-var in a string-var with STR()
then varstring=format (varstring,"000000.0")
If you it not working (toomuch 0 ??) you can do
varstring=format(varstring,"000.0")
varstring= "000"+varstring
I hope it is working, I didn't test
JP
:wink:
↧
Share your working BASCOM-AVR code here : Monitor Tool : NEWTOPIC
Monitor through the serial port that allows
do Ram Memory Dump and EEprom,
read and write Ram or EEprom variables and
through READ_VAR monitor variables
from the main program.
I share it because maybe someone can be as useful as it was for me.
[code:1:4cb8ae4cc7]
'(
++++++++++++++++++++++++++++++++++++++++++++++++++++
Monitor tool RS232
------------------
Monitor through the serial port that allows
do Ram Memory Dump and EEprom,
read and write Ram or EEprom variables and
through READ_VAR monitor variables
from the main program.
I share it because maybe someone can be as useful as it was for me.
Compiler version :2.0.8.1
Company :Daniel Gallimberti
Date :09/03/2018
When the chip was tested, the M328, M2560, M32U4 and the Attiny85 were defined.
they are the ones that I use, in the same way other chips can be defined.
Call example
Q = Inkey()
If Q = 47 Then Call Monitor()
Example call to Read_var
Call Read_var( "Name" , Varptr(address) , sixe [1-2])
++++++++++++++++++++++++++++++++++++++++++++++++++++
')
#if _chip = 60 'atmega328
Const Baseram = 256
Const Ram = _ramsize + Baseram
Const E2p = _eramsize
#elseif _chip = 38 'Attiny85
Const Baseram = &H60
Const Ram = _ramsize + Baseram
Const E2p = _era / Size
#elseif _chip = 75 'Mega32U4
Const Baseram = 256
Const Ram = _ramsize + Baseram
Const E2p = _eramsize
#elseif _chip = 43 'Mega32U4
Const Baseram = 512
Const Ram = _ramsize + Baseram
Const E2p = _eramsize
#endif
Dim M_chr As String * 1 , M_adr As Word , M_dat As Byte , M_puntero As Word
Dim M_linea As Word , M_i As Byte , M_j As Byte , M_word As Word , M_x As Byte
Dim Mensaje_1 As String * 37
Mensaje_1 = "Enter to continue.o / to exit.."
Sub Monitor()
Print Chr(12)
Item = "Prueba"
Do
Print Chr(12)
Print "Monitor tool"
Print
Print "D/d = Dump RAM E/e = Dump E2prom"
Print "R/r = Read Var. W/w = Write addr RAM "
Print "X/x = Exit P/p = Write addr E2p"
Do
M_x = 0
M_chr = Inkey()
Select Case M_chr
Case "D"
Call Dump_ram
Case "d"
Call Dump_ram
Case "E"
Call Dump_e2p
Case "e"
Call Dump_e2p
Case "R"
Call Read_var1
Case "r"
Call Read_var1
Case "W"
Call Write_var
Case "w"
Call Write_var
Case "P"
Call Write_var_e2p
Case "p"
Call Write_var_e2p
Case "x"
Exit Sub
Case "X"
Exit Sub
End Select
If M_x = 1 Then Exit Do
Loop
Loop
End Sub
Sub Dump_ram()
For M_linea = Baseram To Ram -1 Step 256
Print
Print " ";
For M_i = 0 To 15
Print Hex(m_i) ; " ";
Next M_i
Print
For M_i = 1 To 53
Print "-";
Next M_i
Print
For M_j = 0 To 255 Step 16
M_word = M_linea + M_j
Print Hex(m_word) ; " ";
For M_puntero = M_word To M_word + 15
M_dat = Inp(m_puntero)
Print Hex(m_dat) ; " ";
Next M_puntero
For M_puntero = M_word To M_word + 15
M_dat = Inp(m_puntero)
If M_dat < 32 Or M_dat > 127 Then M_dat = "."
Print Chr(m_dat) ;
Next M_puntero
Print
Next M_j
Print Mensaje_1;
Do
M_j = Inkey()
If M_j = 47 Then Exit For
If M_j = 13 Then Exit Do
Loop
Next M_linea
M_x = 1
End Sub
Sub Dump_e2p()
For M_linea = 0 To E2p -1 Step 256
Print
Print " ";
For M_i = 0 To 15
Print Hex(m_i) ; " ";
Next M_i
Print
For M_i = 1 To 53
Print "-";
Next M_i
Print
For M_j = 0 To 255 Step 16
M_word = M_linea + M_j
Print Hex(m_word) ; " ";
For M_puntero = M_word To M_word + 15
Readeeprom M_dat , M_puntero
Print Hex(m_dat) ; " ";
Next M_puntero
For M_puntero = M_word To M_word + 15
Readeeprom M_dat , M_puntero
If M_dat < 32 Or M_dat > 127 Then M_dat = "."
Print Chr(m_dat) ;
Next M_puntero
Print
Next M_j
Print Mensaje_1;
Do
M_j = Inkey()
If M_j = 47 Then Exit For
If M_j = 13 Then Exit Do
Loop
Next M_linea
M_x = 1
End Sub
Sub Read_var(byval Nombre As String * 10 , Byval Direccion As Word , Byval Cantidad As Byte)
Print
Print Nombre ; ": ";
Print Hex(direccion) ; " ";
If Cantidad > 2 Then Cantidad = 2
Incr Direccion
For M_i = Cantidad To 1 Step -1
M_dat = Inp(direccion )
A(m_i) = M_dat
Print Hex(m_dat) ;
Decr Direccion
Next M_i
If Cantidad = 1 Then
M_word = A(1)
Else
M_word = Makeint(a(1) , A(2) )
End If
Print " " ;
Print M_word ; " " ; Bin(m_word)
M_x = 1
End Sub
Sub Read_var1()
Local Direccion As Word , Cantidad As Byte , M_str As String * 8
Do
Print
Inputhex "Enter address in Hex: " , Direccion
Do
Input "Bytes to read (1 or 2):" , Cantidad
If Cantidad = 1 Or Cantidad = 2 Then Exit Do
Loop
Print
Print Hex(direccion) ; " ";
If Cantidad = 2 Then Incr Direccion
For M_i = Cantidad To 1 Step -1
M_dat = Inp(direccion )
A(m_i) = M_dat
Print Hex(m_dat) ;
Decr Direccion
Next M_i
If Cantidad = 1 Then
M_word = A(1)
Else
M_word = Makeint(a(1) , A(2) )
End If
Print " " ;
Print M_word ; " " ;
If Cantidad = 2 Then
Print Bin(m_word)
Else
M_str = Bin(m_word)
Print Right(m_str , 8)
End If
M_x = 1
Print Mensaje_1;
Do
M_j = Inkey()
If M_j = 47 Then Exit Sub
If M_j = 13 Then Exit Do
Loop
Loop
End Sub
Sub Write_var()
Local Direccion As Word , Cantidad As Byte , M_str As String * 8
Do
Print
Inputhex "Enter address in Hex: " , Direccion
Inputhex "Enter Data in Hex:" , Cantidad
Print
Print Hex(direccion) ; " ";
Out Direccion , Cantidad
A(m_i) = M_dat
Print Hex(cantidad) ; " " ; Cantidad ; " ";
M_str = Bin(cantidad)
Print Right(m_str , 8)
M_x = 1
Print Mensaje_1;
Do
M_j = Inkey()
If M_j = 47 Then Exit Sub
If M_j = 13 Then Exit Do
Loop
Loop
End Sub
Sub Write_var_e2p()
Local Direccion As Word , Cantidad As Byte , M_str As String * 8
Do
Print
Inputhex "Enter address in Hex: " , Direccion
Inputhex "Enter Data in Hex:" , Cantidad
Print
Print Hex(direccion) ; " ";
Writeeeprom Cantidad , Direccion
A(m_i) = M_dat
Print Hex(cantidad) ; " " ; Cantidad ; " ";
M_str = Bin(cantidad)
Print Right(m_str , 8)
M_x = 1
Print Mensaje_1;
Do
M_j = Inkey()
If M_j = 47 Then Exit Sub
If M_j = 13 Then Exit Do
Loop
Loop
End Sub
[/code:1:4cb8ae4cc7]
↧
BASCOM-AVR : mega168PA vs 168PB : REPLY
Hi,
does any of you have updated/new DEF file for Mega168PB? This chip does have a bunch of new features that Mega168 does not have.
Best regards
Jure
↧
↧
Share your working BASCOM-AVR code here : Monitor Tool : REPLY
Hello Daniel,
Thank you for sharing your code. A good idea.
Indeed can be very useful.
↧
BASCOM-AVR : mega168PA vs 168PB : REPLY
attached the official dat file.
↧
BASCOM-AVR : Bascom stops to start : REPLY
I do not know what you mean? Six just pointed something important out.
But the most important thing is that i wrote earlier, that you best contact support.
When you create a topic you really must wonder if other users can help you.
Since you directed questions directly to MCS you know the answer.
↧
