Ich bin ein absoluter Noob was Elektronik betrifft und brauche Hilfe bei der Realisation einer Idee....

Draketornado · 17. Oktober 2008

THX

Kann ich mehrere Leds über einen einzelnen Pin ansteuern?
Habe im Internet etwas gefunden was vielleicht helfen könnte:

http://www.batsocks.co.uk/readme/tut_led16_1.htm

Da ist beschrieben wie man mit einem uC-Pin zwei Leds verschieden ansteuern kann...und das zeitgleich..

oder geht das auch einfacher?

Gruss

Christian

Pesi · 17. Oktober 2008

Fightclub, das hast Du flasch verstanden

In's Flash kommt der Programmcode, sowie Konstanten (z.B. die Muster bei unserem Cube)

im EEprom kann man Daten speichern, die zur Laufzeit entstehen (z.B. irgendwelche Einstellungen, die gemacht wurden) und die ohne Strom erhalten werden sollen - man kann auch per PonyProg z.B. schon vorher da Werte reinschreiben.

Der Speicher, der wieder leer ist wenn der Strom weg ist ("flüchtige Daten") ist das RAM (wie bei so gut wie jedem Computer)...

der AVR hat also 3 Arten Speicher, die auch über getrennte Datenbusse angesprochen werden ("Harvard-Architektur")

Fightclub · 17. Oktober 2008

Ah ok dann hab ich da wohl was falsch verstanden. Ist es denn korrekt, dass der EEPROM der einzige dieser Speicher ist (mal vom RAM abgesehen) in den der Programmierer zur Laufzeit selber schreiben darf? Das würde ein wenig meine Verwirrung erklären Bezieht sich dann die Speichergröße auf alle Speicher zusammen oder nur auf Flash/Eeeprom?

Draketornado · 18. Oktober 2008

Brauch wieder mal Hilfe...

Ich möchte in diesem simplen Code die Zeiten per Taster modifizieren, doch irgendwie habe ich nen Fehler im Code:

Code

program Wechselblitzer
dim x as byte
dim y as byte
dim z as byte
sub procedure blitzer
while true
  PORTA = %00000011
  PORTB = %00000011
  delay_ms (x)
  PORTA = %11000000
  PORTB = %11000000
  delay_ms (y)
  PORTA = %00000000
  PORTB = %00000000
  delay_ms (z)
wend
end sub
main:
 DDRA = $FF
 DDRB = $FF
 DDRC = $FF
 DDRD = $FF
x=60
y=30
z=330
blitzer
if Button(PORTD, 0, 100, 1) then
x = x+10
end if
if Button(PORTD, 1, 100, 1) then
x = x-10
end if
    if Button(PORTD, 2, 100, 1) 
    y = y+10  
end if
if Button(PORTD, 3, 100, 1) then
    y = y-10
end if
    if Button(PORTD, 4, 100, 1)
    z = z+10 
end if
if Button(PORTD, 5, 100, 1) then
z = z-10
end if
end.

Alles anzeigen

Irgendwie kriege ich ne Fehlermeldung wegen delay_ms (x) delay_ms (y) delay_ms (z).....und ob das mit dem x = x-10 klappen soll, weiss ich auch nicht...

Vielleicht weiss einer von euch Rat....

Danke

Mit freundlichen Grüssen

Christian

Draketornado · 18. Oktober 2008

Ich habe den Code ein wenig umgeändert.....jetzt gibt es keine Fehlermeldung mehr, es funktionniert aber auch nicht, das heisst die Zeiten ändern sich nicht:

Code

program Wechselblitzer
dim x as byte
dim y as byte
dim z as byte
sub procedure blitzer
while true
  PORTA = %00000011
  PORTB = %00000011
  vdelay_ms (x)
  PORTA = %11000000
  PORTB = %11000000
  vdelay_ms (y)
  PORTA = %00000000
  PORTB = %00000000
  vdelay_ms (z)
wend
end sub
main:
 DDRA = $FF
 DDRB = $FF
 DDRC = $FF
 DDRD = $FF


if Button(PORTD, 0, 100, 1) then
x = x+10
end if
if Button(PORTD, 1, 100, 1) then
x = x-10
end if
	if Button(PORTD, 2, 100, 1) then
	y = y+10
end if
if Button(PORTD, 3, 100, 1) then
	y = y-10
