contoh vb 3 (penjualan dvd)

listingnya

Sub aktif()
Combo1.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
End Sub
Sub nonaktif()
Combo1.Enabled
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = True
End Sub
Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub

Private Sub Check1_Click()
Text7.Text = "KTP"

End Sub

Private Sub Check2_Click()
Text9.Text = "KTM"
End Sub

Private Sub cmdinput_Click(Index As Integer)
bersih
End Sub

Private Sub cmdkeluar_Click(Index As Integer)
x = MsgBox("Yakin Keluar?", vbYesNo + vbQuestion, "Penyewaan DVD")
If x = vbYes Then
Unload Me
End If

End Sub

Private Sub Combo1_click()
Text1.Enabled = True
Text2.Enabled = True
If Combo1.Text = "IND" Then '
Text1.Text = "INDONESIA"
Text2.Text = 10000
ElseIf Combo1.Text = "HIN" Then
Text1.Text = "INDIA"
Text2.Text = 20000
ElseIf Combo1.Text = "ENG" Then '
Text1.Text = "INGGRIS"
Text2.Text = 30000
ElseIf Combo1.Text = "ASI" Then
Text1.Text = "ASIA"
Text2.Text = 15000
Else
Text1.Text = "ASIA"
Text2.Text = 25000
End If



End Sub

Private Sub Command1_Click()
List1.AddItem (Text8.Text) & "-" & (Text1.Text) & "-" & (Text3.Text) & "-" & (Text6.Text) & "+jaminan=" & (Text7.Text) & "-" & (Text9.Text)
End Sub

Private Sub Command2_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub

Private Sub Command3_Click()
Text6.Text = Val(Text4.Text) - Val(Text5.Text)
End Sub

Private Sub Form_Activate()
bersih
Combo1.Enabled = True

End Sub

Private Sub Option1_Click()
Text5.Text = 0.05 * Val(Text4.Text)
End Sub

Private Sub Option2_Click()
Text5.Text = "0"
End Sub

 

kata-kata bijak di film naruto

• Kalau mau saling mengerti, lakukan saja setelah membuat lawan mengalami hal yang sama” (Yahiko, chapter 372)
  
  
  “Aku hanya ingin melindungi mereka, walau harus menjalani penderitaan seperti apapun” (Nagato, chapter 373)
  
  
  “Penderitaan membuatku semakin kuat dan berkembang” (Pain, chapter 474)
  
  
  “Shinobi yang melanggar aturan memang disebut sampah, tetapi shinobi yang meninggalkan sahabatnya lebih rendah dari sampah” (Uchiha Obito)
  
  
  “Aku tak akan menarik kembali kata-kataku, karena itulah jalan ninjaku” (Uzumaki Naruto)
  
  
  “Selemah apapun musuhku, aku tidak akan meremehkan mereka” (Aburame Shino)
  
  
  “Kau lemah, kenapa kau lemah??? Soalnya kurang sesuatu, yaitu kebencian” (Uchiha Itachi)
  
  
  “Seni itu adalah sesuatu yang rapuh, yang menghilang dalam sekejap” (Deidara)
  
  
  “Aku tersesat di jalan yang bernama kehidupan” (Hatake Kakashi)
  
  
  “Sepertinya aku harus meninggalkan Konoha demi menyelamatkan Konoha” (Jiraiya)
  
  
  “Manusia tak kan pernah bisa menang dari rasa kesepian” (Gaara)
  
  
  “Yang diperlukan oleh Shinobi bukan jumlah jutsu yang dapat dikuasainya, tetapi yang diperlukan Shinobi adalah tekad pantang menyerah” (Jiraiya)
  
  
  ”Ninja Yang Paling Buruk adalah Ninja Pengkhianat Desa… Ninja Yang Lebih Buruk Dari Ninja Pengkhianat Desa Adalah Ninja Yang Membiarkan Temannya Dalam Bahaya….!!!” (Kakashi Hatake)
  
  
  “Kemampuan individu seorang ninja memang penting, tetapi yang lebih penting lagi adalah kerjasama tim” (Hatake Kakashi)
  
  
  “Kalau tanganku patah, akan ku tendang dengan kakiku ini. Kalau kakiku patah, akan ku gigit dengan gigiku ini. Kalau gigiku dihancurkan juga, akan ku lihat dengan dengan tatapan penuh kebencian. Dan kalau mataku dihancurkan juga, akan ku gunakan kutukan untuk melawannya, aku pasti akan mengembalikan Sasuke” (Uzumaki Naruto)
  
  
  “Shinobi bukan dilihat dari cara hidupnya, tetapi bagaimana ia mati” & “Kehidupan Shinobi dinilai bukan dari bagaimana menjalaninya, tetapi dari apa yang sudah dilakukannya” (Jiraiya)
  
  
  “Semua orang hidup terikat dan bergantung pada pengetahuan atau persepsinya sendiri, itu disebut kenyataan. Tetapi pengetahuan atau persepsi itu sesuatu yang samar. Bisa saja kenyataan itu hanya ilusi, semua orang hidup dalam asumsi” (Uchiha Itachi)
  
  
  “Masa depanmu adalah kematian” (Hatake Kakashi)
  
  
  “Kau gagal tetapi masih bisa mampu bangkit kembali, karena itu menurutku arti dari kuat yang sebenarnya” (Hinata Hyuuga)
  
  
  “Aku akan menolongnya meski harus mengorbankan nyawa karena dia adalah temanku” (Shikamaru Naara)

