www.elektronik.si

NEYC123 · Neznanec Pridružen-a: Čet 23 Apr 2009 20:39 Prispevkov: 4 Aktiv.: 0.02

Zanima me če je kdo pripravljen predelati program. Gre se za odštevalnik časa. Program je pisan za uro. Potreboval pa bi da mi odšteva čas.
Če se najde kdo ki bi mi pomagal prosim naj me kontaktira na zs.

(* Drugič vsaj naslov napiši, če že programa ne znaš. *)

program_er · Objavljeno: Čet Apr 23, 2009 9:07 pm Naslov sporočila: Re: VPRAŠANJE

NEYC123 · Objavljeno: Čet Apr 23, 2009 9:27 pm Naslov sporočila:

Program je pisan v Bascomu za mikrokontroler AT89C2051.

program_er · Objavljeno: Čet Apr 23, 2009 9:34 pm Naslov sporočila:

Prilepi ga tukaj (če je dolg ga daj v priponko), da vidim kaj in kako.

drVrh · Objavljeno: Čet Apr 23, 2009 9:38 pm Naslov sporočila:

Nejc ,

Na mail sem ti poslal program, tako da tisti bi moral delovati, je pa problem jutri v šoli moraš čip sprogramirati še enkrat.

LP Grega

NEYC123 · Objavljeno: Čet Apr 23, 2009 9:44 pm Naslov sporočila:

Zadeva urejena HVALA vsem, ki ste mi priskočili na pomoč.

NEYC123 · Objavljeno: Sob Jun 13, 2009 3:35 pm Naslov sporočila:

$crystal = 12000000

Dim Up_down As Byte , K As Byte , R As Byte 'deklaracija spremenljivk
Dim X As Byte , Y As Byte , S As Byte , T As Byte
Dim X_des As Byte , Y_en As Byte , S_des As Byte , T_en As Byte
Dim Counter As Word , Seconds As Byte , Minutes As Byte , Ure As Byte

Counter = 0
X = 192
Y = 192
S = 192 'inicializacija spremenljivk
T = 192
Up_down = 0
K = 0
R = 0

Do

P3.7 = 1
P1 = X
P3.0 = 0
Gosub Prikaz

If P3.2 = 0 Then
Waitms 30
If P3.2 = 0 Then
Up_down = Up_down + 1
If Up_down > 1 Then Up_down = 0
Do
Loop Until P3.2 = 1
End If
End If

If P3.3 = 0 Then
Waitms 30
If P3.3 = 0 Then
Counter = 0
If Up_down = 0 Then
Minutes = Minutes + 1
Else
If Minutes > 0 Then Minutes = Minutes - 1

End If
Do
Loop Until P3.3 = 1
End If
End If

P3.0 = 1
P1 = Y
P3.1 = 0
Gosub Prikaz

If P3.4 = 0 Then
Waitms 30
If P3.4 = 0 Then
Counter = 0
If Up_down = 0 Then
Seconds = Seconds + 1
Else
If Seconds > 0 Then Seconds = Seconds - 1
End If
Do
Loop Until P3.4 = 1
End If
End If

P3.1 = 1
P1 = S
P3.5 = 0
Gosub Prikaz

If P3.7 = 0 Then
Waitms 30
If P3.7 = 0 Then
Counter = 0
Seconds = 0
Minutes = 0
Ure = 0
Do
Loop Until P3.7 = 1
End If
End If

P3.5 = 1
P1 = T
P3.7 = 0
Gosub Prikaz

Counter = Counter + 1

Loop

Prikaz:
If Counter > 1499 Then
Seconds = Seconds + 1
If Seconds > 59 Then
Minutes = Minutes + 1
If Minutes > 59 Then
Ure = Ure + 1
If Ure > 23 Then Ure = 0
Minutes = 0
End If
Seconds = 0
End If
Counter = 0
End If

X_des = Seconds / 10
Y_en = Seconds Mod 10
Select Case Y_en
Case 0 : X = 192
Case 1 : X = 249
Case 2 : X = 164
Case 3 : X = 176
Case 4 : X = 153
Case 5 : X = 146
Case 6 : X = 130
Case 7 : X = 248
Case 8 : X = 128
Case 9 : X = 144
End Select
Select Case X_des
Case 0 : Y = 192
Case 1 : Y = 249
Case 2 : Y = 164
Case 3 : Y = 176
Case 4 : Y = 153
Case 5 : Y = 146
Case 6 : Y = 130
Case 7 : Y = 248
Case 8 : Y = 128
Case 9 : Y = 144
End Select

S_des = Minutes / 10
T_en = Minutes Mod 10
Select Case T_en
Case 0 : S = 192
Case 1 : S = 249
Case 2 : S = 164
Case 3 : S = 176
Case 4 : S = 153
Case 5 : S = 146
Case 6 : S = 130
Case 7 : S = 248
Case 8 : S = 128
Case 9 : S = 144
End Select
Select Case S_des
Case 0 : T = 192
Case 1 : T = 249
Case 2 : T = 164
Case 3 : T = 176
Case 4 : T = 153
Case 5 : T = 146
Case 6 : T = 130
Case 7 : T = 248
Case 8 : T = 128
Case 9 : T = 144
End Select
Return

Za vse, ki vas zanima je tukaj napisan program za odštevalnik časa s to napako da odšteva od 100 namesto od 60. Če se najde kdo , ki bi bil pripravljen popravit program da bi deloval pravilno naj objavi program na forumu!
lp