آقا سعید آپ امپ رو خریدم. تا حالا باهاش کار نکردم یک لطفی بکنید مدار رو برام بزارید ممنون
آقا سعید آپ امپ رو خریدم. تا حالا باهاش کار نکردم یک لطفی بکنید مدار رو برام بزارید ممنون
سلام من یه برنامه و مدار دارم که با همین ریموت شما کار کرد و برنامه ای که بچه ها گذاشتن با کمی تغیرات
اگه جواب نگرفتین که کن برنامه رو بزارم
سلام آقای محمدنیا نیکی و پرسش؟ ممنون میشیم بزارید برنامتون رو
سلام آقای محمدنیا. به این تاپیک خوش اومدید.
آقا سعید متاسفانه lcd دسترسم نیست! تا چند روز دیگه که به دستم رسید تمام نتایج رد میزارم...
آقای محمدنیا اگه امکانش هست برنامتون رو بزارید. خدا خیرتون بده... کارم خیلی گیره این ریموت هاست...
ممنون.
سلام دوستان ،من قراره خيره سرم کد کليد هاي يک ريموت کنترل بخونم.کد زير رو نوشتم.جواب ميده ولي هردفه جوابش متغيره.اساتيد يکي يه کمکم بکن
$regfile = "m16def.dat" ' specify the used micro
$crystal = 2000000 ' used crystal frequency
$baud = 9600 ' use baud rate
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.6
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Portb = Output
Config Portd = Input
Config Pina.0 = Input
Dim L(10) As Byte
Dim A As Byte
A = 0
Lcd "sallam"
Waitms 1000
Cls
Do
Do
L(a) = waitkey()
Waitms 5
Incr A
Loop Until A = 9
Lcd L(a) ; "," ; L(a + 1) ; "," ; L(a + 2) ; "," ; L(a + 3)
Locate 2 , 1
Lcd L(a + 4) ; "," ; L(a + 5) ; "," ; L(a + 5) ; "," ; L(a + 7)
Wait 2
Cls
Loop
En
سلام پس از سالها ...
یه نفر گیر کرده به همین داستان ...
حل شده بالاخره ؟؟؟
منم گیر کرده ام