4-fach 7-Seg. Anzeigemodul aus DVD-Player

[Padavan]

So nochmal nachgeschaut es ist definitiv ein 164er da Pin9(IC) Clear mit Vcc verbunden ist,pin8(IC) Clock ist mit 2,2k an pin 10 von Steckerleiste wenn der für clock ist, bleibt nur noch pin9 an Steckerleiste übrig?vergleich negativ Bild weiter oben da sieht man es.

[BMS]

Also die Eingänge des ICs sind ja Clock, Clear (negiert), Serial in A/B.
Clock und Clear hast du schon herausgefunden, ich denke dass serial A und B (IC Pin 1,2)
miteinander verbunden sind und dann auf Pin 9 (Steckerleiste) herausgeführt sind ?
Dann steht der Ansteuerung ja eigentlich fast nichts mehr im Wege.
Jetzt gilt es noch die Zuordnung der Segmente der Anzeige zu den QA,QB,QC...QH
herauszufinden
Grüße,
Bernhard

[radbruch]

Hallo

Ich hab auch mal eine vierstellige 7-Segmentanzeige aus einem alten Videorekorder ausgeschlachtet. Allerdings konnte ich die Daten des Ansteuerchips noch lesen und diesen dann per Software-SPI auch erfolgreich ansteuern:

#include <avr/io.h>
#include <avr/interrupt.h>

#define pause_lang for(i=0; i<20; i++) for(n=0; n<65000; n++) dummy^=n+i
#define pause_mittel for(n=0; n<1000; n++) dummy ^= n
#define pause_kurz for(n=0; n<10; n++) dummy ^= n

void send_7segment(uint16_t wert, uint8_t punkt)
{
	#define enbh PORTA |= 1<<PA4 // Portdefinitionen
	#define enbl PORTA &= ~(1<<PA4)
	#define clkh PORTC |= 1<<PC0
	#define clkl PORTC &= ~(1<<PC0)
	#define datah PORTC |= 1<<PC1
	#define datal PORTC &= ~(1<<PC1)

	uint16_t i, n, dummy, temp;
	uint8_t t, h, z, e;

	clkh; // Clock ist high als Startbedingung
	pause_kurz; // kurz warten
	
	if(wert == 0xffff) temp=wert; else // Blank
		if(wert>9999) temp=0xeeee; // Überlauf "----"
	else
	{
	   t=h=z=e=0; // dezimal nach BCD wandeln
	   while(wert >= 1000) { t++; wert -= 1000; }
	   while(wert >= 100) { h++; wert -= 100; }
	   while(wert >= 10) { z++; wert -= 10; }
	   while(wert > 0) { e++; wert -= 1; }

		temp  = (t & 0xf); // BCD-Wert zsammenbasteln LSB ist links :(
	   temp |= (h & 0xf) << 4;
	   temp |= (z & 0xf) << 8;
	   temp |= (e & 0xf) << 12;

		/*
		temp = (wert & 0xf000) >> 12; // BCD Ziffern tauschen
		temp|= (wert & 0x0f00) >> 4;
		temp|= (wert & 0x00f0) << 4;
		temp|= (wert & 0x000f) << 12;
		*/
	}

	enbl; // Schreiben aktivieren

	if(punkt & 15) for(i=0; i<4; i++) // Dezimalpunkt setzen?
	{
		if(punkt & (1<<i)) datah; else datal;
		pause_kurz;
	   clkl;
		pause_kurz;
		clkh;
		pause_kurz;
  	}
	for(i=0; i<16; i++) // LSB von Digit 3 zuerst senden
	{
		if(temp & (1<<(15-i))) datah; else datal;
		pause_kurz;
	   clkl;
		pause_kurz;
		clkh;
		pause_kurz;
  	}
	enbh; // Ende Schreiben
}

