Selasa, 18 Juni 2013

Berbohong yang Diperbolehkan

Berbohong yang Diperbolehkan


Sobat muda, berbohong atau berdusta itu dilarang di mana pun tempatnya dan bagaimana pun keadaannya. Kecuali, beberapa hal saja yang telah dijelaskan oleh Rasul yang Mulia, Muhammad Shallallahu ‘alaihi wasallam. Nah, apa itu jenis berbohong yang diperbolehkan? Mari kita simak penjelasan berikut.
Dari Ummu Kultsum binti Uqbah radhiallahu anha bahwa dia mendengar Rasulullah shallallahu ‘alaihi wasallam bersabda:
لَيْسَ الْكَذَّابُ الَّذِي يُصْلِحُ بَيْنَ النَّاسِ فَيَنْمِي خَيْرًا أَوْ يَقُولُ خَيْرًا
“Bukanlah disebut pendusta orang yang menyelesaikan perselisihan di antara manusia dengan cara dia menyampaikan hal-hal yang baik atau dia berkata hal-hal yang baik”. (HR. Al-Bukhari no. 2692 dan Muslim no. 2605)
Maksudnya: Walaupun apa yang dia sampaikan atau katakan itu tidak benar, akan tetapi dia mengucapkannya agar terwujud perdamaian di antara kedua belah pihak.
Dalam riwayat Muslim ada tambahan:
وَلَمْ أَسْمَعْ يُرَخَّصُ فِي شَيْءٍ مِمَّا يَقُولُ النَّاسُ كَذِبٌ إِلَّا فِي ثَلَاثٍ الْحَرْبُ وَالْإِصْلَاحُ بَيْنَ النَّاسِ وَحَدِيثُ الرَّجُلِ امْرَأَتَهُ وَحَدِيثُ الْمَرْأَةِ زَوْجَهَا
“Saya tidak pernah mendengar diperbolehkannya dusta yang diucapkan oleh manusia kecuali dalam tiga hal: Dusta dalam peperangan, dusta untuk mendamaikan pihak-pihak yang bertikai, dan dusta suami terhadap istri atau istri terhadap suami.”

Penjelasan ringkas:
Dusta merupakan dosa yang sangat besar dan amalan yang sangat jelek. Hanya saja, jika pada suatu keadaan tertentu, kedustaan bisa membawa kemaslahatan syar’i yang lebih besar daripada mudharat kedustaan itu, maka ketika itu dusta diperbolehkan sebutuhnya. Hanya saja ini bukan berarti setiap orang bisa berijtihad dengan pemikirannya untuk menilai suatu dusta itu boleh atau tidak, karena Rasulullah shallallahu alaihi wasallam sendiri telah menegaskan bentuk dusta yang diperbolehkan dalam syariat. Karenanya kita wajib terbatas pada apa yang beliau sebutkan dan selainnya tetap dalam hukum haram dan merupakan dusta yang tercela.
Adapun kedustaan yang diperbolehkan adalah:
1.    Dusta untuk mendamaikan pihak yang bertikai.
2.    Dusta dalam perang. Jabir bin Abdillah radhiallahu ‘anhuma berkata: Nabi shallallahu ‘alaihi wasallam bersabda:
الْحَرْبُ خَدْعَةٌ
“Perang adalah tipu daya”. (HR. Al-Bukhari dan Muslim)
Adapun lafazh tambahan dalam riwayat Muslim di atas, maka ada perselisihan di antara para perawi hadits tersebut: Apakah ucapannya itu merupakan ucapan Ummu Kultsum ataukah dia merupakan ucapan Muhammad bin Muslim Az-Zuhri (Tabi’in). Dan Imam Muslim telah mengisyaratkan perbedaan riwayat ini dalam kitab Shahihnya. Jika ucapan itu adalah ucapan Ummu Kultsum, maka ucapan ini mempunyai hukum marfu’ (sabda Nabi) dan bisa dijadikan hujjah. Tapi jika dia adalah ucapan Az-Zuhri maka dia hanya mempunyai hukum mauquf (ucapan sahabat) yang tidak bisa dijadikan hujjah untuk membolehkan sebagian bentuk kedustaan.
Ala kulli hal, jika hukumnya marfu’ maka kita bisa menambahkan dusta suami istri dalam dusta yang diperbolehkan. Akan tetapi jika hukum ucapan itu hanya mauquf maka dusta yang diperbolehkan hanya dua dan dusta suami istri tetap merupakan dusta yang diharamkan, wallahu a’lam.
Artikel terinspirasi dari blog al-atsariyyah.com yang diasuh oleh Ustadz Hammad Abu Muawiyah.

Kamis, 06 Juni 2013

Pemrograman Pemakaian Listrik






 



















