Yuk berlomba dalam kebaikan,sedekah memudahkan rejeki loh — Ibunyadafiq

💎 DAHSYATNYA SEDEKAH DI BULAN RAMADHAN 🌕 🍃 Rasul kita shallallahu ‘alaihi wa sallam, teladan terbaik bagi kita, beliau adalah orang yang paling dermawan, dan kedermawanan beliau lebih dahsyat lagi di bulan Ramadhan. 👉 Hal ini diceritakan oleh Ibnu Abbas radhiallahu’anhuma : 🍃 كان رسول الله صلى الله عليه وسلم أجود الناس ، وكان أجود […]

melalui Yuk berlomba dalam kebaikan,sedekah memudahkan rejeki loh — Ibunyadafiq

Mendapatkan nilai random di lazarus

Dalam pembuatan No urut kadang kita memerlukan no acak. Berikut saya sampaikan bagaimana untul mendapatkan nilai acak tersebut.

Unit System]

procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
Randomize;
for I := 1 to 50 do
   begin
       Label1.Caption := IntToStr(Random(I));
   end;
end;

Download Repository Ubuntu Server 14.04

Bagi teman teman yang ingin download repository ubuntu server 14.04 ada di web teman kita https://musaamin.web.id/dvd-repository-ubuntu-14-04-lts/

Semoga bermanfaat

Sejenak Memikirkan Akhirat “Yuk berpakaian syar’i”

(Oleh: Zhafira Ali/Manjanik) – Berpakaian atau menutup aurat bagi seorang Muslim dan Muslimah adalah suatu kewajiban.

Pakaian yang dikenakan oleh seorang hamba memiliki nilai ibadah di sisi Allah Ta’ala. Dia dan Rasul-Nya telah menetapkan kaidah umum dalam berpakaian, yang fungsinya adalah menutup aurat seorang hamba. Melalui cara berpakaian, sesungguhnya Allah berkehendak memuliakan manusia sebagai makhluk yang mulia, sopan dan sebagai identitas keislaman seseorang.

Allah Ta’ala berfirman, “Wahai anak cucu Adam! Sesungguhnya telah Kami turunkan kepada kalian pakaian untuk menutup aurat kalian dan perhiasan bagi kalian. Tetapi pakaian takwa, itulah yang lebih baik. Demikianlah sebagian tanda-tanda kekuasaan Allah. Mudah-mudahan mereka ingat”. (QS. Al-A’raaf 7 : 26)

Kriteria pakaian bukanlah berdasarkan kepantasan atau mode yang sedang trend orang-orang terkenal saat ini, melainkan berdasarkan tuntunan dari Al-Qur’an dan As-Sunnah agar bisa bernilai ibadah. Jika kedua sumber hukum Islam ini telah memutuskan suatu hukum, maka seorang Muslim dan Muslimah jelas dilarang untuk membantahnya.

Allah berfirman, “Dan tidaklah patut bagi laki-laki yang mukmin dan tidak pula bagi perempuan yang mukmin apabila Allah dan Rasul-Nya telah menetapkan suatu ketetapan akan ada bagi mereka pilihan (yang lain) tentang urusan mereka. Barang siapa mendurhakai Allah dan rasul-Nya, maka sungguhlah ia telah sesat, dengan kesesatan yang nyata”. (QS. Al-Ahzab 33 : 36)

Namun para perancang mode yang gemar menggabungkan antara model syar’i dengan gaya trendy, dipercantik dengan hiasan berupa manik-manik yang mencolok, diberi belahan panjang, atau bahkan diapadukan dengan kain yang transparan, seringkali mereka menganggap hasil rancangannya itu adalah pakaian muslim/muslimah syar’i. Padahal jika tidak memenuhi syarat sebagaimana yang diperintahkan oleh Allah dan Rasulullah, maka pakaian itu tidaklah cocok untuk dinamakan sebagai pakaian syar’i

Sumber: Yuk berpakaian syar’i

Sejenak Memahami Primary Domain Controller Di Ubuntu

Programer bingung ketika tidak menguasai jaringan, progremer juga perlu belajar jaringan. MAri simak penjelasan dari ugos UGM berikut.

