上一页 1 ··· 127 128 129 130 131 132 133 134 135 ··· 181 下一页
摘要: #include "reg52.h" typedef unsigned char u8; typedef unsigned int u16; sbit beep = P2^5; void delay(u16 i) { while(i--); } void main() { while(1){ bee 阅读全文
posted @ 2021-07-31 20:34 myrj 阅读(186) 评论(2) 推荐(0) 编辑
摘要: 11.0592M Hz,工作方式1: 50ms 4C00 5ms EE00 1ms FC66 0.5ms FE33 0.2ms FF47 0.1ms FFA3 0.05ms FFD1 0.01ms FFF6 12MHZ 50ms 0x3cb0 (65536-50000)/256:0X3C (6553 阅读全文
posted @ 2021-07-30 19:07 myrj 阅读(802) 评论(0) 推荐(0) 编辑
摘要: #include<reg51.h> #define uchar unsigned char; #define uint unsigned int; uchar position; uchar tt; uchar second; uchar minute; uchar hour; uchar code 阅读全文
posted @ 2021-07-29 17:19 myrj 阅读(232) 评论(0) 推荐(0) 编辑
摘要: #include<reg51.h> void main( ) { unsigned char x=1,y=2; unsigned char seg[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90}; while(1) { P0=seg[x]; 阅读全文
posted @ 2021-07-29 14:02 myrj 阅读(123) 评论(0) 推荐(0) 编辑
摘要: #include<reg51.h> #include<intrins.h> void delay(unsigned int i); void main() { unsigned int x,y; while(1) { P1=0x7F; for (x=0;x<8;x++) { delay(60000) 阅读全文
posted @ 2021-07-29 14:00 myrj 阅读(349) 评论(0) 推荐(0) 编辑
摘要: #include<reg51.h> unsigned char count=0; unsigned char miao=0; void timer_1() interrupt 3 { TH1=(65536-50000)/256; TL1=(65536-50000)%256; count++; if( 阅读全文
posted @ 2021-07-29 10:07 myrj 阅读(847) 评论(0) 推荐(0) 编辑
摘要: #include<reg51.h> #include<intrins.h> /* K1按:D2亮,D9亮,D8亮,D7亮,D6亮,D5亮,D4亮,D3亮,D2亮,D9亮,循环亮 K2按:所有都不亮 K3按:暂停,只有一亮 K4按:D9亮,D2亮,D2亮,D4亮,D5亮,D6亮,D7亮,D8亮,D9亮 阅读全文
posted @ 2021-07-29 08:00 myrj 阅读(309) 评论(0) 推荐(0) 编辑
摘要: #include <reg51.h> #define uint unsigned int #define uchar unsigned char #define CF P0 uint sec=0; sbit K1=P3^2; sbit K2=P3^1; sbit K3=P3^0; sbit LED1 阅读全文
posted @ 2021-07-28 21:43 myrj 阅读(324) 评论(0) 推荐(0) 编辑
摘要: Sub shezhi()rem 设置星期日列、晚自习行格式设置Dim sht As WorksheetFor Each sht In WorksheetsIf sht.Name <> "Sheet1" Then sht.Selectsht.Activate Columns("I:I").Select 阅读全文
posted @ 2021-07-23 07:11 myrj 阅读(76) 评论(0) 推荐(0) 编辑
摘要: Dim x Dim sht As WorksheetFor Each sht In WorksheetsIf sht.Name <> "Sheet1" Then sht.Selectsht.Activate For Each x In ActiveSheet.DrawingObjects If x. 阅读全文
posted @ 2021-07-21 16:30 myrj 阅读(138) 评论(0) 推荐(0) 编辑
上一页 1 ··· 127 128 129 130 131 132 133 134 135 ··· 181 下一页