Stap 3: Programmeren van de klok
Geweldig! Opgeslagen me een hoop tijd. Nu zou mijn script moeten enkel verwijst naar het stuurprogramma en bepalen welke Command-line argument uit te voeren. (De programmeur was zelfs genadig genoeg om me te geven toestemming aan een koppeling toevoegen aan zijn chauffeur in dit instructable.)
Hieronder is mijn script (het is erg bewerkbaar wanneer u wilden voor weergave van de minuten of seconden of maand ect. in plaats daarvan). Om de paar seconden het script controleert de tijd op het lokale systeem en verandert de led kleur afhankelijk van het uur; langzaam werkt zijn weg omhoog ROYGBIV. Dus hoe later op de dag is het, de verdere up op het kleurenspectrum wordt het gloeien, elke 12 uur fietsen. Ook plaatste ik het het uur knipperen. Dus als het 3:00, zou het vervagen langzaam in en uit een keer, en dan knipperen snel driemaal.
U moet de stuurprogramma's downloaden uit de link hierboven, dan kopieer & plak de onderstaande code in Kladblok en sla het op als "crystalclock.pl". Plaats het bestand in dezelfde map op uw computer als de stuurprogramma's. Vervolgens sluit de klok op elke USB-poort op uw computer en klik op het script te draaien op de klok.
#! usr/local/bin/perl
terwijl ($lamprun! = 1) # lus houdt klok lopen
{($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime(); # vondsten computertijd
Als ($hour == 1 of $hour == 13)
{
$color = rood;
$blink = 1;
}elsif ($hour 2 of $hour == == 14)
{
$color = orangered;
$blink = 2;
}elsif ($hour 3 of $hour == == 15)
{
$color = oranje;
$blink = 3;
}elsif ($hour 4 of $hour == == 16)
{
$color = geel;
$blink = 4;
}elsif ($hour 5 of $hour == == 17)
{
$color = yellowgreen;
$blink = 5;
}
elsif ($hour 6 of $hour == == 18)
{
$color = groen;
$blink = 6;
}
elsif ($hour 7 of $hour == == 19)
{
$color = lightcyan;
$blink = 7;
}
elsif ($hour 8 of $hour == == 20)
{
$color = aqua;
$blink = 8;
}
elsif ($hour 9 of $hour == == 21)
{
$color = blauw;
$blink = 9;
}
elsif ($hour 10 of $hour == == 22)
{
$color = indigo;
$blink = 10;
}
elsif ($hour 11 of $hour == == 23)
{
$color = paars;
$blink = 11;
}
elsif ($hour 12 of $hour == == 24)
{
$color = wit;
$blink = 12;
}
systeem ("DreamCheekyLED.exe nopause vervagen = 4000 blink $blink kleur = $color =");
}