end if
	if Button(PORTD, 4, 100, 1) then
	z = z+10
end if
if Button(PORTD, 5, 100, 1) then
z = z-10
end if
blitzer
 x=60
 y=30
 z=300
end.

Alles anzeigen

Gruss

Christian

Stefan_Z · 18. Oktober 2008

Code

PORTA = %00000011

Sieht eher falsch aus....
versuch mal

Code

PORTA =&B00000011

Fightclub · 19. Oktober 2008

Mal abgesehen davon, dass ich das grade keiner Programmiersprache zuordnen kann: Schreib die Subprocedure mal unterm Main, ich bin mir grade nicht sicher ob das eventuell helfen kann, aber manche Sprachen haben da Probleme mit der Reihenfolge. Wenn das nicht hilft probier das ganze mal etwas objektorientierter mit Funktionen aufzubauen. Für diesen prozeduralen Matsch hätte man uns in der Vorlesung Programmierung geköpft und gevierteilt.

Stefan_Z: Das was du da schreibst ist definitiv Bascom, aber der Code sieht mir nicht sehr nach Bascom aus. Wie gesagt, ich weiß nicht was es ist, in tendiere zu C, aber Bascom kann ich recht sicher ausschließen.

Draketornado · 19. Oktober 2008

Der Compiler nennt sich MicroBasic for AVR, wenn ich in Bascom Code schreibe gibts Fehler....leider...ich denke mit ein bischen tüffteln bekäme ich das hin was ich haben möchte, leider fehlt mir die Kenntnis zur Struktur (wo gehört was hin)...ich habe ja leider nie eine Programmiersprache gelernt...bin gerade dabei...

Ich habe es allerdings jetzt einigermassen gelöst:

Code

program Push_the_button
dim x as byte
xx as string[15]
sub procedure blitzer
  PORTA = %00000011
  PORTB = %00000011
  vdelay_ms (x)
  PORTA = %11000000
  PORTB = %11000000
  vdelay_ms (x)
  PORTA = %00000000
  PORTB = %00000000
  delay_ms (150)
end sub


main:
DDRA = $FF
DDRB = $FF
x = 0
Lcd_Init(PORTD, 3, 2, PORTD, LCD_HI_NIBBLE)
Lcd_Cmd(LCD_CURSOR_OFF)
Lcd_Cmd(LCD_CLEAR)
while true
if Button(PORTC, 0, 75, 1) then
x = x+1
end if
if Button(PORTC, 1, 75, 1) then
x = x-1
end if
Lcd_Out(1,1,"Zeit:")
ByteToStr(x,xx)
Lcd_Out(1,6,xx)
blitzer
wend
end.

Alles anzeigen

Der Code funktionniert so...die Zeit wird auf dem LCD angezeigt, das einzige was mich noch stört ist dass die Zeit über 200 hinausgeht....wie kann ich das begrenzen? (Ausser natürlich bei 200 aufzuhören auf den button zu drücken )

...und was bedeutet überhaupt die Zahl hinter dieser Formel: xx as string[15]

Danke

Mit freundlichen Grüssen

Christian

Fightclub · 19. Oktober 2008

Wie wäre es mit

Code

if Button(PORTC, 0, 75, 1) then
if x < 200
x = x+1
end if
end if
if Button(PORTC, 1, 75, 1) then
if x > 0
x = x-1
end if
end if

Achja, hol dir doch die Testversion von Bascom oder schick mir mal ne PM

Freaky91 · 19. Oktober 2008

Zu dem das du eine einfache Seite suchst, wo man alles erklärt bekommt.: Hier ist eine mit der ich es verstehen gelernt habe^^ dauert zwar ein bisschen bis man durch ist aber da ist alles drin was man braucht. http://www.halvar.at/elektronik/kleiner_bascom_avr_kurs/ Wenn du dann noch speziell zu bestimmten Befehlen Fragen hast kannst du die hier nachschlagen.

Ich hoffe das hilft dir, mir hat es sehr geholfen.

Viel Spass

Draketornado · 19. Oktober 2008

Danke für den Ansatz Fightclub, leider ergibt dein Code ne Fehlermeldung:
32:3 E-4 Syntax error: Expected 'then' but 'x' found Wechselblinker.abas

So läuft es jetzt:

Code

if Button(PORTC, 0, 75, 1) then
  if x<30 then
  x = x+1
  end if
