Dina mini-projekt!

Berätta om dina pågående projekt.
superx
Inlägg: 1127
Blev medlem: 19 juni 2012, 23:28:16
Ort: Linköping

Re: Dina mini-projekt!

Inlägg av superx »

Electricguy skrev:Akta så att du inte bryter loss paddarna på kortet då bara. Det blir ganska stor mekanisk stress på dom.
Hål och vinklad stiftlist hade ju varit bättre.
En grej man kan göra för att få paddarna att sitta kvar bättre är att köra några vior genom dem som man fyller med lod. Det brukar jag göra på ytmonterade USB-kontakters lite större paddar som är kopplade till kontaktens hölje, och tycker det funkar bra. Vet inte om det sabbar något RF-mässigt i just det här fallet dock, men jordpinnarna kanske det funkar på i liknande fall.
G-man
EF Sponsor
Inlägg: 1368
Blev medlem: 21 december 2005, 20:04:36
Ort: Lkpg

Re: Dina mini-projekt!

Inlägg av G-man »

Byggde ett par högtalare.. nåja, den ena är klar på så när något skydd för basen..
hogt.jpg
Nöjd med ljudet som attans, länge sen jag byggde en låda så seriöst
Du har inte behörighet att öppna de filer som bifogats till detta inlägg.
1802
Inlägg: 6807
Blev medlem: 6 februari 2009, 13:52:28

Re: Dina mini-projekt!

Inlägg av 1802 »

Rev ner en micro. Nu behöver jag projekt. Är inte mycket för gnistor och hög volt typ 2000V, hellre 3V och ampere. Magnetronens magneter till bilgenerator kanske, för permanent generering. Timer och effektreglerin till riskokaren funkar fint. Microbrytarna till h-brygga med broms.
Användarvisningsbild
lond
Inlägg: 3545
Blev medlem: 23 september 2009, 11:52:45
Ort: Hyssna

Re: Dina mini-projekt!

Inlägg av lond »

MOT-svets?
Elektro88
Inlägg: 270
Blev medlem: 14 februari 2006, 15:41:18
Skype: rmannby@live.se
Ort: Gryttby, Vendel

Re: Dina mini-projekt!

Inlägg av Elektro88 »

kvällens mini-projekt:
En nattlampa till flickvännens chinchillor. Pwm och av och på styrs av en pic 16F616. Tog vad jag hade hemma i detta bygge :P.
PICT0023.JPG
pin 5 är utgång och den går över ett motstånd till en BC546B. Få se om den klarar av att driva allt, får byta ut den annars.
5V fås genom en L7805CV. Poten går in på pin 12 (AN1) och knappen på pin 13 (A0)
få komponenter i denna alltså, men det funkar :P
Du har inte behörighet att öppna de filer som bifogats till detta inlägg.
Användarvisningsbild
MNorrgren
Inlägg: 5809
Blev medlem: 27 maj 2005, 16:09:10
Ort: Sjöbo, Skåne

Re: Dina mini-projekt!

Inlägg av MNorrgren »

Intressant med PWM'kretsen. Stabil och så? Kod och schema?
Elektro88
Inlägg: 270
Blev medlem: 14 februari 2006, 15:41:18
Skype: rmannby@live.se
Ort: Gryttby, Vendel

Re: Dina mini-projekt!

Inlägg av Elektro88 »

Jag körde allt i ca 10h i sträck för att provköra allt och det funkade klockrent. Ändrade poten lite då och då under den tiden och det kändes stabilt. Jag kan lägga upp koden, tyvärr är det onödigt mycket text då jag kör flowcode. Tyvärr så har jag inget schema på allt och jag har lämnat iväg allt redan så jag kan inte kolla hur jag gjort. Jag kan försöka förklara lite snabbt om det kan vara intressant?
Koden:

Kod: Markera allt

