SYIFA KOST BINJAI SYARIAH

Rumah Kos Binjai Syariah
Bagi anda yg lagi nyari kost2an or guest house di Kota Binjai bisa datang ke Syifa Kost Binjai y guys...
Lokasi strategis sebelah sekolah Yaspend PABA, Akbid Kharisma Husada, SMA Negeri 3.
dari lokasi jarak 5 menit ke RS Djoelham, Tanah lapang & pusat Kota Binjai, 2 menit ke SMA 5 Binjai, Gor Binjai, Polsek, KPP Pratama (Kantor Pajak).
di lokasi juga dilewati angkot y guys
Fasilitas:
- air bersih gratis (pakai tangki air)
- listrik sendiri (token per kamar)
- ruang tempat penyimpan barang
- kamar mandi di dalam & pakai shower
- kasur springbed
- kipas angin
- AC
- TV
- WIFI Gratis
- CCTV
- mini garden
- tempat parkir luas
Suasana sejuk dan nyaman, Luas kamar 3x4 max 3 orang/ kamar..
Kita ada introduce price y krn baru opening
Bagi yang minat boleh tanya2 & lihat2 dulu
Saat ini kita lagi ada promosi harga kamar kost di syifa kost n guest house
#PRIVASI : penghuni kamar kost cari teman sekamar sendiri
#NON PRIVASI : kami yg mencarikan teman sekamar
PRIVASI (MAX 3 ORG) :
Fasilitas :
Tpt Tidur + AC : 900,000/kamar
Tpt Tidur + Kps Angin : 750,000/kamar
Hanya Kamar : 500,000/kamar
NON PRIVASI (MAX 3 ORG) :
Fasilitas :
Tpt Tidur + AC :
Jlh Org 1 : 700,000/org
Jlh Org 2 : 550,000/org
Jlh Org 3 : 400,000/org
Tpt Tidur + Kps Angin
Jlh Org 1 : 550,000/org
Jlh Org 2 : 450,000/org
Jlh Org 3 : 350,000/org
Hanya Kamar
Jlh Org 1 : 350,000/org
Jlh Org 2 : 300,000/org
Jlh Org 3 : 250,000/org

Silahkan Hub :
0812-6052-2896
0812-2231-7170

Alamat google maps :

https://goo.gl/maps/GPrUxyHXFRBp8H9A8

Atau :

https://bit.ly/2VQzEUb


















Tata Cara Pembayaran PDAM TIRTA TANJUNG Menggunakan Fasilitas ATM Bank Sumut


Tata Cara Pembayaran PDAM TIRTA TANJUNG
Menggunakan Fasilitas ATM Bank Sumut

1. Masukkan kartu ATM anda ke mesin ATM dan masukkan PIN


2. Pilih menu PDAM


3. Pilih menu PDAM SUMUT


4. Pilih menu CEK KODE INSTANSI


5. Setelah diketahui kode instansinya, pilih menu MASUKKAN KODE


6. Masukkan Kode PDAM nya, kemudian pilih menu BENAR


7. Masukkan ID Pelanggan kemudian pilih menu LANJUTKAN


8. Akan muncul data tagihan, pilih menu YA untuk membayar


9. Setelah berhasil akan tercetak struk bukti bayar


10. Terima kasih...




JAVA Calender Membandingkan 2 tanggal tanpa jam pada objek Calender (date/calendar)

Bagaimana membandingkan 2 tanggal TANPA ADA JAM ? Jadi yg dibandingkan tgl nya saja.
Java tidak bisa menghilangkan waktu dari date dan calendar,
biasanya solusinya adalah menyamakan jam, menit, detik dan milisecond semua object tanggal. jika semua sama otomatis bisa dianggap tidak ada.

berikut ini contohnya :

/*
 * To change this license header, choose License Headers in Project Properties.
 * To change this template file, choose Tools | Templates
 * and open the template in the editor.
 */
package olap.test;

import java.util.Calendar;
import java.util.Date;
import java.util.GregorianCalendar;

/**
 *
 * @author yanuarhadiyanto
 */