end if
if Button(PORTC, 1, 75, 1) then
  if x>0 then
  x = x-1
  end if
end if

Bascom habe ich sehr früh aufgegeben, da ich nicht einen Code compilieren konnte....bei den einfachsten Sachen gibt es gleich ne Fehlermeldung....z.B:

Code

$regfile = "M16def.dat"       'es handelt sich um einen ATmega16
$crystal = 1000000       'der eingebauter RC-Oszillator läuft mit 1 Mhz
$hwstack = 32       'im Speicher werden für den Hardware-Stack 32 Byte reserviert
$swstack = 10       'im Speicher werden für den Software-Stack 10 Byte reserviert
$framesize = 40       'im Speicher werden für den Frame 40 Byte reserviert


Ddrb = &B00000010       'PB1 ist Ausgang. Die anderen Pins sind Eingänge
Portb.1 = 1       'Signal auf PB1 einschalten (HIGH)


End       'Ende des Programms

Alles anzeigen

Wenn ich das kompilieren will kriege ich folgende Fehlermeldungen:

Code

Error : 46	Line :   7 	Assignment error [DDRB: 0   &B00000010: 112]  , in File : C:\PROGRAMME\MCS ELECTRONICS\BASCOM-AVR\SAMPLES\MY_FIRST_TEST.BAS
Error : 31	Line :   8 	Invalid datatype [ 0]  , in File : C:\PROGRAMME\MCS ELECTRONICS\BASCOM-AVR\SAMPLES\MY_FIRST_TEST.BAS

Wenn ich den Chip manuell einstellen will, gibt es auch ne Fehlermeldung...keine Ahnung woran das liegt:

[Blockierte Grafik: http://www.rbl.lu/Bascom.jpg]

Naja....vielleicht weiss einer von euch woran das liegen könnte....

Vielen Dank

Grüsse

Christian

Fightclub · 19. Oktober 2008

Ok da hat jede Sprache ihre eigenheiten. Manche brauchen bei nem if garnix, andre wollen ne geschweifte klammer auf, andre wollen ein then, wieder andre ein then do. Ich denke mal das hast du überlebt

Beim Bascom musst du schon ne Hauptschleife machen. Das sähe dann also so aus:

Code

$regfile = "M16def.dat"       'es handelt sich um einen ATmega16
$crystal = 1000000       'der eingebauter RC-Oszillator läuft mit 1 Mhz
$hwstack = 32       'im Speicher werden für den Hardware-Stack 32 Byte reserviert
$swstack = 32       'im Speicher werden für den Software-Stack 32 Byte reserviert
$framesize = 64       'im Speicher werden für den Frame 64 Byte reserviert


Ddrb = &B00000010           'PB1 ist Ausgang. Die anderen Pins sind Eingänge


Do	                                    ' Beginn des Hauptprogramms


Portb.1 = 1       'Signal auf PB1 einschalten (HIGH)
'Alternativ ginge auch
'Portb = &B00000010


waitms 1000
Portb.1 = 0 'Signal auf PB1 ausschalten(LOW)
waitms 1000


Loop	                                ' Ende des Hauptprogramms


End       'Ende des Programms

Alles anzeigen

Das wäre zum Beispiel ein ganz einfacher Blinker mit einer Blinkfrequenz von 1Hz in Bascom

Draketornado · 19. Oktober 2008

...keine Ahnung wieso....aber auch mit dem Code gibt es Fehlermeldungen:
[Blockierte Grafik: http://www.rbl.lu/Bascom1.jpg]

Ich scheine wohl mit dem Programm keine Chance zu haben....
...oder liegt es etwa in einer Einstellung?

Gruss

Christian

Draketornado · 21. Oktober 2008

Hie Leute...es hat jetzt funktioniert....habe Bascom runtergeschmissen und die 1.11.9.1 komplett neu installiert...leider ist bei 4KB schon Schluss...ich kann nicht mal mit dem Touchscreen experimentieren.
Kann sich bitte mal einer folgenden Code ansehen:
http://www.mikroe.com/zip/touchpanel_examples.zip
Das ist ein Code der mit meinem GLCD und TOUCHSCREEN funktionieren sollte, allerdings ist dieser für PIC gedacht und nicht für Atmega16....und leider kriege ich dass Ding nicht zum Laufen....vielleicht weiss noch einer von euch Rat?

Danke

Grüsse

Christian

Teilen