include "P16F616.inc"
; Heap block 0, size:49 (0x0000004E - 0x0000007E)
__HEAP_BLOCK0_BANK               EQU	0x00000000
__HEAP_BLOCK0_START_OFFSET       EQU	0x0000004E
__HEAP_BLOCK0_END_OFFSET         EQU	0x0000007E
; Heap block 1, size:32 (0x000000A0 - 0x000000BF)
__HEAP_BLOCK1_BANK               EQU	0x00000001
__HEAP_BLOCK1_START_OFFSET       EQU	0x00000020
__HEAP_BLOCK1_END_OFFSET         EQU	0x0000003F
; Heap block 2, size:0 (0x00000000 - 0x00000000)
__HEAP_BLOCK2_BANK               EQU	0x00000000
__HEAP_BLOCK2_START_OFFSET       EQU	0x00000000
__HEAP_BLOCK2_END_OFFSET         EQU	0x00000000
; Heap block 3, size:0 (0x00000000 - 0x00000000)
__HEAP_BLOCK3_BANK               EQU	0x00000000
__HEAP_BLOCK3_START_OFFSET       EQU	0x00000000
__HEAP_BLOCK3_END_OFFSET         EQU	0x00000000
gbl_status                       EQU	0x00000003 ; bytes:1
gbl_14_LSR                       EQU	0x00000020 ; bytes:4
gbl_float_detect_tininess        EQU	0x0000003B ; bytes:1
gbl_float_rounding_mode          EQU	0x0000003C ; bytes:1
gbl_float_exception_flags        EQU	0x0000003D ; bytes:1
gbl_15_gbl_aSig                  EQU	0x00000024 ; bytes:4
gbl_15_gbl_bSig                  EQU	0x00000028 ; bytes:4
gbl_15_gbl_zSig                  EQU	0x0000002C ; bytes:4
gbl_15_gbl_aExp                  EQU	0x0000003E ; bytes:1
gbl_15_gbl_bExp                  EQU	0x0000003F ; bytes:1
gbl_15_gbl_zExp                  EQU	0x00000037 ; bytes:2
gbl_15_gbl_aSign                 EQU	0x00000040 ; bytes:1
gbl_15_gbl_bSign                 EQU	0x00000041 ; bytes:1
gbl_15_gbl_zSign                 EQU	0x00000042 ; bytes:1
gbl_15_gbl_zSigZero              EQU	0x00000043 ; bytes:1
gbl_15_gbl_ret                   EQU	0x00000030 ; bytes:4
gbl_indf                         EQU	0x00000000 ; bytes:1
gbl_tmr0                         EQU	0x00000001 ; bytes:1
gbl_pcl                          EQU	0x00000002 ; bytes:1
gbl_fsr                          EQU	0x00000004 ; bytes:1
gbl_porta                        EQU	0x00000005 ; bytes:1
gbl_portc                        EQU	0x00000007 ; bytes:1
gbl_pclath                       EQU	0x0000000A ; bytes:1
gbl_intcon                       EQU	0x0000000B ; bytes:1
gbl_pir1                         EQU	0x0000000C ; bytes:1
gbl_tmr1l                        EQU	0x0000000E ; bytes:1
gbl_tmr1h                        EQU	0x0000000F ; bytes:1
gbl_t1con                        EQU	0x00000010 ; bytes:1
gbl_tmr2                         EQU	0x00000011 ; bytes:1
gbl_t2con                        EQU	0x00000012 ; bytes:1
gbl_ccpr1l                       EQU	0x00000013 ; bytes:1
gbl_ccpr1h                       EQU	0x00000014 ; bytes:1
gbl_ccp1con                      EQU	0x00000015 ; bytes:1
gbl_pwm1con                      EQU	0x00000016 ; bytes:1
gbl_eccpas                       EQU	0x00000017 ; bytes:1
gbl_vrcon                        EQU	0x00000019 ; bytes:1
gbl_cm1con0                      EQU	0x0000001A ; bytes:1
gbl_cm2con0                      EQU	0x0000001B ; bytes:1
gbl_cm2con1                      EQU	0x0000001C ; bytes:1
gbl_adresh                       EQU	0x0000001E ; bytes:1
gbl_adcon0                       EQU	0x0000001F ; bytes:1
gbl_option_reg                   EQU	0x00000081 ; bytes:1
gbl_trisa                        EQU	0x00000085 ; bytes:1
gbl_trisc                        EQU	0x00000087 ; bytes:1
gbl_pie1                         EQU	0x0000008C ; bytes:1
gbl_pcon                         EQU	0x0000008E ; bytes:1
gbl_osctune                      EQU	0x00000090 ; bytes:1
gbl_ansel                        EQU	0x00000091 ; bytes:1
gbl_pr2                          EQU	0x00000092 ; bytes:1
gbl_wpu                          EQU	0x00000095 ; bytes:1
gbl_wpua                         EQU	0x00000095 ; bytes:1
gbl_ioc                          EQU	0x00000096 ; bytes:1
gbl_ioca                         EQU	0x00000096 ; bytes:1
gbl_srcon                        EQU	0x00000099 ; bytes:1
gbl_srcon0                       EQU	0x00000099 ; bytes:1
gbl_srcon1                       EQU	0x0000009A ; bytes:1
gbl_adresl                       EQU	0x0000009E ; bytes:1
gbl_adcon1                       EQU	0x0000009F ; bytes:1
gbl_FCV_AN1                      EQU	0x00000044 ; bytes:1
gbl_FCV_SW1                      EQU	0x00000045 ; bit:0
gbl_FCV_SW2                      EQU	0x00000045 ; bit:1
gbl_old_tris                     EQU	0x00000046 ; bytes:1
gbl_tris_mask                    EQU	0x00000047 ; bytes:1
gbl_tris_reg                     EQU	0x00000039 ; bytes:2
FC_CAL_Ena_00051_arg_Channel     EQU	0x00000049 ; bytes:1
FC_CAL_Ena_00051_arg_Conv_Speed  EQU	0x0000004A ; bytes:1
FC_CAL_Ena_00051_arg_Vref        EQU	0x0000004B ; bytes:1
FC_CAL_Ena_00051_arg_T_Charge    EQU	0x0000004C ; bytes:1
CompTempVar2194                  EQU	0x0000004D ; bytes:1
CompTempVar2196                  EQU	0x0000004D ; bytes:1
CompTempVar2197                  EQU	0x0000004D ; bytes:1
FC_CAL_Sam_00052_arg_Sample_Mode EQU	0x00000049 ; bytes:1
CompTempVarRet2198               EQU	0x0000004C ; bytes:2
FC_CAL_Sam_00052_1_iRetVal       EQU	0x0000004A ; bytes:2
CompTempVar2201                  EQU	0x0000004C ; bytes:1
CompTempVarRet2204               EQU	0x00000049 ; bytes:1
FCD_ADC0_R_00055_1_retVal        EQU	0x00000048 ; bytes:1
FC_CAL_PWM_00062_arg_duty        EQU	0x00000049 ; bytes:1
FC_CAL_PWM_00063_arg_period      EQU	0x00000048 ; bytes:1
FC_CAL_PWM_00063_arg_prescaler   EQU	0x00000049 ; bytes:2
FCD_PWM0_S_00067_arg_nDuty       EQU	0x00000048 ; bytes:1
CompTempVarRet2241               EQU	0x0000004A ; bytes:1
FCD_SWITCH_0006B_1_switchval     EQU	0x00000049 ; bytes:1
CompTempVar2242                  EQU	0x00000048 ; bytes:1
delay_us_00000_arg_del           EQU	0x0000004D ; bytes:1
delay_ms_00000_arg_del           EQU	0x00000048 ; bytes:1
Int1Context                      EQU	0x0000007F ; bytes:1
Int1BContext                     EQU	0x00000034 ; bytes:3
	ORG 0x00000000
	GOTO	_startup
	ORG 0x00000004
	MOVWF Int1Context
	SWAPF STATUS, W
	BCF STATUS, RP0
	MOVWF Int1BContext
	SWAPF PCLATH, W
	MOVWF Int1BContext+D'1'
	SWAPF FSR, W
	MOVWF Int1BContext+D'2'
	BCF PCLATH,3
	BCF PCLATH,4
	GOTO	interrupt
	ORG 0x00000010