full house

sript membuat foto di facebook melayang

copy script di adrees

javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.getElementsByTagName("img"); DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px"; DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}setInterval('A()',5); void(0);

orang yang mencintaimu

1. Jangan tertarik kepada seseorang karena parasnya, sebab keelokan paras dapat menyesatkan. Jangan pula tertarik kepada kekayaannya, karena kekayaan dapat musnah. Tertariklah kepada seseorang yang dapat membuatmu tersenyum, karena hanya senyum yang dapat membuat hari-hari yang gelap menjadi cerah. Semoga kamu menemukan orang seperti itu.

2. Ada saat-saat dalam hidup ketika kamu sangat merindukan seseorang, sehingga ingin hati menjemputnya dari alam mimpi dan memeluknya dalam alam nyata.. Semoga kamu memimpikan orang seperti itu.

3. Bermimpilah tentang apa yang ingin kamu impikan, pergilah ke tempat-tempat kamu ingin pergi, jadilah seperti yang kamu inginkan, karena kamu hanya memiliki satu kehidupan dan satu kesempatan untuk melakukan hal-hal yang ingin kamu lakukan.

4. Semoga kamu mendapatkan kebahagiaan yang cukup untuk membuatmu baik hati, cobaan yang cukup untuk membuatmu kuat, kesedihan yang cukup untuk membuatmu manusiawi, pengharapan yang cukup untuk membuatmu bahagia dan uang yang cukup untuk membeli hadiah-hadiah.

5. Ketika satu pintu kebahagiaan tertutup, pintu yang lain dibukakan. Tetapi acapkali kita terpaku terlalu lama pada pintu yang tertutup sehingga tidak melihat pintu lain yang dibukakan bagi kita. 6. Sahabat terbaik adalah dia yang dapat duduk berayun-ayun di beranda bersamamu, tanpa mengucapkan sepatah katapun, dan kemudian kamu meninggalkannya dengan perasaan telah bercakap-cakap lama dengannya.

7. Sungguh benar bahwa kita tidak tahu apa yang kita milik sampai kita kehilangannya, tetapi sungguh benar pula bahwa kita tidak tahu apa yang belum pernah kita miliki sampai kita mendapatkannya.

8. Pandanglah segala sesuatu dari kacamata orang lain. Apabila hal itu menyakitkan hatimu, sangat mungkin hal itu menyakitkan hati orang itu pula.

9. Kata-kata yang diucapkan sembarangan dapat menyulut perselisihan. Kata-kata yang kejam dapat menghancurkan suatu kehidupan. Kata-kata yang diucapkan pada tempatnya dapat meredakan ketegangan. Kata-kata yang penuh cinta dapat menyembuhkan dan memberkahi.

10. Awal dari cinta adalah membiarkan orang yang kita cinta menjadi dirinya sendiri, dan tidak merubahnya menjadi gambaran yang kita inginkan. Jika tidak, kita hanya mencintai pantulan diri sendiri yang kita temukan di dalam dia.

11. Orang-orang yang paling berbahagia tidak selalu memiliki hal-hal terbaik, mereka hanya berusaha menjadikan yang terbaik dari setiap hal yang hadir dalam hidupnya.

12. Mungkin Tuhan menginginkan kita bertemu dengan beberapa orang yang salah sebelum bertemu dengan orang yang tepat, kita harus mengerti bagaimana berterima kasih atas karunia itu.

