上一页 1 ··· 133 134 135 136 137 138 139 140 141 ··· 187 下一页
摘要: 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 阅读(1019) 评论(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 阅读(279) 评论(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 阅读(145) 评论(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 阅读(371) 评论(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 阅读(955) 评论(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 阅读(340) 评论(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 阅读(390) 评论(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 阅读(104) 评论(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 阅读(148) 评论(0) 推荐(0)
摘要: Sub shezhi()Dim sht As WorksheetFor Each sht In WorksheetsIf sht.Name <> "Sheet1" Then sht.Selectsht.Activate Columns("I:I").Select Selection.ColumnWi 阅读全文
posted @ 2021-07-21 16:09 myrj 阅读(209) 评论(0) 推荐(0)
上一页 1 ··· 133 134 135 136 137 138 139 140 141 ··· 187 下一页