SELAMAT DATANG

Rabu, 24 Agustus 2011

Jengkel Kalau Orang bilang "INSYA ALLAH" (palsu)

(23). Dan jangan sekali-kali kamu mengatakan tentang sesuatu: "Sesungguhnya aku akan mengerjakan ini besok pagi, (24) kecuali (dengan menyebut): "Insya Allah". Dan ingatlah kepada Tuhanmu jika kamu lupa dan katakanlah: "Mudah-mudahan Tuhanku akan memberiku petunjuk kepada yang lebih dekat kebenarannya dari pada ini." (QS Al Kahfi)

PADAHAL saya tahu bahwa ayat diatas memang menganjurkan untuk mengucapkan Insya Allah, tapi kenapa belakangan ini, saya malah jengkel bila mendengar orang mengucapkan Insya Allah Ketika saya mengajak pergi ke acara ataupun lainnya, saya sering mendapatkan teman saya mengucapkan INSYA ALLAH, tapi kebanyakan pada waktu yang dijanjikan selalu tidak tepat dan sering menjadi hal yang tidak akan terjadi, sangatlah membuat jengkel apalagi saya sudah yakin bahwa akan terjadi paling tidak 97%..

 Sebenarnya apa sih makna dari INSYA ALLAH??

Insya'Allah adalah ucapan seseorang yang menyertai pernyataan akan berbuat sesuatu pada masa yang akan datang. Dengan mengucapkan perkataan ini seorang muslim telah berjanji untuk melakukan perbuatan tersebut kecuali tidak memungkinkan pada saat akan dilakukan.(Wikipedia)


well, kalau saya yang ambil garis besar sih, maknanya yaitu sama dengan JANJI dan benar-benar akan kita tepati jadi kedudukannya sudah menjadi 99%, dan 1%nya kita serahkan pada Allah, apakah pada saat waktu yang ditentukan ada kejadian yang benar-benar dapat membatalkan kita untuk tidak bisa menepati, misalnya pada saat kita akan menghadiri acara tersebut kita kecelakaan, nah itu kejadian yang tidak bisa diduga, hanya Allah yang menentukan.

hati-hati berucaplah.. dengan mengucapkan INSYA ALLAH, bukan hanya kita berjanji pada orang yg mengajak tapi kita berjanji juga pada Allah, karena kita sudah berani melibatkan nama Allah, ya ditepatinlah, kecuali yang 1% tadi terjadi.jangan hanya terucap dibibir tapi juga dihati, ya kalau kita memang tidak berniat ya berikan saja alasan yang jelas, masih mending sih ada jawaban meskipun "Insya Allah" (palsu) setidaknya ada kepedulian untuk merespon dari pada mengajak tapi sama sekali TIDAK direspon padahal kita udah berupaya untuk mengajukan suatu silaturrahim, nah ini malah ga direspon kan bikin gedeg. 

Tapi yang lebih baik jangan menjadikan Insya Allah menjadi tameng kita yang seolah-olah untuk menghargai ajakan. Padahal itu justru mempengaruhi kepercayaan yang diberikan kepada Anda.

semoga kita menjadi orang yang berhati-hati dalam bertindak dan berucap. Sekuat apapun usaha manusia hanya Allah yang dapat menentukan.

terakhir mari kita dengarkan lagu Insya Allah-Maher Zain hehee... :D


Readmore »» Jengkel Kalau Orang bilang "INSYA ALLAH" (palsu)

Jumat, 15 April 2011

form perpustakaan

















Private Sub cbaru_Click()
BERSIH
AKTIF
End Sub

Private Sub Check1_Click()
Dim a As String
Dim i As Byte
If Check1.Value = 1 Then
For i = 1 To 3
a = "TA0" & i
Combo1.AddItem a
Next
Else
Combo1.Clear
End If
End Sub

Private Sub Check2_Click()
Dim a As String
Dim i As Byte
If Check2.Value = 1 Then
For i = 1 To 3
a = "KKP0" & i
Combo2.AddItem a
Next
Else
Combo2.Clear
End If
End Sub

















Private Sub Check3_Click()
Dim a As String
Dim i As Byte
If Check3.Value = 1 Then
For i = 1 To 3
a = "11.A0" & i
Combo3.AddItem a
Next
Else
Combo3.Clear
End If
End Sub

Private Sub ckeluar_Click()
If MsgBox("MAU KELUAR YA?", vbYesNo + vbQuestion, "PERTANYAAN") Then End
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "TA01"
tj1.Text = "PERANCANGAN PROGRAM"
tb1.Text = 1500
Case "TA02"
tj1.Text = "SISTEM ANALISIS"
tb1.Text = 1500
Case "TA03"
tj1.Text = "ECOMMERCE-WEB"
tb1.Text = 1500
End Select
End Sub



