Cevap: Basic hakkında  05 Mayıs 2019, Saat 12:36
DurumuÇevrimdışı
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 #11
Konu engerek tarafından (05 Mayıs 2019 Saat 12:42 ) değiştirilmiştir.

Döngüleri inceleyelim

While döngüsü
Kod:
'   ASCII karakterleri Alfabetik sıralaması

x = 64
While x < 122
  x = x + 1
  Harf = Text.GetCharacter(x)
  TextWindow.Write(" " + Harf)
EndWhile

TextWindow.ReadKey()
Program.End()
For döngüsü
Kod:
TextWindow.Title = "Saçmalık no 1"
TextWindow.BackgroundColor = "blue"
TextWindow.ForegroundColor = "red"

Arif = "Arif olana tarif gerekmez"

BuradanBaşlat:

For x = 0 To 20
  TextWindow.Clear()
  TextWindow.CursorLeft = x*2
  TextWindow.CursorTop = x
  TextWindow.Write(Arif)
  Program.Delay(100)
EndFor

For x = 20 To 0 Step -1
  TextWindow.Clear()
  TextWindow.CursorLeft = x*2
  TextWindow.CursorTop = 20
  TextWindow.Write(Arif)
  Program.Delay(100)
EndFor

y = 0
For x = 20 To 0 Step -1
  TextWindow.Clear()
  y = y + 2
  TextWindow.CursorLeft = y
  TextWindow.CursorTop = x
  TextWindow.Write(Arif)
  Program.Delay(100)
EndFor

For x = 20 To 0 Step -1
  TextWindow.Clear()
  TextWindow.CursorLeft = x*2
  TextWindow.CursorTop = 0
  TextWindow.Write(Arif)
  Program.Delay(100)
EndFor

Goto BuradanBaşlat



 Alıntı
Cevap: Basic hakkında  06 Mayıs 2019, Saat 12:07
DurumuÇevrimdışı
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 #12
Konu engerek tarafından (06 Mayıs 2019 Saat 22:20 ) değiştirilmiştir.

Dosya işlemleri

Bu örnekleri çalıştırmadan önce kayıt etmelisiniz. Çünkü kayıtlı oldukları dizin içinde işlem yapıyorlar.

İlk örneğimiz önce "Kılasör" adında bir klasör oluşturuyor. Ardından klasörün içinne "Mosya.zuzu" isimli bir dosya ekliyor ve "adınızı ve soy adınızı" soruyor. Yazdığınız cevabı "Mosya.zuzu" isimli dosya'ya ekliyor.

Sonra aynı dosyada yazılı olan ilk satırı okuyup, ekrana yansıtıyor.

Kod:
TextWindow.WriteLine("Dosya İşlemleri")
File.CreateDirectory(Program.Directory + "\Kılasör")

fifi = File.GetSettingsFilePath()
didi = File.GetTemporaryFilePath()
TextWindow.WriteLine("Program ayarlarının kayıtlı olduğu dosya = " + fifi)
TextWindow.WriteLine("Program geçici dosyalarının bulunduğu yer = " + didi)

TextWindow.Left = 10
TextWindow.Top = 10
TextWindow.Write("Adınız ve soyadınız = ")
sorgu = TextWindow.Read()
File.WriteContents(Program.Directory + "\Kılasör\Mosya.zuzu", sorgu)

oku = File.ReadLine(Program.Directory + "\Kılasör\Mosya.zuzu", 1)
TextWindow.WriteLine(oku)
İkici örnek sadece önceki yazılan dosyadaki ilk satırı okuyup, ekrana yansıtıyor.

Kod:
oku = File.ReadLine(Program.Directory + "\Kılasör\Mosya.zuzu", 1)
TextWindow.WriteLine(oku)



 Alıntı
Cevap: Basic hakkında  12 Mayıs 2019, Saat 17:55
DurumuÇevrimdışı
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 #13
Konu engerek tarafından (12 Mayıs 2019 Saat 17:56 ) değiştirilmiştir.

Button (Düğme) Kullanımı

Kod:
GraphicsWindow.Show()

Düğme = Controls.AddButton("Button1",50,50)
Controls.ButtonClicked = Köprüden_geçene_kadar_dayı

