| Poglej prejšnjo temo :: Poglej naslednjo temo |
| Avtor |
Sporočilo |
Jule
Član
Pridružen-a: Sob 27 Okt 2007 12:48
Prispevkov: 2533
Aktiv.: 11.76
Kraj: Ajdovščina
|
 Objavljeno: Sob Jul 05, 2008 10:01 pm Naslov sporočila: |
 |
|
Tole Sem si naredil in stvar po nevem kateri logiki deluje!
_________________
lp Jure |
|
| Nazaj na vrh |
|
 |
Pobesneli
Član
Pridružen-a: Sre 02 Jan 2008 1:24
Prispevkov: 1070
Aktiv.: 5.02
Kraj: Ajdovščina
|
| Objavljeno: Sob Jul 05, 2008 10:28 pm Naslov sporočila: |
|
|
Sam eno vprašanje imam,kaj naj bi bil tisti High Z ?  |
|
| Nazaj na vrh |
|
|
NeoTO
Član
Pridružen-a: Pon 28 Mar 2005 19:19
Prispevkov: 2752
Aktiv.: 11.59
Kraj: Trzic
|
| Objavljeno: Sob Jul 05, 2008 11:30 pm Naslov sporočila: |
|
|
Točno ta načrt sem pred leti videl in zadevo naredil tako.
High-Z pomeni, da ima pin visoko impedanco, to pa dosežeš tako, da pin postaviš kot vhod.
_________________
Lp,
Matevž |
|
| Nazaj na vrh |
|
|
program_er
Član
Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.30
Kraj: Maribor (Pohorje)
|
| Objavljeno: Ned Jul 06, 2008 8:40 pm Naslov sporočila: |
|
|
| Jule je napisal/a: |
| Tole Sem si naredil in stvar po nevem kateri logiki deluje! |
Pa ti deluje v Bascomu ona koda Led Senzor.bas? Ker je neka čudna...
_________________
Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
|
|
| Nazaj na vrh |
|
|
Jule
Član
Pridružen-a: Sob 27 Okt 2007 12:48
Prispevkov: 2533
Aktiv.: 11.76
Kraj: Ajdovščina
|
| Objavljeno: Tor Jul 08, 2008 11:39 am Naslov sporočila: |
|
|
Jaz sem naredil s hex.
_________________
lp Jure |
|
| Nazaj na vrh |
|
|
program_er
Član
Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.30
Kraj: Maribor (Pohorje)
|
| Objavljeno: Tor Jul 08, 2008 11:49 am Naslov sporočila: |
|
|
| Jule je napisal/a: |
| Jaz sem naredil s hex. |
Ja kateri čip pa si uporabil? Pa med katera pina si vezal LED?
_________________
Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
|
|
| Nazaj na vrh |
|
|
Jule
Član
Pridružen-a: Sob 27 Okt 2007 12:48
Prispevkov: 2533
Aktiv.: 11.76
Kraj: Ajdovščina
|
| Objavljeno: Tor Jul 08, 2008 4:24 pm Naslov sporočila: |
|
|
Vezal sem tako kot je na sliki pic ti tudi piše kateri mora biti. Jaz sem sicer naredil z 12f675.
_________________
lp Jure |
|
| Nazaj na vrh |
|
|
program_er
Član
Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.30
Kraj: Maribor (Pohorje)
|
| Objavljeno: Tor Jul 08, 2008 5:39 pm Naslov sporočila: |
|
|
Ajoj  Meni pridejo samo Atmeli v poštev. Nič, pa bom sestavil svojo kodo. Jo objavim tukaj.
_________________
Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
|
|
| Nazaj na vrh |
|
|
klemen88
Član
Pridružen-a: Tor 01 Jan 2008 17:37
Prispevkov: 747
Aktiv.: 3.51
Kraj: Slovenj Gradec
|
| Objavljeno: Čet Jul 17, 2008 3:20 pm Naslov sporočila: |
|
|
| program_er si že uspel kaj napisati? |
|
| Nazaj na vrh |
|
|
program_er
Član
Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.30
Kraj: Maribor (Pohorje)
|
| Objavljeno: Čet Jul 17, 2008 4:20 pm Naslov sporočila: |
|
|
Sem sem... V temi: Timer, Counter, Interrupts pod kategorijo Elektronika za začetmike je moja koda.
| Bojan oziroma program_er je napisal/a: |
JUHUUU, naredil!!! In to brez uporabe Timerja!
Koda:
' Bojan Potočnik
'*******************************************************************************
' LED DIODA KOT TOUCH SENZOR
'*******************************************************************************
$regfile = "m8def.dat"
$crystal = 1000000
'-------------------------------------------------------------------------------
'Katoda ja na Portb.1
'Anoda je na Portb.0
'-------------------------------------------------------------------------------
Dim Cas As Word , Pomoc As Word
'===============================================================================
'UVOD:
Config Portb.0 = Output : Config Portb.1 = Output
Portb.1 = 0 'Led dioda
Portb.0 = 1 'je prizgana
Wait 1 'Pocakamo 1 s
Do
Portb = 0
Config Portb.0 = Output : Config Portb.1 = Output
Portb.1 = 0 'Led dioda
Portb.0 = 1 'je prizgana
Waitms 5 'Pocakamo 5 ms
Portb.1 = 1 'Obratno
Portb.0 = 0 'polariziramo LED
Config Pinb.0 = Input 'Anodo preklopimo v High Z (vhod)
Pomoc = 0 : Cas = 0 'Resetiramo spremenljivke
Do 'Zacetek podzanke:
Cas = Cas + 100 'Cas povecamo za 10 (10 us)
Waitus 100 'in zato tudi pocakamo 10 us
Loop Until Pinb.0 = 1 'To ponavljamo dokler vhod ne pade na 0
If Cas < 30000 Then 'Če je to trajalo manj kot xxx ms
Gosub Prekinitev 'gremo v subrutino Prekinitev
' Elseif Cas < 30000 Then 'Drugače pa
' Cas = 0 'resetiramo spremenljivko Cas
End If 'končamo If stavek
Loop 'in gremo od znova!
Prekinitev:
Config Portb.0 = Output
Config Portb.1 = Output
Portb.1 = 0
Portb.0 = 1
Waitms 500
Portb.0 = 0
Waitms 500
Cas = 0
Return
End
Kdo hoče sprobat:
Iti morate na točno pravo svetlobo, to lahko nastavite, tam ko imam jaznapisano 30000. Jaz sem uporabil oranžno LEDico. LEDica neprestano pomalem utripa, ko pa daš prst na njo pa 500ms gori, 500ms počaka in gre od znova.
|
_________________
Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
|
|
| Nazaj na vrh |
|
|
klemen88
Član
Pridružen-a: Tor 01 Jan 2008 17:37
Prispevkov: 747
Aktiv.: 3.51
Kraj: Slovenj Gradec
|
| Objavljeno: Čet Jul 17, 2008 9:56 pm Naslov sporočila: |
|
|
Super...  nisem toliko spremljal foruma, ker sem bil na morju in nisem videl. Tako, da bom jutri testiral ( upam ).
Lp |
|
| Nazaj na vrh |
|
|
program_er
Član
Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.30
Kraj: Maribor (Pohorje)
|
| Objavljeno: Čet Jul 17, 2008 10:10 pm Naslov sporočila: |
|
|
| klpzm je napisal/a: |
Super... nisem toliko spremljal foruma, ker sem bil na morju in nisem videl. Tako, da bom jutri testiral ( upam ).
Lp |
A tako, ti si samo mene čakal da ti kodo napišem... 
_________________
Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
|
|
| Nazaj na vrh |
|
|
Jernej_
Član
Pridružen-a: Sre 30 Jan 2008 0:42
Prispevkov: 150
Aktiv.: 0.71
Kraj: Ljubljana
|
| Objavljeno: Pet Jul 18, 2008 8:27 am Naslov sporočila: |
|
|
... LED-dioda lahko "generira" do 2 V, vendar ima tak vir precejšnjo notranjo upornost (reda 800 Mohm), kar nekoliko zakomplicira uporabo. Krajša informacija na to temo je v poglavju Vezja za vsakdanjo rabo v knjigi. J
_________________
Elektronika v domači delavnici |
|
| Nazaj na vrh |
|
|
program_er
Član
Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.30
Kraj: Maribor (Pohorje)
|
| Objavljeno: Sob Jul 19, 2008 12:51 pm Naslov sporočila: |
|
|
| klpzm je napisal/a: |
Super... nisem toliko spremljal foruma, ker sem bil na morju in nisem videl. Tako, da bom jutri testiral ( upam ).
Lp |
In, si sprobal? Deluje? Vesel sem vsakršnih popravkov in komentarjev glede moje kode, kaj bi lahko izboljšal.
_________________
Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
|
|
| Nazaj na vrh |
|
|
klemen88
Član
Pridružen-a: Tor 01 Jan 2008 17:37
Prispevkov: 747
Aktiv.: 3.51
Kraj: Slovenj Gradec
|
| Objavljeno: Sob Jul 19, 2008 1:04 pm Naslov sporočila: |
|
|
Lp
Žal še nisem imel časa. Koliko imam časa preberem forum zraven pa se ne morem spraviti. Včeraj sem delal nekaj vendar [slovenščina je zame španska vas] testiral pwm izhod na attiny2313 do te kode pa še nisem prišel. Drugi teden grem pa na dopust potem pa upam, da bo čas za kodo. Bom pa sporočil ugotovitve testiranja. |
|
| Nazaj na vrh |
|
|
|
Pomoč
Išči
Seznam članov
Skupine
Statistika
Album
Filemanager
Registriraj se
Priponke
Koledar
Tvoj profil
Prijava