delay_us_00000
; { delay_us ; function begin
	MOVLW 0x03
	ADDWF delay_us_00000_arg_del, F
	RRF delay_us_00000_arg_del, F
	RRF delay_us_00000_arg_del, F
	MOVLW 0x7F
	ANDWF delay_us_00000_arg_del, F
label1
	NOP
	DECFSZ delay_us_00000_arg_del, F
	GOTO	label1
	RETURN
; } delay_us function end

	ORG 0x0000001A
delay_ms_00000
; { delay_ms ; function begin
	MOVF delay_ms_00000_arg_del, F
	BTFSS STATUS,Z
	GOTO	label2
	RETURN
label2
	MOVLW 0xF9
label3
	ADDLW 0xFF
	BTFSS STATUS,Z
	GOTO	label3
	NOP
	DECFSZ delay_ms_00000_arg_del, F
	GOTO	label2
	RETURN
; } delay_ms function end

	ORG 0x00000026
FC_CAL_Sam_00052
; { FC_CAL_Sample_ADC ; function begin
label4
	BTFSC gbl_adcon0,1
	GOTO	label4
	MOVF FC_CAL_Sam_00052_arg_Sample_Mode, F
	BTFSC STATUS,Z
	GOTO	label5
	MOVF gbl_adresh, W
	MOVWF FC_CAL_Sam_00052_1_iRetVal
	CLRF FC_CAL_Sam_00052_1_iRetVal+D'1'
	RLF FC_CAL_Sam_00052_1_iRetVal, F
	RLF FC_CAL_Sam_00052_1_iRetVal+D'1', F
	RLF FC_CAL_Sam_00052_1_iRetVal, F
	RLF FC_CAL_Sam_00052_1_iRetVal+D'1', F
	MOVLW 0xFC
	ANDWF FC_CAL_Sam_00052_1_iRetVal, F
	BSF STATUS, RP0
	RRF gbl_adresl, W
	BCF STATUS, RP0
	MOVWF CompTempVar2201
	RRF CompTempVar2201, F
	SWAPF CompTempVar2201, F
	MOVLW 0x03
	ANDWF CompTempVar2201, W
	IORWF FC_CAL_Sam_00052_1_iRetVal, F
	MOVF FC_CAL_Sam_00052_1_iRetVal+D'1', F
	GOTO	label6
label5
	MOVF gbl_adresh, W
	MOVWF FC_CAL_Sam_00052_1_iRetVal
	CLRF FC_CAL_Sam_00052_1_iRetVal+D'1'
label6
	MOVLW 0x02
	IORWF gbl_adcon0, W
	MOVWF gbl_adcon0
	MOVF FC_CAL_Sam_00052_1_iRetVal, W
	MOVWF CompTempVarRet2198
	MOVF FC_CAL_Sam_00052_1_iRetVal+D'1', W
	MOVWF CompTempVarRet2198+D'1'
	RETURN
; } FC_CAL_Sample_ADC function end

	ORG 0x0000004A
