🇩🇪
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.