Kamis, 05 Mei 2011

Tugas Wawancara

Untuk memenuhi tugas akhir IBD, yaitu dosen saya memberikan tugas  mewawancarai seseorang dengan tema “pandangan hidup”. Dan akhirnya saya mewawancarai teman sewaktu di tempat bimbel dulu. Dia bernama Atiqah Zulfa Nadia yang lebih akrab dikenal dengan sapaan Tiqo, umur 18 tahun dan sedang mengenyam pendidikan tinggi negeri  di Universitas Indonesia jurusan Teknik Industri. 

 
Inilah hasil perbincangan saya dengan beliau:

Saya   :“Selamat siang, boleh saya mewawancarai anda sebentar?”

Tiqo    :“Selamat siang, iya boleh,mau mewawancarai tentang apa?”

Saya   :“Oia, maaf sebelumnya, saya diberikan tugas dari kampus yaitu untuk tugas akhir     IBD,untuk mewawancarai seseorang tentang pandangan hidup.”

Tiqo   :”Oke,mau bertanya tentang apa sekarang?”

Saya   :”Menurut anda apa sih pandangan hidup itu?”

Tiqo    :”Pandangan hidup yaitu cara seseorang menilai dan menyikapi kejadian-kejadian  hal-hal yang terjadi dalam kehidupan dan sekitar.”

Saya   :”Hmm maksutnya menyikapi hal-hal yang terjadi apa?”

Tiqo    :”Jadi ketika ada yang terjadi, kita harus bisa merespon dengan respon yang seideal mungkin, at least tidak merugikan satu pihak walaupun tidak menguntungkan pihak lain?

Saya   :” Misalnya pada kejadian apa?”

Tiqo    :”Misalkan ketika saat mengerjakan tugas tugas kelompok,waktu nentuin kapan ngerjainnya, jangan sampai merugikan orang lain denga merusak jadwal mereka.

Saya   :”Pernah tidak anda melakukan suatu hal yang tidak sesuai pada pandangan hidup anda?”

Tiqo    :”Pernah sepertinya.”

Saya   :”Contohnya pada kejadian apa?”

Tiqo    :”Ketika suatu keputusan yang saya buat,ternyata melibatkan banyak pihak sehingga sulit untuk saya memastikan ada atau tidak satu orang yang merasa dirugikan.”

Saya   :”Kalau anda berpendapat seperti itu, sebenarnya pandangan hidup anda itu apa?”

Tiqo    :”Yang seperti tadi ,sesuai prinsip saya.”

Saya   :”Lalu memang prinsip anda itu apa?”

Tiqo    :”Yaa melakukan apa yang terbaik yang saya bisa, supaya dapat bermanfaat untuk banyak bagi orang lain.”

Saya   :”Jadi bagaimana anda menyikapi orang yang berbeda prinsip dengan anda?”

Tiqo    :”Yang pasti dalam menyikapi sesuatu hal saya tidak boleh menggangu prinsip mereka, yaa intinya saling menghargai saja.”

Saya   :”hmm sebentar, jadi menurut anda pandangan hidup itu seperti layaknya prinsip hidup ya?”

Tiqo    :”Yaa bisa dibilang begitu.”

Saya   :”Lalu menurut anda, pandangan hidup yang bagaimana yang salah menurut anda?”

Tiqo    :”Yang hanya melihat sesuatu dari sisi yang hanya menguntungkan dirinya.”

Saya   :”Lalu bagaimana anda menyikapi pandangan hidup ini, jika anda dipaksa untuk bekerjasama dengan orang yang berbeda pandangan hidup dengan anda dan dia memaksakan pandangan hidupnya kepada anda apa yang akan anda lakukan?”

Tiqo    :”Saya akan cenderung mengalah jika kejadiannya seperti itu,karena tidak akan ada gunanya batu dilawan dengan batu” 

Saya   :”Oh jadi begitu ya pandangan hidup anda, hmm anda punya saran tidak bagaimana sih Kriteria pandangan hidup yang ideal yg harus dimiliki oleh seseorang?”

Tiqo    :”Pertama, anda harus bisa menyeimbangkan antara kehidupan di dunia dan juga kehidupan di akhirat. Kedua, anda harus mempunyai pandangan hidup yang nyaman untuk diri anda sendiri dan tentunya juga untuk orang lain. Ketiga,pandangan hidup anda sebaiknya dapat membuat hidup anda berjalan dengan baik dan teratur.”

