SELECT CASE Uygulaması

Direnç Renk Kodları

 

CLS

BasaDon:
BirinciRenk:

INPUT "1. Rengi giriniz"; renk1$

SELECT CASE renk1$
        CASE "kahverengi"
             Deger1 = 1
        CASE "kirmizi"
             Deger1 = 2
        CASE "turuncu"
             Deger1 = 3
        CASE ELSE
             GOTO BirinciRenk
             
END SELECT

IkinciRenkDuragi:

INPUT "2. Rengi giriniz"; renk2$

SELECT CASE renk2$
        CASE "siyah"
             Deger2 = 0
        CASE "kahverengi"
             Deger2 = 1
        CASE "kirmizi"
             Deger2 = 2
        CASE "turuncu"
             Deger2 = 3
        CASE ELSE
                GOTO IkinciRenkDuragi
           
END SELECT

UcuncuRenkDuragi:

INPUT "3. Rengi giriniz"; renk3$

SELECT CASE renk3$
        CASE "siyah"
             Deger3 = 1
        CASE "kahverengi"
             Deger3 = 10
        CASE "kirmizi"
             Deger3 = 100
        CASE "turuncu"
             Deger3 = 1000
        CASE ELSE
                GOTO UcuncuRenkDuragi
           
END SELECT

PRINT " Girdiginiz "; renk1$; renk2$; renk3$; " renkli direnc degeri "; Deger1; Deger2 * Deger3
PRINT " Girdiginiz "; renk1$; " "; renk2$; " "; renk3$; " renkli direnc degeri "; ((Deger1 * 10) + Deger2) * Deger3

INPUT " Tekrarlamak Icin (T)"; tekrar$
IF tekrar$ = "T" THEN GOTO BasaDon
 

 

SELECT CASE Uygulaması

 

Yorumunuzu Ekleyin

Yükleniyor...