如何用vb制作計數器
作者：化工綜合網發布時間：2023-01-06分類：聚合物瀏覽：305
如何用vb制作計數器
使用數組 和 結構體
相應的數據類型自己看看哪個最合適就用哪個，下面的例子全部用long，初始數據用100個隨機數
Option Explicit
Private Type dd
d1 As Long '存儲出現的數
d2 As Long '存儲出現次數
End Type
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 10000
Me.Height = 4500
Dim aa() As dd
Dim bb() As Long '原始數字的數組
Dim i, j, k, l, m As Long
ReDim aa(0)
k = 100 '隨機數個數
l = 500 '最大隨機數
m = 100 '最小隨機數
ReDim bb(k) As Long
'生成隨機數，存儲在bb里面
Randomize
For i = 0 To k - 1
bb(i) = Int(((l - m) * Rnd) + m)
Next i
'統計bb里面各個數字出現次數
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
'輸出出現數字及次數
Me.Print 數字, 出現次數, 數字, 出現次數, 數字, 出現次數, 數字, 出現次數
For i = 0 To UBound(aa) - 1
Me.Print aa(i).d1, aa(i).d2,
If i Mod 4 = 3 Then Me.Print '設置輸出格式
Next i
End Sub
直接新建exe，復制黏貼就可以運行了
單片機中計數器怎么做？
外加顯示的，延時查表自己寫
ORG 0000H
MAIN:MOV 30H,#00;(給 30H_40H付值)
MOV 31H,#00
MOV 32H,#00
MOV 33H,#00
MOV 34H,#00
MOV 35H,#00
MOV 36H,#00
MOV 37H,#00
L3: CALL L1 ;(調用子程序)
CALL DELAY2 ;(延時)
INC 30H ;(將30中值遞增1)
MOV A,30H ;( 將30H)
CJNE A,#0AH,L3
MOV 30H,#0
INC 31H
ACALL L1
MOV A,31H
CJNE A,#06H,L3
MOV 31H,#0
INC 32H
ACALL L1
MOV A,32H
CJNE A,#0AH,L3
MOV 32H,#0
INC 33H
ACALL L1
MOV A,33H
CJNE A,#06H,L3
MOV 33H,#0
INC 34H
ACALL L1
MOV A,34H
CJNE A,#0H,L3
MOV 34H,#0
INC 35H
ACALL L1
MOV A,35H
CJNE A,#02H,L3
L4: ACALL L1
CALL DELAY2
INC 34H
ACALL L1
CALL DELAY2
MOV A,34H
CJNE A,#04H,L4
MOV P1,#0
JMP MAIN
L1: MOV DPTR,#TABLE
MOV A,30H
MOVC A,@A+DPTR
MOV P1,A
CLR P0.0
CALL DELAY
SETB P0.0
MOV A,31H
MOVC A,@A+DPTR
MOV P1,A
CLR P0.1
CALL DELAY
SETB P0.1
MOV A,32H
MOVC A,@A+DPTR
MOV P1,A
CLR P0.2
CALL DELAY
SETB P0.2
MOV A,33H
MOVC A,@A+DPTR
MOV P1,A
CLR P0.3
CALL DELAY
SETB P0.3
MOV A,34H
MOVC A,@A+DPTR
MOV P1,A
CLR P0.4
CALL DELAY
SETB P0.4
MOV A,35H
MOVC A,@A+DPTR
MOV P1,A
CLR P0.5
CALL DELAY
SETB P0.5
MOV A,36H
MOVC A,@A+DPTR
MOV P1,A
CLR P0.6
CALL DELAY
SETB P0.6
MOV A,37H
MOVC A,@A+DPTR
MOV P1,A
CLR P0.7
CALL DELAY
SETB P0.7
RET
END
- 聚合物排行
- 最近發表