Sub Köprüden_geçene_kadar_dayı
  Tıkla = Controls.LastClickedButton

  If Tıkla = Düğme Then
    GraphicsWindow.ShowMessage("Merhaba bu bir mesaj", "Bir Mesaj var")
  EndIf

EndSub



 Alıntı
Cevap: Basic hakkında  14 Mayıs 2019, Saat 13:57
DurumuÇevrimdışı
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 #14

Diziler

Diziler kullanılacak veri sayısının artması durumunda işlenmesini kolaylaştırır.

Örnek 1:
Kod:
Renk[1]="Red"
Renk[2]="Blue"
Renk[3]="Green"
Renk[4]= "Yellow"
Renk[5]="Cyan"
For x = 1 To 5
  TextWindow.ForegroundColor = Renk[x]
  TextWindow.WriteLine("Merhaba, benim ile Tavla oynarmısınız ?.")
EndFor
İki boyutlu dizi

Örnek 2:

Kod:
Renk[1]["Ön"] = "Red"
Renk[1]["Arka"] = "Blue"

Renk[2]["Ön"] = "Cyan"
Renk[2]["Arka"] = "Yellow"

Renk[3]["Ön"] = "Yellow"
Renk[3]["Arka"] = "Red"

Renk[4]["Ön"] = "Blue"
Renk[4]["Arka"] = "Cyan"

Renk[5]["Ön"] = "Green"
Renk[5]["Arka"] = "White"

For x = 1 To 5
  TextWindow.ForegroundColor = Renk[x]["Ön"]
  TextWindow.BackgroundColor = Renk[x]["Arka"]
  TextWindow.WriteLine("Engerek zehirli bir Yılan türü")
EndFor


 Alıntı
Cevap: Basic hakkında  15 Mayıs 2019, Saat 09:25
DurumuÇevrimdışı
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 #15

Yığınlar

Yığınlar, dizilerin bir farklı türü.

Kod:
Renk1 = "1=Red;2=Blue;3=Green;4=Yellow;5=Cyan"
Renk2 = "1=Yellow;2=Cyan;3=White;4=Blue;5=Black"

For x = 1 To 5
  TextWindow.ForegroundColor = Renk1[x]
  TextWindow.BackgroundColor = Renk2[x]
  TextWindow.WriteLine("Bu bir yığın örneği")
EndFor


 Alıntı
Cevap: Basic hakkında  16 Mayıs 2019, Saat 12:26
DurumuÇevrimdışı
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 #16

Tam Ekran ve Boyutlandırılımaz Pencere

Kod:
xxx = Desktop.Width
yyy = Desktop.Height

GraphicsWindow.Title = "Tencere Değil Pencere"
GraphicsWindow.Width = xxx
GraphicsWindow.Height = yyy
GraphicsWindow.Left = -10
GraphicsWindow.Top = 0
GraphicsWindow.CanResize = "False"


 Alıntı
Cevap: Basic hakkında  18 Mayıs 2019, Saat 15:55
DurumuÇevrimdışı
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 #17

Sözlük

Small Basic ile çevrim içi bir sözlüğe erişebilir ve İngilizce bir kelimenin anlamını yada bir başka dile çevirisini alabilirsiniz. Tersine başka bir dilden İngilizceye çeviri de mümkün. Türkçe bu diller arasında yer almıyor

Örnek:

Kod:
' Çevrim içi Sözlük

Çevir = Dictionary.GetDefinitionEnglishToFrench("City")
TextWindow.WriteLine(Çevir)


 Alıntı
Cevap: Basic hakkında  21 Mayıs 2019, Saat 16:04
DurumuÇevrimdışı
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 #18

Saat ve Tarih

Sistem saati ve tarihi kullanılarak yapılabilecek işlemlerden örnekler

Örnek 1: Komutsatırında saat ve tarih gösterimi
Kod:
TextWindow.BackgroundColor = "Cyan"
TextWindow.ForegroundColor = "Blue"
TextWindow.Clear()

Başlat:

Tarih = Clock.Date
Gün = Clock.WeekDay
Saat = Clock.Time

TextWindow.WriteLine("Bu gün "+Tarih+" "+Gün)
TextWindow.WriteLine("Saat "+Saat)
Program.Delay(900)
TextWindow.Clear()