Saya   :”hmm yang terakhir, seberapa besar pengaruh pandangan hidup anda dengan prestasi yang telah anda buat?”

 Tiqo   :”hmm.. pengaruhnya cukup besar,karena dengan pandangan hidup saya, saya menjadi disiplin dengan keputusan-keputusan yang saya buat. Ketika saya memutuskan untuk melakukan sesuatu, akan saya lakukan dengan sunguh-sunguh. Tapi prestasi yang saya dapatkan saat ini tidak hanya dipengaruhi oleh itu, tapi banyak hal yang lain. Seperti doa, dan tentu juga kerja keras.”
 
Saya   :” hmm oke, terima kasih ya atas waktunya :)

Tiqo    :”Iya, sama-sama :)

Dan demikanlah perbincangan saya yang singkat dengan saudari Atiqah Zulfa Nadia tentang pandangan hidupnyanya. Dan terima kasih banyak kepada beliau atas waktu dan kerja samanya,sehinggga saya dapat menyelesaikan tugas IBD ini.



Dan ini foto saya dengan beliau :



















Dan ini prestasi yang beliau dapat:

Rabu, 04 Mei 2011

program zodiak dengan visual basic

listing programnya

Dim a As Integer
Dim b As Integer
Dim f As Integer
Dim kabisat As Boolean

Private Sub Combo2_Click()
If Me.Combo2.Text = "Februari" Then
   If kabisat = True Then
      a = 29
   Else
      a = 28
   End If
ElseIf Me.Combo2.Text = "Januari" Or Me.Combo2.Text = "Maret" Or Me.Combo2.Text = "Mei" Or Me.Combo2.Text = "Juli" Or Me.Combo2.Text = "Agustus" Or Me.Combo2.Text = "Oktober" Or Me.Combo2.Text = "Desember" Then
    a = 31
Else
    a = 30

End If

Me.Combo1.Clear
For b = 1 To a
    Me.Combo1.AddItem (b)
Next b


End Sub


Private Sub Combo3_Click()
Me.Combo2.Clear
Me.Combo2.AddItem ("Januari")
Me.Combo2.AddItem ("Februari")
Me.Combo2.AddItem ("Maret")
Me.Combo2.AddItem ("April")
Me.Combo2.AddItem ("Mei")
Me.Combo2.AddItem ("Juni")
Me.Combo2.AddItem ("Juli")
Me.Combo2.AddItem ("Agustus")
Me.Combo2.AddItem ("September")
Me.Combo2.AddItem ("Oktober")
Me.Combo2.AddItem ("November")
Me.Combo2.AddItem ("Desember")
e = Me.Combo3.Text
f = e Mod 4
If f = 0 Then
   kabisat = True
Else
   kabisat = False

End If
End Sub


Private Sub Command1_Click()
Dim c As String
Dim img1, img2, img3, img4, img5, img6, img7, img8, img9, img10, img11, img12 As String

If (Me.Combo2.Text = "Desember" And Me.Combo1.Text >= 22) Or (Me.Combo2.Text = "Januari" And Me.Combo1.Text <= 20) Then
     c = "CAPRICORN"
     Me.Text3.Text = "22 Desember - 20 Januari"
     Me.Text2.Text = "Karakter: gengsi tinggi, rajin, pendiam, materialis, teguh pendirian, ambisius, suka memerintah, dan mampu mengorganisir teman-temannya."
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img1 = "capricorn-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img1)
    
ElseIf (Me.Combo2.Text = "Januari" And Me.Combo1.Text >= 21) Or (Me.Combo2.Text = "Februari" And Me.Combo1.Text <= 19) Then
     c = "AQUARIUS"
     Me.Text3.Text = "21 Januari - 19 Februari"
     Me.Text2.Text = "Karakter: jenius, tenang, penuh ide, obyektif (tidak memihak), cepat mengerti"
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img2 = "aquarius-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img2)
    
