myrj

2021年7月29日

摘要： #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 阅读(385) 评论(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 阅读(973) 评论(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 阅读(361) 评论(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 阅读(396) 评论(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 阅读(122) 评论(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 阅读(162) 评论(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 阅读(222) 评论(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 阅读(102) 评论(0) 推荐(0)

2021年7月19日

比赛

摘要：山东电子信息产品检验院协办集成电路EDA 阅读全文

posted @ 2021-07-19 10:22 myrj 阅读(32) 评论(0) 推荐(0)

停车位：颜色

摘要：黄色：专属停车位蓝色：免费停车位白色：收费停车位阅读全文

posted @ 2021-07-19 07:30 myrj 阅读(154) 评论(0) 推荐(0)

公告