با سلام
من طبق برنامعه زیر کاریک ic 7447 یا همان آی سی دیکودر را شبیه سازی کرده ام می خواستم بدان آیا دستورات و یا توابع کوتاهتری برای این کار وجود دارد یا خیر
$regfile = "m323def.dat"
$crystal = 8000000
Config Portb = Input
Config Portd = Output
Do
If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 0 Then Portd = &B11111111
If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 1 Then Portd = &B11111110
If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 0 Then Portd = &B11111101
If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 1 Then Portd = &B11111100
If Pinb.0 = 1 And Pinb.1 = 0 And Pinb.2 = 0 Then Portd = &B11111011
If Pinb.0 = 1 And Pinb.1 = 0 And Pinb.2 = 1 Then Portd = &B11111010
If Pinb.0 = 1 And Pinb.1 = 1 And Pinb.2 = 0 Then Portd = &B11111001
If Pinb.0 = 1 And Pinb.1 = 1 And Pinb.2 = 1 Then Portd = &B11111000
Loop
End
من طبق برنامعه زیر کاریک ic 7447 یا همان آی سی دیکودر را شبیه سازی کرده ام می خواستم بدان آیا دستورات و یا توابع کوتاهتری برای این کار وجود دارد یا خیر
$regfile = "m323def.dat"
$crystal = 8000000
Config Portb = Input
Config Portd = Output
Do
If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 0 Then Portd = &B11111111
If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 1 Then Portd = &B11111110
If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 0 Then Portd = &B11111101
If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 1 Then Portd = &B11111100
If Pinb.0 = 1 And Pinb.1 = 0 And Pinb.2 = 0 Then Portd = &B11111011
If Pinb.0 = 1 And Pinb.1 = 0 And Pinb.2 = 1 Then Portd = &B11111010
If Pinb.0 = 1 And Pinb.1 = 1 And Pinb.2 = 0 Then Portd = &B11111001
If Pinb.0 = 1 And Pinb.1 = 1 And Pinb.2 = 1 Then Portd = &B11111000
Loop
End
دیدگاه