27 Aralık 2017 Çarşamba

Ensedeki Zımbırtı

 

Ensesindeki titreşimle uyandı sabah, kalkma vakti gelmişti. Yüzünü yıkadıktan sonra kahvaltısını yapmaya başladı. Yapay meyve suyunu yudumlarken gözü yerdeki elbiseye takıldı. Dün gece barda tanıştığı hatunun elbisesi. Hala uyuyor olmalıydı. Acaba bu ilişkisi ne kadar sürecekti?

15 Aralık 2017 Cuma

Engelden kaçan robot


Arduino Kod:

#include <Servo.h>
#include <NewPing.h>

Servo myservo;

int ENABLE_A = 11;
int pin_a1 = 9;
int pin_a2 = 8;

int ENABLE_B = 5;
int pin_b1 = 6;
int pin_b2 = 7;

int SENSOR_DISTANCE;
int LEFT_SENSOR_DISTANCE;
int RIGHT_SENSOR_DISTANCE;
int LFT_SNZ_DIS;
int RGT_SNZ_DIS;
int rastgele;

13 Aralık 2017 Çarşamba

Ç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


11 Aralık 2017 Pazartesi

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