Modul:Batang: Perbedaan antara revisi

Konten dihapus Konten ditambahkan
KIDE777 (bicara | kontrib)
k Tes nama file.
KIDE777 (bicara | kontrib)
Agar tidak dapat di-click.
 
(4 revisi perantara oleh pengguna yang sama tidak ditampilkan)
Baris 1:
--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|tautanlink=|]]')rest_length = rest_length - 100 end
--while rest_length >= 50 do t:print('[[Berkas:KIDE777 Batang '):print(color):print('50.png|tautanlink=|]]') rest_length = rest_length - 50 end
--while rest_length >= 30 do t:print('[[Berkas:KIDE777 Batang '):print(color):print('30.png|tautanlink=|]]') rest_length = rest_length - 30 end
while rest_length >= 10 do t:print('[[Berkas:KIDE777 Batang '):print(color):print('10.png|tautanlink=|]]') rest_length = rest_length - 10 end
--while rest_length >= 5 do t:print('[[Berkas:KIDE777 Batang '):print(color):print('5.png|tautanlink=|]]') rest_length = rest_length - 5 end
--while rest_length >= 3 do t:print('[[Berkas:KIDE777 Batang '):print(color):print('3.png|tautanlink=|]]') rest_length = rest_length - 3 end
while rest_length >= 1 do t:print('[[Berkas:KIDE777 Batang '):print(color):print('1.png|tautanlink=|]]') rest_length = rest_length - 1 end
return t:printall()