Device = 12F675 Config CPD_OFF, CP_OFF, BODEN_OFF, MCLRE_OFF, PWRTE_ON, WDT_OFF, INTRC_OSC_NOCLKOUT Xtal 4 Declare Adin_Res 8 ANSEL.0=0 ANSEL.1=1 ANSEL.2=0 ANSEL.3=0 TRISIO.2=1 TRISIO.5=0 TRISIO.4=0 TRISIO.3=1 TRISIO.0=0 GPIO.5=0 GPIO.4=0 GPIO.0=0 Dim zaman As Word Dim olcum As Byte olcum=0 Symbol buzzer=GPIO.5 Symbol sarj_basladi=GPIO.4 Symbol sarj_metod=GPIO.3 Symbol role=GPIO.0 role=1 DelayMS 500 bak: olcum = ADIn 1 If olcum > 1 Then GoTo basla End If DelayMS 500 GoTo bak basla: DelayMS 500 sarj_basladi=1 If sarj_metod=1 Then GoTo hizli End If standart: role=1 For zaman=0 To 720 Step 1 DelayMS 60000 Next sarj_basladi=0 role=0 GoTo bitti hizli: role=1 For zaman=0 To 360 Step 1 DelayMS 60000 Next sarj_basladi=0 role=0 bitti: buzzer=1 DelayMS 1000 buzzer=0 DelayMS 2000 GoTo bitti