🇩🇪
Zitat von: PICkel in 20.11.2023, 12:47:10 CETIst zwar völlig OT....Eine weitere Debatte darüber würde in der Tat diesen Fred verwässern und so was mag ich selbst nicht. Daher eröffne ich einen Extra-Fred, das zugrunde liegende Phänomen erscheint mir interessant genug.
Zitat von: picass in 18.11.2023, 10:10:24 CETUnd das passiert auch noch immer an derselben Stelle, nämlich bei Betreten unseres Grundstücks. Immer da und auf den Meter genau
Zitat von: PICkel in 17.11.2023, 11:20:18 CETLeider unterstützt der mikroBasic-Compiler diese derzeit nicht.Das Leben ist schon wieder mal ungerecht!
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.