FC_CAL_PWM_00063
; { FC_CAL_PWM_Change_Period_1 ; function begin
	MOVF FC_CAL_PWM_00063_arg_period, W
	BSF STATUS, RP0
	MOVWF gbl_pr2
	MOVLW 0x01
	BCF STATUS, RP0
	XORWF FC_CAL_PWM_00063_arg_prescaler, W
	BTFSC STATUS,Z
	MOVF FC_CAL_PWM_00063_arg_prescaler+D'1', W
	BTFSC STATUS,Z
	GOTO	label7
	MOVLW 0x04
	XORWF FC_CAL_PWM_00063_arg_prescaler, W
	BTFSC STATUS,Z
	MOVF FC_CAL_PWM_00063_arg_prescaler+D'1', W
	BTFSC STATUS,Z
	GOTO	label8
	MOVLW 0x10
	XORWF FC_CAL_PWM_00063_arg_prescaler, W
	BTFSC STATUS,Z
	MOVF FC_CAL_PWM_00063_arg_prescaler+D'1', W
	BTFSC STATUS,Z
	GOTO	label9
	RETURN
label7
	MOVLW 0x04
	MOVWF gbl_t2con
	RETURN
label8
	MOVLW 0x05
	MOVWF gbl_t2con
	RETURN
label9
	MOVLW 0x06
	MOVWF gbl_t2con
	RETURN
; } FC_CAL_PWM_Change_Period_1 function end

	ORG 0x0000006A