Public Class Form1

    Public Perintah As String
    Private Sub ke_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ke.KeyPress
        Dim tombol2 As Integer = Asc(e.KeyChar)

        Dim x As String
        If tombol2 = 13 Then
            If ke.Text = "" Then
                MsgBox("Masukkan Untuk Berapa Bulan!")
            Else
                pemakaian.Text = ke.Text * 100000
                denda.Text = pemakaian.Text * 0.1
            End If
        End If
    End Sub

    Sub BuatTabel()
        LV.Columns.Add("Untuk Bulan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Ke", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Denda", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Bayar", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = bulan.Text
        Lst.SubItems.Add(ke.Text)
        Lst.SubItems.Add(pemakaian.Text)
        Lst.SubItems.Add(denda.Text)
        Lst.SubItems.Add(totalbayar.Text)
        LV.Items.Add(Lst)
    End Sub


    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        totalbayar.Text = Val(pemakaian.Text) + Val(denda.Text)
    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LST.Click
        IsiTabel()
        bulan.Text = ""
        ke.Text = ""
        pemakaian.Text = ""
        denda.Text = ""
        totalbayar.Text = ""
    End Sub

Selasa, 04 Juni 2013

CREATE YOUR KURSOR

          MEMBUAT  KATA-KATA YANG MENGIKUTI KURSOR BLOG ANDA

......,,
DAN GAN AKU MW MNTA ILMU NYA LGE DONK BAGAIMANA CARA NYA AGAR KATA-KATA DAPAT MENGIKUTI JALAN NYA KURSOR KITA ITU GAN ?......
Tanpa basa basi lagi, ayo kita coba bersama-sama khususnya bagi para pengguna blogspot
1. Login akun Blogger
2. Masuk menu Rancangan
3. Pilih Eleman Laman kemudian tambahkan gadget

4. Pilih HTML/JavaScript

5. Masukkan kode script di bawah ini
<style type="text/css">
    /* Circle Text Styles */
    #outerCircleText {
    /* Optional - DO NOT SET FONT-SIZE HERE, SET IT IN THE SCRIPT */
    font-style: italic;
    font-weight: bold;
    font-family: 'comic sans ms';
    color: #000000;
    /* End Optional */


    /* Start Required - Do Not Edit */
    position: absolute;top: 0;left: 0;z-index: 3000;cursor: default;}
    #outerCircleText div {position: relative;}
    #outerCircleText div div {position: absolute;top: 0;left: 0;text-align: center;}
    /* End Required */
    /* End Circle Text Styles */
    </style>


    <script type="text/javascript">
    /* Circling text trail- Tim Tilton
    Website: http://www.tempermedia.com/
    Visit: http://www.dynamicdrive.com/ for Original Source and tons of scripts
    Modified Here for more flexibility and modern browser support
    Modifications as first seen in http://www.dynamicdrive.com/forums/
    username:jscheuer1 - This notice must remain for legal use
    */


    ;(function(){


    // Your message here (QUOTED STRING)
    var msg = "Tutorial Blog";


    /* THE REST OF THE EDITABLE VALUES BELOW ARE ALL UNQUOTED NUMBERS */


    // Set font's style size for calculating dimensions
    // Set to number of desired pixels font size (decimal and negative numbers not allowed)
    var size = 24;


    // Set both to 1 for plain circle, set one of them to 2 for oval
    // Other numbers & decimals can have interesting effects, keep these low (0 to 3)
    var circleY = 0.75; var circleX = 2;


    // The larger this divisor, the smaller the spaces between letters
    // (decimals allowed, not negative numbers)
    var letter_spacing = 5;


    // The larger this multiplier, the bigger the circle/oval
    // (decimals allowed, not negative numbers, some rounding is applied)
    var diameter = 10;


    // Rotation speed, set it negative if you want it to spin clockwise (decimals allowed)
    var rotation = 0.4;


    // This is not the rotation speed, its the reaction speed, keep low!
    // Set this to 1 or a decimal less than one (decimals allowed, not negative numbers)
    var speed = 0.3;


    ////////////////////// Stop Editing //////////////////////


    if (!window.addEventListener && !window.attachEvent || !document.createElement) return;


    msg = msg.split('');
    var n = msg.length - 1, a = Math.round(size * diameter * 0.208333), currStep = 20,
    ymouse = a * circleY + 20, xmouse = a * circleX + 20, y = [], x = [], Y = [], X = [],
    o = document.createElement('div'), oi = document.createElement('div'),
    b = document.compatMode && document.compatMode != "BackCompat"? document.documentElement : document.body,


    mouse = function(e){
    e = e || window.event;
    ymouse = !isNaN(e.pageY)? e.pageY : e.clientY; // y-position
    xmouse = !isNaN(e.pageX)? e.pageX : e.clientX; // x-position
    },


    makecircle = function(){ // rotation/positioning
    if(init.nopy){
    o.style.top = (b || document.body).scrollTop + 'px';
    o.style.left = (b || document.body).scrollLeft + 'px';
    };
    currStep -= rotation;
    for (var d, i = n; i > -1; --i){ // makes the circle
    d = document.getElementById('iemsg' + i).style;
    d.top = Math.round(y[i] + a * Math.sin((currStep + i) / letter_spacing) * circleY - 15) + 'px';
    d.left = Math.round(x[i] + a * Math.cos((currStep + i) / letter_spacing) * circleX) + 'px';
    };
    },


    drag = function(){ // makes the resistance
    y[0] = Y[0] += (ymouse - Y[0]) * speed;
    x[0] = X[0] += (xmouse - 20 - X[0]) * speed;
    for (var i = n; i > 0; --i){
    y[i] = Y[i] += (y[i-1] - Y[i]) * speed;
    x[i] = X[i] += (x[i-1] - X[i]) * speed;
    };
    makecircle();
    },


    init = function(){ // appends message divs, & sets initial values for positioning arrays
    if(!isNaN(window.pageYOffset)){
    ymouse += window.pageYOffset;
    xmouse += window.pageXOffset;
    } else init.nopy = true;
    for (var d, i = n; i > -1; --i){
    d = document.createElement('div'); d.id = 'iemsg' + i;
    d.style.height = d.style.width = a + 'px';
    d.appendChild(document.createTextNode(msg[i]));
    oi.appendChild(d); y[i] = x[i] = Y[i] = X[i] = 0;
    };
    o.appendChild(oi); document.body.appendChild(o);
    setInterval(drag, 25);
    },


    ascroll = function(){
    ymouse += window.pageYOffset;
    xmouse += window.pageXOffset;
    window.removeEventListener('scroll', ascroll, false);
    };


    o.id = 'outerCircleText'; o.style.fontSize = size + 'px';


    if (window.addEventListener){
    window.addEventListener('load', init, false);
    document.addEventListener('mouseover', mouse, false);
    document.addEventListener('mousemove', mouse, false);
    if (/Apple/.test(navigator.vendor))
    window.addEventListener('scroll', ascroll, false);
    }
    else if (window.attachEvent){
    window.attachEvent('onload', init);
    document.attachEvent('onmousemove', mouse);
    };


    })();
    </script>