int main(void)
{
	uint16_t i, n, dummy;

	DDRA |= 1<<PA4;
	DDRC |= 3;
	
	send_7segment(0xffff,0); // blank
	pause_lang;
	send_7segment(8888,0); // alle Digits

	while(1)
	{
		pause_lang;
		send_7segment(10000,0); // Überlauf
		pause_lang;
		send_7segment(1234,0);
		pause_lang;
		send_7segment(4321,0);
		pause_lang;
		for(i=0; i<10000; i++) { send_7segment(i,0); pause_mittel; }
		for(i=9999; i; i--) { send_7segment(i,0); pause_mittel; }
		send_7segment(i,0);
	}
	return 0;
}

Links sieht man die vier Treibertransistoren für die Module, daneben der Ansteuerchip (ein MC14499P) und zwischen Elko und Anzeige die Vorwiderstände für die einzelnen Segmente. In die Verbindungsleitungen zum AVR hatte ich vorsichtshalber ein paar Schutzwiderstände eingebaut. Das sieht eigentlich recht schick aus, deshalb viel Erfolg bei deinem Projekt.

Gruß

mic

[Padavan]

"Die Zuordnung der Segmente der Anzeige zu den QA,QB,QC...QH" ja muss ich noch rausbekommen!

bei einem Atmega8 sollte das dann in etwa so aussehen:

Steckerleiste pins 4 bis 7 , transistoren für die Segmente, an PortD
Steckerleiste pin 10 Clock an PB5(SCK) , pin 9 an MOSI? ist das so korrekt?
Ich habe noch nie was mit SPI gemacht,kann ich dann mein MK2-Board noch über ISP programmieren,
wenn die Platine am Board hängt?

@radbruch
schaut ja super aus wenns mal läuft,ich kanns kaum erwarten das meine Platine
auch das Laufen lernt!

hmm..sieht schon etwas schwierig aus das Programm.

[Padavan]

Hallo

Ich habs Geschafft!
Das Teil läuft jetzt wie gewünscht ,vielen dank nochmal an alle die geholfen haben!
hier mal ein Bild:



Anbei der Code in Bascom:

'*******************************************
'*** 7-Segment Modul aus DVD-Player mit ***
'*** 3 tasten,1 IR-Sensor, 2 Status Leds ***
'*** 05.11.2011 by Padavan ***
'*******************************************

$regfile = "m8def.dat"
$crystal = 7372800 '7,37 Mhz
$hwstack = 20
$swstack = 8
$framesize = 24

'Ports

Ddrd = &B11111111

T3 Alias Portd.2 'Pin4,T4
T4 Alias Portd.3 'Pin5,T3
T2 Alias Portd.4 'Pin6,T2
T1 Alias Portd.5 'Pin7,T1
Led_gruen Alias Portd.6 'Pin8,Led Gr.

Led_gruen = 1

' Variablen

Dim Z As Byte
Dim Tausend As Byte
Dim Hundert As Byte
Dim Zehner As Byte
Dim Einer As Byte

'***TEST***

' SPI
Config Spi = Soft , Dout = Portb.3 , Ss = None , Clock = Portb.5
Ddrb = &B111111


' Timer0
Config Timer0 = Timer , Prescale = 256
On Timer0 Timer0_isr
Enable Timer0
Enable Interrupts

Const T0wert = 160 '112 für 100hz,160 für 150hz ,184 für 200hz


Tausend = 249 '&B11111001
Hundert = 164 '&B10100100
Zehner = 176 '&B10110000
Einer = 153 '&B10011001


'Main
Do


Loop

End

Timer0_isr:

Timer0 = T0wert
Incr Z

If Z = 1 Then
T1 = 0
Spiout Tausend , 1
Elseif Z = 2 Then
T2 = 0
T1 = 1
Spiout Hundert , 1
Elseif Z = 3 Then
T3 = 0
T2 = 1
Spiout Zehner , 1
Elseif Z = 4 Then
T4 = 0
T3 = 1
Spiout Einer , 1

Elseif Z = 5 Then
T4 = 1
Z = 0
End If
Return


MFG
Padavan