Kunnen deze ventilatoren toerental geregeld worden ?

bprosman

Golden Member

Kunnen deze ventilatoren toerental geregeld worden ? Eventueel temperatuur gestuurd ?

De jongere generatie loopt veel te vaak zijn PIC achterna.

met een motordimmer kan dat ja. heb er ergens ook zo 1 gemaakt..

waar rook was, werkt nu iets niet meer
Lambiek

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.

Als je haar maar goed zit, GROETEN LAMBIEK.
bprosman

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 !!

De jongere generatie loopt veel te vaak zijn PIC achterna.
Lambiek

Special Member

Als je haar maar goed zit, GROETEN LAMBIEK.
bprosman

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.

De jongere generatie loopt veel te vaak zijn PIC achterna.
Lambiek

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.

Als je haar maar goed zit, GROETEN LAMBIEK.
fred101

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. :+

www.pa4tim.nl, www.schneiderelectronicsrepair.nl, Reparatie van meet- en calibratie apparatuur, ook maritieme en industriele PCBs
bprosman

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

De jongere generatie loopt veel te vaak zijn PIC achterna.
Lambiek

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.

Als je haar maar goed zit, GROETEN LAMBIEK.
benleentje

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

https://4.bp.blogspot.com/-Yun3LUxriZ0/Ww31YwpReVI/AAAAAAAAQyo/7XKzrwi0jhwKDMvCWo5SPjv9205m3NFrgCEwYBhgL/s1600/Subminiatuur-dimmer-01.jpg

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.

Mensen zijn soms net als een gelijkrichter, ze willen graag hun gelijk hebben.
bprosman

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

De jongere generatie loopt veel te vaak zijn PIC achterna.

Een MOC3040 heeft een zerodetectie en is sowieso niet bruikbaar.

LDmicro user.
bprosman

Golden Member

Op 12 maart 2023 09:38:59 schreef MGP:
Een MOC3040 heeft een zerodetectie en is sowieso niet bruikbaar.

Inderdaad, vandaar

De jongere generatie loopt veel te vaak zijn PIC achterna.
Lambiek

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.

Als je haar maar goed zit, GROETEN LAMBIEK.
Lambiek

Special Member

Als je haar maar goed zit, GROETEN LAMBIEK.
bprosman

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.

De jongere generatie loopt veel te vaak zijn PIC achterna.
Lambiek

Special Member

Als je haar maar goed zit, GROETEN LAMBIEK.