Pemrograman

Source Code Software Berbasis Windows Untuk Melihat Pohon Dengan Menggunakan Bahasa Asro

Halo Techno Lovers, pertemuan kali ini saya ingin berbagi source code software berbasis windows untuk melihat pohon dengan menggunakan bahasa Asro.

Gambar Screenshot Program Windows Melihat Pohon


Sebelum Anda membaca source codenya silahkan tonton terlebih dahulu video diatas tentang cara install Asro Penyusun dan cara kompilasi Asro Skripnya.

Jika Anda sudah menontonya silahkan download program Asro Penyusun dan contoh sederhana source code Asro Skrip menggunakan bahasa Asro dengan cara klik link download dibawah.

DOWNLOAD

Berikut ini adalah source code programnya:

Source Code Asro Skrip

Melihat Pohon.ars

/*[Asro.Menambahkan.Bahan.Jendela]*/
konstan("Nama", "Melihat Pohon");
$luas_layar = Memisahkan(" ", MengambilInfoSistem("AreaLayar"));
$l = 320;
$t = 240;
$x = ($luas_layar[2]-$l)/2;
$y = ($luas_layar[3]-$t)/2;
$jendela = MembuatJendela(0, Kosong, Nama, $x, $y, $l, $t, KTidakTerlihat | KPenerima | KMenggambar, KSelJudul|KMenggambarUlang|KMengukurUlang);
MengaturArea($jendela, KJudul, 0, 0, $l, 40);
MengaturIkon($jendela);
$pohon = MembuatKontrol($jendela, MelihatPohon, "", ($l-($l-12))/2, 34, $l-12, $t-40, 0, KTerlihat|KAktif|KJenis|KBerbaris|KKotakCek);
$di = MengambilDataBerkas("tutup.bmp");
$nama = MenggantiRentetan("\\", "/", MengambilInfoSistem("AlurSementara"))."AR-data-gambar-".acak(000000000, 999999999).".bmp";
MembuatBerkas($nama, $di, "m");
MengaturGambar(MembuatKontrol($jendela, TombolGambar, "Tutup", $l-(20+5), 5, 19, 20, IdTutup, KGambar), MemuatGambar($nama));
MembuatKonten($pohon, array(array("Asep Rohimat", 0, 0, 0, 0), array("082214020367", 0, 1, 3, 3), 
array("Dewi Yulyantie", 1, 0, 1, 1), array("085861943332", 1, 1, 3, 3), 
array("Senci Estorina, S.Pd", 2, 0, 2, 2), array("081394641205", 2, 1, 3, 3)));
$di = MengambilDataBerkas("gambar.bmp");
$nama = MenggantiRentetan("\\", "/", MengambilInfoSistem("AlurSementara"))."AR-data-gambar-".acak(000000000, 999999999).".bmp";
MembuatBerkas($nama, $di, "m");
MengaturGambar($pohon, $nama, Hijau, 0, 4);
MengaturGambarKonten($pohon, 3, 0, 1);
MengaturGambarKonten($pohon, 3, 1, 1);
MengaturGambarKonten($pohon, 3, 2, 1);
MengaturPenanganan($jendela, "proses");
MengaturPenampilan($jendela, Benar);
Pengulangan();
function proses($j, $i, $k=0, $p1=0, $p2=0)
{
    if($i == IdBiasa)
    {
        if($p1&KMenggambarUlang)
        {
            $ukuran = MengambilUkuran($j, Benar);
            $lebar = $ukuran[0];
            $tinggi = $ukuran[1];
            $judul = MembuatFon("Tahoma", 13, Putih, TeksNormal);
            $teks = MembuatFon("Tahoma", 10, Hitam, TeksNormal);
            MenggambarPersegi($p2, 0, 0, $lebar, $tinggi, 0x000000);
            MenggambarPersegi($p2, 2, 2, $lebar-4, $tinggi-4, 0x434343);
            MenggambarTeks($p2, Nama, 7, 5, $lebar, 20, $judul, KKiri);
        }
        MengaturMode($j, KUtama, Benar);
    }
    if($i == IdTutup)
    {
        MembersihkanBerkasSementara();
        $nb = MenggantiRentetan("\\", "/", MengambilInfoSistem("AlurSementara"));
        $bb = MembukaDirektori($nb);
        while($berkas = MembacaDirektori($bb))
        {
            if($berkas != "." && $berkas != "..")
            {
                if(MengambilPosisiRentetan($berkas, "AR-data-gambar-")>-1){
                    MenghapusBerkas("{$nb}/{$berkas}");
                }
            }
        }
        MemusnahkanJendela($j);
        MemusnahkanFon();
    }
}


Source Code Asro Proyek

Melihat Pohon.arp

berkas utama Melihat Pohon.ars
berkas keluaran Melihat Pohon.exe
alur sisipan data
jendela
ikon ..\Asro.ico


Penutup

Mudah bukan untuk membuat program komputer atau software Melihat Pohon sederhana berbasis windows. Share ya jika bermanfaat. Tunggu apalagi praktekan sekarang 😀

Owner and Founder of Asro Teknologi

13 Comments

13 Comments

  1. SUFYAN

    Minggu, 2 Februari 2020 at 5:33 pm

    ini bermanfaat. Tentu saja.

  2. natalia20041989

    Senin, 3 Februari 2020 at 12:15 am

    Interesting!

  3. Aorlin

    Senin, 3 Februari 2020 at 8:17 am

    makasih udah di sharing..

  4. Ibrahim

    Kamis, 6 Februari 2020 at 11:53 am

    bagi mas mudah, bagi saya sih puyeng mas hehehehe

  5. Rudi Fahrizal Putra

    Jumat, 7 Februari 2020 at 2:30 pm

    bahasa asro itu bkinan mas? wuihh keeren ya bisa bikin bahasa pemograman sendiri

  6. ratutips.com

    Sabtu, 8 Februari 2020 at 6:39 pm

    Mantap djiwaa.. bahasa pemograman sangat blank buat saya mas.. tp mau coba belajar semoga bs lebih baik

  7. Vicky Cahyagi

    Sabtu, 8 Februari 2020 at 9:32 pm

    Bisa disebut inovator. Thx ilmunya

  8. Bang Day

    Sabtu, 8 Februari 2020 at 9:45 pm

    keren kang asro, jago coding euy

  9. Ella Fitria

    Minggu, 9 Februari 2020 at 1:04 pm

    Pengin nyobaaa, tp liat kodingnya doang udah pusing huhu

  10. dewi Aprilia

    Senin, 10 Februari 2020 at 8:51 pm

    Saluut..saya ngajar bahasa Inggris saja sudah puyeng. Apalagi ini ngajari bahasa asro.
    Bahasa coding coding komputer memang perlu dipelajari mendetail disini.

  11. anies

    Rabu, 12 Februari 2020 at 11:31 am

    berpinar mata tgk code code 😉

  12. Arena Publik

    Kamis, 13 Februari 2020 at 6:27 pm

    baru tau ada yang seperti ini hhehe. infrmatif sekli

  13. Rohyati Sofjan

    Selasa, 25 Februari 2020 at 5:49 pm

    Bahasa pemrograman adalah di luar kemampuan saya. Baca kodenya membuat saya jadi mikir, tin teknisi telah bekerja keras untuk menciptakan aplikasi baru yang inovatif.
    Sukses, ya.

Leave a Reply

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

More in Pemrograman

Advertisement

Trending

Advertisement

Topik