myrj

2021年8月10日

单片机：数码管显示计时，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 阅读(279) 评论(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 阅读(1247) 评论(0) 推荐(0) 编辑

2021年8月9日

单片机：USB-232电路图

摘要：阅读全文

posted @ 2021-08-09 21:47 myrj 阅读(90) 评论(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 阅读(728) 评论(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 阅读(567) 评论(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 阅读(370) 评论(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 阅读(1050) 评论(0) 推荐(0) 编辑

VBA:移动文本框修改文本框背景颜色修改文本框中的文本

摘要： ‘移动文本框Sub ydwbb(aa, xx, yy) ab = "TextBox " & aa With ActiveSheet.Shapes(ab) .Select .Left = xx .Top = yy End With End Sub’修改文本框背景颜色文本框文字内容 Sub yanse 阅读全文

posted @ 2021-08-08 16:42 myrj 阅读(1059) 评论(0) 推荐(0) 编辑

VBA:判断复选框的选择状态 chk.value<>1未选择状态 chk.value=1选择状态

摘要： For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" And chk.Value = 1 Then '选中了 chk.Value = 0 ElseIf chk.Caption = "1.7" And chk.Value <> 1 阅读全文

posted @ 2021-08-08 16:37 myrj 阅读(858) 评论(0) 推荐(0) 编辑

VBA:根据复选框的提示字符确认，并修改复选框的选择状态 chk.value=0取消 chk.value=1选择

摘要： For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 0 End If If 阅读全文

posted @ 2021-08-08 16:33 myrj 阅读(306) 评论(0) 推荐(0) 编辑

公告