public class TesPerbandinganHanyaTanggal {

    public static void main(String[] args) {
        //tanggal awal-------
        Date tglwaktu1 = new Date(2015 - 1900, 1, 1, 10, 20);
        Date tglwaktu2 = new Date(2016 - 1900, 2, 3, 10, 30);

        System.out.println(tglwaktu1);
        System.out.println(tglwaktu2);

        //buat calendar----------
        Calendar c1 = new GregorianCalendar();
        Calendar c2 = new GregorianCalendar();

        //masukkan tanggal ke calendar
        c1.setTime(tglwaktu1);
        c2.setTime(tglwaktu2);
        
        //waktu tidak bisa dihilangkan dari date/calendar
        //jadi jika ingin melakukan perbandingan tgl tanpa waktu, semua waktu
        //diset sama pada contoh ini di set jam ke 0 menit ke 0 second ke 1
        samakanWaktu(c1);
        samakanWaktu(c2);
        
        //hasilnya
        System.out.println(c1);
        System.out.println(c2);
    }

    public static void samakanWaktu(Calendar c) {
        c.set(Calendar.HOUR, 0);
        c.set(Calendar.MINUTE, 0);
        c.set(Calendar.SECOND, 0);
        c.set(Calendar.MILLISECOND, 1);
    }
}

Tanda - tanda Hewan Terkena Avian Influenza

Tanda - tanda Hewan Terkena Avian Influenza

Author : JustSensei
________________________________________________

Avian Influenza a.k.a flu burung sekarang sudah seperti primadona saja, setiap kali pemberitaan selalu membuat heboh. Sampai - sampai berita sekarang mengenai virus H5N1 yang menular manusia dengan perantara manusia menjadi hal yang hangat diperbincangkan ^o^

Terlepas dari perbincangan yang berbau ilmiah tingkat tinggi, kali ini saya hanya memberi gambaran tentang hewan yang terkena virus flu burung itu seperti apa. Barangkali ada yang penasaran, kayak apa sih hewan yang terkena flu burung itu? Nah, disini akan diberikan gambaran, ngga terlalu terperinci sih, namun lumayan lah hehehe.....

Sebenarnya saya juga mau memberi foto, cuman belum sempat mengeditnya. Jadi mungkin lain kali akan saya upload foto - foto hewan yang sedang "kasmaran" dengan Avian Influenza :P

________________________________________________

Karena penyakit ini berasal dari bangsa unggas, maka hewan yang akan kita soroti disini adalah bangsa unggas yang sudah kita kenal bersama - sama, yaitu Ayam. Sebenarnya tanda - tanda ayam terkena AI itu cukup simpel.

Pertama

Kita coba tengok pada bagian pial (jengger) ayam. Warna pial ayam yang normal adalah merah bersih dan tegak/berdiri. Pada ayam yang terkena AI (berikutnya disebut penderita), pialnya bengkak kebiruan dan layu. Biasanya layu dulu baru bengkak.

Kedua

Ceker atau kaki penderita berwarna merah bengkak agak biru. Warna normalnya adalah kuning.

Ketiga

Di daerah sekitar leher ayam ada kantong yang berisi air (hmm.... lebih tepatnya lendir). Sekujur tubuh luar ayam ada bercak - bercak biru bengkak.

Keempat

Penderita lemas dan sulit bernapas. Ciri ini sebenarnya umum, namun jika kita sangkut pautkan dengan ciri satu sampai tiga di atas maka akan dapat diidentifikasi.

Kelima

Jika kita belah ayam tersebut, maka terlihat banyak lendir di sekujur tubuh ayam. Pada bagian organ dalam terjadi pendarahan yang bisa kita lihat.

Keenam

Kita juga bisa melihat feses yang dihasilkan. Feses penderita berwarna putih dan hijau. Namun perlu diketahui bahwa ciri ini juga bisa mengarah pada penyakit kolera ayam. Toh, sekali temali tiga uang, khan? kita bisa identifikasi penyakit ayam ini cenderung kemana (tentu saja bersama dengan lima tanda di atas).

