Basic hakkında  28 Nisan 2019, Saat 13:07
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Basic hakkında

 
Yorum #1
Konu engerek tarafından (28 Nisan 2019 Saat 22:17 ) değiştirilmiştir.

Windows 10 ile birlikte Basic öldü. Artık Basic derleyicilerin çoğu ya hiç, yada düzgün çalışmıyor. Destek te verilmiyor ve bazıları Arşivler üzerinden indirilebiliyor.

Alternatif (eşdeğer) olarak "Uygulama Mağazası"n da (Microsoft Store'da) Small Basic var. Kod yazım şekli Basic'ten fazla C# andırıyor. Editör ve derleyiciden oluşuyor. Form desteği yok. Ücretsiz ve kayıtsız indirilebiliyor. C# programlarında olduğu gibi programlar Netframework 4.0 ve üzeri sürümü ile çalışıyor.

Bir kaç örnek ile nasıl bir şey olduğunu göstermek isterim.

Komut satırı ile çalışan metinsel programlar
Kod:
TextWindow.Write("Merhaba Dünya !")
Bu program tek satırda bir metin çıktısı verir ve bir sonraki işlem de yine aynı satırdan devam eder.

Kod:
TextWindow.WriteLine("Merhaba Dünya !")
Bu program tek bir stırda bir metin çıktısı verir ve bir sonraki işlem bir alt satırdan devam eder.

Kod:
TextWindow.ForegroundColor = "red"
TextWindow.WriteLine("Merhaba Dünya !")
Bu program üstteki metin çıktısının aynısını kırmızı renk'te verir.

Grafikli programlar
Kod:
GraphicsWindow.PenColor = "red"
GraphicsWindow.DrawEllipse(200,100,100,100)
Bu program grafik destekleyen bir pencereye kırmızı bir daire çizer.

Kod:
GraphicsWindow.PenColor = "blue"
GraphicsWindow.DrawRectangle(200,100,100,100)
GraphicsWindow.BrushColor = "red"
GraphicsWindow.FillRectangle(200,100,100,100)
Bu program grafik destekleyen bir pencereye kenarları mavi ile çizilmiş ve içi kırmızıya boyanmış bir kare çizer.

Small Basic eğlence amaçlı kullanılabilir.
Windows 10 ile birlikte Basic öldü. Artık Basic derleyicilerin çoğu ya hiç, yada düzgün çalışmıyor. Destek te verilmiyor ve bazıları Arşivler üzerinden indirilebiliyor.

Alternatif (eşdeğer) olarak "Uygulama Mağazası"n da (Microsoft Store'da) Small Basic var. Kod yazım şekli Basic'ten fazla C# andırıyor. Editör ve derleyiciden oluşuyor. Form desteği yok. Ücretsiz ve kayıtsız indirilebiliyor. C# programlarında olduğu gibi programlar Netframework 4.0 ve üzeri sürümü ile çalışıyor.

Bir kaç örnek ile nasıl bir şey olduğunu göstermek isterim.

Komut satırı ile çalışan metinsel programlar
Kod:
TextWindow.Write("Merhaba Dünya !")
Bu program tek satırda bir metin çıktısı verir ve bir sonraki işlem de yine aynı satırdan devam eder.

Kod:
TextWindow.WriteLine("Merhaba Dünya !")
Bu program tek bir stırda bir metin çıktısı verir ve bir sonraki işlem bir alt satırdan devam eder.

Kod:
TextWindow.ForegroundColor = "red"
TextWindow.WriteLine("Merhaba Dünya !")
Bu program üstteki metin çıktısının aynısını kırmızı renk'te verir.

Grafikli programlar
Kod:
GraphicsWindow.PenColor = "red"
GraphicsWindow.DrawEllipse(200,100,100,100)
Bu program grafik destekleyen bir pencereye kırmızı bir daire çizer.

Kod:
GraphicsWindow.PenColor = "blue"
GraphicsWindow.DrawRectangle(200,100,100,100)
GraphicsWindow.BrushColor = "red"
GraphicsWindow.FillRectangle(200,100,100,100)
Bu program grafik destekleyen bir pencereye kenarları mavi ile çizilmiş ve içi kırmızıya boyanmış bir kare çizer.

Small Basic eğlence amaçlı kullanılabilir.

Beğen Herkül bunu beğendi.

 Alıntı
Cevap: Basic hakkında  28 Nisan 2019, Saat 22:16
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #2

Grafik destekleyen pencere üzerinde ayarlar yapılabiliyor. Grafik pencereye yazılar yazmakta mümkün. Windows'un desteklediği yazı tiplerini de kullanabiliyoruz. Aşağıdaki örnek ile bunu deneyebiliriz.
Kod:
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.Title = "Garip Bir Uygulama"
GraphicsWindow.Top = 50
GraphicsWindow.Left = 100
GraphicsWindow.BackgroundColor = "lightblue"
GraphicsWindow.PenColor = "red"
GraphicsWindow.PenWidth = 10
GraphicsWindow.DrawRectangle(200,100,400,70)
GraphicsWindow.FontName = "Bauhaus 93 Normal"
GraphicsWindow.FontSize = 40
GraphicsWindow.DrawText(230,110,"Merhaba Dünya !")


Beğen Herkül bunu beğendi.
 Alıntı
Cevap: Basic hakkında  28 Nisan 2019, Saat 22:30
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #3

Editörden bir Ekran görüntüsü.


Beğen Herkül bunu beğendi.
 Alıntı
Cevap: Basic hakkında  29 Nisan 2019, Saat 10:32
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #4

Üç boyutlu görüntü çizizimi denemesi



 Alıntı
Cevap: Basic hakkında  29 Nisan 2019, Saat 20:11
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #5
Konu engerek tarafından (29 Nisan 2019 Saat 20:14 ) değiştirilmiştir.

Komutsatırı'nın rengini ve metin rengini değiştiren program. (Program kapandıktan sonra renkler yine eski haline döner.)



NOT : Komutsatırı tüm renkleri desteklemiyor.



 Alıntı
Cevap: Basic hakkında  30 Nisan 2019, Saat 08:44
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #6

Değişkenler ile denemeler yapalım.
Aşağıdaki örnek üzerinde değişiklikler yaparak, Small Basic'in değişkenlerle nasıl işlem yaptığını anlayabilirsiniz.



 Alıntı
Cevap: Basic hakkında  30 Nisan 2019, Saat 14:46
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #7

Bir Akvaryum Animasyonu



Kod'ları

Kod:
'   Aquarium

GraphicsWindow.Title = "Aquarium"
GraphicsWindow.Top = 50
GraphicsWindow.Left = 150
GraphicsWindow.Height = 600
GraphicsWindow.Width = 800
GraphicsWindow.BackgroundColor = "lightblue"

Sub sag
  top = Shapes.AddEllipse(50,20)
  mop = Shapes.AddTriangle(10,10,20,20,10,30)
  Shapes.Move(top,20,200)
  Shapes.Move(mop,0,190)
  Shapes.Animate(top,750,200,6000)
  Shapes.Animate(mop,730,190,6000)
EndSub
  
Sub sol
  top = Shapes.AddEllipse(50,20)
  mop = Shapes.AddTriangle(20,10,20,30,10,20)
  Shapes.Move(top,760,200)
  Shapes.Move(mop,800,190)
  Shapes.Animate(top,0,200,6000)
  Shapes.Animate(mop,40,190,6000)
EndSub

yenile:

sag()
Program.Delay(6000)
Shapes.HideShape(top)
Shapes.HideShape(mop)

sol()
Program.Delay(6000)
Shapes.HideShape(top)
Shapes.HideShape(mop)

Goto yenile


 Alıntı
Cevap: Basic hakkında  01 Mayıs 2019, Saat 20:10
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #8

Görüntü İşleme ve Web'e erişim

Bu programımız ile web sayfasından bir resim indirip, boyutunu ekranııza uydurarak görüntüiüyoruz. Olurda bir gün o resim o sayfadan kalkarsa, programımız başka bir resimin adresi ile düzeltilmedikçe, görüntü vermeyecek.

Ekran görüntüsü:


Kaynak Kod:
Kod:
'   Bu bir Small Basic programı.

GraphicsWindow.Title = "Ördek değil örnek bir pıroğram. Sanmayın ki bastığınız yer sade toprak."
GraphicsWindow.Height = 300
GraphicsWindow.Width = 1200
GraphicsWindow.Top = 350
GraphicsWindow.Left = 10
GraphicsWindow.BackgroundColor = "darkred"

Nota =Network.DownloadFile("https://www.jpgcars.com/wp-content/uploads/2019/01/2015-Ferrari-Auto-458-Italia.jpg")
Network.GetWebPageContents(Nota)
GraphicsWindow.DrawResizedImage(Nota,10,10,300,200)


 Alıntı
Cevap: Basic hakkında  02 Mayıs 2019, Saat 15:49
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #9

Müzik

Nota'ları deneyerek, veya QBasic belgelerinden araştırarak öğrenebilirsiniz.

Ekran görüntüsü.



Kod:
'   Müzik çalar programı
'   EMP (engerek music player)


GraphicsWindow.Title = "EMP 'Engerek Media Player'"
GraphicsWindow.Width = 800
GraphicsWindow.Height = 200
GraphicsWindow.Top = 50
GraphicsWindow.Left = 200
GraphicsWindow.BackgroundColor = "Skyblue"

k1 = GraphicsWindow.GetColorFromRGB(64,0,16)
GraphicsWindow.BrushColor = k1
GraphicsWindow.FillRectangle(10,80,80,20)

Sound.PlayMusic("o5 a1 a8 a8 a8 c4 c4 b8 b8 g4 g4 f1 f8 f8 f8 d4 d4 g8 g8 e4 e4")
k2 = GraphicsWindow.GetColorFromRGB(80,0,32)
GraphicsWindow.BrushColor = k2
GraphicsWindow.FillRectangle(100,80,80,20)

Sound.PlayMusic("o5 g1 g1 d8 d8 d8 e4 e4 f8 f8 b4 b4 c1 c8 c8 c8 a4 a4 b8 b8 g4 g4")
k3 = GraphicsWindow.GetColorFromRGB(96,0,48)
GraphicsWindow.BrushColor = k3
GraphicsWindow.FillRectangle(190,80,80,20)


Sound.PlayMusic("o4 a1 a8 a8 a8 c4 c4 b8 b8 g4 g4 f1 f8 f8 f8 d4 d4 g8 g8 e4 e4")
k4 = GraphicsWindow.GetColorFromRGB(112,0,64)
GraphicsWindow.BrushColor = k4
GraphicsWindow.FillRectangle(280,80,80,20)

Sound.PlayMusic("o4 g1 g1 d8 d8 d8 e4 e4 f8 f8 b4 b4 c1 c8 c8 c8 a4 a4 b8 b8 g4 g4")
k5 = GraphicsWindow.GetColorFromRGB(128,0,80)
GraphicsWindow.BrushColor = k5
GraphicsWindow.FillRectangle(370,80,80,20)


Sound.PlayMusic("o3 a1 a8 a8 a8 c4 c4 b8 b8 g4 g4 f1 f8 f8 f8 d4 d4 g8 g8 e4 e4")
k6 = GraphicsWindow.GetColorFromRGB(144,0,96)
GraphicsWindow.BrushColor = k6
GraphicsWindow.FillRectangle(460,80,80,20)

Sound.PlayMusic("o3 g1 g1 d8 d8 d8 e4 e4 f8 f8 b4 b4 c1 c8 c8 c8 a4 a4 b8 b8 g4 g4")
k7 = GraphicsWindow.GetColorFromRGB(160,0,112)
GraphicsWindow.BrushColor = k7
GraphicsWindow.FillRectangle(550,80,80,20)


Sound.PlayMusic("o6 a1 a8 a8 a8 c4 c4 b8 b8 g4 g4 f1 f8 f8 f8 d4 d4 g8 g8 e4 e4")
k8 = GraphicsWindow.GetColorFromRGB(176,0,128)
GraphicsWindow.BrushColor = k8
GraphicsWindow.FillRectangle(640,80,80,20)

Sound.PlayMusic("o6 g1 d8 d8 d8 e4 e4 f8 f8 b4 b4 c1 c8 c8 c8 a4 a4 b8 b8 g4 g4")
k9 = GraphicsWindow.GetColorFromRGB(196,0,144)
GraphicsWindow.BrushColor = k9
GraphicsWindow.FillRectangle(730,80,80,20)


 Alıntı
Cevap: Basic hakkında  04 Mayıs 2019, Saat 16:56
DurumuÇevrimiçi
Yeni Üye
engerek - nickli üyeye ait kullanıcı resmi (Avatar)
UYARI:
Kullanıcıların Profil Bilgileri Ziyaretçilere Kapatılmıştır.

Görmek için Kayıt Olmalısınız

Cevap: Basic hakkında

 
Yorum #10

Kullanıcıdan giriş kabul eden işlemler

Örnek 1: Kullanıcıdan metin girişi
Kod:
TextWindow.WriteLine("Adınız = ")
Adamınteki = TextWindow.Read()
TextWindow.WriteLine("Merhaba"+" "+Adamınteki)
Örnek 2: Kullanıcıdan sayı girişi
Kod:
TextWindow.WriteLine("İki rakamın toplamı")
TextWindow.Write("İlk Rakam = ")
Rakam1 = TextWindow.ReadNumber()
TextWindow.Write("İkinci Rakam = ")
Rakam2 = TextWindow.ReadNumber()
TextWindow.Write("Toplam : ")
TextWindow.WriteLine(Rakam1 + Rakam2)


 Alıntı
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Yukarı Git