Private Sub Combo2_Click()
Select Case Combo2.Text
Case "KKP01"
tj2.Text = "SISTEM PENGGAJIAN"
tb2.Text = 1000
Case "KKP02"
tj2.Text = "SISTEM PEMBAYARAN KREDIT"
tb2.Text = 1000
Case "KKP03"
tj2.Text = "SISTEM PEMBAYARAN PAJAK"
tb2.Text = 1000
End Select
End Sub

Private Sub Combo3_Click()
Select Case Combo3.Text
Case "11.A01"
tj3.Text = "BASIS DATA"
tb3.Text = 500
Case "11.A02"
tj3.Text = "SISTEM INFORMASI"
tb3.Text = 500
Case "11.A03"
tj3.Text = "PENGENALAN KOMPUTER"
tb3.Text = 500
End Select
End Sub

Private Sub ctotal_Click()
tas.Text = Val(ts1.Text) + Val(ts2.Text) + Val(ts3.Text)
End Sub

Private Sub Form_Activate()
NONAKTIF
End Sub

Sub NONAKTIF()
Dim X As Control
For Each X In Me
If TypeOf X Is CheckBox Then X.Enabled = False
If TypeOf X Is ComboBox Then X.Enabled = False
If TypeOf X Is TextBox Then X.Enabled = False
Next
End Sub



Sub BERSIH()
Dim X As Control
For Each X In Me
If TypeOf X Is CheckBox Then X.Enabled = True
If TypeOf X Is CheckBox Then X.Value = False
If TypeOf X Is ComboBox Then X.Text = ""
If TypeOf X Is TextBox Then X.Text = ""
Next
End Sub

Private Sub tl1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ts1.Text = tl1.Text * tb1.Text
End If
End Sub

Private Sub tl2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ts2.Text = tl2.Text * tb2.Text
End If
End Sub

Private Sub tl3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ts3.Text = tl3.Text * tb3.Text
End If
End Sub
Sub AKTIF()
Dim X As Control
For Each X In Me
If TypeOf X Is CheckBox Then X.Enabled = True
If TypeOf X Is ComboBox Then X.Enabled = True
If TypeOf X Is TextBox Then X.Enabled = True
Next
End Sub

Readmore »» form perpustakaan

form bengkel


Private Sub Check1_Click()
If Check1.Value = 1 Then
    tjumlah.Text = 200000 + Val(tjumlah.Text)
ElseIf Check1.Value = 0 Then
    tjumlah.Text = Val(tjumlah.Text) - 200000
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
    tjumlah.Text = 400000 + Val(tjumlah.Text)
ElseIf Check2.Value = 0 Then
    tjumlah.Text = Val(tjumlah.Text) - 400000
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
    tjumlah.Text = 100000 + Val(tjumlah.Text)
ElseIf Check3.Value = 0 Then
    tjumlah.Text = Val(tjumlah.Text) - 100000
End If
End Sub

Private Sub chitung_Click()
ttotal.Text = Val(tjumlah.Text) + Val(tbiaya.Text)
End Sub

Private Sub cinput_Click()
bersih
aktif
End Sub

Private Sub ckeluar_Click()
If MsgBox("Yakin Mau Keluar?", vbYesNo + vbQuestion, "Informasi") Then End
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "F2009LK"
twil.Text = "Bogor"
Case "B3328XY"
twil.Text = "Jakarta"
Case "D490BO"
twil.Text = "Bandung"
End Select
End Sub
Private Sub Form_Activate()
Dim x As Control
For Each x In Me
If TypeOf x Is TextBox Then x.Enabled = False
If TypeOf x Is ComboBox Then x.Enabled = False
If TypeOf x Is Frame Then x.Enabled = False
Next
End Sub

Private Sub Form_Load()
Combo1.AddItem "F2009LK"
Combo1.AddItem "B3328XY"
Combo1.AddItem "D490BO"
List1.AddItem "RN"
List1.AddItem "DR"
List1.AddItem "BD"
End Sub

Private Sub List1_Click()
Select Case List1.Text
Case "RN"
tnama.Text = "Ramdan"
tbiaya.Text = 400000
Case "DR"
tnama.Text = "Deri"
tbiaya.Text = 300000
Case "BD"
tnama.Text = "Budi"
tbiaya.Text = 250000
End Select
End Sub

Private Sub tbayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tkembali.Text = Val(tbayar.Text) - Val(ttotal.Text)
End If
End Sub

