myrj

2021年8月10日

摘要： uchar code table1[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};//0--9uchar code table[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0x 阅读全文

posted @ 2021-08-10 13:34 myrj 阅读(571) 评论(0) 推荐(0)

单片机：按秒计时，10秒响一次每秒LED0 1亮 10进制

摘要： #include<reg51.h> #define uchar unsigned char; #define uint unsigned int; uchar position; uchar tt,bz1=0,bz2=0,bz3=0; uint second; uchar minute; uchar 阅读全文

posted @ 2021-08-10 13:29 myrj 阅读(447) 评论(0) 推荐(0)

单片机：数码管显示计时，LED0 1 1秒一闪 LED2 3 1分一闪 LED5 LED6 1小时一闪 K1 K2调整时 K3 K4调整分钟 1分钟一小时BEEP响一次

摘要： #include<reg51.h> #define uchar unsigned char; #define uint unsigned int; uchar position; uchar tt,bz1=0,bz2=0,bz3=0; uchar second; uchar minute; ucha 阅读全文

posted @ 2021-08-10 13:06 myrj 阅读(261) 评论(0) 推荐(0)

单片机：数码管显示计时，LED0 1 1秒一闪 LED2 3 1分一闪 LED5 LED6 1小时一闪 K1 K2调整时 K3 K4调整分钟

摘要： #include<reg51.h> #define uchar unsigned char; #define uint unsigned int; uchar position; uchar tt,bz1=0,bz2=0; uchar second; uchar minute; uchar hour 阅读全文

posted @ 2021-08-10 12:12 myrj 阅读(345) 评论(0) 推荐(0)

单片机：按键控制源代码

摘要： uchar flag=0; void key() //按键判断程序 { if(key1==0) //判断是否按下键盘 { delay(10); //延时,软件去干扰 if(key1==0) //确认按键按下 { flag=1 } while(key1==0); } if(key2==0) //判断是阅读全文

posted @ 2021-08-10 08:30 myrj 阅读(1389) 评论(0) 推荐(0)

2021年8月9日

单片机：USB-232电路图

摘要：阅读全文

posted @ 2021-08-09 21:47 myrj 阅读(110) 评论(0) 推荐(0)

2021年8月8日

单片机：跑马灯程序源代码易理解，第2：从上到下第3：从下到上，第1有些代码没起作用

摘要： #include<reg51.h> #include <intrins.h> char LED; void delay(unsigned int i) { unsigned char j; for(i; i > 0; i--) for(j = 255; j > 0; j--); } main() { 阅读全文

posted @ 2021-08-08 17:35 myrj 阅读(826) 评论(0) 推荐(0)

单片机：K1 K2 K3 K4应用：K1循环左移 K2停止 K3 左移 K4 二进制减法流水灯控制

摘要： #include <reg52.h> #include<intrins.h> sbit key1=P3^2; sbit key2=P3^3; sbit key3=P3^4; sbit key4=P3^5; typedef unsigned int uint; typedef unsigned cha 阅读全文

posted @ 2021-08-08 17:09 myrj 阅读(729) 评论(0) 推荐(0)

VBA:全选全不选复选框

摘要： Sub qx() For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 1 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 1 E 阅读全文

posted @ 2021-08-08 16:52 myrj 阅读(430) 评论(0) 推荐(0)

VBA:数组应用赋值

摘要： Sub jian() Dim xx As Double Dim ji As Double Dim b1 As String Dim arr(8) As Variant For xx = 255 To 0 Step -1 ji = xx b1 = DECtoBINa(ji) For a = 1 To 阅读全文

posted @ 2021-08-08 16:50 myrj 阅读(1153) 评论(0) 推荐(0)

公告