Contoh Warta Sunda

DISPERINDAG KAB.BANDUNG NGAYAKEUN PASAR MURAH.

Assalamualaikum Wr.Wb

Pamiarsa ,wilujeung patepang deui sareng,Faris Isham Wiryansyah ,dina acara warta sunda.warta anu baris kapindangkeun nya eta: DISPERINDAG KAB.BANDUNG NGAYAKEUN PASAR MURAH.

BANDUNG,GWKDisperindag (dinas perindustrian & perdagangan) Kab.Bandung ngayakeun pasar murah Di kompleks perkantoran Pemkab Bandung,Senen(23/8). Dina eta pasar murah , dijual saniskara produk UKM(usaha kecil menengah)Nurutkeun Kadisperindag Kab.Bandung Bambang Budiraharjo,pasar murah ieu ngarupakeun agenda taunan nu bakal dilaksanakeun Disperindag Kab Bandung . Dina pasar murah ieu ,sakabeh produk nu dijual .Hargana leuwih murah dibandingkeun dipasar swalayan atawa swalayan.Pasar murah kacida dipikaresep warga di Kab.Bandung .Saperti taun samemehna ,muterna duit ngahontal Rp 68 juta “peminat pasar murah ieu lolobana masyarakat umum .Persentase ngadongdonna 70% Masyarakat umum jeung 30% PNS”.Pamiarsa,Mung sakitu nu kapihatur,Wilujeung patepang deui dina warta nu bakal dongkap,Amit mundur amit mungkurWasalamualaikum Wr.Wb

Bagaimana Cara Membuat Hujan Buatan?

Apakah kamu pernah mendengar istilah hujan buatan? Seperti apa sih sebenarnya hujan buatan itu? Apakah hujan buatan itu adalah hujan yang sengaja dibuat oleh manusia? Dan bagaimanakah proses terjadinya hujan buatan? Yuk, kita cari tahu…

Sebenarnya istilah hujan buatan bukan berarti pekerjaan membuat atau menciptakan hujan. Namun hujan buatan merupakan sebuah teknologi yang bertujuan untuk meningkatkan dan mempercepat jatuhnya hujan. Agar bisa terbentuk hujan buatan maka diperlukan ketersediaan awan yang mempunyai kandungan air yang cukup, memiliki kecepatan angin yang rendah, serta syarat-syarat lainnya. 

Pesawat sedang melakukan penyemaian awan untuk merangsang terjadinya hujan

Hujan buatan dibuat dengan cara menyemai awan dengan menggunakan bahan yang bersifathigroskopik (menyerap air) sehingga proses pertumbuhan butir-butir hujan di dalam awan akan meningkat dan selanjutnya akan mempercepat terjadinya hujan. Awan yang digunakan untuk membuat hujan buatan adalah jenis awan Cumulus (Cu) yang bentuknya seperti bunga kol. Setelah lokasi awan diketahui, pesawat terbang yang membawa bubuk khusus untuk menurunkan hujan diterbangkan menuju awan.

Bubuk khusus tersebut terdiri dari glasiogenik berupa Perak Iodida. Zat itu berfungsi untuk membentuk es. Pesawat juga membawa bubuk untuk “menggabungkan” butir-butir air di awan yang bersifat higroskopis seperti garam dapur atau Natrium Chlorida (NaCl), atau CaCl2 dan Urea.

Untuk bisa membentuk hujan deras, biasanya dibutuhkan bubuk khusus sebanyak 3 ton yang disemai ke awan Cumulus selama 30 hari. Oh iya, proses membuat hujan buatan ini belum tentu berhasil loh. Bisa saja gagal atau malah hujan buatannya jatuh di tempat yang salah padahal sudah memakan biaya yang besar dalam pembuatannya. Oleh karena itu, penyebaran bibit hujan harus memperhatikan arah angin, kelembaban dan tekanan udara.

Hujan buatan biasanya dibuat untuk membantu daerah yang sedang mengalami kekeringan, atau bisa juga dibuat untuk untuk pengisian waduk, danau, untuk keperluan air bersih, irigasi, pembangkit listrik (PLTA), juga antisipasi kebakaran hutan atau lahan dan kabut asap. Oh iya, karena hujan buatan ini adalah modifikasi cuaca, maka hujan buatan bisa terjadi kapan saja tanpa harus menunggu langit mendung. Dan juga tak perlu khawatir, karena air hujan buatan tidak jauh berbeda dengan hujan asli loh.

Cara Reinstall Windows Media Player Pada Windows 7

Seperti yang saya sebutkan sebelumnya dalam bagaimana membuat WMP memutar lagu pada waktu tertentu panduan, saya menggunakan default Windows Media Player sebagai media player utama saya. Tapi untuk beberapa alasan yang tidak diketahui, Windows Media Player berhenti bekerja pagi ini. Bahkan, saya bahkan tidak dapat menjalankan WMP sekarang.

