Device 12F629 Reminders = OFF Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, MCLRE_OFF ;No crystal, no reset Reminders = On Xtal 4 All_Digital = On ;----------------- Установки Портов ----------------------; TRISIO = %010101 ;---------------- Переименнуем Порт ----------------------; Symbol But = GPIO.0 ' Кнопка 1 Symbol But1 = GPIO.2 ' Кнопка 2 Symbol opto = GPIO.4 ' оптопара на радиопередатчик Symbol Led = GPIO.1 ' Св.диод ;---------------- Основная программа --------------------; Dim x As Byte Dim y As Byte For x = 1 To 10 Step 1 Led = 1 DelayMS 50 Led = 0 DelayMS 50 Next main: Led = 0 opto = 0 If But = 0 Then main1 GoTo main main1: For x = 1 To 90 Step 1 opto = 1 If But1 = 0 Then main For y = 1 To 100 Step 1 If But1 = 0 Then main Led = 1 DelayMS 100 Led = 0 DelayMS 100 Next Next GoTo main End