Sayfa 2 / 2 İlkİlk 12
18 sonuçtan 11 - 18 arası sonuçlar
  1. #11

    Varsayılan

    Orkinoz : Kayıt numarası = BWG281

    Kod:
    ' Microsoft Small Basic Programı
    ' Osman Altıparmak (oasman@mail.com)
    ' Grafik örneği
    GraphicsWindow.Width = 1000
    GraphicsWindow.Height = 500
    GraphicsWindow.Title = "Orkinoz"
    GraphicsWindow.Top = 100
    GraphicsWindow.Left = 100
    GraphicsWindow.CanResize = 0
    GraphicsWindow.BackgroundColor = "SkyBlue"
    ' Renkler
    Gri1 = GraphicsWindow.GetColorFromRGB(84,84,84)
    Gri2 = GraphicsWindow.GetColorFromRGB(107,107,107)
    Gri3 = GraphicsWindow.GetColorFromRGB(114,114,114)
    Gri4 = GraphicsWindow.GetColorFromRGB(124,124,124)
    Gri5 = GraphicsWindow.GetColorFromRGB(117,117,117)
    Gri6 = GraphicsWindow.GetColorFromRGB(134,134,134)
    Gri7 = GraphicsWindow.GetColorFromRGB(144,144,144)
    ' Kuyruk kanatları
    GraphicsWindow.BrushColor = Gri1
    GraphicsWindow.FillTriangle(230,180,280,250,250,250)
    GraphicsWindow.FillTriangle(230,320,280,250,250,250)
    ' Kuyruk
    GraphicsWindow.FillTriangle(250,250,350,213,350,287)
    ' Sırt kanat
    GraphicsWindow.FillTriangle(400,195,450,185,450,300)
    ' Alt kanat
    GraphicsWindow.FillTriangle(350,300,400,310,450,200)
    ' Gövde
    GraphicsWindow.BrushColor = Gri2
    GraphicsWindow.FillEllipse(300,200,300,100)
    GraphicsWindow.BrushColor = Gri3
    GraphicsWindow.FillEllipse(290,215,290,70)
    GraphicsWindow.BrushColor = Gri4
    GraphicsWindow.FillEllipse(310,230,250,40)
    ' Yan kanat
    GraphicsWindow.BrushColor = Gri1
    GraphicsWindow.FillTriangle(435,230,440,260,480,245)
    GraphicsWindow.FillTriangle(440,235,435,265,480,250)
    ' Kafa
    GraphicsWindow.BrushColor = Gri5
    GraphicsWindow.FillEllipse(510,220,80,60)
    GraphicsWindow.BrushColor = Gri6
    GraphicsWindow.FillEllipse(520,220,70,60)
    GraphicsWindow.BrushColor = Gri7
    GraphicsWindow.FillEllipse(530,220,65,60)
    ' Göz
    GraphicsWindow.BrushColor = "White"
    GraphicsWindow.FillEllipse(555,240,10,10)
    GraphicsWindow.BrushColor = "Black"
    GraphicsWindow.FillEllipse(560,242,5,5)
    ' Ağız
    GraphicsWindow.FillTriangle(590,269,594,263,560,266)

  2. #12

    Varsayılan

    Bir Animasyon:

    Derin sularda büyük macere

    Kayıt kodu = DPN247

    Microsoft Small Basic kurulu olmayanlar için derlenmiş programın indirme linki : http://s7.dosya.tc/server3/v6xusz/De...acera.rar.html

    Kod:
    'Microsoft Small Basic Programı
    'Osman Altıparmak (oasman@mail.com)
    'Grafik örneği
    GraphicsWindow.Width = 800
    GraphicsWindow.Height = 400
    Mavi = GraphicsWindow.GetColorFromRGB(0,127,255)
    GraphicsWindow.BackgroundColor = Mavi
    GraphicsWindow.Title = "Derin denizlerde yüzen bir balığın inanılmaz hikayesi"
    GraphicsWindow.CanResize = "False"
    
    
    B = 2
    While B < 100
      y1 = Math.GetRandomNumber(300)
      y = 1 + y1
      For x = -170 To 800 Step 5
        Gri =GraphicsWindow.GetColorFromRGB(110,110,110)
        GraphicsWindow.BrushColor = Gri
        'Sırt ve alt kanatlar
        GraphicsWindow.FillRectangle(x+60,y-2,20,5)
        GraphicsWindow.FillRectangle(x+60,y+36,20,5)
        'Kuyruk kanatları
        GraphicsWindow.FillTriangle(x,y-5,x+5,y+20,x+20,y+20)
        GraphicsWindow.FillTriangle(x,y+45,x+5,y+20,x+20,y+20)
        'Kuyruk
        GraphicsWindow.FillTriangle(x+30,y+10,x+31,y+30,x+5,y+20)
        For x2 = 1 To 40 Step 2
          'Gövde
          Gri2 = GraphicsWindow.GetColorFromRGB(100+x2,100+x2,100+x2)
          GraphicsWindow.BrushColor = Gri2
          GraphicsWindow.FillEllipse(x+20+x2,y+(x2/2),(140)-x2,40-x2)
        EndFor
        For i = x+1 To x+15 Step 3
          'Solungaçlar
          GraphicsWindow.PenColor = Gri 
          GraphicsWindow.DrawEllipse(i+120,y+8,20,22)
        EndFor
        'Kafa
        Gri3 = GraphicsWindow.GetColorFromRGB(122,122,122)
        GraphicsWindow.BrushColor = Gri3
        GraphicsWindow.FillTriangle(x+150,y+9,x+147,y+25,x+167,y+20)
        GraphicsWindow.FillTriangle(x+150,y+30,x+145,y+20,x+167,y+22)
        GraphicsWindow.FillEllipse(x+130,y+7,25,25)
        GraphicsWindow.BrushColor = "White"
        GraphicsWindow.FillEllipse(x+140,y+15,5,5)
        GraphicsWindow.BrushColor = "Black"
        GraphicsWindow.FillEllipse(x+141,y+16,3,3)
        'Yan kanat
        GraphicsWindow.BrushColor = Gri
        GraphicsWindow.FillTriangle(x+90,y+10,x+93,y+25,x+110,y+19)
        GraphicsWindow.FillTriangle(x+90,y+30,x+93,y+20,x+110,y+21)
        Program.Delay(200)
        GraphicsWindow.Clear()
      EndFor
    
    
      'Geri Dönüş
    
    
      y2 = Math.GetRandomNumber(300)
      y = 1+y2
      For x = 850 To -170 Step -5
        Gri =GraphicsWindow.GetColorFromRGB(110,110,110)
        GraphicsWindow.BrushColor = Gri
        'Sırt ve alt kanatlar
        GraphicsWindow.FillRectangle(x+85,y-2,20,5)
        GraphicsWindow.FillRectangle(x+85,y+36,20,5)
        'Kuyruk kanatları
        GraphicsWindow.FillTriangle(x+163,y-5,x+158,y+20,x+143,y+20)
        GraphicsWindow.FillTriangle(x+163,y+45,x+158,y+20,x+143,y+20)
        'Kuyruk
        GraphicsWindow.FillTriangle(x+133,y+10,x+134,y+30,x+158,y+20)
        For x2 = 1 To 40 Step 2
          'Gövde
          Gri2 = GraphicsWindow.GetColorFromRGB(100+x2,100+x2,100+x2)
          GraphicsWindow.BrushColor = Gri2
          GraphicsWindow.FillEllipse(x+x2,y+(x2/2),(140)-x2,40-x2)
        EndFor
        For i = x+1 To x+15 Step 3
          'Solungaçlar
          GraphicsWindow.PenColor = Gri 
          GraphicsWindow.DrawEllipse(i+5,y+8,20,22)
        EndFor
        'Kafa
        Gri3 = GraphicsWindow.GetColorFromRGB(122,122,122)
        GraphicsWindow.BrushColor = Gri3
        GraphicsWindow.FillTriangle(x+8,y+9,x+6,y+25,x-10,y+20)
        GraphicsWindow.FillTriangle(x+8,y+30,x+4,y+20,x-10,y+22)
        GraphicsWindow.FillEllipse(x+4,y+7,25,25)
        GraphicsWindow.BrushColor = "White"
        GraphicsWindow.FillEllipse(x+13,y+15,5,5)
        GraphicsWindow.BrushColor = "Black"
        GraphicsWindow.FillEllipse(x+14,y+16,3,3)
        'Yan kanat
        GraphicsWindow.BrushColor = Gri
        GraphicsWindow.FillTriangle(x+70,y+10,x+67,y+25,x+50,y+19)
        GraphicsWindow.FillTriangle(x+70,y+30,x+67,y+20,x+50,y+21)
        Program.Delay(200)
        GraphicsWindow.Clear()
      EndFor
    EndWhile
    En son oasman tarafından düzenlenmiştir: 14.02.2018 12:57

  3. #13

    Varsayılan

    Bir program uzadı uzadıya giderse, program üzerindeki denetiminizi kaybedebilirsiniz. Bunu önlemenin bir yolu programlarınızı bölümler şeklinde yazmak. Programlarınızı küçük bölümlere ayırmanızı sağlayan yapının adı "Sub"

    "Sub" ve bölüm adı ile başlayan bir bölüm "EndSub" ile sonlandırılır ve böyle o bölümün nerede bittiği anlaşılır. "Sub" bölümleri birer yeni eklenmiş kod gibi de çalışır. Tanımladığınız bir "Sub" bölümünü programın herhangi bir kısmından ismi ile çağırabilirsiniz.

    Bölümün adı "Sub buneböyle" olsun,. O bölümü kullanmak istediğiniz yerde "buneböule()" şeklinde ekleyebilirsiniz.

    Örnek 1 :
    Kod:
    Sub Olay1  TextWindow.ForegroundColor = "red"
      TextWindow.WriteLine("Merhaba")
    EndSub
    
    
    Sub Olay2
      TextWindow.ForegroundColor = "blue"
      TextWindow.WriteLine("Merhaba")
    EndSub
    
    
    Sub Olay3
      TextWindow.ForegroundColor = "green"
      TextWindow.WriteLine("Merhaba")
    EndSub
    
    
    Olay3()
    Olay1()
    Olay2()
    Bir başka örnek (Örnek 2) :

    Kod:
    Sub Kırmızı_gülle  GraphicsWindow.BrushColor = "red"
      GraphicsWindow.FillEllipse(x,y,20,20)
    EndSub
    
    
    Sub Yeşil_kare
      GraphicsWindow.BrushColor = "green"
      GraphicsWindow.FillRectangle(x,y,20,20)
    EndSub
    
    
    Sub Mavi_üçgen
      GraphicsWindow.BrushColor = "blue"
      GraphicsWindow.FillTriangle(x,y,x+10,y+20,x-10,y+20)
    EndSub
    
    
    GraphicsWindow.Top = 100
    GraphicsWindow.Left = 100
    GraphicsWindow.Width = 600
    GraphicsWindow.Height = 400
    
    
    y = 200
    For x = 1 To 600
      GraphicsWindow.Clear()
      If x > 1 and x < 200 Then 
        Kırmızı_gülle()
      ElseIf x < 400 and x > 200 then
        Yeşil_kare()
      ElseIf x > 400 then
        Mavi_üçgen()
      EndIf
      Program.Delay(100) 
    EndFor

  4. #14

    Varsayılan

    Small Basic'te Animasyonlar geliştirmenin farklı ve tabii kolaylaştırılmış bir yöntemi var. "Shapes" kod'u (nesnesi) ve içerdiği metodlar işlemciye yük bindirmeden çizim veya desteklenen resim dosyaları üzerinde işlem yapmanızı sağlıyor.

    Kod:
    GraphicsWindow.Top = 100GraphicsWindow.Left = 150
    GraphicsWindow.Width = 1000
    GraphicsWindow.Height = 550
    
    
    Top = Shapes.AddEllipse(50,50)
    Shapes.Move(Top,0,200) 
    Shapes.Animate(Top,1000,200,6000)

  5. #15

    Varsayılan

    Hamsi (Animasyon) Kayıt Kodu : FXJ291

    Bu örnekte alt yordamlar kullandım.
    Sub ve bölüm adı ile başlayan ve EndSub ile biten ve tekrardan yazmaya gerek kalmadan ismi ve isme eklenen parantezler ile çağrılarak, programın herhangi bir bölümünde yeniden kullanılabilen yapılar. Ben bu örnekte çoğaltmak amaçlı kullandım.

    İlave olarak disiler kullandım. Diziler sıralı işlemler yapmaya izin veriyor. Diziler Small Basic'te Bir_isim[x] şeklinde tanımlanıyor ve yine o şekilde dizi içindeki elemanlar çağrılıyor. (x dizi içinde bir sıra temsil ediyor)

    ' Hamsi.sb
    ' oasman oasman@mail.com
    ' Animasyon (Akvaryum)
    ' 31 Mart 2018


    ' Grafik pencere


    GraphicsWindow.Top = 100
    GraphicsWindow.Left = 200
    GraphicsWindow.CanResize = "false"
    GraphicsWindow.Width = 1000
    GraphicsWindow.Height = 550
    Mavi = GraphicsWindow.GetColorFromRGB(34,157,255)
    GraphicsWindow.BackgroundColor = Mavi


    ' İlave renkler
    Gri1 = GraphicsWindow.GetColorFromRGB(117,146,147)
    Gri2 = GraphicsWindow.GetColorFromRGB(127,156,157)
    Gri3 = GraphicsWindow.GetColorFromRGB(137,166,178)


    ' Sağa dönük balık
    Sub FishReight
    ' Kuyruk
    GraphicsWindow.BrushColor = Gri1
    GraphicsWindow.FillTriangle(x+5,y+8, x-10,y+15, x-10,y)
    ' Gövde
    GraphicsWindow.BrushColor = Gri2
    GraphicsWindow.FillEllipse(x,y,60,15)
    ' Baş
    GraphicsWindow.BrushColor = Gri3
    GraphicsWindow.FillEllipse(x+40,y+2,17,10)
    ' Göz
    GraphicsWindow.BrushColor = "Black"
    GraphicsWindow.FillEllipse(x+50,y+5,2,2)
    EndSub


    ' Sola dönük balık
    Sub FishLeft
    ' Kuyruk
    GraphicsWindow.BrushColor = Gri1
    GraphicsWindow.FillTriangle(x+55,y+8, x+70,y+15, x+70,y)
    ' Gövde
    GraphicsWindow.BrushColor = Gri2
    GraphicsWindow.FillEllipse(x,y,60,15)
    ' Baş
    GraphicsWindow.BrushColor = Gri3
    GraphicsWindow.FillEllipse(x+3,y+2,17,10)
    ' Göz
    GraphicsWindow.BrushColor = "Black"
    GraphicsWindow.FillEllipse(x+10,y+5,2,2)
    EndSub


    ' Sonsuz döngü
    Tekrar :


    ' Rastgele rakamlar
    For x = 1 To 20
    sum1[x] = Math.GetRandomNumber(400)
    sum2[x] = Math.GetRandomNumber(100)
    EndFor
    sum3 = Math.GetRandomNumber(400)


    ' Sağdan sola
    For w = -460 To 1000
    For z = 1 To 20
    y = z * 5 + sum2[z]+sum3
    x = w + sum1[z]
    FishReight()
    EndFor
    Program.Delay(20)
    GraphicsWindow.Clear()
    EndFor


    ' Rastgele rakamlar
    For x = 1 To 20
    sum1[x] = Math.GetRandomNumber(400)
    sum2[x] = Math.GetRandomNumber(100)
    EndFor
    sum3 = Math.GetRandomNumber(400)


    ' Soldan sağa
    For w = 1000 To -460 Step -1
    For z = 1 To 20
    y = z * 5 + sum2[z]+sum3
    x = w + sum1[z]
    FishLeft()
    EndFor
    Program.Delay(20)
    GraphicsWindow.Clear()
    EndFor


    Goto Tekrar
    Animasyonun görüntüsü :
    https://i.hizliresim.com/PlWm8v.png
    En son oasman tarafından düzenlenmiştir: 01.04.2018 00:10

  6. #16

    Varsayılan

    Microsoft Small Basic ile neler yapılabirlir ki ?



    İşte güzel bir örnek : http://www.mediafire.com/file/z1affv...yanus.exe/file

    Programı daha sonra kaldırmak işterseniz, Programlar menüsünde "Uninstall" yazan seçeneği kullanabilirsiniz. Tüm kurulan dosyalar sizin onayınız ile silinir. Bir tek Masaüst simgesi bazı durumlarda silinmemiş olabilir, onu da el ile silersiniz. Programın "Kaynak kodu" program klasörleri arasında "Src" isimli klasör içinde bulunuyor.
    En son oasman tarafından düzenlenmiştir: 11.10.2018 18:20

  7. #17

    Varsayılan

    Düğme ile işlem başlatmak için bir örnek


    Kod:
    GraphicsWindow.Width = "800" 
    GraphicsWindow.Height = "600"
    
    
    Tıkla = Controls.AddButton("Tıkla beni",50,50)
    
    
    Controls.ButtonClicked = Göster
    
    
    Sub Göster
      If Tıkla = Controls.LastClickedButton Then
        GraphicsWindow.ShowMessage("Bu bir Small Basic programı", "Bildiri")
      EndIf
    EndSub

  8. #18

    Varsayılan

    Çok düğmeli bir program


    Kod:
    GraphicsWindow.Width = "800"  
    GraphicsWindow.Height = "600"
    
    
    Tıkla1 = Controls.AddButton("Mavi   ",50,50) 
    Tıkla2 = Controls.AddButton("Kırmızı",50,100) 
    Tıkla3 = Controls.AddButton("Yeşil  ",50,150) 
    Tıkla4 = Controls.AddButton("Sarı   ",50,200) 
    Tıkla5 = Controls.AddButton(" KAPAT ",50,250) 
    
    
    Controls.ButtonClicked = Göster
    
    
    Sub Göster
      If Tıkla1 = Controls.LastClickedButton Then
        GraphicsWindow.BrushColor = "Blue"
        GraphicsWindow.FillRectangle(120,10,670,580) 
      ElseIf Tıkla2 = Controls.LastClickedButton Then
        GraphicsWindow.BrushColor = "Red"
        GraphicsWindow.FillRectangle(120,10,670,580) 
      ElseIf Tıkla3 = Controls.LastClickedButton Then
        GraphicsWindow.BrushColor = "Green"
        GraphicsWindow.FillRectangle(120,10,670,580) 
      ElseIf Tıkla4 = Controls.LastClickedButton Then
        GraphicsWindow.BrushColor = "Yellow"
        GraphicsWindow.FillRectangle(120,10,670,580)
      ElseIf Tıkla5 = Controls.LastClickedButton Then 
        Kapat()
      EndIf
    EndSub
    
    
    Sub Kapat
      Program.End()
    EndSub

Benzer Başlıklar

  1. Small basic ile neler yapılabilir?
    capsaicin tarafından Programlama Dilleri forumunda
    Yanıt: 0
    Son Mesaj: 24.07.2010, 01:39
  2. visual basic te portlara giriş yapmayı bilen var mı!
    FecriAti tarafından Programlama Dilleri forumunda
    Yanıt: 1
    Son Mesaj: 26.06.2005, 19:54
  3. programlamaya giriş
    alone_man19 tarafından Programlama Dilleri forumunda
    Yanıt: 15
    Son Mesaj: 11.02.2005, 00:46
  4. Ders1:C nedir?Programlamaya giriş.
    mortalwind tarafından Programlama Dilleri forumunda
    Yanıt: 7
    Son Mesaj: 29.09.2004, 09:57
  5. Quick-Basic Kursu-Bölüm 1 : QuickBasic'e Giriş
    yemreyan tarafından Programlama Dilleri forumunda
    Yanıt: 3
    Son Mesaj: 12.08.2004, 12:13

Gönderim İzinleri

  • Yeni başlık açamazsınız
  • Yanıt yazamazsınız
  • Eklenti gönderemezsiniz
  • Mesajlarınızı düzenleyemezsiniz
  •