Skip to content
Sampingan

Private Sub CMDBATAL_Click()

TXTNPM.SetFocus

TXTK.Text = “”

TXTJ.Text = “”

TXTP.Text = “”

TXTT.Text = “”

TXTN.Text = “”

TXTU.Text = “”

TXTB.Text = “”

TXTBP.Text = “”

TXTTB.Text = “”

 

End Sub

 

Private Sub CMDKELUAR_Click()

End

End Sub

 

Private Sub CMDLAGI_Click()

TXTNPM.SetFocus

TXTK.Text = “”

TXTJ.Text = “”

TXTP.Text = “”

TXTT.Text = “”

TXTN.Text = “”

TXTU.Text = “”

TXTB.Text = “”

TXTBP.Text = “”

TXTTB.Text = “”

 

End Sub

Private Sub CMDPROSES_Click()

Dim a As String

 

a = Left(TXTNPM.Text11, 1)

If a = “E” Then

TXTK.Text = “Eksekutif”

TXTUB.Text = “1250000”

ElseIf a = “R” Then

TXTK.Text = “Reguler”

TXTUB.Text = “1000000”

End If

 

a = Mid(TXTNPM.Text11, 5, 1)

If a = “1” Then

TXTJ.Text = “sistem informsi”

ElseIf a = “2” Then

TXTJ.Text = “manajemen informatika”

ElseIf a = “3” Then

TXTJ.Text = “manajemen dan komp.akuntansi”

End If

 

 

TXTN.Text = Right(TXTNPM.Text11, 3)

 

a = Mid(TXTNPM.Text11, 6, 2)

If a = “01” Then

TXTP.Text = “strata satu”

TXTU.Text = “200000”

ElseIf a = “02” Then

TXTP.Text = “diploma tiga”

TXTU.Text = “150000”

ElseIf a = “03” Then

TXTP.Text = “diploma satu”

TXTU.Text = “150000”

End If

 

 

TXTT.Text = “20” & Mid(TXTNPM.Text11, 3, 2)

 

 

If TXTK.Text = “Eksekutif” And TXTP.Text = “strata satu” Then

TXTB.Text = “1900000”

ElseIf TXTK.Text = “Eksekutif” And TXTP.Text = “diploma tiga” Then

TXTB.Text = “1650000”

ElseIf TXTK.Text = “Eksekutif” And TXTP.Text = “diploma satu” Then

TXTB.Text = “1350000”

ElseIf TXTK.Text = “Reguler” And TXTP.Text = “strata satu” Then

TXTB.Text = “1500000”

ElseIf TXTK.Text = “Reguler” And TXTP.Text = “diploma tiga” Then

TXTB.Text = “1250000”

ElseIf TXTK.Text = “Reguler” And TXTP.Text = “diploma satu” Then

TXTB.Text = “1250000”

End If

 

 

TXTBP.Text = “600000”

 

TXTTB.Text = Val(TXTU.Text) + Val(TXTB.Text) + Val(TXTUB.Text) + Val(TXTBP.Text)

 

End Sub

Sampingan

Private Sub CGambarbokode_Click()
Txtjj.SetFocus
End Sub

Private Sub Cmdproses_Click()
Dim Penjualan, Discount, Kode, Merk, Bayar, a, b As String
Dim Harga As Variant