Samba adalah himpunan aplikasi yang bertujuan agar komputer dengan sistem operasi Linux, BSD ( atau UNIX lainnya) dapat bertindak sebagai file dan print server yang berbasis protokol SMB (session message block). Jaringan yang semacam ini biasa dijumpai pada Windows workgroup atau Windows NT Domain. Samba juga dilengkapi dengan beberapa program bantu sehingga sistem operasi Linux (dan UNIX lainnya) bisa mengakses resources yang ada pada jaringan Windows yang telah ada. Bisa dikatakan, Samba adalah jembatan penghubung antara Windows dan UNIX.

Samba terdiri atas dua program yang berjalan di background: SMBD dan NMBD. Secara singkat dapat disebutkan bahwa SMBD adalah file server yang akan menghasilkan proses baru untuk setiap client yang aktif sementara NMBD bertugas mengkonversi nama komputer (NetBIOS) menjadi alamat IP sekaligus juga memantau share yang ada di jaringan. Kerja SMBD sendiri diatur melalui file konfigurasi /etc/samba/smb.conf. Dengan membuat file konfigurasi yang tepat, Samba dapat dijadikan file server, print server, domain controller, dan banyak fungsi lainnya.

Berikut ini adalah cara mengkonfigurasi Samba Server Sebagai PDC :

  1. pertama dowload program samba dan accesorisnya :

    $ sudo apt-get install samba samba-common samba-doc libcupsys2-gnutls10 libkrb53 winbind smbclient
  2. Konfigurasi /etc/samba/smb.conf sebagai berikut :

    [global]
    workgroup = ubuntudk.com --> ubah sesuain yang kita mau
    netbios name = ubuntuserver --> ubah sesuain yang kita mau
    server string = %h server (Samba, Ubuntu) --> ubah sesuain yang kita mau
    passdb backend = tdbsam
    security = user
    username map = /etc/samba/smbusers
    name resolve order = wins bcast hosts
    domain logons = yes
    preferred master = yes
    wins support = yes
    
    # Useradd scripts
    add user script = /usr/sbin/useradd -m %u
    delete user script = /usr/sbin/userdel -r %u
    add group script = /usr/sbin/groupadd %g
    delete group script = /usr/sbin/groupdel %g
    add user to group script = /usr/sbin/usermod -G %g %u
    add machine script = /usr/sbin/useradd -s /bin/false/ -d /var/lib/nobody %u
    idmap uid = 15000-20000
    idmap gid = 15000-20000
    
    # sync smb passwords woth linux passwords
    passwd program = /usr/bin/passwd %u
    passwd chat = *Enter\snew\sUNIX\spassword:* %n\n *Retype\snew\sUNIX\spassword:* %n\n .
    passwd chat debug = yes
    unix password sync = yes
    
    # set the loglevel
    log level = 3
    
    [homes]
    comment = Home
    valid users = %S
    read only = no
    browsable = no
    
    [netlogon]
    comment = Network Logon Service
    path = /home/samba/netlogon
    admin users = Administrator
    valid users = %U
    read only = no
    
    [profile]
    comment = User profiles
    path = /home/samba/profiles
    valid users = %U
    create mode = 0600
    directory mode = 0700
    writable = yes
    browsable = no
  3. Buat beberapa direktori berikut sebagai domain logon dan profile :

    mkdir /home/samba
    mkdir /home/samba/netlogon
    mkdir /home/samba/profiles
    mkdir /var/spool/samba
    chmod 777 /var/spool/samba/
    chown -R root:users /home/samba/
    chmod -R 771 /home/samba/
  4. Lalu restart samba

    /etc/init.d/samba restart
  5. Ubah pada bagian /etc/nsswitch.conf, pada baris :

    hosts: files dns

    menjadi :

    hosts: files wins dns
  6. tambahkan beberapa pc clinet pada /etc/hosts :

    127.0.0.1 localhost
    192.168.0.136 ubuntuserver.dk.co.id ubuntuserver.dk.co.id
    192.168.0.131 ciko
    192.168.0.133 dian
    192.168.0.135 gustin
  7. Tambahkan user root kedalam user samba :

    smbpasswd -a root
    New SMB password:
    Retype new SMB password:
  8. Buat file /etc/samba/smbusers lalu jalankan :

    echo "root = Administrator" > /etc/samba/smbusers

    mengartikan bahwa user root = user administrator pada windows

  9. Test drive, apakah settingan kita dah benar :

    smbclient -L localhost -U%

    akan menghasilkan output :

    Domain=[UBUNTUDK.COM] OS=[Unix] Server=[Samba 3.0.22]
    
    Sharename Type Comment
    --------- ---- -------
    netlogon Disk Network Logon Service
    allusers Disk All Users
    IPC$ IPC IPC Service (ubuntuserver server (Samba, Ubuntu))
    ADMIN$ IPC IPC Service (ubuntuserver server (Samba, Ubuntu))
    Domain=[UBUNTUDK.COM] OS=[Unix] Server=[Samba 3.0.22]
    
    Server Comment
    --------- -------
    UBUNTUSERVER ubuntuserver server (Samba, Ubuntu)
    
    Workgroup Master
    --------- -------
    UBUNTUDK.COM UBUNTUSERVER
  10. Lalu kita setup domain group untuk windows, jalankan perintah :

    net groupmap modify ntgroup="Domain Admins" unixgroup=root
    net groupmap modify ntgroup="Domain Users" unixgroup=users
    net groupmap modify ntgroup="Domain Guests" unixgroup=nogroup
  11. Tambah user linux dan user samba dengan cara :
    • user linux :

      useradd ciko -m -G users
    • user samba :

      smbpasswd -a ciko
  12. Sekarang tambahan direktori share yang akan dipakai oleh seluruh user :

    mkdir -p /home/shares/allusers
    chown -R root:users /home/shares/allusers/
    chmod -R ug+rwx,o+rx-w /home/shares/allusers/
  13. Ubah juga pada /etc/samba/smb.conf, tambahkan baris berikut :

    [allusers]
    comment = All Users
    path = /home/shares/allusers
    valid users = @users
    force group = users
    create mask = 0660
    directory mask = 0771
    writable = yes
  14. Lalu restart samba kembali :

    /etc/init.d/samba restart
  15. Langkah Yang terakhir dalah dengan menjoinkan mesin windows ke pdc linux kita, dengan cara : ( Testing Dengan Windows XP )
    • click kanan pada mycomputer
    • pilih computer name lalu change
    • masukan domain PDC pada bagisn domain
    • akan muncul windows yang meminta memasukan user dan password, pada langkah ini masukan user root dan password samba untuk user root
    • OK
    • Akan muncul bahwa kita sukses menjoinkan mesin windows ke PDC linux

