Druckbare Version
Hallo !
Ich bekommen seid heute immer drei Fehler nach dem compilieren
Error:215 Line 227 Unknown ASM mnemonic [#If_chip20 or_chip=21 or_chip=10
Error:202 Line:227 .EQU not found, probably using functions that are not supported by selected Chip [RAMPZ]
Error:215 Line 227 Unknown ASM mnemonic [#endif]
Was kann das sein? Der Code lief ja vorher ohne probleme.
Hat einer ne Idee?
Hallo,
Du willst für einen Mega128 eine Funktion benutzen, die wohl nicht so ganz korrekt implementiert ist, evtl. wird das Register inzwischen anders genannt.
Kannst etwas mehr an Infos rausrücken, evtl. gibts gar schon 'ne Lösung dafür !
Was hast Du evtl. geändert, weshalb es nicht mehr gehen könnte, usw. ?
Guten Morgen !
Ich benutze eine ATmega32 mit 16Mhz und hab Bascom 1.11.8.3.
Ich habe mich mal darin versucht eine Tastenabfrage zu erstellen
Hier mal mein Code dazu.
wenn einer einen Fehler sieht bitte nicht gleich los schimpfen bin noch in der lern Phase.
ich glaube da ist in der lib (glcdks108.lib) was nicht richtig. aber ist wie gesagt nur so ne Ahnung. Wie gesagt wenn ich versuche den Code zu Compeilieren dann kommt der oben beschriebene Fehler.
Code:$regfile = "m32def.dat" ' specify the used micro
$crystal = 16000000 ' used crystal frequency
$lib "glcdks108.lib"
' printing will still work as only the receiver pin is disabled
Wait 2
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
Config Adc = Single , Prescaler = Auto ,
Config Pina.0 = Input
'Const Ref = 5 / 1023
Declare Sub Taste1()
Declare Sub Taste2()
Declare Sub Taste3()
Declare Function Tastenabfrage() As Byte
Declare Sub Start1()
Start Adc
Dim Ws As Word
Dim Taste As Byte
Dim Adc1 As Word
Config Pinb.0 = Output
Beep Alias Pinb.0
Adc1 = Getadc(0)
Setfont Font8x8
Cls
Wait 1
Call Start1
Do
Taste = Tastenabfrage()
If Taste <> 0 Then
Select Case Taste
Case 1
Call Taste1
Case 2
Call Taste2
Case 3
Call Taste3
End Select
End If
Loop
End
Function Tastenabfrage() As Byte
Tastenabfrage = 0
Ws = Getadc(0)
If Ws < Adc1 Then
Select Case Ws
Case 210 To 250
Tastenabfrage = 1
Case 150 To 200
Tastenabfrage = 2
Case 50 To 100
Tastenabfrage = 3
End Select
End If
End Function
Sub Taste1()
Sound Beep , 600 , 200
Lcdat 1 , 1 , " Taste 1"
End Sub
Sub Taste2()
Sound Beep , 600 , 500
Lcdat 1 , 1 , " Taste2"
End Sub
Sub Taste3()
Sound Beep , 600 , 700
Lcdat 1 , 1 , "taste3"
End Sub
Sub Start1()
Lcdat 1 , 1 , "Bitte eine Taste"
Lcdat 1 , 1 , "drücken"
End Sub
'end program
$include "font8x8.font"
:-k
ich kann das so in der 11.8.3 Demo compilieren.
Musste nur die glcdks108.lib nach glcdks108.lbx umbenennen, weil die .lib bei der Demo nicht dabei ist.
Was das Programm dann aber macht hab ich nicht getestet.
Eine lbx ist eine Kompilierte lib. Das kannst du unter Tools Libmanager Kompilieren lassen.
In der Demo sind die Libs nicht dabei, also kann man auch nix in eine LBX compilieren. Man muss direkt die LBX'en angeben.
Bei der Vollversion gibts beides.
Ist das in irgendeiner Form ein Nachteil?
Ein nicht vorhandener Vorteil muss ja nicht gleich ein Nachteil sein :-s
Wenn man die Libs hat (und sich auskennt) kann man sich darin austoben, bzw. was eigenes daraus bauen und anpassen und eine eigenen Lib davon bauen, usw.
In der Demo kann man auch selber Libs bauen, aber man hat halt nicht die originalen, falls man was ändern/verbessern will.
Also kann ich bedenkenlos die lbx verwenden, dann muss ich mir (noch) nicht die Vollversion kaufen.
Ja, natürlich, man muss halt immer .lbx angeben, und nicht .lib, falls man mal ein Programm irgendwo abschreibt, in dem das anders wäre.
Okay, dankeschön! Man lernt nie aus... Aber wer würde schon abschreiben? ;-)