🇩🇪
ohne Last-R mit R1 und R2 (I ca. 1mA) Ue U1 U2 U1 U2 4,97V -2,3mV -22mV 0V 0mV 19mV
program OPA
' Test des Operationsverstärkers 1 im 16F1713
' Vdd = 5V
' Belegung des OPA1
' Eingang: OPA1IN+ RA4 , extern mit RA0 (ADC0) verbunden
' Gegenkopplung: OPA1IN- RA5
' Ausgang: OPA1OUT RA1
' Eingang ADC RA0, RA1
' Belegung des OPA2:
' Eingang: OPA2IN+ RB3
' Gegenkopplung: OPA2IN- RB2
' Ausgang: OPA2OUT RB1
' LCD- Verbindungen konfigurieren:
dim
LCD_RS as sbit at LATC2_bit
LCD_EN as sbit at LATC3_bit
LCD_D7 as sbit at LATC7_bit
LCD_D6 as sbit at LATC6_bit
LCD_D5 as sbit at LATC5_bit
LCD_D4 as sbit at LATC4_bit
dim
LCD_RS_Direction as sbit at TRISC2_bit
LCD_EN_Direction as sbit at TRISC3_bit
LCD_D7_Direction as sbit at TRISC7_bit
LCD_D6_Direction as sbit at TRISC6_bit
LCD_D5_Direction as sbit at TRISC5_bit
LCD_D4_Direction as sbit at TRISC4_bit
' End Lcd module connections
Dim text as string[6]
Dim ADC_Wert as word
main:
' Main program
TRISA = 255 ' alles Input (default nach Reset)
ANSELA = 255 ' alles analog (default nach Reset)
' OPA1 ein, Verstärkung=1, OPA1IN+ = RA4 :
OPA1CON = %11010000
' OPA1 ein, Gegenkopplung an OPA1IN- = RA5, OPA1IN+ = RA4 :
' OPA1CON = %11000000
' ADC ein, Eingang = AN0
ADC_Init()
LCD_Init()
LCD_Cmd(_LCD_CURSOR_OFF)
LCD_Cmd(_LCD_CLEAR)
LCD_Out(1,1,"Ue=")
LCD_Out(2,1,"U1=")
while TRUE
ADC_Wert = ADC_READ(0)
ADC_Wert = ADC_READ(0)
WordtoStr( ADC_Wert, text)
LCD_Out( 1,5,text)
ADC_Wert = ADC_READ(1)
ADC_Wert = ADC_READ(1)
WordtoStr( ADC_Wert, text)
LCD_Out( 2,5,text)
delay_ms(400)
wend
end.
Zitat von: wlfmario in 13.11.2023, 17:26:43 CETDaher habe ich die Fischer PQ18 für jede Fassung eingeplant, damit ich etwas flexibler bin bin was die Quarze betrifft.
Zitat von: picass in 12.11.2023, 17:11:13 CETHallo Mario!eigentlich wollte ich einen Oszillator mit 4,0 Mhz zentral verbauen, allerdings war nach meiner Überlegung dann zu festgefahren was die Takte betrifft.
Mangels eines Schaltplanes stellt sich mir die neugierige Frage, warum da - wie es scheint - in dieser "kleinen Schaltung" sieben Stück Fassungen für Quarze vorgesehen sind?
ZitatEin NB mit zwei Festplatten?ja eine mit 1GB HDD für Daten
Zitat von: wlfmario in 12.11.2023, 11:57:51 CETAls Anhang habe ich mal ein kleines Projekt von mir beigefügt, es handelt sich um eine kleine PlatineHallo Mario!