FC_CAL_PWM_00062
; { FC_CAL_PWM_Set_Duty_8Bit_1 ; function begin
	MOVF FC_CAL_PWM_00062_arg_duty, W
	MOVWF gbl_ccpr1l
	RETURN
; } FC_CAL_PWM_Set_Duty_8Bit_1 function end

	ORG 0x0000006D
FC_CAL_PWM_00061
; { FC_CAL_PWM_Disable_Channel_1 ; function begin
	BCF STATUS, RP0
	CLRF gbl_ccp1con
	BSF STATUS, RP0
	BSF gbl_trisc,5
	RETURN
; } FC_CAL_PWM_Disable_Channel_1 function end

	ORG 0x00000072
FC_CAL_PWM_00060
; { FC_CAL_PWM_Enable_Channel_1 ; function begin
	BSF STATUS, RP0
	BCF gbl_trisc,5
	BCF STATUS, RP0
	BCF gbl_portc,5
	MOVLW 0x0C
	MOVWF gbl_ccp1con
	RETURN
; } FC_CAL_PWM_Enable_Channel_1 function end

	ORG 0x00000079
FC_CAL_Ena_00051
; { FC_CAL_Enable_ADC ; function begin
	MOVLW 0x07
	ANDWF FC_CAL_Ena_00051_arg_Conv_Speed, W
	MOVWF CompTempVar2194
	SWAPF CompTempVar2194, W
	ANDLW 0xF0
	BSF STATUS, RP0
	MOVWF gbl_adcon1
	BCF STATUS, RP0
	MOVF FC_CAL_Ena_00051_arg_Channel, W
	XORLW 0x01
	BTFSS STATUS,Z
	GOTO	label10
	MOVLW 0x02
	MOVWF gbl_tris_mask
	MOVLW HIGH(gbl_trisa+D'0')
	MOVWF gbl_tris_reg+D'1'
	MOVLW LOW(gbl_trisa+D'0')
	MOVWF gbl_tris_reg
	MOVLW 0x02
	BSF STATUS, RP0
	MOVWF gbl_ansel
label10
	BCF STATUS, RP0
	MOVF gbl_tris_reg, W
	MOVWF FSR
	MOVF INDF, W
	MOVWF gbl_old_tris
	MOVF gbl_tris_mask, W
	IORWF gbl_old_tris, W
	MOVWF CompTempVar2196
	MOVWF INDF
	MOVF FC_CAL_Ena_00051_arg_Channel, W
	MOVWF CompTempVar2197
	RLF CompTempVar2197, F
	RLF CompTempVar2197, F
	MOVLW 0xFC
	ANDWF CompTempVar2197, W
	IORLW 0x01
	MOVWF gbl_adcon0
	DECF FC_CAL_Ena_00051_arg_Vref, W
	BTFSC STATUS,Z
	BSF gbl_adcon0,6
	MOVF FC_CAL_Ena_00051_arg_T_Charge, W
	MOVWF delay_us_00000_arg_del
	CALL delay_us_00000
	MOVLW 0x02
	IORWF gbl_adcon0, W
	MOVWF gbl_adcon0
	RETURN
; } FC_CAL_Enable_ADC function end

	ORG 0x000000A9