Gejala lain yg kemungkinan bisa timbul antara lain adalah :
Jengger yang tidak ditumbuhi bulu berwarna biru keunguan
Pial yang tidak ditumbuhi bulu berwarna biru keunguan
Kulit perut yang tidak ditumbuhi bulu berwarna biru keunguan
Keluar cairan dari mata
Keluar cairan dari hidung
Pembengkakkan di daerah bagian kepala
Pembengkakkan di daerah bagian muka
Pendarahan di bawah kulit (sub kutan)
Diare
Batuk
Bersin
Depresi
Kehilangan nafsu makan dan minum
Mengalami kaki lumpuh
Jalan sempoyongan
Lehernya terpuntir
Kepala berputar-putar
Perdarahan pada otot paha
Perdarahan pada jaringan lemak
Kerusakan pada trakhea
Perdarahan pada trakhea
Gangguan pernafasan
Perdarahan titik (ptechie) pada daerah dada, kaki dan telapak kaki
Terjadi kematian tinggi
Terjadi peradangan pada sistem pencernaan (usus, hati, limpa)
Bintik-bintik pendarahan pada otot dada
Bintik-bintik pendarahan merata pada proventrikulus (lambung kelenjar)
Pendarahan pada ovarium
Pendarahan pada pankreas

Bagaimana dengan hewan yang lain? seperti babi, yang katanya bisa tertular AI dan menghasilkan varian baru, H5N1?

Pada dasarnya sama. Gejala yang mudah dikenali adalah kondisi babi yang menurun. Hanya saja saya belum mendapatkan data pengamatan yang kompeten dan teruji. Apabila dapat, akan saya bahas lebih lanjut ^o^

Bagaimana dengan ayam yang sehat dan kandangnya satu dengan ayam yang sakit? Apa bisa menular? Nasibnya gimana tuh?

Tentu saja tertular. Penularan bisa dilakukan lewat feses yang jatuh, bisa juga lewat air liur penderita. Tentu saja perlu dilakukan isolasi, pemisahan mana hewan yang sehat dan sakit. Biasanya untuk pencegahan dan perawatan hewan sehat dengan menggunakan semprotan disinfektan secara teratur, selang satu jam.

Apakah telur yang dihasilkan bisa dimakan?

Kalau soal bisa dikonsumsi atau tidak, mending jangan dikonsumsi deh ^^
Oh ya, ada hal yang menarik! telur yang dihasilkan penderita biasanya tidak memiliki kuning telur loh. Hal itu dibuktikan dengan penerawangan dengan lampu. Apalagi jika penderita dikawinkan, otomatis telurnya tidak berjanin!!

Apakah penyakit AI dari unggas bisa langsung mengenai manusia?

Secara teoritis hal itu masih tidak bisa dibenarkan. Alasannya adalah secara genetika manusia dan unggas itu berbeda jauh. Namun, bagi saya hal itu bukanlah hal yang mustahil, karena bisa saja hal tersebut terjadi ^^ Sekarang ini masih terus diadakan penelitian secara berkala.

Jadi kita mesti gimana??

Tetap waspada! hehehe..... yang penting jaga kebersihan lingkungan aja. Apabila mau berkunjung ke peternakan, usahakan untuk minta disemprotkan disinfektan, paling tidak minta disinfektan buat cuci tangan dan kaki. Nah, biasakan cuci tangan yah ^^

an error occurred creating the form. see exception.innerexception for details. The error is: Class not registered (Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)) windows 8

an error occurred creating the form. see exception.innerexception for details. The error is: Class not registered (Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)) windows 8