Sumber : https://ugos.ugm.ac.id

Membuat slide show di delphi

Membuat slide show tanpa menggunakan componen khusus ( picshow ).
Disini saya menggunakan komponen Timer, DbImage, dan Tpanel. Disini kita akan menampilkan 4gambar saja. Gambar tersimpan di database sehingga setiap saat bisa di rubah gambarnya.

Sediakan 4 timer, semua timer isikan 5000. Timer 1 enabled=true dan timer yang lain enabled=false. Klik 2x ditimer 1 dan isikan kode berikut

Dbimage1.visible:=true;
Dbimage2.visible:=false;
Dbimage3.visible:=false;
Dbimage4.visible:=false;

Timer1.enabled:=false;
Timer2.enabled:=true;
Timer3.enabled:=false;
Timer4.enabled:=false;

Klik 2xTimer2

Dbimage1.visible:=false;
Dbimage2.visible:=true;
Dbimage3.visible:=false;
Dbimage4.visible:=false;

Timer1.enabled:=false;
Timer2.enabled:=false;
Timer3.enabled:=true;
Timer4.enabled:=false;

Klik 2x Timer3

Dbimage1.visible:=false;
Dbimage2.visible:=false;
Dbimage3.visible:=true;
Dbimage4.visible:=false;

Timer1.enabled:=false;
Timer2.enabled:=false;
Timer3.enabled:=false;
Timer4.enabled:=true;

Klik 2x timer 4
Dbimage1.visible:=true;
Dbimage2.visible:=false;
Dbimage3.visible:=false;
Dbimage4.visible:=true;

Timer1.enabled:=true;
Timer2.enabled:=false;
Timer3.enabled:=false;
Timer4.enabled:=false;

Ini logikanya, untuk tampilan disesuaikan masing2. Semoga bermanfaat.

Aplikasi Layanan Rumah Sakit berbasis android

Pengembangan pelayanan melalui media android sangat membantu pasien untuk mendapatkan layanan dari rumah sakit.

Kemudahan dalam memperoleh informasi jadwal dokter sampai dengan daftar secara online, pasien akan mudah mendapatkan pelayanan rumah sakit.
image

Diatas screen shot halaman utama aplikasi pelayanan rumah sakit berbasis android. Yang saya buat dengan delphi.

Berikut tampilan di setiap menu.

image

image

image

image