پاسخ : اموزش 0 تا 100 ساخت قفل رمزی به زبان بیسیک
نمیدونم والا چه خبره دیگه خبری از دوستان نیست
نمیدونم والا چه خبره دیگه خبری از دوستان نیست
CONFIG LCDPIN = PIN , DB4= PN,DB5=PN, DB6=PN, DB7=PN, E=PN, RS=PN
CONFIG LCD = LCDtype
LCD x
CONFIG KBD = PORTx , DEBOUNCE = value
VAR=getkbd()
dim name as type
IF شرط THEN دستورات [ ELSEIF شرط THEN ] دستورات [ ELSE ] دستورات END IF
If K1 = 1 Then Cls : Goto Pomp_manual
set portx.y reset portx.y
$regfile = "m16def.dat" $crystal = 1000000 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _ Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2 Config Lcd = 16 * 2 Config Kbd = Porta , Debounce = 50 , Delay = 150 Dim A As Byte Do A = Getkbd() If A < 16 Then Cls Lcd A End If Loop End
دیدگاه