Sebagian besar keyboard komputer dilengkapi lampu LED terintegrasi kecil, yang menunjukkan mode input saat ini, sebagaimana dikontrol dengan tombol CAPS LOCK.

Tugas Anda adalah untuk membuatnya berkedip:

• Hidupkan;
• Tunggu 0,5 (+/- 0,1) detik;
• Matikan lagi.

Cuplikan video LED berkedip sangat dihargai!

Aturan

• Anda dapat mengedipkan LED yang berbeda (mis. Gulir Kunci, Num Lock, status Wi-Fi dll), jika diinginkan, tetapi harus secara fisik terletak di keyboard Anda;

• Jika bahasa Anda tidak memiliki sleepperintah subsecond , program Anda dapat menggunakan penundaan 1 detik sebagai gantinya, dengan penalti +2 byte (artinya 0.);

• Program Anda harus berkedip setidaknya sekali, apa yang terjadi sesudahnya adalah terserah Anda, yaitu program itu dapat terus berkedip (dalam hal ini Anda harus menunggu penundaan yang sama, sebelum menyalakannya lagi), atau berhenti dll;

• Jika LED yang dipilih adalah AKTIF secara default, pada sistem Anda, Anda dapat mengasumsikan bahwa LED telah dimatikan secara eksplisit (misalnya secara manual), sebelum program dijalankan;

• Ini adalah kode-golf , jawaban terpendek dalam byte menang.

Papan peringkat

var QUESTION_ID=110974,OVERRIDE_USER=61904;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Befunge (BEF32), 390 334 305 byte

Ini benar-benar konyol, tetapi selama situs ini menerima anggapan bahwa penerjemah menentukan bahasa , saya mungkin juga menyalahgunakan aturan. Kode ini hanya berfungsi di Win32 Befunge-93 Implementasi Kevin Vigor, versi 1.01 (saya pikir satu-satunya versi tersedia). Anda dapat mengunduh biner di sini .

p55p99+5p65*5p")"5p"M"3*"I~q"+\3*3445"|"2*"lm"2v
v"y"*3\*2"e/n"4\5"nnIn"*833*2"mn"4\7"nnIn"*833*<
>2*"yO"4"DJG"3*\2*55*3"T"4"DLG"3*\2*55*3"/~M"+\3*4446"~A"+4v
>+00p9p:v:"l'"*2"^D"4"l3"*2"^D"4"l"*54*2"^D"4"l"*2+94*2"^D"<
^1:g00-4_5"u1"*-:1+:1+"@"\0p"%"5*\0p"P"\0p@
Sleep kernel32.dll keybd_event user32.dll

Sekarang biasanya Anda tidak akan mengharapkan tantangan semacam ini dimungkinkan di Befunge, tetapi BEF32 adalah port Win32 dari versi yang sangat lama dari implementasi referensi, dan saat itu tidak ada batasan memeriksa pada perintah p(put). Ini secara efektif memungkinkan kita untuk menulis ke lokasi mana pun dalam memori, yang pada akhirnya memungkinkan kita memaksa penerjemah untuk mengeksekusi kode mesin yang sewenang-wenang.

Sekarang kita tidak dapat benar-benar mengubah kode yang ada, karena bagian .text dari executable tidak akan memiliki izin menulis. Namun, kita bisa mengelabui sistem untuk mengeksekusi alamat di bagian. Data, dengan menuliskan alamat itu ke dalam atexittabel runtime library (setidaknya saya curiga itu memang seperti itu). Hasil akhirnya adalah bahwa kode kami dieksekusi secara otomatis ketika juru bahasa keluar.

Ini bergantung pada fakta bahwa executable dimuat pada alamat tetap, jadi kami tahu persis di mana semuanya berada dalam memori - diasumsikan tidak akan berfungsi jika Anda mengesampingkan pengaturan ASLR default . Itu juga bergantung pada bagian. Data yang dapat dieksekusi, meskipun tidak memiliki set atribut yang dapat dieksekusi, jadi sekali lagi itu kemungkinan besar tidak akan berfungsi jika Anda mengesampingkan pengaturan DEP default .

Kode itu sendiri pada dasarnya adalah salinan Mego 's keybd_eventteknik diterjemahkan ke dalam kode mesin:

