|
--Kode asli ditulis di Wikipedia Bahasa Korea oleh Jesusmas
--{{막대}} 틀을 개선하는 {{새막대}} 틀을 만들기 위한 모듈입니다
--Fungsi untuk menggambar diagram batang horizontal.
--사용가능한 함수는 bar입니다.
local function drawBar (color, length, round) --막대를Parameter 그리는yang 함수dimasukkan (막대의 색warna, 길이nilai panjang, 올림/내림pembulatan: up/반올림down)
local t = require("Modul:Bak pasir/KIDE777/Coutput")
if length > 5000 then return '' end --길이가Jika 5000보다nilai 큰lebih 경우에는dari 아무것도5000 그리지maka 않습니다tidak akan menampilkan apapun.
if length <= 0 then return '' end --길이가Jika 0보다nilai 작은kurang 경우에도atau 아무것도sama 그리지dengan 않습니다0 maka tidak akan menampilkan apapun.
local rest_length = --그리고Sisa 남은nilai 길이,panjang 즉,yang 그려야akan 할 나머지 길이dicetak,
round == 'up' and math.ceil(length) or --pembulatan 올림의ke 경우atas, atau
round == 'down' and math.floor(length) or --버림의pembulatan 경우ke bawah, atau
math.floor(length+.5) --pembulatan ke 기본적으로는integer 반올림terdekat jika parameter "round" kosong.
while rest_length >= 100 do t:print('[[파일Berkas:KIDE777 Batang '):print(color):print('100.png|링크link=|]]')rest_length = rest_length - 100 end
--while rest_length >= 50 do t:print('[[파일Berkas:KIDE777 Batang '):print(color):print('50.png|링크link=|]]') rest_length = rest_length - 50 end
--while rest_length >= 30 do t:print('[[파일Berkas:KIDE777 Batang '):print(color):print('30.png|링크link=|]]') rest_length = rest_length - 30 end
while rest_length >= 10 do t:print('[[파일Berkas:KIDE777 Batang '):print(color):print('10.png|링크link=|]]') rest_length = rest_length - 10 end
--while rest_length >= 5 do t:print('[[파일Berkas:KIDE777 Batang '):print(color):print('055.png|링크link=|]]') rest_length = rest_length - 5 end
--while rest_length >= 3 do t:print('[[파일Berkas:KIDE777 Batang '):print(color):print('033.png|링크link=|]]') rest_length = rest_length - 3 end
while rest_length >= 1 do t:print('[[파일Berkas:KIDE777 Batang '):print(color):print('011.png|링크link=|]]') rest_length = rest_length - 1 end
return t:printall()
| 