Jumat, 28 Juni 2019


Poetry Dougherty

Baby, take my hand
I want you to be my husband
Cause you're my Iron Man
And I love you three thousand
Baby, take a chance
Cause I want this to be something
Straight out of a Hollywood movie
I see you standing there
In your Hulk outerwear
And all I can think
Is where is the ring
Cause I know you wanna ask
Scared the moment will pass
I can see it in your eyes
Just take me by surprise
And all my friends they tell me they see
You planing to get on one knee
But I want it to be out of the blue
So make sure I have no clue
When you ask
Baby, take my hand
I want you to be my husband
Cause you're my Iron Man
And I love you three thousand
Baby, take a chance
Cause I want this to be something
Straight out of a Hollywood movie
Now we're having dinner
And baby you're my winner
I see the way you smile
You're thinking about the aisle
You reach in your pocket
Emotion unlocking
And before you could ask
I answer too fast
And all my friends they tell me they see
You planing to get on one knee
So now I can't stop thinking about you
I figured out all the clues
So now I ask
Baby, take my hand
I want you to be my husband
Cause you're my Iron Man
And I love you three thousand
Baby, take a chance
Cause I want this to be something
Straight out of a Hollywood movie
Pa da da da da dam
No spoilers please
Pa da da da da dam
No spoilers please
Baby, take my hand
I want you to be my husband
Cause you're my Iron Man
And I love you three thousand
Baby, take a chance
Cause I want this to be something
Straight out of a Hollywood movie, baby
Pa da da da da dam
No spoilers please
Pa da da da da dam
No spoilers please
Pa da da da da dam
No spoiler please
Pa da da da da dam
And I love you three thousand

Kamis, 27 Juni 2019

CARA MEMBUAT TUMIS KANGKUNG
By : Oksa Satya 

Bahan-bahan   :
1.      Kangkung
2.      5 siung bawang merah
3.      3 siung bawang putih
4.      Cabai secukupnya






Cara memasak :
1.      Pisahkan kangkung dengan batang-batangnya.
2.      Potong tipis bawang merah, bawah putih dan cabai.
3.      Cuci kangkung yang sudah dipisahkan.
4.      Tumis bawang merah, bawang putih dan cabai yang sudah dipotong.
5.      Setelah tumisan harum, masukkan kangkung yang telah dicuci.
6.      Beri garam dan gula secukupnya.
7.      Tumis hingga kangkung layu.
8.      Beri sedikit air jika ingin tumis kangkung berkuah sedikit.
9.      Tumis kangkung siap disajikan.

CARA MEMBUAT CILOK KUAH
By : Oksa Satya Sigit

Bahan   :  
o   10 sdm tepung terigu
o   10 sdm tepung sagu
o   1 sdt garam
o   ¼ sdt gula putih
o   1 buah daun bawang
o   Air panas secukupnya

Cara Membuat  : 
o   Campurkan tepung terigu, tepung sagu, garam dan daun bawang.
o   Beri air panas secukupnya pada bahan-bahan yang telah dicampurkan.
o   Aduk adonan hingga kalis dan dapat dibentuk menjadi bulat-bulat.
o   Jika ingin ditambahkan isian, bisa menjadi optional.
o   Sembari membulatkan adonan, rebus air untuk merebus adosan tersebut.
o   Setelah air mendidih, masukkan cilok tersebut kedalam air rebusan.
o   Tunggu sekitar 15-20 menit hingga cilok matang luar dalam.
o   Setelah cilok matang, tiriskan.
Cara Membuat Kuah      :
o   Tumis bawang merah, bawah putih dan cabai.
o   Setelah harum, masukkan 1 gelas air putih kedalamnya.
o   Lalu masukkan bumbu (garam, gula dan kaldu ayam)
o   Setelah kuah mendidih, masukkan cilok yang sudah ditiriskan.
o   Diamkan selama 10 menit.
o   Cilok kuah siap disajikan.
o    
PROJECT 1 Tugas Bu Ito Riris (Algoritma Pemrograman 2B)
Tampilan Sebelum di Run


Keterangan        :
Nama Pelanggan
Text 4
Nama Operator
Combo 1
Nominal Pulsa
Combo 2
Nomor Telepon
Text 5
Harga Jual
Text 1
Jumlah Bayar
Text 2
Uang Kembali
Text 3
Hitung
Command 1
Keluar
Command 3
Waktu
Label 10
Tanggal
Label 9
Tulisan Berjalan
Label 8
Gambar
Image 1
Untuk koding waktu dan tanggal
Timer 2
Untuk Koding Tulisan berjalan
Timer 1




Berikut Kodingannya

Private Sub Text1_Change()
If Combo2.Text = "5000" Then
Text1.Text = 7000 
ElseIf Combo2.Text = "10000" Then
Text1.Text = 12000 
ElseIf  Combo2.Text = "20000" Then
Text1.Text = 22000 
ElseIf  Combo2.Text = "50000" Then
Text1.Text = 52000 
End If
End Sub

Private Sub Command1_Click()
hargajual = Val(Text1.Text)
jumlahbayar = Val(Text2.Text)
kembali = jumlahbayar - hargajual
Text3.Text = kembali
End Sub

