Small Basic Dijital Saat Yapımı Kodları

Çocuklar için kod yazmak çok eğlencelidir bu yüzden Microsoft, Small Basic diye bir uygulama yaptı bu uygulama çocukların özgürce kodlama yapmasını sağlıyor o yüzden bende yeni bir seriye başlamaya karar verdim verdiğim karar umarım faydalı olur ve işinizi görür şimdi uzun ve sıkıcı kod satırlarına geçelim

GraphicsWindow.Width = 500

GraphicsWindow.Height = 80

GraphicsWindow.Left = (Desktop.Width / 2) - (GraphicsWindow.Width / 2)

GraphicsWindow.Top = (Desktop.Height / 2) - (GraphicsWindow.Height / 2)

GraphicsWindow.CanResize = "False"

GraphicsWindow.Title = "Dijital Saat"

GraphicsWindow.BackgroundColor = "Black"

GraphicsWindow.BrushColor = "Green"

GraphicsWindow.FontName = "Times New Roman"

Timer.Interval = 1000

Timer.Tick = OnTick

Sub OnTick

  GraphicsWindow.Clear()

  GraphicsWindow.FontSize = 40

  If Clock.Hour > 12 Then

    hour = Clock.Hour - 12

    amPM = "Öğleden Sonra"

  Else

    hour = Clock.Hour

    amPM = "Öğleden Önce"

  EndIf

  If Clock.Minute > 9 Then

    If Clock.Second > 9 Then

      GraphicsWindow.DrawText(0, 0, hour + ":" + Clock.Minute + ":" + Clock.Second + " " + amPM)

    Else

      GraphicsWindow.DrawText(0, 0, hour + ":" + Clock.Minute + ":0" + Clock.Second + " " + amPM)

    EndIf

  Else

    If Clock.Second > 9 Then

      GraphicsWindow.DrawText(0, 0, hour + ":0" + Clock.Minute + ":" + Clock.Second + " " + amPM)

    Else

      GraphicsWindow.DrawText(0, 0, hour + ":0" + Clock.Minute + ":0" + Clock.Second + " " + amPM)

    EndIf

  EndIf

GraphicsWindow.FontSize = 20

  GraphicsWindow.DrawText(0, 50, Clock.WeekDay + " " + Clock.Date)

EndSub

Yukarıda gördüğünüz kod satırlarında sarıyla boyadığım yerleri kendi zevkinize göre değiştirebilirsiniz bir sonraki yazımızda görüşmek üzere :)

#SmallBasicteKodYazıYorum