1.  On the "Tools" menu, click "Options".
2.  Check "Show all settings".
3.  Expand "Projects and Solutions and click General".
4.  Check "Show advanced build configurations".
5.  Click "OK"
6.  On the "Build" click "Configuration Manager...".  (Add it if it isn't there)
7.  In the "Acitve solution platform:" drop down, click "".
8.  In the "Type or select the new platform:" drop down, click "x86".
9.  Click "OK".
10.  Click "Close".




















pesan error sewaktu membuka fie excel old format or invalid type library. (Exception from HRESULT : 0x80028018 (TYPE_E_INV_DATA_READ)) pada VB

jika muncul pesan

old format or invalid type library. (Exception from HRESULT : 0x80028018 (TYPE_E_INV_DATA_READ))

sewaktu membuka file excel pada VB Net solusinya adalah tambahkan baris program ini sebelum membuka file excelnya.
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")


contoh :

System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
        Dim oo As Excel.Application
        Dim book As Excel.Workbook
        Dim ws As Excel.Worksheet
        oo = New Excel.Application()
        book = oo.Workbooks.Open("c:\1.xls")
        ws = book.Sheets("Sheet1")
        oo.Workbooks("performance.xls").Sheets("Sheet1").Cells(11, 75) = False


sumber :
http://social.msdn.microsoft.com/Forums/office/en-US/d1fd4279-c646-4453-9e3c-16afdacac99d/excel-2010-old-format-or-invalid-type-library-exception-from-hresult-0x80028018


Mengganti / Mengatur Format Regional and Setting dari VB 6 / VB Net

Format tanggal dalam pembuatan program sangat diperlukan,contoh jika kita membuat program dengan fomat tanggal dd/mm/yyyy sedangkan di sistem operasi format tanggalnya d/M/yy maka pada saat query tanggal di program tidak akan menghasilkan data yang dicari. Sangat repot jika setiap menjalankan program kita harus mengubahnya dulu di control panel - regional and setting.  Maka dari itu saya ingin berbagi pengalaman untuk mengatur format tanggal windows dari vb nya langsung.
Copikan coding berikut di module vb (buat modul baru lalu copas)
'
' ModRegionalSetting.BAS
'
Option Explicit

Const LOCALE_SDECIMAL = &HE ' decimal separator
Const LOCALE_STHOUSAND = &HF ' thousand separator
Const LOCALE_SGROUPING = &H10 ' digit grouping

Const LOCALE_IDIGITS = &H11 ' number of fractional digits
Const LOCALE_ILZERO = &H12 ' leading zeros for decimal
Const LOCALE_SNATIVEDIGITS = &H13 ' native ascii 0-9

Const LOCALE_SCURRENCY = &H14 ' local monetary symbol
Const LOCALE_SINTLSYMBOL = &H15 ' intl monetary symbol
Const LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal separator
Const LOCALE_SMONTHOUSANDSEP = &H17 ' monetary thousand separator
Const LOCALE_SMONGROUPING = &H18 ' monetary grouping

Const LOCALE_ICURRDIGITS = &H19 ' # local monetary digits
Const LOCALE_IINTLCURRDIGITS = &H1A ' # intl monetary digits
Const LOCALE_ICURRENCY = &H1B ' positive currency mode
Const LOCALE_INEGCURR = &H1C ' negative currency mode

Const LOCALE_SDATE = &H1D ' date separator
Const LOCALE_STIME = &H1E ' time separator
Const LOCALE_SSHORTDATE = &H1F ' short date format string
Const LOCALE_SLONGDATE = &H20 ' long date format string
Const LOCALE_STIMEFORMAT = &H1003 ' time format string

Const LOCALE_IDATE = &H21 ' short date format ordering
Const LOCALE_ILDATE = &H22 ' long date format ordering
Const LOCALE_ITIME = &H23 ' time format specifier
Const LOCALE_ICENTURY = &H24 ' century format specifier

Private Declare Function GetSystemDefaultLCID Lib "Kernel32" () As Long
Private Declare Function GetUserDefaultLCID Lib "Kernel32" () As Long
Private Declare Function GetLocaleInfo Lib "Kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function SetLocaleInfo Lib "Kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Public DataRegional(11) As String

Private Function GetRegional(nFormat As Long, Optional SetValue As String = -1) As String
Dim vNilai As String, vLcid As Long, Ret As Long
vLcid = GetUserDefaultLCID()
vNilai = Space$(vLcid)
Ret = GetLocaleInfo(vLcid, nFormat, vNilai, Len(vNilai))
If Ret Then
If SetValue <> "-1" Then
Call SetLocaleInfo(vLcid, nFormat, CStr(SetValue))
End If
GetRegional = Left$(vNilai, Ret - 1)
End If
End Function

Public Sub SimpenRegional()
DataRegional(0) = GetRegional(LOCALE_SDECIMAL)
DataRegional(1) = GetRegional(LOCALE_STHOUSAND)
DataRegional(2) = GetRegional(LOCALE_SCURRENCY)
DataRegional(3) = GetRegional(LOCALE_SMONDECIMALSEP)
DataRegional(4) = GetRegional(LOCALE_SMONTHOUSANDSEP)
DataRegional(5) = GetRegional(LOCALE_ICURRENCY)
DataRegional(6) = GetRegional(LOCALE_INEGCURR)
DataRegional(7) = GetRegional(LOCALE_SDATE)
DataRegional(8) = GetRegional(LOCALE_STIME)
DataRegional(9) = GetRegional(LOCALE_SSHORTDATE)
DataRegional(10) = GetRegional(LOCALE_SLONGDATE)
DataRegional(11) = GetRegional(LOCALE_STIMEFORMAT)
End Sub

Public Sub BalikinRegional()
Call GetRegional(LOCALE_SDECIMAL, DataRegional(0))
Call GetRegional(LOCALE_STHOUSAND, DataRegional(1))
Call GetRegional(LOCALE_SCURRENCY, DataRegional(2))
Call GetRegional(LOCALE_SMONDECIMALSEP, DataRegional(3))
Call GetRegional(LOCALE_SMONTHOUSANDSEP, DataRegional(4))
Call GetRegional(LOCALE_ICURRENCY, DataRegional(5))
Call GetRegional(LOCALE_INEGCURR, DataRegional(6))
Call GetRegional(LOCALE_SDATE, DataRegional(7))
Call GetRegional(LOCALE_STIME, DataRegional(8))
Call GetRegional(LOCALE_SSHORTDATE, DataRegional(9))
Call GetRegional(LOCALE_SLONGDATE, DataRegional(10))
Call GetRegional(LOCALE_STIMEFORMAT, DataRegional(11))
End Sub

Public Sub StandardRegionalSetting()
Call GetRegional(LOCALE_SDECIMAL, ",")
Call GetRegional(LOCALE_STHOUSAND, ".")
Call GetRegional(LOCALE_SCURRENCY, "Rp")
Call GetRegional(LOCALE_SMONDECIMALSEP, ",")
Call GetRegional(LOCALE_SMONTHOUSANDSEP, ".")
Call GetRegional(LOCALE_ICURRENCY, 2)
Call GetRegional(LOCALE_INEGCURR, 14)
Call GetRegional(LOCALE_SDATE, "/")
Call GetRegional(LOCALE_STIME, ":")
Call GetRegional(LOCALE_SSHORTDATE, "dd/MM/yyyy")
Call GetRegional(LOCALE_SLONGDATE, "dddd, d MMMM yyyy")
Call GetRegional(LOCALE_STIMEFORMAT, "HH:mm:ss")
End Sub

kemudian tinggal dipanggil di form, misalkan saat membuka form , seperti contoh berikut :

Private Sub Form_Load()
      StandardRegionalSetting
End Sub
Misalkan anda tidak ingin format tanggal  yang pertama tidak berubah setelah menjalan program maka pada saat form load format lama disimpan dengan fungsi SimpenRegional(). Contoh :
Private Sub Form_Load()
   SimpenRegional

  StandardRegionalSetting
End Sub
Untuk mengembalikannya tinggal dipangggil saja fungsi BalikinRegional. Contoh :
Private Sub Form_Terminate()
  
BalikinRegional
End Sub

SELAMAT MENCOBA YA...Smile










sumber :

http://www.ttaufikhidayat.com/berita101-Mengatur-Format-Regional-and-Setting-dengan-VB-6.html