FC_CAL_Dis_00053
; { FC_CAL_Disable_ADC ; function begin
	BCF STATUS, RP0
	MOVF gbl_tris_reg, W
	MOVWF FSR
	MOVF gbl_old_tris, W
	MOVWF INDF
	BSF STATUS, RP0
	CLRF gbl_ansel
	BCF STATUS, RP0
	CLRF gbl_adcon0
	RETURN
; } FC_CAL_Disable_ADC function end

	ORG 0x000000B3
FCD_SWITCH_0006B
; { FCD_SWITCH0_ReadState ; function begin
	MOVLW 0xFF
	BCF STATUS, RP0
	MOVWF FCD_SWITCH_0006B_1_switchval
	BSF STATUS, RP0
	BSF gbl_trisa,0
	MOVLW 0x01
	BCF STATUS, RP0
	ANDWF gbl_porta, W
	MOVWF FCD_SWITCH_0006B_1_switchval
	MOVF FCD_SWITCH_0006B_1_switchval, F
	BTFSC STATUS,Z
	GOTO	label11
	CLRF FCD_SWITCH_0006B_1_switchval
	GOTO	label12
label11
	MOVLW 0x01
	MOVWF FCD_SWITCH_0006B_1_switchval
label12
	MOVF FCD_SWITCH_0006B_1_switchval, W
	MOVWF CompTempVarRet2241
	RETURN
; } FCD_SWITCH0_ReadState function end

	ORG 0x000000C6
FCD_PWM0_S_00067
; { FCD_PWM0_SetDutyCycle ; function begin
	MOVF FCD_PWM0_S_00067_arg_nDuty, W
	MOVWF FC_CAL_PWM_00062_arg_duty
	CALL FC_CAL_PWM_00062
	RETURN
; } FCD_PWM0_SetDutyCycle function end

	ORG 0x000000CA
FCD_PWM0_E_00065
; { FCD_PWM0_Enable ; function begin
	MOVLW 0xFF
	BCF STATUS, RP0
	MOVWF FC_CAL_PWM_00063_arg_period
	MOVLW 0x01
	MOVWF FC_CAL_PWM_00063_arg_prescaler
	CLRF FC_CAL_PWM_00063_arg_prescaler+D'1'
	CALL FC_CAL_PWM_00063
	CALL FC_CAL_PWM_00060
	RETURN
; } FCD_PWM0_Enable function end

	ORG 0x000000D3
FCD_PWM0_D_00066
; { FCD_PWM0_Disable ; function begin
	CALL FC_CAL_PWM_00061
	RETURN
; } FCD_PWM0_Disable function end

	ORG 0x000000D5
FCD_ADC0_R_00055
; { FCD_ADC0_ReadAsByte ; function begin
	MOVLW 0x01
	BCF STATUS, RP0
	MOVWF FC_CAL_Ena_00051_arg_Channel
	MOVLW 0x03
	MOVWF FC_CAL_Ena_00051_arg_Conv_Speed
	CLRF FC_CAL_Ena_00051_arg_Vref
	MOVLW 0x28
	MOVWF FC_CAL_Ena_00051_arg_T_Charge
	CALL FC_CAL_Ena_00051
	CLRF FC_CAL_Sam_00052_arg_Sample_Mode
	CALL FC_CAL_Sam_00052
	MOVF CompTempVarRet2198, W
	MOVWF FCD_ADC0_R_00055_1_retVal
	CALL FC_CAL_Dis_00053
	MOVF FCD_ADC0_R_00055_1_retVal, W
	MOVWF CompTempVarRet2204
	RETURN
; } FCD_ADC0_ReadAsByte function end

	ORG 0x000000E6
