真实一级一级一片免费视频-真实乱欲视频-真实国产乱弄免费视频-真人午夜a一级毛片-国产成人免费视频-国产成人免费片在线视频观看

化工輕工
當(dāng)前位置:網(wǎng)站首頁 > 無機化工 > 正文

單片機啤酒生產(chǎn)線計數(shù)器系統(tǒng)

作者:化工綜合網(wǎng)發(fā)布時間:2023-01-04分類:無機化工瀏覽:208


導(dǎo)讀:程序和仿真圖!不是很難一個引腳做計數(shù)輸入,令一個接清零按鈕,再加上6位led顯示如何用vb制作計數(shù)器使用數(shù)組和結(jié)構(gòu)體相應(yīng)的數(shù)據(jù)類型自己看看哪個最合適就用哪個,下...

程序和仿真圖!不是很難


一個引腳做計數(shù)輸入,令一個接清零按鈕,再加上6位led顯示

如何用vb制作計數(shù)器

使用數(shù)組 和 結(jié)構(gòu)體
相應(yīng)的數(shù)據(jù)類型自己看看哪個最合適就用哪個,下面的例子全部用long,初始數(shù)據(jù)用100個隨機數(shù)

Option Explicit
Private Type dd
d1 As Long '存儲出現(xiàn)的數(shù)
d2 As Long '存儲出現(xiàn)次數(shù)
End Type

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 10000
Me.Height = 4500
Dim aa() As dd
Dim bb() As Long '原始數(shù)字的數(shù)組
Dim i, j, k, l, m As Long
ReDim aa(0)
k = 100 '隨機數(shù)個數(shù)
l = 500 '最大隨機數(shù)
m = 100 '最小隨機數(shù)
ReDim bb(k) As Long

'生成隨機數(shù),存儲在bb里面
Randomize
For i = 0 To k - 1
bb(i) = Int(((l - m) * Rnd) + m)
Next i

'統(tǒng)計bb里面各個數(shù)字出現(xiàn)次數(shù)
For i = 0 To UBound(bb) - 1
For j = 0 To UBound(aa) - 1
If aa(j).d1 = bb(i) Then
aa(j).d2 = aa(j).d2 + 1
Exit For
End If
Next j
If j >= UBound(aa) Then
ReDim Preserve aa(j + 1) As dd
aa(j).d1 = bb(i)
aa(j).d2 = 1
End If
Next i

'輸出出現(xiàn)數(shù)字及次數(shù)
Me.Print 數(shù)字, 出現(xiàn)次數(shù), 數(shù)字, 出現(xiàn)次數(shù), 數(shù)字, 出現(xiàn)次數(shù), 數(shù)字, 出現(xiàn)次數(shù)
For i = 0 To UBound(aa) - 1
Me.Print aa(i).d1, aa(i).d2,
If i Mod 4 = 3 Then Me.Print '設(shè)置輸出格式
Next i
End Sub

直接新建exe,復(fù)制黏貼就可以運行了

標(biāo)簽:何用計數(shù)器制作生產(chǎn)計數(shù)器


主站蜘蛛池模板: 国产36d在线观看| 久久久一区二区三区| 亚洲欧美一级视频| 老司机久久影院| 2022欧美高清中文字幕在线看| 亚洲全黄| 99精品99| 二区三区在线| 国产在线观看成人| 秋霞国产一级特黄| 亚洲国产精品久久卡一| 中文字幕 视频一区| 成免费网站| 视频污版| 日本精品一区二区三区在线| 九色国产在视频线精品视频| av蜜桃| 国产91精品露脸国语对白| 91爱爱网站| 91色在线视频| 91xav在线| www国产精品| 国产丝袜精品丝袜一区二区三区| 91在线视频免费| 国产网站精品| 久久99网站| 视频免费1区二区三区| 色综合久久久久久久久五月性色| 四虎国产精品免费观看| 色好吊| 色综合久久中文字幕| 伦韩国2020理论片在线观看| 黄页免费在线观看| 8090碰成年女人免费碰碰尤物| 国产成人高清在线观看播放| 884hutv四虎永久黄网| 成人午夜视频一区二区国语| 久久亚洲国产精品一区二区| 老子不卡| 亚洲欧美久久精品| 综合国产|