Sub aktif()
Dim x As Control
For Each x In Me
If TypeOf x Is TextBox Then x.Enabled = True
If TypeOf x Is ComboBox Then x.Enabled = True
If TypeOf x Is Frame Then x.Enabled = True
Next
End Sub
Sub bersih()
Dim x As Control
For Each x In Me
If TypeOf x Is TextBox Then x.Text = ""
If TypeOf x Is ComboBox Then x.Text = ""
If TypeOf x Is CheckBox Then x.Value = False
If TypeOf x Is CheckBox Then x.Enabled = True
Next
form bengkel .jpgEnd Sub
Readmore »» form bengkel

Kamis, 14 April 2011

form penjualan


Private Sub cinput_Click()
aktif
bersih
End Sub

Private Sub ckeluar_Click()
If MsgBox("yakin lu mau keluar", vbYesNo + vbQuestion, "informasi") Then End
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "B-001"
tnama.Text = "Pasta Gigi"
tharga.Text = 7000
Case "B-002"
tnama.Text = "Obat Kumur"
tharga.Text = 15000
Case "B-003"
tnama.Text = "SikatGigi"
tharga.Text = 3000
End Select
End Sub



Private Sub Form_Load()
Combo1.AddItem "B-001"
Combo1.AddItem "B-002"
Combo1.AddItem "B-003"
nonaktif
End Sub

Private Sub ogold_Click()
tpot.Text = Val(tharga.Text) * 0.1
End Sub

Private Sub osilver_Click()
tpot.Text = Val(tharga.Text) * 0.05
End Sub

Private Sub tbeli_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ttotal.Text = Val(tbeli.Text * (tharga.Text - tpot.Text))
End If
End Sub

Sub aktif()
Dim x As Control
For Each x In Me
If TypeOf x Is TextBox Then x.Enabled = True
If TypeOf x Is ComboBox Then x.Enabled = True
If TypeOf x Is OptionButton Then x.Value = True
Next
End Sub

Sub nonaktif()
Dim x As Control
For Each x In Me
If TypeOf x Is TextBox Then x.Enabled = False
If TypeOf x Is ComboBox Then x.Enabled = False
If TypeOf x Is OptionButton Then x.Value = False
Next
End Sub

Sub bersih()
Dim x As Control
For Each x In Me
If TypeOf x Is TextBox Then x.Text = ""
If TypeOf x Is ComboBox Then x.Text = ""
If TypeOf x Is OptionButton Then x.Value = False
If TypeOf x Is OptionButton Then x.Enabled = True
Next
End Sub

Selamat Mencoba :D
Readmore »» form penjualan

Selasa, 25 Januari 2011

bruno mars feat travie mccoy -Billionaire

I wanna be a billionaire so fucking bad
Buy all of the things I never had
Uhh I wanna be on the cover of Forbes magazine
Smiling next to Oprah and the Queen

[Chorus]
Oh every time I close my eyes
I see my name in shining lights
A different city every night oh
I swear the world better prepare
For when I’m a billionaire

[Travis "Travie" McCoy]
Yeah I would have a show like Oprah
I would be the host of, everyday Christmas
Give Travie a wish list
I’d probably pull an Angelina and Brad Pitt
And adopt a bunch of babies that ain’t never had sh-t
Give away a few Mercedes like here lady have this
And last but not least grant somebody their last wish
Its been a couple months since I’ve single so
You can call me Travie Claus minus the Ho Ho
Get it, hehe, I’d probably visit where Katrina hit
And damn sure do a lot more than FEMA did
Yeah can’t forget about me stupid
Everywhere I go Imma have my own theme music

[Chorus]

Oh every time I close my eyes
I see my name in shining lights
A different city every night oh
I swear the world better prepare
For when I’m a billionaire
Oh oooh oh oooh for when I’m a Billionaire

[Travis "Travie" McCoy]
I’ll be playing basketball with the President
Dunking on his delegates
Then I’ll compliment him on his political etiquette
Toss a couple milli in the air just for the heck of it
But keep the fives, twentys (?) completely separate
And yeah I’ll be in a whole new tax bracket
We in recession but let me take a crack at it
I’ll probably take whatevers left and just split it up
So everybody that I love can have a couple bucks
And not a single tummy around me would know what hungry was
Eating good sleeping soundly
I know we all have a similar dream
Go in your pocket pull out your wallet
And put it in the air and sing

[Bruno Mars]
I wanna be a billionaire so fricking bad
Buy all of the things I never had
Uhh, I wanna be on the cover of Forbes magazine
Smiling next to Oprah and the Queen
[Chorus]
I wanna be a billionaire so frickin bad!
Readmore »» bruno mars feat travie mccoy -Billionaire

Selasa, 04 Januari 2011

CERPEN

sebelum bikin cerpen, kan harus tau dulu cerpen itu apa sih, unsur yang ada di dalemnya tuh apa aja.. coba kita sama-sama belajar ya :) !!!