13. Hanya diperlukan waktu semenit untuk menaksir seseorang, sejam untuk menyukai seseorang dan sehari untuk mencintai seseorang tetapi diperlukan waktu seumur hidup untuk melupakan seseorang.

14. Kebahagiaan tersedia bagi mereka yang menangis, mereka yang disakiti hatinya, mereka yang mencari dan mereka yang mencoba. Karena hanya mereka itulah yang menghargai pentingnya orang-orang yang pernah hadir dalam hidup mereka.

15. Cinta adalah jika kamu kehilangan rasa, gairah, romantika dan masih tetap peduli padanya.

16. Hal yang menyedihkan dalam hidup adalah ketika kamu bertemu seseorang yang sangat berarti bagimu dan mendapati pada akhirnya bahwa tidak demikian adanya dan kamu harus melepaskannya.

17. Cinta dimulai dengan sebuah senyuman, bertumbuh dengan sebuah ciuman dan berakhir dengan tetesan air mata.

18. Cinta datang kepada mereka yang masih berharap sekalipun pernah dikecewakan, kepada mereka yang masih percaya sekalipun pernah dikhianati, kepada mereka yang masih mencintai sekalipun pernah disakiti hatinya.

19. Sungguh menyakitkan mencintai seseorang yang tidak mencintaimu, tetapi yang lebih menyakitkan adalah mencintai seseorang dan tidak pernah memiliki keberanian untuk mengutarakan cintamu kepadanya.

20. Masa depan yang cerah selalu tergantung kepada masa lalu yang dilupakan, kamu tidak dapat hidup terus dengan baik jika kamu tidak melupakan kegagalan dan sakit hati di masa lalu.

21. Jangan pernah mengucapkan selamat tinggal jika kamu masih mau mencoba, jangan pernah menyerah jika kamu masih merasa sanggup jangan pernah mengatakan kamu tidak mencintainya lagi jika kamu masih tidak dapat melupakannya.

22. Memberikan seluruh cintamu kepada seseorang bukanlah jaminan dia akan membalas cintamu! Jangan mengharapkan balasan cinta, tunggulah sampai cinta berkembang di hatinya, tetapi jika tidak, berbahagialah karena cinta tumbuh di hatimu.

23. Ada hal-hal yang sangat ingin kamu dengar tetapi tidak akan pernah kamu dengar dari orang yang kamu harapkan untuk mengatakannya. Namun demikian janganlah menulikan telinga untuk mendengar dari orang yang mengatakannya dengan sepenuh hati.

24. Waktu kamu lahir, kamu menangis dan orang-orang di sekelilingmu tersenyum - jalanilah hidupmu sehingga pada waktu kamu meninggal, kamu tersenyum dan orang-orang di sekelilingmu menangis.

NILAI IPK JELEK

IPK itu istilahnya bentuk penggambaran prestasi seseorang jika dinilai dalam angka...

namun perlu diperhatikan bahwa sifat manusia adalah BERKEMBANG...

Jadi bisa saja seseorang yg mendapat IPK 1,5 tetapi wkt di dunia kerja , ia lebih berhasil...

Sama kyk peringkat negara sepak bola aja gann...Indonesia peringkat 127 bisa ngalahin Thailand yang peringkat diatas Indonesia tuh buktinya...

Tentu agan2 bertanya pada ane : kalo yg 1,5 bisa berkembang n di dunia kerja jd makin bagus berarti yg dpt IPK 4,00 bisa sangat berhasil n bisa2 pas masuk kerja lsg dipromosiin jd general manager donk ???

hehehe...nanti dulu gan

Berkembangnya kearah mana ?? positif apa negatif ?? balik lagi ke kata ane tadi MANUSIA ITU MAKHLUK YANG DINAMIS (BERKEMBANG)...kalo berkembangnya ke arah postif bisa saja yg dpt IPK 4,00 begitu masuk dunia kerja prestasinya lsg melejit...lah kalo berkembangnya ke arah negatif ??? Dia pasti songong mentang2 IPK nya dah 4,00 lsg ga mau berusaha lg...

mangkanya gann...

buat apa ente2 sedih ama IPK agan yg rendah... INGET MANUSIA ITU MAKHLUK DINAMIS , manusia bisa berkembang...

Maka berkembanglah agan2 semua ke arah yg positif...

IPK semester lalu yg terbilang NASAKOM (Nasib Satu Koma) gausah disedihin...karna kalo agan2 masih mikirin IPK semester lalu berarti agan2 ini termasuk MANUSIA YANG STATIS alias jalan di tempat...

