les mal meinen ersten beitrag und du wirst sehen das ich in der tat versucht hab mich damit zu beschäftigen.
Gruß
Druckbare Version
les mal meinen ersten beitrag und du wirst sehen das ich in der tat versucht hab mich damit zu beschäftigen.
Gruß
Also 50A über einem Widerstand messen, das wird spaßig.
Ich habe da jetzt nicht so den Überblick, was es auf dem Markt noch so gibt, aber ich hab auf Anhieb nur Hochlastwiderstände bis 17 Watt gefunden...
Um die nicht zu überschreiten dürfte der Widerstand maximal 0,0068 Ohm groß sein...
Gibts die soo klein?
Zu dem Thema Programm umschreiben...
Also so kompliziert ist dein Projekt ja nun nicht, wenn du dich da kurz einarbeitest ist das eine Sache von ein paar Minuten, da dauert es ja schon länger erstmal den Code von jemand anderem umzukrämpeln!
Außerdem macht es ja auch mehr Spaß, selber was zu entwickeln!
Ich denke wenn du dann noch Probleme hast, wird dir hier im Forum sicherlich weiter geholfen...
Hallo,
ich hab das thema ja darunter gestartet das ich sowas machen will und hilfe benötige... aber irgendwie bekomm ich nur sachen gesagt wie ich das anschließe. Das ist mir ja alles klar mit Spannungsteiler ect. Bin ja kein anfänger in elektronik. Aber einer in sachen Mikroprozessor und deswegen habe ich nach der Software gefragt, ob es irgendwo beispiele oder anregungen gibt.
Gruß
Hallo Felix H.!Zitat:
Zitat von Felix H.
Die Sache ist die: Um so ein Projekt durchführen zu können, musst du dich ein wenig (ein paar Wochen) in die Mikrocontroller-Programmierung mit Bascom-AVR einarbeiten. Das heißt, dass du dir ein Buch, eine Lernplatine und einen "Programmer" kaufen musst. Wenn du die Grundlagen kannst, dann wirst du sehen, dass dieses Projekt gar nicht mal so schwierig umsetzbar ist. Aber ohne diese Grundlagen bist du aufgeschmissen.
Vielleicht hilft dir diese Seite weiter: http://halvar.at/elektronik/mikrocon..._wie_anfangen/
mfg
Gerold
:-)
hi, hab in einem anderen Thread hier im Forum folgenden Code gefunden:
kann man damit schon was anfangen? wenn das gehen würde wäre klasse. Weil hier hab ich schon mal nen anfang ;-) versteh das in dem code nur mit den 1024 nich so ganz^^Code:$regfile = "m8def.dat"
Config Adc = Free , Prescaler = Auto
Start Adc
Dim W As Word
Do
W = Getadc(1) ' Die Spannung kommt am ADC Port 1 rein.
W=W*5000 ' Referenz: 5V
W=W/1024 ' Jetzt haben wird die Spannung, die am Port anliegt in mA
W=W/1 ' der Shunt hat den Wert 1 Ohm, W ist nun der fliessende Strom in mA
' jetzt kann man den Wert z.B. übers LCD ausgeben.
Loop
End
Gruß
Hallo Felix H.!Zitat:
Zitat von Felix H.
Genau so läuft's. :-)
Der Analog-Digital-Converter (ADC) hat eine Auflösung von 1024.
Das heißt, dass bei 5 Volt die Zahl 1024 zurück gegeben wird. Bei 2,5 Volt wird genau die Hälft, also 512 zurück gegeben.
mfg
Gerold
:-)
aaaaah *klick mach* das hört sich soweit schon ganz gut an :-) In dem Beispiel wird ja das ergebnis im prozessor als "W" abgespeichert. Wir geb ichn das auf dem LCD wieder? Einfach mit dem normalen String
Locate 1 , 1
Lcd "W"
oder hab ich da dann ein W stehen?
Gruß
So hättest du dann da ein W stehen...
Ich glaube Bascom versteht das wenn du
LCD W
schreibst.
guuuut... ich denke so müsste das gehen^^
Code:' Ich versuch mich hier mal an einer Anzeige für meine Solaranlage (inselbetrieb)
' also mit Batterie/wechselrichter ect.
'
' Angezeigt werden sollen Modulspannung und Strom, die daraus resultierende Leistung und
' der Batteriestrom sowie der Laststrom und die daraus resultierende Leistung.
' Zudem noch die Leistung, die gerade entnommen oder gepuffert wird. Also die Differenz
' zwischen ein- und ausgehender Leistung.
'
' Felix Herzberger 2008
'
'
$regfile = "m8def.dat"
$crystal = 1000000
Config Adc = Free , Prescaler = Auto
Start Adc
Dim A1 As Word
Do
A1 = Getadc(0) ' Die Spannung kommt am ADC Port 1 rein.
A1 = A1 * 5000 ' Referenz: 5V
A1 = A1 / 1024 ' Jetzt haben wird die Spannung, die am Port anliegt in mA
A1 = A1 / 0.001 ' der Shunt hat den Wert 0,001 Ohm, A1 ist nun der fliessende Strom in mA
Loop
Dim A2 As Word
Do
A2 = Getadc(1)
A2 = A2 * 5000
A2 = A2 / 1024
A2 = A2 / 0.001
Loop
Dim V1 As Word
Do
V1 = Getadc(2)
V1 = V1 * 5000
V1 = V1 / 1024
V1 = V1 * 5
Loop
Dim V2 As Word
Do
V2 = Getadc(3)
V2 = V2 * 5000
V2 = V2 / 1024
V2 = V2 * 5
Loop
Dim P1 As Word
Do
P1 = V1 * A1
Loop
Dim P2 As Word
Do
P2 = V2 * V1
Loop
Dim D1 As Word
Do
D1 = P1 - P2
Loop
' Ausgerechnet sind die Werte nun und werden auf dem Display dargestellt
Config Lcd = 20 * 2
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Do
Cls 'loesche das LCD Display
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd "Solaranlage" 'String auf Display anzeigen
Waitms 3000
Cls
Waitms 10
Locate 1 , 1
Lcd "Modulspannung:"
Locate 2 , 1
Lcd "V"
Locate 2 , 3
Lcd V1
Waitms 3000
Cls
Waitms 10
Locate 1 , 1
Lcd "Modulstrom:"
Locate 2 , 1
Lcd "A"
Locate 2 , 3
Lcd A1
Waitms 3000
Cls
Waitms 10
Locate 1 , 1
Lcd "Modulleistung:"
Locate 2 , 1
Lcd "W"
Locate 2 , 3
Lcd P1
Waitms 3000
Cls
Waitms 10
Locate 1 , 1
Lcd "Batt. Spannung:"
Locate 2 , 1
Lcd "V"
Locate 2 , 3
Lcd V1
Waitms 3000
Cls
Waitms 10
Locate 1 , 1
Lcd "Laststrom:"
Locate 2 , 1
Lcd "A"
Locate 2 , 3
Lcd A2
Waitms 3000
Cls
Waitms 10
Locate 1 , 1
Lcd "Lastleistung:"
Locate 2 , 1
Lcd "W"
Locate 2 , 3
Lcd P2
Waitms 3000
Cls
Locate 1 , 1
Lcd "Leistungsdifferenz"
Locate 2 , 1
Lcd "P"
Locate 2 , 3
Lcd D1
Waitms 3000
Loop
End
Ich hätte da noch einen Hinweis zum messen großer Ströme, das kann man einfach mit so genannten Strommessmodulen (LEM Module)
machen, die können ohne großen Aufwand 100A messen...