Ik heb ADS1115 gekocht om mee te stoeien.
na veel leeswerk in de documentatie en proberen ben ik zover
dat ik een spanning kan meten en die op het scherm heb staan.
nu komt mijn probleem :
hoe kan ik de 4 poorten tegelijk op mij scherm krijgen.
individueel lukt mij dat wel.
pic basic code:
Device 16F628A
Config HS_OSC, WDT_OFF, PWRTE_ON, LVP_OFF, BODEN_OFF, MCLRE_OFF
Xtal 20
All_Digital TRUE
Clear
Symbol ADS_SDA = PORTA.0 ; ADS1115
Symbol ADS_SLC = PORTA.1 ; ADS1115
; 76543210
PORTA = %00000000
TRISA = %00000011
Dim Dat15 As Word
Dim Resultaat_0 As Float
Dim Resultaat_1 As Float
Cls
DelayMS 100
Lees_ADC:
While 1 = 1
;5432109876543210
I2COut ADS_SDA, ADS_SLC, $90, $01, [%1100000100000011] ; configuratie
; |||
; 100 = AIN0 ingang en met ADDR naar aarde.
; 101 = AIN1 ingang en met ADDR naar aarde.
; 110 = AIN2 ingang en met ADDR naar aarde.
; 111 = AIN3 ingang en met ADDR naar aarde.
DelayMS 15
I2CIn ADS_SDA, ADS_SLC, $90, $48, [ Dat15 ] ; uitlezen
DelayMS 5
Resultaat_0 = Dat15 * 0.0001869
Resultaat_1 = Dat15 * 0.1869
Print At 1,1, Dec3 Resultaat_0, " Volt"
Print At 2,1, Dec0 Resultaat_1, " mvolt"
DelayMS 15
Wend
End