Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

Náhodné spínání??

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
jirka89



Založen: Feb 24, 2006
Příspěvky: 271
Bydliště: Zlín

PříspěvekZaslal: út leden 27 2009, 18:41    Předmět: Náhodné spínání?? Citovat

Zdravím! Mohl by mi někdo helpnout? Potřeboval bych program, který by generoval náhodný stav (1 nebo 0) na výstupu AT89C2051, pomocí assembleru. Půjde to?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
caven



Založen: Aug 15, 2006
Příspěvky: 417

PříspěvekZaslal: út leden 27 2009, 19:04    Předmět: Citovat

generátor pseudořady Wink
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
jirka89



Založen: Feb 24, 2006
Příspěvky: 271
Bydliště: Zlín

PříspěvekZaslal: út leden 27 2009, 19:11    Předmět: Citovat

A ten generátor je co? Nikdy jsem o tom nic neslyšel.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
ZdenekHQ
Administrátor


Založen: Jul 21, 2006
Příspěvky: 25741
Bydliště: skoro Brno

PříspěvekZaslal: út leden 27 2009, 20:03    Předmět: Citovat

http://www.belza.cz/files1/randgen.htm

https://is.mendelu.cz/eknihovna/opory/zobraz_cast.pl?cast=7024

Přepiš si to do ASM, není to nic složitýho Very Happy

_________________
Pro moje oslovení klidně použijte jméno Zdeněk
Správně navržené zapojení je jako recept na dobré jídlo.
Můžete vynechat půlku ingrediencí, nebo přidat jiné,
ale jste si jistí, že vám to bude chutnat[?
]
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
caven



Založen: Aug 15, 2006
Příspěvky: 417

PříspěvekZaslal: út leden 27 2009, 22:00    Předmět: Citovat

tady jsem něco vyhrabal něco co jsemdělla ve škole, je to sice pro pic, ale to se dá jednoduše přepsat

kód:
;pseudorada
indf     equ     0x00   
tmr0     equ     0x01
pcl      equ     0x02
status   equ     0x03
fsr      equ     0x04
porta    equ     0x05
portb    equ     0x06
eedata   equ     0x08
eeadr    equ     0x09
pclath   equ     0x0A
intcon   equ     0x0B
optireg  equ     0x81   
trisa    equ     0x85
trisb    equ     0x86
eecon1   equ     0x88
eecon2   equ     0x89
buffer0  equ     0x4E
jedn     equ     0x4F
pseudo   equ     0x20
jedna    equ     0x24
nula     equ     0x25
i        equ     0x23
cjed     equ     0x21
cnul    equ    0x22
djed     equ     0x26
dnul    equ    0x27
tjed     equ     0x28
tnul    equ    0x29
sjed     equ     0x2A
snul    equ    0x2B
pjed     equ     0x2C
pnul    equ    0x2D
xjed     equ     0x2E
xnul    equ    0x2F
w        equ     0       
f        equ     1       
#define carry   status,0
#define dcarry  status,1
#define zero    status,2


;Nastaveni podminek
      movlw   B'00000111'
      movwf   pseudo
      clrf   jedna
      clrf   nula
      clrf   cjed
      clrf   cnul
      clrf   djed
      clrf   dnul
      clrf   tjed
      clrf   tnul
      clrf   sjed
      clrf   snul
      clrf   pjed
      clrf   pnul
      clrf   xjed
      clrf   xnul
   ;   movlw   H'FF'
   ;   movwf   i


;Hlavni program   
start   movf   pseudo,w
      movwf     buffer0
        clrf    jedn
        bcf      carry
        btfsc   buffer0,1
        incf    jedn,f
        btfsc   buffer0,2
        incf    jedn,f
        btfsc   buffer0,3
        incf    jedn,f
        btfsc   buffer0,7
        incf    jedn,f         
        movf   jedn,w
      call   dek
      movwf   buffer0
        btfsc   buffer0,0
        bsf      carry
        btfss   buffer0,0
        bcf      carry
        rlf      pseudo,f         
      decf   i,f
      btfss   zero
      goto   start
      goto   konec
   
dek      addwf   pcl,f
      retlw   b'0'
        retlw   b'1'
        retlw   b'0'
        retlw   b'1'
        retlw   b'0'
       
konec   nop
        goto   konec
       
   END



dej vědět jak to dopadlo

jo jak tak koukám, tak nahoře zůstalo nadefinování proměných které nejsou potřeba, ale na to přijdeš
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
caven



Založen: Aug 15, 2006
Příspěvky: 417

PříspěvekZaslal: út leden 27 2009, 23:10    Předmět: Citovat

tak jsem ti to přepsal pro AVR, 8051 moc neumím Wink ale máš dva stejné zdrojáky tak přepsat si to snad už dokážeš ne ?

Pokud ten zdroják chceš tak si napiš na SZ


[/code]
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
jirka89



Založen: Feb 24, 2006
Příspěvky: 271
Bydliště: Zlín

PříspěvekZaslal: st leden 28 2009, 16:32    Předmět: Citovat

Dík moc! To už bych mohl zvládnout!
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.14 sekund