如何用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

標簽：單片機計數器怎么生產計數器