機電之家資源網(wǎng)
單片機首頁|單片機基礎(chǔ)|單片機應(yīng)用|單片機開發(fā)|單片機文案|軟件資料下載|音響制作|電路圖下載 |嵌入式開發(fā)
培訓信息
贊助商
用固定種子(x=99)隨機產(chǎn)生[0,255]區(qū)間的數(shù)在P0、P2口顯示
用固定種子(x=99)隨機產(chǎn)生[0,255]區(qū)間的數(shù)在P0、P2口顯示
 更新時間:2008-7-27 16:09:04  點擊數(shù):2
【字體: 字體顏色

;********WAVE-E6000/T************************************
;*MCU:          AT89C51                                 *
;*MCU-crystal:  6M                                      *
;*Version:      00                                      *
;*Last Updata:                                          *
;*Author:       www.picavr.com                          *
;*Description:  用固定種子(x=99)隨機產(chǎn)生[0,255]區(qū)間的數(shù)*

;               在P0、P2口顯示                          *
;********************************************************
#include <reg51.h>
unsigned char y,h,l;
unsigned int i,j;
unsigned long x=99;
unsigned char led[16]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,
                       0x80,0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e};

void delay(i)
{while(i--)
  {j=7650;while(j--);}
}

unsigned int rand(x)
unsigned long x;
{ x=(25173*x+13849)%65536;
  return x;
}

void main(void)
{ P0=0xf9;P2=0xf9;delay(10);P0=0xff;P2=0xff;    /* 文件名標示 */
  while(1)
   { x=rand(x);        /* 產(chǎn)生[0 - 65535]的隨機數(shù) */
     y=x*255/65535;          /* 轉(zhuǎn)換為[0 - 99]的隨機數(shù) */
     h=y>>4;l=y&0x0f;      /* 分解高四位和第四位 */
     P0=led[h];P2=led[l];
     delay(10);
     P0=0xff;P2=0xff;delay(2);
   }
}


 

  • 上一篇: 數(shù)碼管顯示漸亮,蜂鳴器漸響
  • 下一篇: 數(shù)碼管循環(huán)顯示0-30
  • 發(fā)表評論   告訴好友   打印此文  收藏此頁  關(guān)閉窗口  返回頂部
    熱點文章
     
    推薦文章
     
    相關(guān)文章
    網(wǎng)友評論:(只顯示最新5條。)
    關(guān)于我們 | 聯(lián)系我們 | 廣告合作 | 付款方式 | 使用幫助 | 機電之家 | 會員助手 | 免費鏈接

    點擊這里給我發(fā)消息66821730(技術(shù)支持)點擊這里給我發(fā)消息66821730(廣告投放) 點擊這里給我發(fā)消息41031197(編輯) 點擊這里給我發(fā)消息58733127(審核)
    本站提供的機電設(shè)備,機電供求等信息由機電企業(yè)自行提供,該企業(yè)負責信息內(nèi)容的真實性、準確性和合法性。
    機電之家對此不承擔任何保證責任,有侵犯您利益的地方請聯(lián)系機電之家,機電之家將及時作出處理。
    Copyright 2007 機電之家 Inc All Rights Reserved.機電之家-由機電一體化網(wǎng)更名-聲明
    電話:0571-87774297 傳真:0571-87774298
    杭州濱興科技有限公司提供技術(shù)支持

    主辦:杭州市高新區(qū)(濱江)機電一體化學會
    中國行業(yè)電子商務(wù)100強網(wǎng)站

    網(wǎng)站經(jīng)營許可證:浙B2-20080178-1