Excel'de Taş Kağıt Makas

Dim Choice(1 To 3) As String
Dim YourChoice As String

Sub Rock()

    Range("C4").Value = "Rock"
    YourChoice = "Rock"
   
    PC_Choice
   
End Sub

Çocuklar için kodlama uygulamaları

Aileler genellikle çocuklarının tabletle çok fazla oynamalarından şikayetçidir. Çocukların bu ilgisini fırsata çevirip tabletle daha kaliteli zaman geçirmelerini sağlayabiliriz. Aşağıda Google Play Store'daki en iyi kodlama uygulamalarını kolaydan zora doğru sıralamaya çalıştım. Kabaca; ilk 2 uygulama ilkokular, son 2 uygulama ortaokullar için uygun gözükse de öğrencinin seviyesine göre değişkenlik gösterebilir.

Coding Games For Kids - Learn To Code With Play

SpriteBox : Code Hour

Lightbot : Code Hour

Coddy: World on Algorithm Free

Excel'de dijital saat kodlama

Sub Draw()

Dim TimeString As String
Dim WhichOrder(9) As Byte
WhichOrder(1) = 1: WhichOrder(2) = 10: WhichOrder(3) = 18: WhichOrder(4) = 20: WhichOrder(5) = 29: WhichOrder(6) = 37: WhichOrder(7) = 39: WhichOrder(8) = 48

Do
    TimeString = Time
   
    For n = 1 To 8
   
        If (n <> 3 And n <> 6) Then
            DrawNumber CByte(Mid(TimeString, n, 1)), WhichOrder(n)
        Else
            DrawPoint WhichOrder(n)
        End If
   
    Next n
    Range("A18").Select
    Application.Wait (Now + TimeValue("0:00:01"))
    seconds = seconds + 1
Loop Until (seconds = 60)
   
End Sub