Kunnen deze ventilatoren toerental geregeld worden ? Eventueel temperatuur gestuurd ?
met een motordimmer kan dat ja. heb er ergens ook zo 1 gemaakt..
Special Member
Op 11 maart 2023 17:06:46 schreef bprosman:
Kunnen deze ventilatoren toerental geregeld worden ? Eventueel temperatuur gestuurd ?
Je zou het hiermee kunnen proberen Bram.
pic basic code:
Device 16F887 ; Processor type
Xtal 10 ; Cristal 10Mhz
Asm ; Config settings
CONFIG_REQ
__CONFIG _CONFIG1, HS_OSC & WDT_OFF & DEBUG_OFF & FCMEN_OFF & LVP_OFF & IESO_OFF & BOR_OFF & CPD_OFF & CP_OFF & MCLRE_OFF & PWRTE_ON
__CONFIG _CONFIG2, WRT_OFF & BOR40V
EndAsm
All_Digital true ; Alle poorten digitaal
Declare Adin_Res = 10 ; resolutie 8 bits
Declare Adin_Tad = frc ; set RC osc
Declare Adin_Stime = 50 ; sample tijd 5
Symbol PULS_IN = PORTC.0 ; Ingang nuldetectie
Symbol TRIGGER = PORTC.2 ; Uitgang trigger puls triac
Dim WAARDE As Word ; Variabele waarde
Clear ; Wis geheugen
;543210 ; Hulpregel poort A
PORTA = %000000 ; Maak poort A laag
TRISA = %111111 ; Poort_A I/O
;543210 ; Hulpregel poort B
PORTB = %000000 ; Maak poort B laag
TRISB = %111111 ; Poort_B I/O
;76543210 ; Hulpregel poort C
PORTC = %00000000 ; Maak poort C laag
TRISC = %00000001 ; Poort_C I/O
;76543210 ; Hulpregel poort D
PORTD = %00000000 ; Maak poort D laag
TRISD = %00000000 ; Poort_D I/O
;210 ; Hulpregel poort E
PORTE = %000 ; Maak poort E laag
TRISE = %111 ; Poort_E I/O
;76543210 ; Hulpregel analoog
ADCON0 = %00000001 ; ADCON0 register analoog
;76543210 ; Hulpregel analoog
ADCON1 = %10000000 ; ADCON! register analoog
;543210 ; Hulpregel analoog poort_B
ANSELH = %000000 ; ANSEL register analoog poort_B
;-----------------------------------------
; INLEZEN POTMETER OP ANALOGE INGANG NUL.
; TRIGGER PULS VOOR TRIAC OP NUL ZETTEN.
; WAARDE VERGELIJKEN EN NAAR RUN LUS GAAN.
;-----------------------------------------
START:
WAARDE = ADIn 0
TRIGGER = 0
If WAARDE < 1023 Then
GoSub RUN
EndIf
GoTo START
;---------------------------------------------------
; INLEZEN POTMETER OP ANALOGE INGANG NUL.
; WAARDE VERGELIJKEN EN NAAR START LUS GAAN.
; WAARDE VERMENIGVULDIGEN MET ACHT.
; NULDETECTIE PULS LEZEN EN TRIGGER PULS UITSTUREN.
;---------------------------------------------------
RUN:
WAARDE = ADIn 0
If WAARDE > 1022 Then
Return
EndIf
WAARDE = WAARDE * 8
If PULS_IN = 1 Then
TRIGGER = 0
DelayMS 1
DelayUS WAARDE
TRIGGER = 1
EndIf
GoTo RUN
End
Dit kan bijvoorbeeld in een 12F683.
Golden Member
Op 11 maart 2023 17:17:18 schreef Lambiek:
[...]
Je zou het hiermee kunnen proberen Bram.[bijlage]
[bijlage]
pic basic code:
Device 16F887 ; Processor type Xtal 10 ; Cristal 10Mhz Asm ; Config settings CONFIG_REQ __CONFIG _CONFIG1, HS_OSC & WDT_OFF & DEBUG_OFF & FCMEN_OFF & LVP_OFF & IESO_OFF & BOR_OFF & CPD_OFF & CP_OFF & MCLRE_OFF & PWRTE_ON __CONFIG _CONFIG2, WRT_OFF & BOR40V EndAsm All_Digital true ; Alle poorten digitaal Declare Adin_Res = 10 ; resolutie 8 bits Declare Adin_Tad = frc ; set RC osc Declare Adin_Stime = 50 ; sample tijd 5 Symbol PULS_IN = PORTC.0 ; Ingang nuldetectie Symbol TRIGGER = PORTC.2 ; Uitgang trigger puls triac Dim WAARDE As Word ; Variabele waarde Clear ; Wis geheugen ;543210 ; Hulpregel poort A PORTA = %000000 ; Maak poort A laag TRISA = %111111 ; Poort_A I/O ;543210 ; Hulpregel poort B PORTB = %000000 ; Maak poort B laag TRISB = %111111 ; Poort_B I/O ;76543210 ; Hulpregel poort C PORTC = %00000000 ; Maak poort C laag TRISC = %00000001 ; Poort_C I/O ;76543210 ; Hulpregel poort D PORTD = %00000000 ; Maak poort D laag TRISD = %00000000 ; Poort_D I/O ;210 ; Hulpregel poort E PORTE = %000 ; Maak poort E laag TRISE = %111 ; Poort_E I/O ;76543210 ; Hulpregel analoog ADCON0 = %00000001 ; ADCON0 register analoog ;76543210 ; Hulpregel analoog ADCON1 = %10000000 ; ADCON! register analoog ;543210 ; Hulpregel analoog poort_B ANSELH = %000000 ; ANSEL register analoog poort_B ;----------------------------------------- ; INLEZEN POTMETER OP ANALOGE INGANG NUL. ; TRIGGER PULS VOOR TRIAC OP NUL ZETTEN. ; WAARDE VERGELIJKEN EN NAAR RUN LUS GAAN. ;----------------------------------------- START: WAARDE = ADIn 0 TRIGGER = 0 If WAARDE < 1023 Then GoSub RUN EndIf GoTo START ;--------------------------------------------------- ; INLEZEN POTMETER OP ANALOGE INGANG NUL. ; WAARDE VERGELIJKEN EN NAAR START LUS GAAN. ; WAARDE VERMENIGVULDIGEN MET ACHT. ; NULDETECTIE PULS LEZEN EN TRIGGER PULS UITSTUREN. ;--------------------------------------------------- RUN: WAARDE = ADIn 0 If WAARDE > 1022 Then Return EndIf WAARDE = WAARDE * 8 If PULS_IN = 1 Then TRIGGER = 0 DelayMS 1 DelayUS WAARDE TRIGGER = 1 EndIf GoTo RUN End
Dit kan bijvoorbeeld in een 12F683.
Dank !!
Special Member
Net even snel geprobeerd en dat werkt.
Golden Member
Op 11 maart 2023 17:31:37 schreef Lambiek:
[...]Net even snel geprobeerd en dat werkt.
.Dank , even wat onderdelen scoren, ben normaal meer van de AVR normaal.
Special Member
Op 11 maart 2023 18:53:53 schreef bprosman:
Dank , even wat onderdelen scoren, ben normaal meer van de AVR normaal.
Kan ook met een AVR natuurlijk, maar dan moet je het programma even omzetten.
Golden Member
Temperatuur gestuurd kan ook, gewoon een bout laten aanlopen tegen het plastic. Dat remt prima af. En hoe heter de fan wordt, des te trager draait hij.
Golden Member
Op 11 maart 2023 19:42:59 schreef Lambiek:
[...]
Kan ook met een AVR natuurlijk, maar dan moet je het programma even omzetten.
Maar ook de rest, ik heb alleen de MOC3040
Special Member
Op 11 maart 2023 22:02:34 schreef bprosman:
Maar ook de rest, ik heb alleen de MOC3040
Als je het schema aanhoud maar dan met een AVR is het toch goed.
En dan de software schrijven voor je AVR.
Of je probeert het met een dimmer, dan hoef je niets te maken.
Golden Member
Je kan ook een klassieke dimmer schakeling nemen waarin je de potmetervervangt voor een NTC die bij 25 graden ca 500k ohm is.
https://verstraten-elektronica.blogspot.com/p/subminiatuur-dimmer.html
Een diac slaat door als die boven de grensspanning komt van 36V voor een DB3.
Dus elke keer als de condensator op 36V zit zal de triac in geleiding gaan.
Maar of dit ook exact de goede aansturing geeft denk ik niet NTC's zijn eerder logaritmisch dan lineair. Werken zal het wel hoe warmer de NTC hoe lager zijn weerstand en hoe sneller (eerder) de triac onsteekt.
Golden Member
Op 11 maart 2023 22:55:31 schreef Lambiek:
[...]
Als je het schema aanhoud maar dan met een AVR is het toch goed.En dan de software schrijven voor je AVR.
Of je probeert het met een dimmer, dan hoef je niets te maken.
Klopt, maar ik bedoelde dat ik de MOC3021 (ook) niet heb (alleen de 3040) dus daar moet ik achteraan
Een MOC3040 heeft een zerodetectie en is sowieso niet bruikbaar.
Golden Member
Op 12 maart 2023 09:38:59 schreef MGP:
Een MOC3040 heeft een zerodetectie en is sowieso niet bruikbaar.
Inderdaad, vandaar
Special Member
Op 12 maart 2023 09:20:08 schreef bprosman:
Klopt, maar ik bedoelde dat ik de MOC3021 (ook) niet heb (alleen de 3040) dus daar moet ik achteraan
Oké, bedoel je dat.
Ja dat gaat niet werken.
Golden Member
Op 13 maart 2023 11:41:10 schreef Lambiek:
Je hebt mail Bram.
Hoe weet jij dat ? ?
Inmiddels gezien !!
Dank, hier kan ik mee verder.
Special Member
Op 13 maart 2023 11:44:22 schreef bprosman:
Hoe weet jij dat ? ?
Nou, gewoon.