Asro Teknologi

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 😀

Continue Reading
You may also like...

Owner and Founder of Asro Teknologi

15 Comments

15 Comments

  1. SUFYAN

    Minggu, 2 Februari 2020 5:33 PM at 5:33 pm

    ini bermanfaat. Tentu saja.

  2. natalia20041989

    Senin, 3 Februari 2020 12:15 AM at 12:15 am

    Interesting!

  3. Aorlin

    Senin, 3 Februari 2020 8:17 AM at 8:17 am

    makasih udah di sharing..

  4. Ibrahim

    Kamis, 6 Februari 2020 11:53 AM at 11:53 am

    bagi mas mudah, bagi saya sih puyeng mas hehehehe

  5. Rudi Fahrizal Putra

    Jumat, 7 Februari 2020 2:30 PM at 2:30 pm

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

  6. ratutips.com

    Sabtu, 8 Februari 2020 6:39 PM 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 9:32 PM at 9:32 pm

    Bisa disebut inovator. Thx ilmunya

  8. Bang Day

    Sabtu, 8 Februari 2020 9:45 PM at 9:45 pm

    keren kang asro, jago coding euy

  9. Ella Fitria

    Minggu, 9 Februari 2020 1:04 PM at 1:04 pm

    Pengin nyobaaa, tp liat kodingnya doang udah pusing huhu

  10. dewi Aprilia

    Senin, 10 Februari 2020 8:51 PM 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 11:31 AM at 11:31 am

    berpinar mata tgk code code 😉

  12. Arena Publik

    Kamis, 13 Februari 2020 6:27 PM at 6:27 pm

    baru tau ada yang seperti ini hhehe. infrmatif sekli

  13. Rohyati Sofjan

    Selasa, 25 Februari 2020 5:49 PM 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.

  14. Einid Shandy

    Minggu, 1 Maret 2020 2:30 PM at 2:30 pm

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

    Keren. Keren. Pasti bermanfaat.

  15. Kuskus Pintar

    Jumat, 17 April 2020 1:19 PM at 1:19 pm

    Bisa menjadi rekomendasi ini bagi yang nyari hehe

    Informatif, terima kasih ya kak 🙂

Leave a Reply

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

More in Pemrograman

    Advertisement

    Trending

    Advertisement

    Topik