Goto Başlat
Örnek 2: Dijital Saat (Grafiksel)
Kod:
GraphicsWindow.Title = "Dijital Saat"
GraphicsWindow.Top = 10
GraphicsWindow.Left = 10
GraphicsWindow.Width = 300
GraphicsWindow.Height = 100
GraphicsWindow.BackgroundColor = "Cyan"
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.FontName = "Courier New"
GraphicsWindow.FontSize = 20

Başlat:

Tarih = Clock.Date
Gün = Clock.WeekDay
Saat = Clock.Time

GraphicsWindow.DrawText(10,10,"Bu gün "+Tarih+" "+Gün)
GraphicsWindow.DrawText(10,50,"Saat "+Saat)
Program.Delay(900)
GraphicsWindow.Clear()

Goto Başlat


 Alıntı
Cevap: Basic hakkında  22 Mayıs 2019, Saat 10:47
DurumuÇevrimdışı
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 #19

Yazı Tipleri (Fontlar)

Small Basic ile grafik ekranda Windows'ta kurulu olan Font'ları kullanabilirsiniz. Aşağıdaki örnek üzerinde nasıl kullanılabildiklerini inceleyebilirsiniz.

Kod:
YazıTipi1 = "Freestyle Script Normal"
YazıTipi2 = "Jokerman Normal"
YazıTipi3 = "Lucida Sans"
Kalın     = GraphicsWindow.FontBold
Yatık     = GraphicsWindow.FontItalic
Metin     = "Hello World !"



GraphicsWindow.Title = "Yazı tipleri bir başkadır Small Basic ile"
GraphicsWindow.BackgroundColor = "LightSteelBlue"
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600

GraphicsWindow.FontName = YazıTipi1
GraphicsWindow.BrushColor = "DarkRed"
GraphicsWindow.FontSize = 30
GraphicsWindow.DrawText(10,10,Metin)

GraphicsWindow.FontName = YazıTipi1+Kalın
GraphicsWindow.DrawText(250,10,Metin)

GraphicsWindow.FontName = YazıTipi1+Yatık
GraphicsWindow.FontBold = "False"
GraphicsWindow.FontItalic = "True"
GraphicsWindow.DrawText(500,10,Metin)


GraphicsWindow.FontName = YazıTipi2
GraphicsWindow.BrushColor = "Blue"
GraphicsWindow.FontSize = 30
GraphicsWindow.DrawText(10,100,Metin)

GraphicsWindow.FontName = YazıTipi2+Kalın
GraphicsWindow.FontItalic = "False"
GraphicsWindow.FontBold = "True"
GraphicsWindow.DrawText(250,100,Metin)

GraphicsWindow.FontName = YazıTipi2+Yatık
GraphicsWindow.FontItalic = "True"
GraphicsWindow.FontBold = "False"
GraphicsWindow.DrawText(500,100,Metin)



GraphicsWindow.FontName = YazıTipi3
GraphicsWindow.BrushColor = "Green"
GraphicsWindow.FontItalic = "False"
GraphicsWindow.FontBold = "False"
GraphicsWindow.FontSize = 30
GraphicsWindow.DrawText(10,210,Metin)

GraphicsWindow.FontName = YazıTipi3+Kalın
GraphicsWindow.FontItalic = "False"
GraphicsWindow.FontBold = "True"
GraphicsWindow.DrawText(250,210,Metin)

GraphicsWindow.FontName = YazıTipi3+Yatık
GraphicsWindow.FontItalic = "True"
GraphicsWindow.FontBold = "False"
GraphicsWindow.DrawText(500,210,Metin)


GraphicsWindow.FontName = "Courier New"
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.FontSize = 40
GraphicsWindow.FontItalic = "False"
GraphicsWindow.FontBold = "False"
GraphicsWindow.DrawText(10,310,Metin)

GraphicsWindow.FontName = "Courier New"
GraphicsWindow.FontSize = 40
GraphicsWindow.FontItalic = "False"
GraphicsWindow.FontBold = "True"
GraphicsWindow.DrawText(10,410,Metin)

GraphicsWindow.FontName = "Courier New"
GraphicsWindow.FontSize = 40
GraphicsWindow.FontItalic = "True"
GraphicsWindow.FontBold = "False"
GraphicsWindow.DrawText(10,510,Metin)


 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