myrj

2021年7月29日

单片机：四位数码管显示时分，开关1 2 3 4分别增加时，减少时，增加分，减少分

摘要： #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 阅读(273) 评论(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 阅读(144) 评论(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 阅读(369) 评论(0) 推荐(0)

单片机：2位数码管显示

摘要： #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 阅读(950) 评论(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 阅读(334) 评论(0) 推荐(0)

2021年7月28日

单片机：四位数码管按秒计时：0001 0002 。。。。9998 9999

摘要： #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)

2021年7月23日

课程表整理：宏

摘要： 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 阅读(95) 评论(0) 推荐(0)

2021年7月21日

EXCEL:删除所有工作表中特定名称的图片

摘要： 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 阅读(146) 评论(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 阅读(201) 评论(0) 推荐(0)

2021年7月20日

EXCEL:总结

摘要：行号：pow() 列号：column() rem 将所有工作表名称写入到当前工作表第一列 Sub shtName() Dim sht As Worksheet, i As Integer i = 1 For Each sht In Worksheets Cells(i, "A") = sht.Nam 阅读全文

posted @ 2021-07-20 06:38 myrj 阅读(83) 评论(0) 推荐(0)

公告