6823B84000         push "keybd_event"
682FB84000         push "user32.dll"
6810B84000         push "Sleep"
6816B84000         push "kernel32.dll"
BB02000000         mov  ebx,2
               initloop:
89C7               mov  edi,eax
FF1594D14000       call LoadLibraryA
50                 push eax
FF1590D14000       call GetProcAddressA
4B                 dec  ebx
75EE               jnz  initloop
89C6               mov  esi,eax
               flashloop:
6A00               push 0
6A01               push 1
6A45               push 69
6A14               push 20
FFD6               call esi
6A00               push 0
6A03               push 3
6A45               push 69
6A14               push 20
FFD6               call esi
68F4010000         push 500
FFD7               call edi
EBE3               jmp  flashloop

Versi kode ini terus berkedip selamanya (atau setidaknya sampai Anda mematikan prosesnya), karena itu ternyata lebih mudah untuk bermain golf daripada hanya satu flash.

Dan karena semua orang memposting animasi, ini merupakan perkiraan seperti apa yang terlihat di keyboard saya.

AutoHotkey, 29 26 byte

_{Terima kasih kepada @Dane karena telah menghemat 3 byte}

Loop{
Send,{VK14}
Sleep,500
}

Saya awalnya memilih NumLockkarena satu karakter lebih pendek dari CapsLock. GIF di bawah ini mencerminkan kondisi itu. Efeknya sama dengan kode yang diubah di atas. Saya bisa pergi dengan di VK90atas untuk membuat GIF tetap akurat tetapi menyelaraskan dengan tantangan asli terasa lebih baik.

Untuk menghormati komentar mbomb007 , berikut adalah pesan kode morse dalam 239 byte :

s:=000090901009011091100110090111109111901090190110901109091000091001101909101191000911190190109100001090191010919111901091011
Loop,123{
StringMid,c,s,A_Index,1
IfEqual,c,9
{
Sleep,2000
Continue
}
Send,{NumLock}
Sleep,%c%500
Send,{NumLock}
Sleep,500
}

Inilah 30 detik pertama dari pesan itu:

GFA-Basic 3.51 (Atari ST),  61 56 43  35 byte

Kode ini akan membuat LED floppy drive berkedip selamanya pada laju yang diperlukan ( PAUSE 25= jeda selama 25/50 detik).

Ini mungkin lebih pendek dalam perakitan, tetapi saya tidak memiliki alat yang tepat di ujung jari saya. Ini adalah ukuran daftar GFA-Basic yang pernah disimpan dalam format .LST dan diedit secara manual untuk menghapus spasi kosong, ganti nama instruksi menjadi string yang lebih pendek dan ganti masing CR+LF- masing dengan yang sederhana CR. Perhatikan bahwa final CRdiperlukan.

DO
i=i XOR2
SP &HFF8802,i
PA 25
LO

Secara otomatis akan berkembang ke:

DO
  i=i XOR 2
  SPOKE &HFF8802,i
  PAUSE 25
LOOP

SPOKEadalah supercharged POKEyang pertama kali menempatkan 68000 dalam mode pengawas , sehingga diizinkan untuk mengakses area memori terbatas (di sini: alamat tulis register dari soundchip YM2149, yang juga bertanggung jawab untuk beberapa I / O lainnya).

Dan ya: LED secara fisik terletak di keyboard ... saya kira.

^{Saya tidak memiliki akses ke ST nyata sekarang, jadi ini hanya mockup.}

ikan + ckb , 56 54 byte

while cd;echo rgb (random)|tee /d*/*/*/c*;sleep .5;end

Berkedip seluruh keyboard saya dalam warna acak, meskipun karena jumlahnya tidak 6 digit hex panjang itu agak terbatas.

Dan ya, gumpalan shell itu berpotensi berbahaya. Bekerja Pada Mesin Saya ™

Skrip bonus, 8 bulan kemudian: Ini akan melewati semua warna. Tidak golf.

#!/usr/bin/fish
while true
        echo rgb (printf '%06x' (random 0 16777215)) | tee /dev/input/ckb*/cmd > /dev/null
        sleep 0.5
end

Bash + amixer, 45 Bytes

a() { amixer set Master toggle
}
a;sleep .5;a

Mengedipkan lampu bisu pada keyboard saya.

C (Windows), 79 byte

#include<windows.h>
k(n){keybd_event(20,69,n,0);}f(){k(1);k(3);Sleep(500);f();}