Kode = Mid(cbokode.Text, 7, 5)
If kode = “MC965″ Then
Merk = “Apple MacBook Air MC965″
Harga = “12800000″
ElseIf kode = “MC966″ Then
Merk = “Apple MacBook Air MC966″
Harga = “15800000″
ElseIf kode = “MC968″ Then
Merk = “Apple MacBook Air MC968″
Harga = “9900000″
ElseIf kode = “MC969″ Then
Merk = “Apple MacBook Air MC969″
Harga = “11900000″
ElseIf kode = “MC700″ Then
Merk = “Apple MacBook Air MC700″
Harga = “10800000″
ElseIf kode = “MC721″ Then
Merk = “Apple MacBook Air MC721″
Harga = “15900000″
ElseIf kode = “MC723″ Then
Merk = “Apple MacBook Air MC723″
Harga = “19300000″
ElseIf kode = “MC724″ Then
Merk = “Apple MacBook Air MC724″
Harga = “13700000″
ElseIf kode = “MC311″ Then
Merk = “Apple MacBook Air MC311″
Harga = “24200000″
ElseIf kode = “MC313″ Then
Merk = “Apple MacBook Air MC313″
Harga = “11900000″
ElseIf kode = “MC314″ Then
Merk = “Apple MacBook Air MC314″
Harga = “14700000″
ElseIf kode = “MC318″ Then
Merk = “Apple MacBook Air MC318″
Harga = “17600000″
ElseIf kode = “MC322″ Then
Merk = “Apple MacBook Air MC322″
Harga = “21300000″
ElseIf kode = “MC965″ Then
Merk = “Apple MacBook Air MC965″
Harga = “12800000″
ElseIf kode = “MC966″ Then
Merk = “Apple MacBook Air MC966″
Harga = “15800000″
End If
txtmerk.Text = merk
txths.Text = harga

a = Val(txtjj.Text)
b = Val(txths.Text)
Penjualan = a * b
Txthp.Text = penjualan

Select Case Txthp.Text
Case Is > 140000000
Discount = 0.15 * penjualan
Case Is > 135000000
Discount = 0.1 * penjualan
Case Is > 130000000
Discount = 0.05 * penjualan
Case Is > 125000000
Discount = 0.02 * penjualan
End Select
Penjualan = Val(txthp.Text)
Txtdis.Text = discount

Txttb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txtdis.Text = “”
Txttb.Text = “”
Txthp.Text = “”

End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
Cbokode.AddItem “Apple MC965 MasBook Air”
Cbokode.AddItem “Apple MC966 MasBook Air”
Cbokode.AddItem “Apple MC968 MasBook Air”
Cbokode.AddItem “Apple MC969 MasBook Air”
Cbokode.AddItem “Apple MC700 MasBook Pro”
Cbokode.AddItem “Apple MC721 MasBook Pro”
Cbokode.AddItem “Apple MC723 MasBook Pro”
Cbokode.AddItem “Apple MC724 MasBook Pro”
Cbokode.AddItem “Apple MC311 MasBook Pro”
Cbokode.AddItem “Apple MC313 MasBook Pro”
Cbokode.AddItem “Apple MC314 MasBook Pro”
Cbokode.AddItem “Apple MC318 MasBook Pro”
Cbokode.AddItem “Apple MC322 MasBook Pro”
Cbokode.AddItem “Apple MC965 MasBook Air”
Cbokode.AddItem “Apple MC966 MasBook Air”
End Sub

Private Sub Cbokode_Click()
Txtjj.SetFocus
End Sub

Private Sub Cmdproses_Click()
Dim Penjualan, discount, kode, merk, bayar, a, b As String
Dim Harga As Variant

Kode = Mid(cbokode.Text, 7, 5)
If kode = “MC965″ Then
Merk = “Apple MacBook Air MC965″
Harga = “12800000″
ElseIf kode = “MC966″ Then
Merk = “Apple MacBook Air MC966″
Harga = “15800000″
ElseIf kode = “MC968″ Then
Merk = “Apple MacBook Air MC968″
Harga = “9900000″
ElseIf kode = “MC969″ Then
Merk = “Apple MacBook Air MC969″
Harga = “11900000″
ElseIf kode = “MC700″ Then
Merk = “Apple MacBook Air MC700″
Harga = “10800000″
ElseIf kode = “MC721″ Then
Merk = “Apple MacBook Air MC721″
Harga = “15900000″
ElseIf kode = “MC723″ Then
Merk = “Apple MacBook Air MC723″
Harga = “19300000″
ElseIf kode = “MC724″ Then
Merk = “Apple MacBook Air MC724″
Harga = “13700000″
ElseIf kode = “MC311″ Then
Merk = “Apple MacBook Air MC311″
Harga = “24200000″
ElseIf kode = “MC313″ Then
Merk = “Apple MacBook Air MC313″
Harga = “11900000″
ElseIf kode = “MC314″ Then
Merk = “Apple MacBook Air MC314″
Harga = “14700000″
ElseIf kode = “MC318″ Then
Merk = “Apple MacBook Air MC318″
Harga = “17600000″
ElseIf kode = “MC322″ Then
Merk = “Apple MacBook Air MC322″
Harga = “21300000″
ElseIf kode = “MC965″ Then
Merk = “Apple MacBook Air MC965″
Harga = “12800000″
ElseIf kode = “MC966″ Then
Merk = “Apple MacBook Air MC966″
Harga = “15800000″
End If
txtmerk.Text = merk
txths.Text = harga