main
; { main ; function begin
	BSF STATUS, RP0
	CLRF gbl_ansel
	MOVLW 0xC0
	MOVWF gbl_option_reg
	BCF STATUS, RP0
	BCF gbl_FCV_SW2,1
label13
	CALL FCD_SWITCH_0006B
	CLRF CompTempVar2242
	MOVF CompTempVarRet2241, F
	BTFSS STATUS,Z
	BSF CompTempVar2242,0
	BCF gbl_FCV_SW1,0
	MOVF CompTempVar2242, W
	BTFSS STATUS,Z
	BSF gbl_FCV_SW1,0
	CALL FCD_ADC0_R_00055
	MOVF CompTempVarRet2204, W
	MOVWF gbl_FCV_AN1
	BTFSS gbl_FCV_SW1,0
	GOTO	label16
	BTFSC gbl_FCV_SW2,1
	GOTO	label14
	BSF gbl_FCV_SW2,1
	GOTO	label15
label14
	BCF gbl_FCV_SW2,1
label15
	MOVLW 0x64
	MOVWF delay_ms_00000_arg_del
	CALL delay_ms_00000
label16
	MOVLW 0x64
	MOVWF delay_ms_00000_arg_del
	CALL delay_ms_00000
	BTFSS gbl_FCV_SW2,1
	GOTO	label17
	CALL FCD_PWM0_E_00065
	MOVF gbl_FCV_AN1, W
	MOVWF FCD_PWM0_S_00067_arg_nDuty
	CALL FCD_PWM0_S_00067
	GOTO	label18
label17
	CALL FCD_PWM0_D_00066
label18
	MOVLW 0x64
	BCF STATUS, RP0
	MOVWF delay_ms_00000_arg_del
	CALL delay_ms_00000
	GOTO	label13
; } main function end

	ORG 0x00000112
_startup
	MOVLW 0xD5
	BCF STATUS, RP0
	MOVWF gbl_14_LSR
	MOVLW 0xC4
	MOVWF gbl_14_LSR+D'1'
	MOVLW 0xBB
	MOVWF gbl_14_LSR+D'2'
	MOVLW 0xDC
	MOVWF gbl_14_LSR+D'3'
	CLRF gbl_15_gbl_aSig
	CLRF gbl_15_gbl_aSig+D'1'
	CLRF gbl_15_gbl_aSig+D'2'
	CLRF gbl_15_gbl_aSig+D'3'
	CLRF gbl_15_gbl_bSig
	CLRF gbl_15_gbl_bSig+D'1'
	CLRF gbl_15_gbl_bSig+D'2'
	CLRF gbl_15_gbl_bSig+D'3'
	CLRF gbl_15_gbl_zSig
	CLRF gbl_15_gbl_zSig+D'1'
	CLRF gbl_15_gbl_zSig+D'2'
	CLRF gbl_15_gbl_zSig+D'3'
	CLRF gbl_15_gbl_aExp
	CLRF gbl_15_gbl_bExp
	CLRF gbl_15_gbl_zExp
	CLRF gbl_15_gbl_zExp+D'1'
	CLRF gbl_15_gbl_aSign
	CLRF gbl_15_gbl_bSign
	CLRF gbl_15_gbl_zSign
	CLRF gbl_15_gbl_zSigZero
	CLRF gbl_15_gbl_ret
	CLRF gbl_15_gbl_ret+D'1'
	CLRF gbl_15_gbl_ret+D'2'
	CLRF gbl_15_gbl_ret+D'3'
	CLRF gbl_float_rounding_mode
	CLRF gbl_float_exception_flags
	CLRF gbl_float_detect_tininess
	BCF PCLATH,3
	BCF PCLATH,4
	GOTO	main
	ORG 0x00000139
interrupt
; { interrupt ; function begin
	BCF STATUS, RP0
	SWAPF Int1BContext+D'2', W
	MOVWF FSR
	SWAPF Int1BContext+D'1', W
	MOVWF PCLATH
	SWAPF Int1BContext, W
	MOVWF STATUS
	SWAPF Int1Context, F
	SWAPF Int1Context, W
	RETFIE
; } interrupt function end

	ORG 0x00002007
	DW 0x3C54
	END
Användarvisningsbild
MNorrgren
Inlägg: 5809
Blev medlem: 27 maj 2005, 16:09:10
Ort: Sjöbo, Skåne

Re: Dina mini-projekt!

Inlägg av MNorrgren »