Setelah bermain-main dengan sekitar sebentar, saya menemukan menginstal ulang WMP adalah solusi akhir karena saya sedang terburu-buru.

Jika Anda juga memiliki masalah serius dengan Windows Media Player dan ingin memperbaikinya dengan cepat, Anda dapat menginstal ulang program untuk memperbaikinya.

Cara menginstal ulang Windows Media Player

1. Ketik appwiz.cpl di kotak pencarian menu Start dan tekan enter untuk memulaiProgram dan jendela Fitur.

2. Di sebelah kiri, klik Turn fitur Windows atau menonaktifkan pilihan untuk melihat jendela Windows Features.

3. Berikut memperluas daftar Fitur Media dan kemudian hapus centang kotak Windows Media Player. Jika Anda diminta dengan "ini juga akan berubah dari Windows Media Center" berita tersebut cukup klik Yes karena Anda akan menginstal ulang nanti.

5. Anda akan diminta untuk Reboot PC Anda untuk meng-uninstall WMP. Tekan tombolRestart sekarang untuk melakukannya.

6. Ketika Anda perlu menginstal ulang Windows Media Player, Anda perlu menginstal WMP lagi. Sekali lagi, buka Windows Fitur jendela, centang Windows Media Player & Windows Media Center Media Center kotak dan kemudian klik tombol Ok untuk memulai menginstal WMP & WMC lagi.

7. Anda selesai!

Cara Membuat Kalkulator dengan Visual Basic

Bagi anda yang sering memanfaatkan kalkulator yang merupakan bagian adriaksesoris Windows, mungkin pernah berkeinginan untuk membuat kalkulator sendiri dan mungkin pula keinginan anda tersebut belum terwujud, karena anda belum tahu cara membuatnya.

          Dengan Tip berikut ini, anda akan dapat mewujudkan keinginan tersebut, karena membuat kalkulator dengan visual basic tidak sesulit bayangan anda.

1.     Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

2.      Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1(1). Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1(2). Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.

3.     Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut.

4.     Kemudian atur properti caption untuk commandButton sehingga tampilannya menjadi seperti berikut.  

5.     Agar kalkulator dapat dioperasikan, tambahkan sepuluh buah commanButton baru.

6.     Atur properti kontrol TextBox dan CommandButton baru seperti berikut.  

Kontrol	Properti
Text1	Text
Command2	Name Caption	Koma .
Command3	Name Caption	AC AC
Command4	Name Caption	Tambah +
Command5	Name Caption	Kurang -
Command6	Name Caption	Tanda +/-
Command7	Name Caption	Bagi /
Command8	Name Caption	Kali x
Command9	Name Caption	Akar Akar
Command10	Name Caption	Hasil =l
Command11	Name Caption	Kuadrat X^2

7.     Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :

8.     Buka jendela kode, lalu ketikkan kode berikut ini:

Private pilihan As String

Private x As Double

Private y As Double

Private Sub AC_Click()

Text1.Text = ""

y = x = 0

Tanda.Enabled = False

End Sub

Private Sub Akar_Click()

If x < 0 Then

Text1.Text = "Angka Tidak Boleh Negatif Coy"

Else

Text1.Text = Sqr(x)

End If

End Sub

Private Sub Bagi_Click()

Text1.Text = ""

pilihan = "bagi"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text & Command1(Index).Caption

x = Text1.Text

Tanda.Enabled = True

End Sub

Private Sub Form_Load()

Tanda.Enabled = False

End Sub

Private Sub Hasil_Click()

If pilihan = "tambah" Then

x = y + x

Text1.Text = x

ElseIf pilihan = "kurang" Then

x = y - x

Text1.Text = x

ElseIf pilihan = "kali" Then

x = y * x

Text1.Text = x

ElseIf pilihan = "bagi" And x <> 0 Then

x = y / x

Text1.Text = x

Else

Text1.Text = "Tidak Terdefinisi"

End If

End Sub

Private Sub Kali_Click()

Text1.Text = ""

pilihan = "kali"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Koma_Click()

If Text1.Text = "" Then

Text1.Text = "0."

Else

Text1.Text = Text1.Text & "."

End If

End Sub

Private Sub Kuadrat_Click()

Text1.Text = x ^ 2

End Sub

Private Sub Kurang_Click()

Text1.Text = ""

pilihan = "kurang"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Tambah_Click()

Text1.Text = ""

pilihan = "tambah"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Tanda_Click()

If x < 0 Then

Text1.Text = -x

x = -x

Else

Text1.Text = "-" & Text1.Text

x = -x

End If

End Sub

 9.     Selamat Mencoba.....! dan jangan berhenti belajar program karena program itu ! mengasyikkan.