Cevap: Basic hakkında  05 Mayıs 2019, Saat 12:36
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 #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Ç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 #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Ç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 #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Ç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 #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Ç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 #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Ç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 #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  Dün, Saat 15:55
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 #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ı
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