a = Val(txtjj.Text)
b = Val(txths.Text)
Penjualan = a * b
Txthp.Text = penjualan

Select Case Txthp.Text
Case Is > 140000000
Discount = 0.15 * penjualan
Case Is > 135000000
Discount = 0.1 * penjualan
Case Is > 130000000
Discount = 0.05 * penjualan
Case Is > 125000000
Discount = 0.02 * penjualan
End Select
Penjualan = Val(txthp.Text)
Txtdis.Text = discount

Txttb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txtdis.Text = “”
Txttb.Text = “”
Txthp.Text = “”

End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
Cbokode.AddItem “Apple MC965 MasBook Air”
Cbokode.AddItem “Apple MC966 MasBook Air”
Cbokode.AddItem “Apple MC968 MasBook Air”
Cbokode.AddItem “Apple MC969 MasBook Air”
Cbokode.AddItem “Apple MC700 MasBook Pro”
Cbokode.AddItem “Apple MC721 MasBook Pro”
Cbokode.AddItem “Apple MC723 MasBook Pro”
Cbokode.AddItem “Apple MC724 MasBook Pro”
Cbokode.AddItem “Apple MC311 MasBook Pro”
Cbokode.AddItem “Apple MC313 MasBook Pro”
Cbokode.AddItem “Apple MC314 MasBook Pro”
Cbokode.AddItem “Apple MC318 MasBook Pro”
Cbokode.AddItem “Apple MC322 MasBook Pro”
Cbokode.AddItem “Apple MC965 MasBook Air”
Cbokode.AddItem “Apple MC966 MasBook Air”
End Sub

Gambar

tugas 3

PERKALIAN2BILANG

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

PERHITUNGAN DISKON

Private Sub Text1_keypress(keypress As Integer)

If keyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.1

End If

End Su

b

Private Sub Text2_Change()

End Sub

Private Sub cmdHitung_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

PERHITUNGAN GAJIM

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text + Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

 

visual basic 2

<br>

Private Sub Command1_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text1.SetFocus

End Sub

 

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

End Sub

Private Sub Command3_Click()

End if

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.Text = Val(Text3.Text) * Val(Text4.Text)

End If

End Sub

visual basic 1

<br>

Private Sub Cmdbatal_Click()

Txt1 = “”

Txt2 = “”

Txt3 = “”

Txt4 = “”

Txt5 = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

Txt1 = “”

Txt2 = “”

Txt3 = “”

Txt4 = “”

Txt5 = “”

End Sub

 

Private Sub Txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

End If

End Sub

 

Private Sub Txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt3.SetFocus

End If

End Sub

 

Private Sub Txt3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt4.SetFocus

End If

End Sub

 

Private Sub Txt4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt5.SetFocus

End If

End sub

dampak miras

Minuman keras adalah minuman yang mengandung etanol atau juga yang sering disebut sebagai minuman alkohol, Akibat minuman keras ini dapat menyerang tingkat kesadaran orang yang mengkonsuminya akibatnya orang yang mengkonsusi akan mengalami mabuk.

