پاسخ : ساعت با فونت بزرگ
دوست عزیز ظاهرا که هیچی بلد نیستید
پس فرصت خوبیه که یاد بگیرید
من قسمت ساعت رو روی ال سی دی نشون دادم
شما هم قسمت دقیقه رو روی ال سی دی نشون بدید
بعد این کدهای زیر
تا دستور cls هرچی هست پاک کن و کد زیر رو جایگزین کن
ول کن بیا این کد کامل
قسمت دقیقه اش رو با الهام گرفتن از کد خودت بنویس
[/CODE]
دوست عزیز ظاهرا که هیچی بلد نیستید
پس فرصت خوبیه که یاد بگیرید
من قسمت ساعت رو روی ال سی دی نشون دادم
شما هم قسمت دقیقه رو روی ال سی دی نشون بدید
بعد این کدهای زیر
کد:
'Cyfra 9 Linia_g(9) = Chr(255) + Chr(4) + Chr(255) + " " Linia_d(9) = Chr(3) + Chr(3) + Chr(255) + " "
ول کن بیا این کد کامل
قسمت دقیقه اش رو با الهام گرفتن از کد خودت بنویس
کد:
$regfile = "m8def.dat" $crystal = 1000000 Config Pinb.0 = Input Config Pinb.1 = Input Config Pinb.2 = Input Hour Alias Pinb.0 : Mine Alias Pinb.1 : Seco Alias Pinb.2 Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , _ Db5 = Portc.3 , Db4 = Portc.2 , Rs = Portc.0 , E = Portc.1 Config Lcd = 16 * 2 Config Clock = Soft Cursor Off Noblink Cls 'Deflcdchar 0 , 32 , 4 , 4 , 4 , 21 , 14 , 4 , 32 'Deflcdchar 1 , 32 , 4 , 14 , 21 , 4 , 4 , 4 , 32 'stopien to Chr(223) 'caly kursor to Chr(255) 'duzy stopien to Chr(219) 'kropkaduza to Chr(161) Deflcdchar 2 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32 Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31 Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 31 , 31 Const Liczba = 250 Dim Pierwsza As Byte , Druga As Byte , Trzecia As Byte Dim Help As Byte Dim Linia_g(10) As String * 4 , Linia_d(10) As String * 4 'Cyfra 0 Linia_g(10) = Chr(255) + Chr(2) + Chr(255) + " " Linia_d(10) = Chr(255) + Chr(3) + Chr(255) + " " 'Cyfra 1 Linia_g(1) = Chr(2) + Chr(255) + " " Linia_d(1) = Chr(3) + Chr(255) + Chr(3) + " " 'Cyfra 2 Linia_g(2) = Chr(4) + Chr(4) + Chr(255) + " " Linia_d(2) = Chr(255) + Chr(3) + Chr(3) + " " 'Cyfra 3 Linia_g(3) = Chr(2) + Chr(4) + Chr(255) + " " Linia_d(3) = Chr(3) + Chr(3) + Chr(255) + " " 'Cyfra 4 Linia_g(4) = Chr(255) + Chr(3) + Chr(255) + " " Linia_d(4) = " " + Chr(255) + " " 'Cyfra 5 Linia_g(5) = Chr(255) + Chr(4) + Chr(4) + " " Linia_d(5) = Chr(3) + Chr(3) + Chr(255) + " " 'Cyfra 6 Linia_g(6) = Chr(255) + Chr(4) + Chr(4) + " " Linia_d(6) = Chr(255) + Chr(3) + Chr(255) + " " 'Cyfra 7 Linia_g(7) = Chr(2) + Chr(2) + Chr(255) + " " Linia_d(7) = " " + Chr(255) + " " 'Cyfra 8 Linia_g(8) = Chr(255) + Chr(4) + Chr(255) + " " Linia_d(8) = Chr(255) + Chr(3) + Chr(255) + " " 'Cyfra 9 Linia_g(9) = Chr(255) + Chr(4) + Chr(255) + " " Linia_d(9) = Chr(3) + Chr(3) + Chr(255) + " " Time$ = "05:45" Cursor Off Enable Interrupts dim hour_yekan as byte dim hour_dahgan as Byte hour_yekan=_hour mod 10 hour_dahgan=_hour/10 pierwsza=hour_dahgan druga= hour_yekan If Pierwsza = 0 Then Pierwsza = 10 If Druga = 0 Then Druga = 10 Cls Waitms 100 home Lcd " " ; Linia_g(pierwsza) ; Linia_g(Druga) ; Chr(223) Lowerline Lcd " " ; Linia_d(pierwsza) ; Linia_d(Druga) ; Chr(161) end Declare Sub A Declare Sub B Declare Sub C Cls Dim V As Byte Do Call A Call B Loop End Sub A Home : Lcd ; Time$ ; " " End Sub Sub B If Hour = 0 Then Incr _hour If _hour > 23 Then _hour = 0 End If If Mine = 0 Then Incr _min If _min > 59 Then _min = 0 End If Call C End Sub Sub C For V = 0 To 5 Call A Next End Sub
دیدگاه