ElseIf (Me.Combo2.Text = "Februari" And Me.Combo1.Text >= 20) Or (Me.Combo2.Text = "Maret" And Me.Combo1.Text <= 20) Then
     c = "PISCES"
     Me.Text3.Text = "20 Februari - 20 Maret"
     Me.Text2.Text = "Karakter: penuh cinta, praktis, memiliki sisi manusiawi yang besar, suka mengkhayal"
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img3 = "pisces-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img3)
ElseIf (Me.Combo2.Text = "Maret" And Me.Combo1.Text >= 21) Or (Me.Combo2.Text = "April" And Me.Combo1.Text <= 19) Then
     c = "ARIES"
     Me.Text3.Text = "21 Maret-19 April"
     Me.Text2.Text = " Karakter: energik, cepat emosi, agresif, impulsif, berjiwa pemimpin, tidak sabaran, egois "
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img4 = "aries-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img4)
ElseIf (Me.Combo2.Text = "April" And Me.Combo1.Text >= 20) Or (Me.Combo2.Text = "Mei" And Me.Combo1.Text <= 20) Then
     c = "TAURUS"
     Me.Text3.Text = "21 April-20 Mei"
     Me.Text2.Text = " Karakter : materialistis, keras kepala, pasif, praktis dan setia, ramah & sabar, memiliki jiwa toleransi"
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img5 = "taurus-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img5)
ElseIf (Me.Combo2.Text = "Mei" And Me.Combo1.Text >= 21) Or (Me.Combo2.Text = "Juni" And Me.Combo1.Text <= 21) Then
     c = "GEMINI"
     Me.Text3.Text = "21 Mei-21 Juni"
     Me.Text2.Text = "Karakter: pandai berbicara, lincah, mudah berubah-ubah, tidak stabil, mudah gugup, sangat peka"
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img6 = "gemini-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img6)
ElseIf (Me.Combo2.Text = "Juni" And Me.Combo1.Text >= 22) Or (Me.Combo2.Text = "Juli" And Me.Combo1.Text <= 22) Then
     c = "CANCER"
     Me.Text3.Text = "22 Juni-22 Juli"
     Me.Text2.Text = "Karakter: setia, penuh perhatian, sulit memaafkan, memiliki daya ingat yang kuat, suasana hati tidak menentu, sentimentil,"
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img7 = "cancer-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img7)
ElseIf (Me.Combo2.Text = "Juli" And Me.Combo1.Text >= 23) Or (Me.Combo2.Text = "Agustus" And Me.Combo1.Text <= 23) Then
     c = "LEO"
     Me.Text3.Text = "23 Juli-23 Agustus"
     Me.Text2.Text = "Karakter: suasana hati sering berubah, setia, penuh perhatian, sentimentil, sulit memaafkan, memiliki daya ingat yang kuat"
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img8 = "leo-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img8)
ElseIf (Me.Combo2.Text = "Agustus" And Me.Combo1.Text >= 24) Or (Me.Combo2.Text = "September" And Me.Combo1.Text <= 22) Then
     c = "VIRGO"
     Me.Text3.Text = "24 Agustus-22 September"
     Me.Text2.Text = "Karakter:, analistis, praktis kritis, rajin, berkepala dingin dan logis, sederhana"
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img9 = "virgo-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img9)
ElseIf (Me.Combo2.Text = "September" And Me.Combo1.Text >= 23) Or (Me.Combo2.Text = "Oktober" And Me.Combo1.Text <= 23) Then
     c = "LIBRA"
     Me.Text3.Text = "23 September-23 Oktober"
     Me.Text2.Text = "Karakter: memiliki naluri yang kuat, bimbang, penuh keraguan, adil pandai bermuka dua, mempesona"
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img10 = "libra-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img10)
ElseIf Me.Combo2.Text = "Oktober" And Me.Combo1.Text >= 24 Or Me.Combo2.Text = "November" And Me.Combo1.Text <= 22 Then
     c = "SCORPIO"
     Me.Text3.Text = "24 Oktober-22 November"
     Me.Text2.Text = "Karakter: gigih, panjang akal, pendendam, tekun , pendiam."
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img11 = "scorpio-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img11)
ElseIf Me.Combo2.Text = "November" And Me.Combo1.Text >= 23 Or Me.Combo2.Text = "Desember" And Me.Combo1.Text <= 21 Then
     c = "SAGITARIUS"
     Me.Text3.Text = "23 November-21 Desember"
     Me.Text2.Text = "Karakter: pandai berdiplomasi, berpandangan luas pandai, berjiwa petualang, mandiri, suka kebebasan."
     Me.Text2.FontSize = 15
     Me.Text2.FontBold = True
     img12 = "sagitarius-03.gif"
     Me.Image1.Picture = LoadPicture("D:\ARIN\VB\zodiak\" + img12)
End If
Text1 = c


End Sub
Private Sub Form_Load()
Dim d As Integer
Me.Combo3.Clear
For d = 1970 To 2017
    Me.Combo3.AddItem (d)
Next d

Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Image1.Visible = True Then
    Image1.Visible = False
ElseIf Image1.Visible = False Then
    Image1.Visible = True
End If
End Sub


*nb listing gambar zodiaknya muncul hanya pada pc/laptop ini, karena settingan pathnya ada dilaptop saya, jadi kalau ingin memunculkan gambarnya settingan pathnya tinggal diubah saja :)




output programnya seperti ini