$regfile = "m8def.dat" $crystal = 8000000 Config Timer1 = Timer , Prescale = 64 Enable Interrupts Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.1 , Rs = Portc.0 Config Lcd = 16 * 2 Config Portd.7 = Output Led Alias Portd.7 Config Pinb.0 = Input Key Alias Pinb.0 Dim I As Byte 'harbar ke kelid zade mishe chi neshoon bede Dim B As Byte 'tanzime zamane delay beyne kelida Dim C As Byte 'baraye harkate makan nama dar setoonha I = 0 B = 0 C = 1 Cursor Off Cls Lcd " Dr.Sharifzadeh" Waitms 600 Cls Enable Ovf1 On Ovf1 Press '======================main============ Do If Key = 1 Then Waitms 150 If Key = 1 Then Incr I If I = 5 Then I = 0 End If Select Case I Case 1 : Timer1 = 0 Enable Timer1 Locate 1 , C : Lcd " " Locate 1 , C : Lcd "A" Case 2 : Timer1 = 0 Enable Timer1 Locate 1 , C : Lcd " " Locate 1 , C : Lcd "B" Case 3 : Timer1 = 0 Enable Timer1 Locate 1 , C : Lcd " " Locate 1 , C : Lcd "C" Case 4 : Timer1 = 0 Enable Timer1 Locate 1 , C : Lcd " " Locate 1 , C : Lcd "D" Case Else Nop End Select End If End If Loop '=============timer Press: Incr B If B = 2 Then I = 0 B = 0 Incr C Disable Timer1 Set Led Waitms 90 Reset Led End If Return
دیدگاه