Penjelasan

keybd_eventadalah fungsi Windows API (yang tidak digunakan lagi) untuk mengirim acara keyboard (keyup atau keydown). 20adalah kode untuk tombol Caps Lock, 69adalah kode pindaian perangkat keras (saya tidak tahu apa artinya), dan 1berarti keydown dan 3berarti keyup. Sebuah penekanan tombol disimulasikan dengan mengirimkan acara keydown segera diikuti oleh acara keyup. Satu penekanan tombol dikirim untuk mengaktifkan Caps Lock, kemudian program tidur selama 500 milidetik, dan kemudian penekanan tombol lain dikirim untuk mematikan Caps Lock.

Terima kasih kepada Steadybox untuk banyak byte yang disimpan

MATLAB, 146 136 70

Terima kasih kepada @Poke untuk menghapus 66 byte!

r=java.awt.Robot;while 1
r.keyPress(20)
r.keyRelease(20)
pause(.5);end

Ini menggunakan kemampuan Matlab untuk memanggil kelas Java. Lampu Num Lock berkedip dalam satu lingkaran dengan menekan dan melepaskan secara terprogram Num Lock.

Video atau itu tidak terjadi .

kode mesin x86 untuk PC (mis. file MS-DOS COM), 27 byte

Kode mesin ini (ditampilkan di sini dengan render Unicode dari CP437 BIOS PC yang biasa) akan berkedip indikator CAPS LOCK selamanya pada PC:

j@▼î▐j`Z░φεê╪εÇ≤♦╞♦◙Ç<☺t∩δ∙

Kode telah dibuat sehingga tidak mengandung byte NULL, dan dengan demikian dapat diketik dengan keyboard (menggunakan trik Alt + XXX untuk karakter yang diperluas) untuk membuat file COM (misalnya, menggunakan COPY CON blink.comperintah di bawah MS-DOS, dalam hal ini file keluaran harus mengandung byte ^ke- 28 palsu , karakter ^Z(EOF) yang diperlukan untuk menghentikan operasi penyalinan).

Efeknya dicapai dengan mengirim perintah secara langsung ke pengontrol keyboard PC (port 60h) untuk mengatur status LED (sebagai efek samping, ini mungkin mengatur Num Lock dan Scroll Lock LEDs ke keadaan acak yang tidak berkedip). Pengaturan waktu, untuk meminimalkan jumlah instruksi, dicapai dengan menggunakan penghitung waktu mundur yang dikelola oleh BIOS di alamat 0040:0040(mengurangi setiap 54,925 ms, dengan 9 siklus siklus berkedip adalah 494,3 ms, yang berada dalam margin yang diizinkan) - penghitung ini biasanya digunakan oleh BIOS untuk menghentikan motor floppy disk; karena floppy drive tidak digunakan oleh program dan kode diasumsikan berjalan dalam lingkungan tugas tunggal (misalnya DOS), bermain dengan timer motor floppy tidak menjadi masalah.

Kode berjalan dengan baik di bawah MS-DOS (dicoba dengan VirtualBox, itu juga harus berjalan dengan baik pada perangkat keras nyata, meskipun saya belum punya waktu untuk membuat tongkat USB MS-DOS bootable untuk menguji). Karena tidak bergantung pada fungsi OS, ia bahkan dapat berjalan tanpa sistem operasi (misalnya, dengan meletakkannya di sektor boot disk). Ini membutuhkan setidaknya prosesor 80186 untuk dijalankan, karena instruksi "dorongan langsung" yang digunakan untuk mempersingkat kode beberapa byte.

Kode sumber perakitan:

  PUSH 0x40               ; pushes 0x0040 (BIOS data segment) on the stack
  POP DS                  ; pops it into DS segment selector
  MOV SI, DS              ; copies DS to SI (timer counter is nicely placed at 40:40)
  PUSH 0x60               ; pushes 0x0060 (kbd controller port) on the stack
  POP DX                  ; pops it to DX
loop:
  MOV AL, 0xED            ; 8042 keyboard controller 'set mode indicators' command
  OUT DX, AL              ; outputs the command to the keyboard contr oller
  MOV AL, BL              ; copy BL register to AL
  OUT DX, AL              ; outputs LED state to keyboard controller
  XOR BL, 4               ; toggles bit 2 (CAPS LOCK) for next iteration
  MOV BYTE PTR[SI], 0x0A  ; sets floppy motor countdown timer to 10
wait:
  CMP BYTE PTR[SI], 0x01  ; checks if timer reached 1
  JE loop                 ; if yes, time for next iteration
  JMP wait                ; if not, checks again

Pembuangan hexadecimal dari kode yang dirakit:

6A 40 1F 8C DE 6A 60 5A B0 ED EE 88 D8 EE 80 F3 04 C6 04 0A 80 3C 01 74 EF EB F9

Berikut adalah hasil yang berjalan di bawah MS-DOS di VirtualBox (tidak bekerja dengan DosBox, mungkin karena pengontrol keyboard tidak sepenuhnya ditiru):

(maaf untuk video yang goyah).

SmileBASIC, 36 23 byte

XON MIC
WAIT 30XOFF MIC

Berkedip lampu status mikrofon. (video segera hadir)

Python2 - 108 byte

Apakah tombol capslock. Menariknya, ini sebenarnya hanya menyalakan LED itu sendiri tanpa mempengaruhi keyboard atau menekan tombol. Anda dapat mengubah 4di akhir 2untuk melakukan numlock. 6melakukan keduanya.

import fcntl,os,time;exec"fcntl.ioctl(os.open('/dev/console',os.O_NOCTTY),19250,%d);time.sleep(.5);"*2%(4,0)

shell + numlockx, 40 35 byte

[Disimpan 5 byte berkat Ryan.]

Berkedip terus menerus lampu NumLock pada sistem yang tidakix.

numlockx toggle;sleep .5;exec sh $0

Kedip tunggal, 33 byte

numlockx on;sleep .5;numlockx off

PowerShell , 71 byte

for(){(New-Object -c WScript.Shell).SendKeys('{NUMLOCK}');sleep -m 500}

Catatan

• Berkedip selamanya
• Menggunakan NUM LOCKuntuk menyimpan satu byte.

VBS, 75 byte

do
wscript.sleep 500
Createobject("wscript.shell").sendkeys"{numlock}"
loop

Berkedip berulang kali tombol Num Lock, seperti numlock1 byte lebih pendek dari capslock.

C #, 215 202 198 195 185 byte

Tanpa sadar saya telah melakukan kode "sama" dengan jawaban ini oleh @Mego , silakan cek!

[System.Runtime.InteropServices.DllImport("user32")]static extern void keybd_event(int v,int s,int f,int e);n=>{for(n=0;;System.Threading.Thread.Sleep(125))keybd_event(20,69,n++&2,0);};

Disimpan 13 byte berkat @Metoniem
Disimpan 10 byte berkat @VisualMelon

Berikut ini adalah versi lengkap yang diformat dan menunjukkannya berfungsi:

class P
{
    [System.Runtime.InteropServices.DllImport("user32")]
    static extern void keybd_event(int v, int s, int f, int e);

    static void Main()
    {
        System.Action<int> a = n =>
        {
            for (n = 0; ; System.Threading.Thread.Sleep(125))
                keybd_event(20, 69, n++ & 2, 0);
        };

        a(0);
    }
}

Untuk perubahan bonus menyenangkan n++ & 2untuk n+=2 & 2dan menonton num lock dan caps lock kunci alternatif di berkedip dan mematikan. Saya tidak tahu mengapa itu terjadi karena seharusnya tidak tetapi terlihat "keren".

Java 7, 121 118 113 byte

void a()throws Exception{java.awt.Robot r=new java.awt.Robot();r.keyPress(20);r.delay(500);r.keyRelease(20);a();}

Satu pers dan rilis hanya memicu negara; itu tidak berkedip. Dengan demikian kita bisa memutarnya dan sepertinya rekursi adalah cara termurah untuk melakukannya.

JavaScript, 82 byte

Kredit pergi ke @FinW sebenarnya, saya baru saja mengubah fungsi lama ke fungsi panah ES6 baru untuk menghemat beberapa byte. Dan karena saya tidak punya cukup poin untuk berkomentar saya menulis balasan baru.

Edit - tanda kurung yang dihapus untuk menyimpan 2 byte lainnya.

o=new ActiveXObject("WScript.Shell");setInterval(()=>o.SendKeys("{NUMLOCK}"),500);

Kode-nya terlihat seperti ini

o=new ActiveXObject("WScript.Shell");setInterval(function(){o.SendKeys("{NUMLOCK}")},500);

Scala, 84 83 78 byte

Sunting: Disimpan 1 byte berkat @TheLethalCoder,

Dia menyarankan menggunakan 1>0di tempat true.

Sunting 2: Disimpan 5 byte berkat @ Corvus_192,

Dia menyarankan menggunakan notasi infiks dan menjatuhkan tanda kurung setelah konstruktor

while(1>0){val r=new java.awt.Robot;r keyPress 20;r keyRelease 20;r delay 500}

Tidak Terkumpul:

while(1>0) {
    val r=new java.awt.Robot()
    r.keyPress(20)
    r.keyRelease(20)
    r.delay(500)
}

Port Scala standar untuk jawaban Java @ Poke . Ketik langsung ke prompt juru bahasa Scala.

Sebuah video yang berkedip LED Caps Lock dan OSD saya untuk boot!

Terminal Linux, 8 + 11 = 19 byte

File f=1B 5B 33 71 1B 5B 30 71

native@shell:~$ pv f -q -L8

WAT?

Menurut ECMA-48 , 1Bmemulai urutan pelepasan kontrol terminal.

Tutup = 1B 5B 33 71, lalu mati =1B 5B 30 71

pv tampilan kemajuan

f mengajukan

-q diam

-L8 8 byte / s = keterlambatan 0,5 detik

Pemakaian

Mempersiapkan

#Create file
echo "1B 5B 33 71 1B 5B 30 71"|xxd -r -p > f 

#Install progress view utility
sudo apt install pv

Ctrl+ Alt+ F6beralih ke konsol asli

Lari pv f -q -L8

Ctrl+ Alt+ F7beralih kembali

Bash + Xdotool, 36 byte

for((;;)){ xdotool key 66;sleep .5;}

Cukup jalankan di bash shell. Itu harus dalam lingkungan grafis. Loop tak terbatas dari sini . Mengubah Num_Lock menjadi 66 untuk menghemat 6 byte, dan terima kasih kepada @Michael Kjörling untuk 2 byte.

xdotool , 20 byte

key -delay=500 66 66

Menekan tombol 66 alias Caps Lock dua kali, dengan jeda 500 ms di antara penekanan tombol.

Perhatikan bahwa xdotool adalah bahasa scripting; itu dapat dijalankan dari file dan bahkan mendukung shebang. Karena execperintahnya memungkinkan menjalankan program eksternal, ia mampu melakukan pengujian penjumlahan dan primality, sehingga memenuhi definisi bahasa pemrograman kami.

Uji coba

$ cat blink.xdo; echo
key -delay=500 66 66
$ xdotool blink.xdo

Python menggunakan pyautogui: 126 143 115 103 byte

Terima kasih kepada @ nedla2004 untuk menghemat 12 byte

from pyautogui import*
import time
while 1:keyDown('capslock');time.sleep(.5);keyUp('capslock')pslock')

Bash, 31 byte

xset led 1;sleep .5;xset -led 1

Bekerja di X, tanpa akses root! (Jika tidak berhasil untuk Anda, lihat fungsi init dari kode di bawah ini untuk memastikan xkbcomp dikonfigurasi dengan benar)

Dan skrip bonus untuk mengirim kode morse apa pun melalui caps lock (bukan golf):

unit=0.15
id=1
function init {
        file=/tmp/blink_tmp
        xkbcomp $DISPLAY $file
        sed -i 's/!allowExplicit/allowExplicit/' $file
        xkbcomp $file $DISPLAY &>/dev/null
        rm $file
}
if [[ -z $1 ]]; then
        echo "Usage : blink [message]"
        exit 1
fi
init
function finish {
        off
}

function on {
#su -c 'setleds -L +caps < /dev/console'
xset led $id
}
function off {
#su -c 'setleds -L -caps < /dev/console'
xset -led $id
}
function slp {
        sleep $(echo "$unit*$1" | bc)
}
function dot {
on
slp 1
off
slp 1
}
function dash {
on
slp 3
off
slp 1
}
function gap {
        slp 3
}
function morse {
        msg=$1
        for (( i=0; i<${#msg}; i++ )); do
                char=${msg:$i:1}
                if [[ $char == "-" ]]; then
                dash
                elif [[ $char == "." ]]; then
                dot
                elif [[ $char == "/" ]]; then
                gap
                fi
        done
}
while true; do
        morse $1
done

Contoh : blink "...././.-../.-../---//.--/---/.-./.-../-..///"

Bash + setleds , 43 byte

setleds -D +caps;sleep 0.5;setleds -D -caps

Cukup mudah. Menggunakan setledsuntuk menyalakan lampu.

Bash, 103 byte

cd /sys/class/leds/asus\:\:kbd_backlight;while true;do echo 3;sleep .5;echo 0;sleep .5;done>brightness

Harus dijalankan sebagai root.

Apakah mem-flash seluruh lampu latar keyboard berfungsi? (video yang akan datang ketika saya sampai di rumah)

JavaScript, 90 byte

o=new ActiveXObject("WScript.Shell");setInterval(function(){o.SendKeys("{NUMLOCK}")},500);

Itu membutuhkan ActiveXarti itu hanya akan berjalan pada IE (Edge tidak mendukungnya, meskipun). Itu mem-flash kunci NUMLOCK karena, seperti dengan jawaban lain, itu lebih pendek dari CAPSLOCK atau SCROLLLOCK.

Tidak disatukan

shell = new ActiveXObject("WScript.Shell");
setInterval(
    function(){
        shell.SendKeys("{NUMLOCK}")
    }
,500);

Bash, 33 Bytes

Ini mengasumsikan Num-Lock menyala sebelum dijalankan. Beralih offdan onsebaliknya. Membutuhkan numlockxpaket jelas;)

numlockx off;sleep .5;numlockx on

Sunting:

Melihat Alex Howansky telah memposting solusi ini, namun belum menandainya dengan Bash dan saya baru saja mencari situs untuk "Bash".

File Batch (Dengan bantuan vbs), 74 + 2 = 76 byte

echo Createobject("wscript.shell").sendkeys"{numlock}">z.vbs&z&timeout 1&z

Sebagian didasarkan pada jawaban Trelzevir .

.vbssecara otomatis termasuk dalam PATHEXT.

Script Kotlin, 72 byte

Meskipun bukan yang terkecil, tetap saja itu cukup bagus. Saya suka menjalankan kotlin untuk beberapa hal, dan ini adalah salah satu dari mereka (lebih kecil dari val r = java.awt.Robot () karena kita tidak membutuhkan keduanya r dan val r =. Namun, ini lebih panjang dari MathLab)

java.awt.Robot().run{while(1>0){keyPress(20);keyRelease(20);delay(500)}}

Tidak Terkumpul:

java.awt.Robot().run {
    while(1>0) {
        keyPress(20)
        keyRelease(20)
        delay(500)
    }
}

Python3, 55 49 byte

Terima kasih @NoOneIsHere untuk -4 byte!

Ini termasuk paket: pyautogui and timemodules
Code:

while(1):pag.press("capslock");time.sleep(0.5)  

Terima kasih @NoOneIsHere untuk -4 byte!
Kunci dalam aksi:

VBA, 82 Bytes

VBE Anonim Fungsi jendela langsung yang tidak mengambil input dan mengganggu pengguna tanpa batas. Tergantung pada fungsi sleep kernel32 windows yang dinyatakan di bawah ini.

Deklarasi Tidur (Win-32)

Declare Sub Sleep Lib "kernel32" (ByVal M&)

Deklarasi Tidur (Win-64, + 8 Bytes)

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal M&)

Fungsi jendela langsung VBE anonim

Do:SendKeys"{CAPSLOCK}":Sleep 500:DoEvents:Loop

Versi yang sedikit lebih menyenangkan, 97 Bytes

Seperangkat subrutin yang saling rekursif yang mengganggu pengguna tanpa batas

Sub A
Application.OnTime Now+5.8E-6,"B"
End Sub

Sub B
DoEvents
SendKeys"{CAPSLOCK}"
A
End Sub

Versi yang dipertanyakan, 66 + 2 Bytes

Saya tidak yakin jika harus mendeklarasikan fungsi dari dll dianggap memiliki fungsi inbuilt jadi, dalam hal tidak, maka di sini adalah versi 66 + 2 byte yang menunggu 1 detik

Do:DoEvents:Application.Wait Now+#0:0:1#:SendKeys"{CAPSLOCK}":Loop