Sebenarnya masayarakat kita sudah banyak yang tahu tentang bahaya dari akibat minuman keras atau minuman beralkohol ini. Salah satunya adalah menimbulkan kecanduan yang luar biasa, karena minuman keras atau minuman beralkohol ini mengandung zat aditif, yaituzat yang jika masuk ke tubuh manusia walaupun dengan jumlah sedikit akan menimbulkan efek kecanduan yang luar biasa.

Dan juga masyarakat juga telah mengerti bahwa sebenarnya minuman keras ini dapat merusak syaraf secara perlahan. Berikut akibat minuman keras minuman beralkohol , yang dilihat dari kandungannya pasti teman-teman dapat mengira-ngiranya:

Merusak Syaraf, seperti yang saya sebutkan di atas bahwa minuman keras atau minuman beralkohol mengandung zat aditif yang jika dikonsumsi walaupun sedikit kan mengakibatkan kecanduan yang luar biasa. Dan bila dikonsumsi secra terus-menerus akan menimbulkan kerusakan syaraf otak yang menyebabkan manusia yang mengkonsumsinya mudah hilang akalnya, keseimbangannya dan indra peraba-nya akan semakin berkurang kepekaannya.
Penyakit Jantung, Akibat dalamjangka dekatnya dapat dirasakan dengan meningkatnya detak jantung, dan juga keadaan jantung juga akan melemah sehingga tidak dapat bekerja dengan optimal. Sebenarnya ini terjadi karena minuman keras atau minuman beralkohol dapat merusak sel-sel tubuh dan juga termasuk sel-sel jantung, akibatnya kinerja jantung akan tidak optimal.
Meningkatnya kemiskinan,  Teman-teman pasti tahu bahwa jika seseoarng sudah ketagihan yang namanya minuman keras atau minuman beralkohol maka segala cara untuk mendapatkannya akan ditempuh, termasuk pengahsilan yang seharusnya untuk mencukupi kebutuhan hidup akan digunakan untuk memenuhi kecanduanya akan minuman keras tersebut. akibatnya kemiskian akan mudah menghampiri.
Gairah sexual menurun,  Bagi yang sudah mempunyai istri hal ini sangat membahayakan sekali karena bila terlalu sering mengkonsumsi minuman keras atau minuman beralkohol dapat menyebabkan gairah sex menurun dan selanjutnya kan menimbulakn impoten.
Turunnya tingkat kesadaran, Sudah banyak bukti bahwa orang yang mengkonsumsi minuman beralkohol atau minuman keras tingakt sosialnya berkurang, jadi pendiam, Emosinya meningkat dan menjadikan dia mudah tersinggung dan juga tingkat konsenrasinya menurun.
Metabolisme Tubuh Terganggu, Bahaya dari akibat minuman keras adalah merusak fungsi hati, karena hati fungsinya untuk menetralisir racun yang masuk dalam tubuh maka jika hati sampai rusak akan dapat menggangu metabolisme tubuh.
Gangguan terhadap Janin , Bagi ibu yang sedang hamil jika mengkonsumsi minuman keras atau minuman beralkohol akibatnya sangat fatal sekali, karen anutrisi untuk janin bayinya kan terganngu, sehingga bayinya kelak dilahirkan dalam keadaan kurang sempurna, karena bagaimanapun kesehatan janin adalah dari pola makan dan tingkah laku dari sang ibu.

Islam telah mengharamkan, zina, riba, babi, dan minuman keras karena terdapat bahaya dan kerusakan di dalamnya. Allah telah mengharamkan Khamar, minuman keras dan sejenisnya, berikut dalil yang mengharamkan minuman keras :

Mereka bertanya kepadamu tentang khamar dan judi. Katakanlah: “Pada keduanya itu terdapat dosa besar dan beberapa manfa`at bagi manusia, tetapi dosa keduanya lebih besar dari manfa`atnya… ” [Al-Qur’an 2:219]

Demikian teman-teman beberapa dampak Minuman Keras Terhadap Kesehatan kali ini, jadi sebaiknya dihindari ya, memang ada sedikit manfaat, tapi itu hanya iming-iming agar tetap mengkonsumsi miras, padahal jelas dampak buruknya sangatlah besar. semoga bermanfaat.

