Konular

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

Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

16,225 Okunma Henüz yorum yapılmamış 26/10/2009 21:19:24

IF Blok Yapıları

END IF nerelerde kullanılır?

15,300 Okunma Henüz yorum yapılmamış 06/10/2009 18:39:38

DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

15,262 Okunma Henüz yorum yapılmamış 19/10/2009 20:14:19

Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

14,537 Okunma Henüz yorum yapılmamış 20/10/2009 21:15:22

Yükleniyor...