03-29-2018, 10:12 PM
Odlicno...evo prekucao sam kod iz C-a u Basic:
Do
For i=0 To 100
segment_number(i)
Next i
Loop
Sub segment_number(number As Byte)
Reset PORTB.0 ' first segement
Set PORTB.1
Set PORTB.2
PORTD = Numbers((number mod 1000) / 100)
WaitMs 10
Set PORTB.0 ' second segment
Reset PORTB.1
Set PORTB.2
PORTD = Numbers((number mod 100) / 10)
WaitMs 10
Set PORTB.0 ' third segment
Set PORTB.1
Reset PORTB.2
PORTD = Numbers((number mod 10))
WaitMs 10
End Sub
Stavio sam namjerno For Loop petlju da broji od 0 do 100 i to radi savrseno.
Zanima me koja je preporučena frekvencija osvjezavanja 7 segmentnog displaya da bude neprimjetno trepterenje u stvarnosti? Ja sam stavio 10ms iza svakog odabranog displaya i u For loop petlji sto dodje (1000ms / 10ms = 100Hz sto ako sam dobro izracunao je vise nego dovoljno da "ljudsko" oko nevidi to trepterenje jer je jako brzo).
Ovo za npn tranzistore cu da sada ubacim u shemu da kada stignu djelovi da ih ne zaboravim staviti...da avr pin nemoze da to izdrzdi tako da idem da stavim tranzistore pa da vidim kako ce da se ponasa u simulatoru...
Do
For i=0 To 100
segment_number(i)
Next i
Loop
Sub segment_number(number As Byte)
Reset PORTB.0 ' first segement
Set PORTB.1
Set PORTB.2
PORTD = Numbers((number mod 1000) / 100)
WaitMs 10
Set PORTB.0 ' second segment
Reset PORTB.1
Set PORTB.2
PORTD = Numbers((number mod 100) / 10)
WaitMs 10
Set PORTB.0 ' third segment
Set PORTB.1
Reset PORTB.2
PORTD = Numbers((number mod 10))
WaitMs 10
End Sub
Stavio sam namjerno For Loop petlju da broji od 0 do 100 i to radi savrseno.
Zanima me koja je preporučena frekvencija osvjezavanja 7 segmentnog displaya da bude neprimjetno trepterenje u stvarnosti? Ja sam stavio 10ms iza svakog odabranog displaya i u For loop petlji sto dodje (1000ms / 10ms = 100Hz sto ako sam dobro izracunao je vise nego dovoljno da "ljudsko" oko nevidi to trepterenje jer je jako brzo).
Ovo za npn tranzistore cu da sada ubacim u shemu da kada stignu djelovi da ih ne zaboravim staviti...da avr pin nemoze da to izdrzdi tako da idem da stavim tranzistore pa da vidim kako ce da se ponasa u simulatoru...