Teknik Pemeliharaan dan Budidaya Ayam Bangkok

1. Metode Pemeliharaan Anak Ayam Bangkok

Pada pase setelah menetas hingga umur ±4 bulan merupakan pase perkembangan fisik yang sangat penting dalam menujang kemampuan seekor ayam Bangkok untuk memiliki kemampuan maksimal pada saat turun ke gelanggang. Banyak ayam Bangkok yang merupakan keturunan unggul karena kesalahan perawatan pada pase ini maka ayam tersebut tidak bisa memaksimalkan kemampuannya saat turun ke gelanggang, hal terpenting yang harus di perhatikan pada pase ini adalah pemberiaan pakan yang dan gerak yang maksimal.

Berdasarkan sumber dari www.ayamlaga.com

“Anakan ayam sampai dengan umur 4 bulan harus menerima konsumsi pangan yang seimbang baik untuk protein, karbohidrat, mineral, vitamin, dan air. Dalam kebiasaan sehari-hari kami di dalam memelihara ayam bangkok, anakan umur 1-4 bulan akan diberikan pangan yang berupa pakan buatan pabrik yang dicampur dengan susu tepung untuk anak bayi. Komposisi campuran yang kami gunakan adalah 1:5 (Contoh: 1 kg susu dicampur dengan 5kg pakan)”.

Pemberiaan susu tepung sama pentingnya dengan pemberian ASI pada seorang anak manusia, karena zat-zat penting untuk proses pertumbuhan terkandung di dalamnya. Selain kemampuan dalam bertarung, zat-zat tersebut penting dalam membentuk postur tubuh, tulangan, otot, bulu dan bagian tubuh lainnya.

Secara metode, pemelihaaran pasca menetas hingga ± 4 minggu tidak jauh berbeda dengan pemelihaaraan unggas (ayam) jenis lainnya, yaitu :

1. Pemeliharaan Bersama Induk Ayam

Pemeliharaan anak ayam pasca menetas bersama induk biasanya dilakukan untuk mengurangi penggunaan lahan, karena anak ayam disatukan dengan induk tanpa harus menggunakan kandang tambahan. Hal yang harus diperhatikan disini adalah bentuk kandang untuk anak ayam bersama induknya. Tidak seperti kandang untuk ayam dewasa, untuk alas kandang diusahakan lebih rapat dan tidak mendapat aliran udara langsung.

Anak ayam yang baru menetas masih dalam kondisi kritis hingga harus terlindungi dari temperature udara luar, cuaca yang tidak stabil dan penyakit, disinilah induk berperan secara naluri untuk melindungi dan menjaga anaknya dari cuaca dan udara yang tidak bersahabat. Anak ayam akan masuk kebagian sayap dan bagian tubuh lainya dari induk untuk menghangatkan diri.

Pada tahap awal ini biasanya ada yang menyatakan bahwa anak ayam usia 1-2 hari hanya membutuhkan air bersih tidak memerlukan makanan karena ada cadangan makanan (kuning telur) yang masih tersisa ditubuhnya akan tetapi kebutuhan makanan tersebut tidak mencukupi. Agar lebih baik makan dan minum disediakan, untuk memaksimalkan penggunaan pakan, pemberian pakan dilakukan sebanyak 5 kali dengan kuantitas tidak terlalu banyak.

2. Dengan Menggunakan Induk Buatan

Metode ini dilakukan untuk meningkatkan produktifitas, sehingga induk ayam dapat cepat bertelur kembali. Metode ini juga dilakukan untuk anak ayam yang menetas dengan menggunakan mesin tetas.  Secara simpel pada dasarnya induk buatan dibuat menyerupai fungsi seekor induk pasca menetas. Seperti yang telah dijelaskan seekor induk akan melindungi anak ayam yang baru menetas dari temperature udara luar, cuaca yang tidak stabil dan penyakit, untuk menggantikan peran induk maka kita harus membuat sebuah kandang yang terlindung dari serangan predator/hama, udara dan cuaca yang buruk.