Bunu Bu PIC ile Yapabilir miyim?

agbi benim babam yok kendim calisiyorum okuyorum ev kirasi yeme icme elektrik su telefondu derken ayin sonuna bi 200 lira kaliyo onunda 100u bana 50 si bankaya geri kalan 50 ilede yegenlerimi ziyarete giderken acil bise olursa falan diye cebimde tasiyorum yetmez yani bu ay bana kalan 60 gitti bile onun icin yani
 
mesenkar' Alıntı:
agbi benim babam yok kendim calisiyorum okuyorum ev kirasi yeme icme elektrik su telefondu derken ayin sonuna bi 200 lira kaliyo onunda 100u bana 50 si bankaya geri kalan 50 ilede yegenlerimi ziyarete giderken acil bise olursa falan diye cebimde tasiyorum yetmez yani bu ay bana kalan 60 gitti bile onun icin yani
Genişletmek için tıkla ...

ikametin neresi? mesenkar.

ankaradaysan yüzyüze görüşelim değilsen özelden cebimi gönderiyorum elektronikle ilgili neye ihtiyacın olursa çekinmeden ara. şema,program, malzeme.

bu söylediklerimi yanlış anlama sakın. zor şartlarda olduğun için en azından okulun bitene kadar sana destek olmak isterim.
 
saol hocam allah razi olsun malzemem oldugu kadar yapmak isterim hani maksat biseyleri kendim meydana getirebilmek sizden sadece teknik acidan bilgi almak isterim hani ben orda soyl€ediklerimi bu ay olmazsa obur aya biriktirir alirim gibisinden demek istedim hocam saolun burda verdginiz bilgiler bana yetiyorda artiyor bile tesekkur ederim

he unutmadan kirsehir mucurdayim yolunuz duserse misafirim olun hocam beklerim
 
bende bir tane usb programer var(usburn 18a2) fazladan özelden adresini yazarsan gönderebilirim bende bir ise yaramıyor,ufak tefek denemeler icin senin isini görebilir.bende memnun olurum atsan atılmıyo satsan satılmıyo.
 
hocam cok memnun olurum tabi fiyati karsiliginda gonderirsen daha iyi olur ozelden adresi gondereyim

heheh saat 2 ve ben hala Ucuz Basit PIC Eeprom Programlama Devreleri | Elektronik Devreler Projeler bunu yapmaya calısıyom daha basiti yokmu yav delikli plakette adamın beyni donuyo kac gunudur gezeleyip durdum en sonunda bunu yapmaya karar verdim elimdeki mazemyle ama delikli plaketle olacak gibi degil ben bu 12c508 ayı nasıl programlıyacagım ustadlarım gozlerime kan oturdu vallaha...
2.cisini bide ben bunu yanlıs yapsam sadece rs232mi gider yoksa pc komplemi yanar :confused::confused::confused::confused::confused:
 
Moderatör tarafında düzenlendi:
mesenkar' Alıntı:
heheh saat 2 ve ben hala Ucuz Basit PIC Eeprom Programlama Devreleri | Elektronik Devreler Projeler bunu yapmaya calısıyom daha basiti yokmu yav delikli plakette adamın beyni donuyo kac gunudur gezeleyip durdum en sonunda bunu yapmaya karar verdim elimdeki mazemyle ama delikli plaketle olacak gibi degil ben bu 12c508 ayı nasıl programlıyacagım ustadlarım gozlerime kan oturdu vallaha...
2.cisini bide ben bunu yanlıs yapsam sadece rs232mi gider yoksa pc komplemi yanar :confused::confused::confused::confused::confused:
Genişletmek için tıkla ...


sen alarmko ya adresini verdinmi? bence boşa uğraşma pc yede zarar verebilirsin.
 
verdim hocamda mesgul galiba sorun plakette kafa beyin kalmiyo yoksa 8 den belli didiniyorum ha oldu ha olacak bide bakiyom 337 ters sokum duzeltim 15 dakka yav akip giden zamana uzuluyo insan
 
yaptım hocam calısıyor programlayıcı heeeyt be acemide olsak elimiz yatkın (gerci 3 senedeir elektrikte calısıyorum ama elektronigede elim yatkınmıs ;)) hocalarım simdi bu 12 c508a ya program desteklerinizi bekliyorum resimleride ekliycem biraz garip oldu ama sonucta bitti
 