6. Simpan
Selesai, sekarang kursor akan diikuti dengan teks,
* Yang berwarna orange, berturut-turut adalah kode warna dan teks yang diinginkan
** Yang berwarna hijau ukuran huruf, jarak spasi, besar lingkaran yang dibentuk, kecepatan berputar, dan kecepatan mengikuti gerak mouse

Contoh hasil dapat dilihat pada halaman berikut
Sumber referensi :  tersesat dalam kabut?

Minggu, 02 Juni 2013

Penghitungan Penjualan Barang






Public Class Form1
Sub BuatTabel()
LV.Columns.Add(“No Pembelian”, 90, HorizontalAlignment.Center)
LV.Columns.Add(“Kode Barang”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“Nama Barang”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“Merk”, 72, HorizontalAlignment.Center)
LV.Columns.Add(“Harga”, 70, HorizontalAlignment.Center)
LV.Columns.Add(“Jumlah Beli”, 70, HorizontalAlignment.Center)
LV.Columns.Add(“TotalHarga”, 90, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub IsiTable()
Dim Lst As New ListViewItem
Lst.Text = no.Text
Lst.SubItems.Add(kode.Text)
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(merk.Text)
Lst.SubItems.Add(harga.Text)
Lst.SubItems.Add(jmlh.Text)
Lst.SubItems.Add(total.Text)
LV.Items.Add(Lst)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(kode.Text, 2)
If x = “TS” Then
merk.Text = “Thosiba”
ElseIf x = “VG” Then
merk.Text = “V-Gen”
End If
x = Microsoft.VisualBasic.Right(kode.Text, 3)
If x = “001″ Then
nama.Text = “Flashdisk 4GB”
ElseIf x = “002″ Then
nama.Text = “Flashdisk 2GB”
End If
If kode.Text = “TS001″ Then
harga.Text = “105000″
ElseIf kode.Text = “TS002″ Then
harga.Text = “75000″
ElseIf kode.Text = “VG001″ Then
harga.Text = “90000″
ElseIf kode.Text = “VG002″ Then
harga.Text = “60000″
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BuatTabel()
kode.Items.Add(“TS001″)
kode.Items.Add(“TS002″)
kode.Items.Add(“VG001″)
kode.Items.Add(“VG002″)
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click
no.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jmlh.Text = ""
total.Text = ""
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
IsiTable()
no.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jmlh.Text = ""
total.Text = ""
End Sub
Private Sub semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles semua.Click
LV.Items.Clear()
End Sub
Private Sub pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub jmlh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jmlh.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
total_TextChanged(sender, e)
total.Text = jmlh.Text * harga.Text
End If
End Sub
Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged
End Sub
End Class