Cerita pendek atau sering disingkat sebagai cerpen adalah suatu bentuk prosa naratif fiktif. Cerita pendek cenderung padat dan langsung pada tujuannya dibandingkan karya-karya fiksi yang lebih panjang, seperti novella (dalam pengertian modern) dan novel. Karena singkatnya, cerita-cerita pendek yang sukses mengandalkan teknik-teknik sastra seperti tokoh, plot, tema, bahasa dan insight secara lebih luas dibandingkan dengan fiksi yang lebih panjang. Ceritanya bisa dalam berbagai jenis.

yang mencirikan dari Cerita pendek adalah cenderung kurang kompleks dibandingkan dengan novel. Cerita pendek biasanya memusatkan perhatian pada satu kejadian, mempunyai satu plot, setting yang tunggal, jumlah tokoh yang terbatas, mencakup jangka waktu yang singkat.

Dalam bentuk-bentuk fiksi yang lebih panjang, ceritanya cenderung memuat unsur-unsur inti tertentu dari struktur dramatis:
1. eksposisi (pengantar setting, situasi dan tokoh utamanya),
2. komplikasi (peristiwa di dalam cerita yang memperkenalkan konflik dan tokoh utama);
3. komplikasi (peristiwa di dalam cerita yang memperkenalkan konflik);
4. aksi yang meningkat, krisis (saat yang menentukan bagi si tokoh utama dan komitmen mereka terhadap suatu langkah);
5. klimaks (titik minat tertinggi dalam pengertian konflik dan titik cerita yang mengandung aksi terbanyak atau terpenting);
6. penyelesaian (bagian cerita di mana konflik dipecahkan); dan
7. moralnya.

UKURAN DARI CERPEN
Menetapkan apa yang memisahkan cerita pendek dari format fiksi lainnya yang lebih panjang adalah sesuatu yang problematic. Sebuah definisi klasik dari cerita pendek ialah bahwa ia harus dapat dibaca dalam waktu sekali duduk (hal ini terutama sekali diajukan dalam esai Edgar Allan Poe "The Philosophy of Composition" pada 1846). Definisi-definisi lainnya menyebutkan batas panjang fiksi dari jumlah kata-katanya, yaitu 7.500 kata. Dalam penggunaan kontemporer, istilah cerita pendek umumnya merujuk kepada karya fiksi yang panjangnya tidak lebih dari 20.000 kata dan tidak kurang dari 1.000 kata.

Cerita yang pendeknya kurang dari 1.000 kata tergolong pada genre fiksi kilat (flash fiction). Fiksi yang melampuai batas maksimum parameter cerita pendek digolongkan ke dalam novelette, novella, atau novel.

nah bagaimana sih bikin cerpen yang bagus terus menarik,
-yang pertama alur cerita harus jelas, lebih baik bagi pemula alur cerita maju aja kali ya,
-kedua sesuain dgn kondisi masa kini contoh berbasanya mudah dan di mengerti dlm -semua umur (jangan 4L4y kayanya, dikit gPP kali ya, hahaaha).
-akhir dari cerita mudah di pahami dan ga gantung..
-terus judulnya juga harus menarik dan tidak menggunakan bahasa yang bermakna lain..

oke deh selesai copas sana-sininya, tinggal mikirin mau bikin cerpennya :)
Readmore »» CERPEN

Jumat, 24 Desember 2010

cara menghaluskan wajah dengan photoshop

Cara lain menghaluskan Wajah dengan Photoshop

Sekarang saya mau coba dengan cara lain menghilangkan jerawat atau menghaluskan muka tanpa meng clone ataupun healing.. tapi dengan blur filter.
Buka foto yang mau dihaluskan wajahnya..

duplikat layer background atau layer gambar dengan menekan ctrl + J
ubah layer style menjadi vivid light.

Klik Image > adjustment > Invert atau tekan CTRL + I

Klik filter > blur > gaussian blur
Nilai radius tergantung gambar.. usahakan hasil blur nya sama yaa dengan yang digambar

Klik filter > other > high pass .. sekali lagi nilai radius tergantung besar gambar nya.. jadi dikira-kira aja wajahnya udah mulus apa belom.. :).. kalo ada perubahan pada mata.. biarin aja.. nanti dimasking kok..

Kalo udah keliatan halus muka nya.. klik Add layer mask ..
warna foreground harus hitam..

Klik brush TooL .. warnai bagian-bagian yang harusnya tajem.. seperti alis, mata, bibir, hidung, rambut, baju… kecuali daerah yang ada jerawarnya.. jangan di masking.

hasilnya :

Ini contoh yang lain :

Gimana ? gampang kan ?
Selamat mencoba yah..
Sekali lagi
Readmore »» cara menghaluskan wajah dengan photoshop