Bilişim Sınıfı Çalışmaları 4.Ders - Computer Science Class Activities, Lesson 4

                                                

Bilişim Sınıfı Çalışmaları 4.Ders - Computer Science Class Activities, Lesson 4

5.Sınıf:

        
                                                                               6.Sınıf:



    1- Masaüstünde Görevlerim Klasörü Oluştur

    2- İçine Resimlerim Klasörü ve Filmlerim Adında Text Dosyası Oluştur.

    3- Üç Adet Film Adı Gir

    4- Resimlerim Klasörüne Filmlerin Resimlerini İndirip Kopyala

    5- Masaüstündeki Görevlerim Klasörünü Arşive Ekle

    Kullanılacak Resimler:

   Etkinlik Materyallerine Ulaşmak İçin Tıkla

    
Dosya Uzantısı Uygulaması Small Basic Kodları: 

    
' BİLİŞİM TEKNOLOJİLERİ VE YAZILIM DERSİ - 5. SINIF

' Proje Adı: Dosya Uzantısı Öğrenme Uygulaması

' Ekran başlığını ve renklerini ayarlayalım

TextWindow.Title = "Dosya Uzantısı Bulucu"

TextWindow.BackgroundColor = "DarkBlue"

 

' Programın yeniden başlayacağı noktayı belirliyoruz (Etiket)

BaslangicNoktası:

 

TextWindow.Clear() ' Ekranı her yeni aramada temizleyelim

 

' Giriş ekranı tasarımı

TextWindow.ForegroundColor = "Yellow"

TextWindow.WriteLine("       DOSYA UZANTISI BULMA UYGULAMASI            ")

TextWindow.WriteLine("")

 

TextWindow.ForegroundColor = "White"

TextWindow.Write("Lütfen merak ettiğiniz uzantıyı yazın (Örn: mp3, jpg, txt, pdf): ")

 

' Kullanıcıdan uzantıyı alıyoruz

uzanti = TextWindow.Read()

 

' Küçük-büyük harf hatasını engellemek için girdiyi küçük harfe çeviriyoruz

uzanti_kucuk = Text.ConvertToLowerCase(uzanti)

 

TextWindow.WriteLine("")

TextWindow.ForegroundColor = "Cyan"

 

' Karar yapısı (If - ElseIf - Else) ile uzantıları kontrol ediyoruz

If uzanti_kucuk = "txt" Then

  TextWindow.WriteLine("-> Bu bir METİN (Yazı) dosyasıdır.")

  TextWindow.WriteLine("Not Defteri uygulaması ile açabilirsin.")

 

ElseIf uzanti_kucuk = "jpg" Or uzanti_kucuk = "png" Or uzanti_kucuk = "gif" Then

  TextWindow.WriteLine("-> Bu bir GÖRSEL (Resim/Fotoğraf) dosyasıdır.")

  TextWindow.WriteLine("Fotoğraf görüntüleyiciler ile açabilirsin.")

 

ElseIf uzanti_kucuk = "mp3" Or uzanti_kucuk = "wav" Then

  TextWindow.WriteLine("-> Bu bir SES (Müzik) dosyasıdır.")

  TextWindow.WriteLine("Müzik çalar uygulamaları ile dinleyebilirsin.")

 

ElseIf uzanti_kucuk = "mp4" Or uzanti_kucuk = "avi" Then

  TextWindow.WriteLine("-> Bu bir VİDEO (Film) dosyasıdır.")

  TextWindow.WriteLine("Video oynatıcılar ile izleyebilirsin.")

 

ElseIf uzanti_kucuk = "pdf" Then

  TextWindow.WriteLine("-> Bu bir BELGE (E-Kitap) dosyasıdır.")

  TextWindow.WriteLine("Tarayıcın veya Adobe Reader ile açabilirsin.")

 

ElseIf uzanti_kucuk = "exe" Then

  TextWindow.ForegroundColor = "Red"

  TextWindow.WriteLine("-> Bu bir UYGULAMA (Program veya Oyun) dosyasıdır!")

  TextWindow.WriteLine("Güvenmediğin kaynaklardan gelen .exe dosyalarını açmamalısın.")

 

Else

  ' Listede olmayan bir uzantı girilirse çalışacak kısım

  TextWindow.ForegroundColor = "Red"

  TextWindow.WriteLine("Üzgünüm, '" + uzanti + "' uzantısını henüz öğrenemedim.")

  TextWindow.WriteLine("Lütfen bildiğiniz popüler uzantıları deneyin!")

EndIf

 

' YENİDEN DENEME / DEVAM ETME BÖLÜMÜ

TextWindow.WriteLine("")

TextWindow.ForegroundColor = "Magenta"

TextWindow.Write("Yeni bir uzantı aramak istiyor musunuz? (E/H): ")

cevap = TextWindow.Read()

cevap_kucuk = Text.ConvertToLowerCase(cevap)

 

' Eğer kullanıcı "e" (Evet) yazarsa başlangıç etiketine geri gönderiyoruz

If cevap_kucuk = "e" Or cevap_kucuk = "evet" Then

  Goto BaslangicNoktası

EndIf

 

' "h" veya başka bir şey yazılırsa program sonlanır

TextWindow.ForegroundColor = "White"

TextWindow.WriteLine("")

TextWindow.WriteLine("Program kapatılıyor. İyi dersler dileriz!")

Program.Delay(2000) ' 2 saniye bekleyip otomatik kapatır