Private Sub Timer2_Timer()
Label9.Caption = Format(Date, "dd mm yyyy")
Label10.Caption = Format(Time, "hh:mm:ss")
End Sub

Private Sub Label8_Click()
Private Sub Form_Load()
Label8.FontSize = 10
Label8 = "SELAMAT DATANG DI LSH CELL TEMPAT BELI PULSA AMAN DAN TERPERCAYA"
End Sub

Private Sub Timer1_Timer()
Label8.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
If (Label8.Left + Label8.Width) <= 0 Then
Label8.Left = Me.Width
End If
Label8.Left = Label8.Left - 100
End Sub

Private Sub Command1_Click()
hargajual = Val(Text1.Text)
jumlahbayar = Val(Text2.Text)
kembali = jumlahbayar - hargajual
Text3.Text = kembali
End Sub

Private Sub Command3_Click()
pesan = MsgBox("Yakin akan keluar dari aplikasi ini ?", vbYesNo + vbQuestion, "Keluar")
If pesan = vbYes Then
Unload Me
End If
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "SIMPATI" Then
Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\TELKOMSEL.jpg")
ElseIf Combo1.Text = "MENTARI" Then
Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\MENTARI.jpg")
ElseIf Combo1.Text = "IM3" Then
Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\IM3.jpg")
ElseIf Combo1.Text = "3" Then
Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\3.jpg")
Else
Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\AXIS.jpg")
End If
End Sub

Tampilan sesudah di Run


PROJECT 2 Bu Ito Riris (Algoritma Pemrograman 2B)
(Merupakan lanjutan dari Project 1)

Tampilan Sebelum di Run


Keterangan        :
Nama Pelanggan
Text 4
Nama Operator
Combo 1
Jumlah Pulsa
Combo 3
Nominal Pulsa
Combo 2
Nomor Telepon
Text 5
Harga Jual
Text 1
Jumlah Bayar
Text 2
Uang Kembali
Text 3
Hitung
Command 1
Keluar
Command 3
Waktu
Label 10
Tanggal
Label 9
Tulisan Berjalan
Label 8
Gambar
Image 1
Untuk koding waktu dan tanggal
Timer 2
Untuk Koding Tulisan berjalan
Timer 1
Tambah
Command 2
Hapus
Command 4
Update
Command 5


Cara menyambungkan ms access ke VB
1.       Membuat database dengan berekstensi .mdb 

2.       Pada VB klik kanan pada properti lalu klik components dan akan muncul gambar seperti ini, klik yang diceklis

3.       Akan muncul di properti








4.       Setelah itu, klik kanan pada Adodc1 dan pilih ADODC Properties

5.       Klik build dan pilih 


Lalu klik Next
6.       Pilih database yang sudah kamu simpan di ms access tadi




 

Sehingga ada tulisan 


7.       Lalu disemua Text bagian Datafieldnya diubah menjadi Adodc1

8.       Lalu klik Datagrid


9.       Dibuat seperti ini


·         Kodingan untuk Tambah

·         Kodingan Untuk Hapus

·         Kodingan untuk Update



Tampilan setelah di Run



Biografi inyourdream dota 2

Siapa tidak kenal InYourDream, pemain pro Dota 2 asal tanah air ini menjadi pemegang solo MMR tertinggi di regional south east asia (SEA). Tercatat update terakhir MMR InYourDream per tanggal 7 April 2017 adalah 8391. Dengan jumlah MMR yang sebesar itu tidak heran nama InYourDream menjadi sangat viral bagi pada pecinta Dota 2 di Indonesia.
Pria 18 tahun yang bernama asli Muhammad Rizky ini sudah akrab dengan Dota 2 sejak tahun 2011. Ketertarikan nya terhadap game MOBA buatan Valve ini kian besar setelah dia mengikuti kejuaraan Dota 2. Melihat prestasinya tersebut, tidak heran pada Desember 2016 kemarin tim Dota professional asal Malaysia yaitu Fnatic merekrut InYourDream menjadi salah satu pemain inti mereka.

sumber: jagatplay.com

Saat itu banyak spekulan Dota 2 yang beranggapan bahwa keputusan InYourDream bergabung dengan Fnatic sangatlah baik. Karena itu merupakan salah satu jalan besar bagi InYourDream untuk mencicipi banyak ajang turnamen internasional. Sayangnya tidak lama berselang kabar bergabungnya InYourDream, pria hitam manis ini memutuskan untuk hengkang dengan alasan urusan keluarga.
Menurut wawancara sebuah channel Youtube pada bulan Januari 2017 menjelaskan bahwa butuh waktu 2 tahun bagi InYourDream untuk mendapatkan MMR 8k. Waktu 2 tahun tersebut adalah hasil bermain Dota dari awal MMR 4k hingga 8k.
Selain terkenal dengan jumlah MMR yang luar biasa tersebut, InYourDream juga terkenal di kanal Youtube dengan permainan Invokernya yang sangat memukau. Banyak akun Youtube yang merekam permainan invoker dari InYourDream dan memeperlihatkan kelihaian InYour Dream dalam menggunakan skill Invoker yang terkenal sulit.