" THOSE WHO AFRAID TO FALL , WILL NEVER FLY "

jangan takut mencoba , karena jika tidak mencoba maka anda tidak akan berhasil...

Mulai sekarang berpikirlah positif karena jika agan2 berpikir positif pasti semua yg agan2 lakukan akan mendapat hasil yg positif , begitu juga sebaliknya...

" LET'S START OUR DAY WITH A GREAT ACT "

mari kita mulai hari kita dengan sebuah tindakan yg bagus...APA ITU ??? BERDOA...

SEMOGA KITA SEMUA MERAIH KESUKSESAN DI SEGALA PEKERJAAN KITA

Facebook

•  
• kaskus

contoh vb 2 (visual basic)

contoh vb (visual basic)

Add caption

contoh program Vb sederhana. 
penilaian kelulusan mahasiswa...
   listingnya :
                 

Private Sub Command1_Click()
Dim gender
Dim status

If Option1.Value = True Then
    gender = "LAKI-LAKI"
Else
    gender = "PEREMPUAN"
End If

If Check1.Value = 1 Then
    status = "KULIAH ANDA AKTIF"
End If
If Check2.Value = 1 Then
    status = "CEK PEMBAYARAN"
End If
If Check1.Value = 1 And Check2.Value = 1 Then
    status = "lunas & belum lunas"
End If
If Check1.Value = 0 And Check2.Value = 0 Then
    status = "None"
End If

List1.AddItem "nama =" & txtnama.Text & "" & txtbelakang.Text & "    umur=" & txtumur.Text & "    jenis kelamin= " & gender & " -- " & status & "    mutu= " & Text6.Text & "  ket:" & Text8.Text
End Sub
Private Sub Command2_Click()
Dim number
If List1.List(0) = "" Then Exit Sub
'removing the last item from the list
number = List1.ListCount
List1.RemoveItem (number - 1)

End Sub

Private Sub cmdclear_Click()
cmdproses.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""

End Sub

Private Sub cmdexit_Click()
If MsgBox("Anda ingin keluar?", vbYesNo + vbQuestion, "BSI MANIA") = vbYes Then
Unload Me
End
Else
End If
End Sub
Private Sub cmdproses_Click()
Dim angka_mutu As Integer

cmdclear.Enabled = True
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
MsgBox ("Maaf Nilai Tidak kumplit")
  ElseIf Text1.Text > 100 Or Text1.Text = "" Then
MsgBox ("maaf Masukan angka 0-100 pada Nilai UTS")
  Else
angka_mutu = Text1.Text * 0.3 + Text2.Text * 0.4 + Text3.Text * 0.2 + Text4.Text * 0.1
Text5.Text = angka_mutu
  If Text2.Text > 100 Then
MsgBox ("maaf Masukan angka 0-100 pada Nilai UAS")
  ElseIf Text3.Text > 100 Then
MsgBox ("maaf Masukan angka 0-100 pada Nilai Tugas")
  ElseIf Text4.Text > 100 Then
MsgBox ("maaf Masukan angka 0-100 pada Nilai Absensi")
ElseIf angka_mutu > 76 And angka_mutu <= 100 Then
Text6.Text = "A"
cmdproses.Enabled = False
ElseIf angka_mutu > 66 And angka_mutu <= 75 Then
Text6.Text = "B"
cmdproses.Enabled = False
ElseIf angka_mutu > 55 And angka_mutu <= 65 Then
Text6.Text = "C"
cmdproses.Enabled = False
ElseIf angka_mutu > 40 And angka_mutu <= 54 Then
Text6.Text = "D"
cmdproses.Enabled = False
ElseIf angka_mutu >= 0 And angka_mutu <= 39 Then
Text6.Text = "E"
cmdproses.Enabled = False
End If
If Text6.Text = "A" Then
Text7.Text = "Cumlaude"
   ElseIf Text6.Text = "B" Then
Text7.Text = "Sangat Memuaskan"
   ElseIf Text6.Text = "C" Then
Text7.Text = "Cukup Memuaskan"
   ElseIf Text6.Text = "D" Then
Text7.Text = "Kurang Memuaskan"
   ElseIf Text6.Text = "E" Then
Text7.Text = "Buruk"

End If

If Text6.Text = "A" Then
Text8.Text = "Lulus"
  ElseIf Text6.Text = "B" Then
Text8.Text = "Lulus"
  ElseIf Text6.Text = "C" Then
Text8.Text = "Lulus"
  Else
Text8.Text = "Tidak Lulus"
End If

End If
End Sub