Oh tackar tackar, ser bra ut. Strunt samma om det är onädig text, inget man ska beundra ändå!
Tror jag förstår hur du kopplat från din beskrivning innan, men om du vill gärna igen!
Elektro88
Inlägg: 270
Blev medlem: 14 februari 2006, 15:41:18
Skype: rmannby@live.se
Ort: Gryttby, Vendel

Re: Dina mini-projekt!

Inlägg av Elektro88 »

okej, jag ska göra ett försök :).
Pinne 5 (C5) är PWM utgång som går genom ett 1k motstånd till en transistor (BC546B).
Pinne 13 (A0) är ingången för tryckknappen där sitter även ett 10k pullup motstånd kommer ej ihåg om den var kopplad så den bryter mot + eller jord
Pinne 12 (AN1) är ingång för potentiometern (5k)
5V får jag från en 7805
led slingan är kopplad så den får +12V direkt och jorden går genom transistorn.
hela kretsen matas med 12V från en väggvårta.

Hoppas att det är till hjälp :)
Wise
Inlägg: 431
Blev medlem: 17 maj 2005, 17:57:19
Ort: Hudiksvall
Kontakt:

Re: Dina mini-projekt!

Inlägg av Wise »

Blåtandskonverterat 3D-skrivaren, skönt att slippa USBkabeln.
Du har inte behörighet att öppna de filer som bifogats till detta inlägg.
1802
Inlägg: 6807
Blev medlem: 6 februari 2009, 13:52:28

Re: Dina mini-projekt!

Inlägg av 1802 »

Ännu en microskrot. Denna gång med digital timer. Lite nogranare nedräkning. En enkel pinnasvets finnes. Med tillsats för "elektrisk gaslåga" och samma sida punktsvets. Så kan det möjligen bli en punktsvets för båda sidor. Funkar det med träram? Om man skall punktsvetsa nått svåråtkomligt på bilen. Digitaltimern kanske kommer till anv vid punktsvets. Vore bra om det gick att lura den till kortare tider.
Användarvisningsbild
Melkutt
Inlägg: 1185
Blev medlem: 3 september 2007, 02:02:39
Ort: Gotland/Stånga
Kontakt:

Re: Dina mini-projekt!

Inlägg av Melkutt »

Hade lite tråkigt idag på jobbet, så jag skummade igenom hela :doh: denna tråd för lite inspiration så här i höstmörkret.
Jag hittade mycket roligt som har fallit i glömska må jag säga!

Men när jag såg Electricguy alla olika rörbyggen så blev jag sugen på att bygga rör!
Har planerat och drömt om nått roligt rörbygge sen innan, men jag har aldrig fått arslet ur vagnen så att säga.
Men ikväll så tog jag min rör-oskuld :D
bild 1.JPG
bild 2.JPG
Inget effektmonster så att säga, 7-8 gånger förstärkning :lol:
Jag kör med ett 12BH7A rör från en skrotad signalgenerator och IRF740 trissor, det var vad jag hittade i lådorna :D
Men det var skoj när det glödde och blev varmt!
Och så fick man höra på LOK för första gången i ett rörbygge!

Utgick ifrån detta bygge!
Du har inte behörighet att öppna de filer som bifogats till detta inlägg.
Användarvisningsbild
Electricguy
Inlägg: 12454
Blev medlem: 15 augusti 2007, 16:52:14
Ort: Kälmä' typ..

Re: Dina mini-projekt!

Inlägg av Electricguy »

Ja men se där! Kul att du fick till det :D
Tekko
Inlägg: 9009
Blev medlem: 28 november 2004, 20:19:15

Re: Dina mini-projekt!

Inlägg av Tekko »

Låter bra eller urk ?
Användarvisningsbild
Melkutt
Inlägg: 1185
Blev medlem: 3 september 2007, 02:02:39
Ort: Gotland/Stånga
Kontakt:

Re: Dina mini-projekt!

Inlägg av Melkutt »

Mera urk än bra, men väldigt tillfredsställande!!
Kommer att finslipa bygget och testa lite andra rör, trissor, kondningar etc.

Är inte alls insatt i audio världen.
Skriv svar