bu kodu yazmıştım birkaç sene önce derleyip kulanabilirsin portları istediğin yere alabilirsin


Kod: 
[B]Device 
[/B]=[B][COLOR=#000080]12F675[/COLOR][/B]
[B][COLOR=#000080]
[/COLOR]Config 
[/B]WDT_OFF ,INTRC_OSC_NOCLKOUT,PWRTE_ON, BODEN_OFF,MCLRE_OFF,CP_ON

[B][COLOR=#800000]XTAL 
[/COLOR][COLOR=#008080]4[/COLOR]
[COLOR=#008080]

[/COLOR][/B][COLOR=#008080][/COLOR][COLOR=#008000]OSCCAL
[/COLOR]=%11111111


[COLOR=#008000]CMCON
[/COLOR]=[B][COLOR=#008080]7 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'all comparators disable[/COLOR][/I]
[I][COLOR=#000080]
[/COLOR][/I][COLOR=#000080][/COLOR][COLOR=#008000]ANSEL
[/COLOR]=[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'disable a-d converter[/COLOR][/I]
[I][COLOR=#000080]
[/COLOR][/I][COLOR=#000080][/COLOR][COLOR=#008000]OPTION_REG
[/COLOR].[B][COLOR=#008080]7[/COLOR][/B][COLOR=#008080][/COLOR]=[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'pullups enable[/COLOR][/I]
[I][COLOR=#000080]

　

[/COLOR][/I][COLOR=#000080][/COLOR][B]Output 
[/B][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'blue[/COLOR][/I]
[I][COLOR=#000080]
[/COLOR][/I][COLOR=#000080][/COLOR][B]Output 
[/B][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]1 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'green[/COLOR][/I]
[I][COLOR=#000080]
[/COLOR][/I][COLOR=#000080][/COLOR][B]Output 
[/B][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]2 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'red[/COLOR][/I]
[I][COLOR=#000080]

[/COLOR][/I][COLOR=#000080][/COLOR][B]Symbol 
[/B]red [COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]2[/COLOR][/B]
[B][COLOR=#008080]
[/COLOR]Symbol 
[/B]grn [COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]1[/COLOR][/B]
[B][COLOR=#008080]
[/COLOR]Symbol 
[/B]blu [COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]0[/COLOR][/B]
[B][COLOR=#008080]
[/COLOR]Symbol 
[/B]sw1 [COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]5[/COLOR][/B]
[B][COLOR=#008080]
[/COLOR]Symbol 
[/B]sw2 [COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]4  [/COLOR][/B]
[B][COLOR=#008080]

　

[/COLOR]Include 
[/B][COLOR=#008000]"modedefs.bas"[/COLOR]
[COLOR=#008000]

　

　

[/COLOR][B]Dim    
[/B]scn      [B]As Byte[/B]
[B]
Dim    
[/B]cycle    [B]As Word[/B]
[B]
Dim    
[/B]row      [B]As Word[/B]
[B]
Dim    
[/B]waitt    [B]As Word[/B]
[B]
Dim    
[/B]intenred [B]As Byte[/B]
[B]
Dim 
[/B]intengreen  [B]As Byte[/B]
[B]
Dim 
[/B]intenblue   [B]As Byte[/B]
[B]
Dim 
[/B]setinten    [B]As Byte[/B]
[B]
Dim 
[/B]redmax      [B]As Byte[/B]
[B]

Dim 
[/B]dutys[[B][COLOR=#008080]3[/COLOR][/B][COLOR=#008080][/COLOR]] [B]As Byte[/B]
[B]

Dim 
[/B]i [B]As Byte[/B]
[B]
Dim 
[/B]j [B]As Byte[/B]
[B]
Dim 
[/B]fade    [B]As Byte[/B]
[B]
Dim 
[/B]lck1   [B]As Bit[/B]
[B]
Dim 
[/B]lck2   [B]As Bit[/B]
[B]

Clear


EData [COLOR=#008080]255 [/COLOR]
[/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'ilk parlaklık degeri eproma yaz[/COLOR][/I]
[I][COLOR=#000080]

'''''''''''''''''''''''''''''''''''''

[/COLOR][/I][COLOR=#000080][/COLOR]waitt       =[B][COLOR=#008080]3000   [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'ana renk arası bekleme[/COLOR][/I]
[I][COLOR=#000080]
[/COLOR][/I][COLOR=#000080][/COLOR]fade        =[B][COLOR=#008080]150    [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'renk değişim hızı[/COLOR][/I]
[I][COLOR=#000080]
''''''''''''''''''''''''''''''''''


[/COLOR][/I][COLOR=#000080][/COLOR]sett:


setinten=[B]ERead [COLOR=#008080]0[/COLOR][/B]
[B][COLOR=#008080]

[/COLOR][/B][COLOR=#008080][/COLOR]intenred  =setinten       

intenblue =setinten

intengreen=setinten 

cycle=waitt

dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'blue[/COLOR][/I]
[I][COLOR=#000080]
[/COLOR][/I][COLOR=#000080][/COLOR]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'green[/COLOR][/I]
[I][COLOR=#000080]
[/COLOR][/I][COLOR=#000080][/COLOR]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]=intenred


main:

    

    [I][COLOR=#000080]'----------------------pwm control------------------------------[/COLOR][/I]
[I][COLOR=#000080]
    
[/COLOR][/I][COLOR=#000080][/COLOR]dev:

    

    [B]While [COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]=[B][COLOR=#008080]1[/COLOR][/B]
[B][COLOR=#008080]
        
[/COLOR][/B][COLOR=#008080][/COLOR][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]=[B][COLOR=#008080]1[/COLOR][/B]
[B][COLOR=#008080]
        
[/COLOR][/B][COLOR=#008080][/COLOR][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]=[B][COLOR=#008080]1[/COLOR][/B]
[B][COLOR=#008080]
        
[/COLOR][/B][COLOR=#008080][/COLOR][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]=[B][COLOR=#008080]1[/COLOR][/B]
[B][COLOR=#008080]
        
[/COLOR]For 
[/B]j=[B][COLOR=#008080]0 [/COLOR]To [COLOR=#008080]255[/COLOR][/B]
[B][COLOR=#008080]
            
[/COLOR]If 
[/B]j=dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]] [B]Then [/B][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]=[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'blue[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR][B]If [/B]j=dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]] [B]Then [/B][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]=[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'green[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR][B]If [/B]j=dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]] [B]Then [/B][COLOR=#008000]GPIO[/COLOR].[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]=[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'red[/COLOR][/I]
[I][COLOR=#000080]
        
[/COLOR][/I][COLOR=#000080][/COLOR][B]Next [/B]j

        [B]DelayUS [COLOR=#008080]255[/COLOR][/B]
[B][COLOR=#008080]
    
[/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'------------------buton control-------------------------------    [/COLOR][/I]
[I][COLOR=#000080]
    
[/COLOR][/I][COLOR=#000080][/COLOR][B]If [/B]sw1=[B][COLOR=#008080]0 [/COLOR]And [/B]lck1=[B][COLOR=#008080]0 [/COLOR]Then[/B]
[B]
        
[/B][I][COLOR=#000080]'lck1=1[/COLOR][/I]
[I][COLOR=#000080]
        
[/COLOR][/I][COLOR=#000080][/COLOR][B]If [/B]setinten<[B][COLOR=#008080]255 [/COLOR]Then[/B]
[B]
            DelayMS [COLOR=#008080]50[/COLOR]
[COLOR=#008080]
            
[/COLOR][/B][COLOR=#008080][/COLOR]setinten=setinten+5 

            [B]EWrite [COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR],[setinten]

            scn=[B][COLOR=#008080]0[/COLOR][/B]
[B][COLOR=#008080]
            
[/COLOR]GoTo 
[/B]sett

        [B]EndIf[/B]
[B]
    EndIf

    

    If 
[/B]sw2=[B][COLOR=#008080]0 [/COLOR]And [/B]lck2=[B][COLOR=#008080]0 [/COLOR]Then[/B]
[B]
        
[/B][I][COLOR=#000080]'lck2=1[/COLOR][/I]
[I][COLOR=#000080]
        
[/COLOR][/I][COLOR=#000080][/COLOR][B]If [/B]setinten>[B][COLOR=#008080]5 [/COLOR]Then[/B]
[B]
            DelayMS [COLOR=#008080]50[/COLOR]
[COLOR=#008080]
            
[/COLOR][/B][COLOR=#008080][/COLOR]setinten=setinten-5

            [B]EWrite [COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR],[setinten]

            scn=[B][COLOR=#008080]0[/COLOR][/B]
[B][COLOR=#008080]
            
[/COLOR]GoTo 
[/B]sett

        [B]EndIf[/B]
[B]
    EndIf            

         

    

    If 
[/B]sw1=[B][COLOR=#008080]1 [/COLOR]Then [/B]lck1=[B][COLOR=#008080]0 [/COLOR][/B]
[B][COLOR=#008080]
    
[/COLOR]If 
[/B]sw2=[B][COLOR=#008080]1 [/COLOR]Then [/B]lck2=[B][COLOR=#008080]0            [/COLOR][/B]
[B][COLOR=#008080]
    
[/COLOR][/B][COLOR=#008080][/COLOR][I][COLOR=#000080]'---------------------------------------------------------------    [/COLOR][/I]
[I][COLOR=#000080]
     '-----------------senaryolar --------------------------------     

    
[/COLOR][/I][COLOR=#000080][/COLOR][B]Inc [/B]row

    [B]If [/B]row=cycle [B]Then[/B]
[B]
        
[/B]row=[B][COLOR=#008080]0[/COLOR][/B]
[B][COLOR=#008080]
            

        
[/COLOR]If 
[/B]scn=[B][COLOR=#008080]0 [/COLOR]Then    [/B]
[B]
            
[/B]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]<intengreen [B]Then   [/B][I][COLOR=#000080]'yesil art[/COLOR][/I]
[I][COLOR=#000080]
                
[/COLOR][/I][COLOR=#000080][/COLOR][B]Inc [/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]=intengreen [B]Then [/B]scn=[B][COLOR=#008080]1 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf    [/B]
[B]
            

        If 
[/B]scn=[B][COLOR=#008080]1 [/COLOR]Then    [/B]
[B]
            
[/B]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]>[B][COLOR=#008080]0 [/COLOR]Then   [/B][I][COLOR=#000080]'kirmizi sondur[/COLOR][/I]
[I][COLOR=#000080]
                
[/COLOR][/I][COLOR=#000080][/COLOR][B]Dec [/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR]Then [/B]scn=[B][COLOR=#008080]2 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]

        If 
[/B]scn=[B][COLOR=#008080]2 [/COLOR]Then [/B]
[B]
            
[/B]cycle=fade   

            [B]If [/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]<intenblue [B]Then   [/B][I][COLOR=#000080]'mavi art[/COLOR][/I]
[I][COLOR=#000080]
                
[/COLOR][/I][COLOR=#000080][/COLOR][B]Inc [/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]=intenblue [B]Then [/B]scn=[B][COLOR=#008080]3 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]

        If 
[/B]scn=[B][COLOR=#008080]3 [/COLOR]Then            [/B][I][COLOR=#000080]'yasil azalt[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]>[B][COLOR=#008080]0 [/COLOR]Then[/B]
[B]
                Dec 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR]Then [/B]scn=[B][COLOR=#008080]4 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]

        If 
[/B]scn=[B][COLOR=#008080]4 [/COLOR]Then             [/B][I][COLOR=#000080]'kirmizi art[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]<intenred [B]Then[/B]
[B]
                Inc 
[/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]=intenred [B]Then [/B]scn=[B][COLOR=#008080]5 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]

　

        If 
[/B]scn=[B][COLOR=#008080]5 [/COLOR]Then       [/B][I][COLOR=#000080]'mavi azal[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]>[B][COLOR=#008080]0 [/COLOR]Then[/B]
[B]
                Dec 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR]Then [/B]scn=[B][COLOR=#008080]6 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
    

        If 
[/B]scn=[B][COLOR=#008080]6 [/COLOR]Then       [/B][I][COLOR=#000080]'yesil art[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]<intengreen [B]Then[/B]
[B]
                Inc 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]=intengreen [B]Then [/B]scn=[B][COLOR=#008080]7 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
    

        If 
[/B]scn=[B][COLOR=#008080]7 [/COLOR]Then       [/B][I][COLOR=#000080]'mavi art[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]<intenblue [B]Then[/B]
[B]
                Inc 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]=intenblue [B]Then [/B]scn=[B][COLOR=#008080]8 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
        

        If 
[/B]scn=[B][COLOR=#008080]8 [/COLOR]Then       [/B][I][COLOR=#000080]'yesil azal[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]>[B][COLOR=#008080]0 [/COLOR]Then[/B]
[B]
                Dec 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR]Then [/B]scn=[B][COLOR=#008080]9 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
        

        

        If 
[/B]scn=[B][COLOR=#008080]9 [/COLOR]Then       [/B][I][COLOR=#000080]'mavi azal[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]>[B][COLOR=#008080]0 [/COLOR]Then[/B]
[B]
                Dec 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR]Then [/B]scn=[B][COLOR=#008080]10 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        

        [B]EndIf[/B]
[B]
        

        If 
[/B]scn=[B][COLOR=#008080]10 [/COLOR]Then       [/B][I][COLOR=#000080]'yesil art[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]<intengreen [B]Then[/B]
[B]
                Inc 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            

            If 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]=intengreen [B]Then [/B]scn=[B][COLOR=#008080]11 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

            [B]EndIf[/B]
[B]
            

            If 
[/B]scn=[B][COLOR=#008080]11 [/COLOR]Then       [/B][I][COLOR=#000080]'mavi art[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]<intenblue [B]Then[/B]
[B]
                Inc 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            If 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]=intenblue [B]Then [/B]scn=[B][COLOR=#008080]12 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
            If 
[/B]scn=[B][COLOR=#008080]12 [/COLOR]Then    [/B]
[B]
            
[/B]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]>[B][COLOR=#008080]0 [/COLOR]Then   [/B][I][COLOR=#000080]'kirmizi sondur[/COLOR][/I]
[I][COLOR=#000080]
                
[/COLOR][/I][COLOR=#000080][/COLOR][B]Dec [/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            

            If 
[/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR]Then [/B]scn=[B][COLOR=#008080]13 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
           If 
[/B]scn=[B][COLOR=#008080]13 [/COLOR]Then             [/B][I][COLOR=#000080]'kirmizi art[/COLOR][/I]
[I][COLOR=#000080]
               
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

               [B]If [/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]<intenred [B]Then[/B]
[B]
                Inc 
[/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            

            If 
[/B]dutys[[B][COLOR=#008080]2[/COLOR][/B][COLOR=#008080][/COLOR]]=intenred [B]Then [/B]scn=[B][COLOR=#008080]14 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
        

          If 
[/B]scn=[B][COLOR=#008080]14 [/COLOR]Then       [/B][I][COLOR=#000080]'mavi azal[/COLOR][/I]
[I][COLOR=#000080]
            
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

            [B]If [/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]>[B][COLOR=#008080]0 [/COLOR]Then[/B]
[B]
                Dec 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            

            If 
[/B]dutys[[B][COLOR=#008080]0[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR]Then [/B]scn=[B][COLOR=#008080]15 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
           If 
[/B]scn=[B][COLOR=#008080]15 [/COLOR]Then       [/B][I][COLOR=#000080]'yesil azal[/COLOR][/I]
[I][COLOR=#000080]
               
[/COLOR][/I][COLOR=#000080][/COLOR]cycle=fade

               [B]If [/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]>[B][COLOR=#008080]0 [/COLOR]Then[/B]
[B]
                Dec 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]

            [B]EndIf[/B]
[B]
            

            If 
[/B]dutys[[B][COLOR=#008080]1[/COLOR][/B][COLOR=#008080][/COLOR]]=[B][COLOR=#008080]0 [/COLOR]Then [/B]scn=[B][COLOR=#008080]0 [/COLOR][/B][COLOR=#008080][/COLOR]:cycle=waitt :[B]GoTo [/B]dev

        [B]EndIf[/B]
[B]
    EndIf


　

　

   Wend
[/B]
 
Moderatör tarafında düzenlendi:
Sanırsam, Basic dilini çok seviyorsun MAIN_LOOP... :eek:
 
Cevap yazmak için giriş yap yada kayıt ol.

Yeni mesajlar

Forum istatistikleri

Konular
130,294
Mesajlar
935,243
Kullanıcılar
453,548
Son üye
Han54321

Yeni konular

Çevrimiçi üyeler

Toplam: 1,237 (Kullanıcı: 48, ziyaretçi: 1,189)
Geri
Üst