omegle

Kali ini saya akan membuat paper tentang omegle. Sebelumnya apakah anda sudah mengetahui apa itu omegle? Pastinya ini merupakan suatu web yang memanfaatkan teknologi internet. Untuk lebih jelasnya,saya akan menjelaskan apa itu omegle?

Omegle adalah situs web pengirim pesan instan yang digunakan untuk berkomunikasi dengan orang lain secara acak dengan mengenalkan konsep baru dalam dunia internet. Maksudnya adalah situs ini pada dasarnya hampir sama dengan program pengirim pesan instan sepertiYahoo Messenger, Windows Live Messenger, Google Talk, atau pengirim pesan instan lainnya yang bertujuan untuk berkomunikasi jarak jauh dengan orang lain dengan cara tidak bertemu langsung melainkan menggunakan alat dan jaringan internet. Situs ini sedang berkembang di Indonesia dan juga tentunya di dunia. Omegle sengaja dibuat untuk para pengguna internet dan pengirim pesan instan untuk mendapat pengalaman dan mendapat teman baru secara acak dalam dunia online.

Pada saat pengguna ingin menggunakan situs ini untuk berkomunikasi, tulisan yang tertera bukan nama asli pengguna, melainkan tulisan “you” untuk mengidentitaskan diri pengguna dan “stranger” untuk mengidentitaskan lawan bicaranya. Pengguna saat menggunakan situs ini tidak dapat mengubah namanya, begitupula untuk lawan bicaranya tidak akan berubah namanya. Di dalam situs web omegle ini juga mempunyai slogan yang berbunyi “talk to stranger”.

Perbedaan omegle dengan pengirim pesan instan-pengirim pesan instan lainnya adalah jika pengirim pesan instan lain pada saat ingin berkomunikasi, sudah pasti dapat mengetahui dan mengenal siapa lawan bicaranya, karena sudah terlebih dahulu harus menambah kontak dan menunggu persetujuan dari kontak lain. Akan tetapi, jika menggunakan omegle pengguna tidak akan tahu siapa orang yang menjadi lawan bicaranya karena dipilih oleh omegle secara acak. Jadi mudah bagi pengguna untuk menutupi identitas asli kepada lawan bicara. Cakupan dari omegle tersebut sangat luas, karena dapat berinteraksi dengan semua pengguna yang ada di seluruh dunia melalui situs ini.

Cara menggunakan situs ini sangatlah mudah loh, langsung saja ke  http://www.omegle.com terus langsung saja klik 'Start a Chat' dan langsung deh mulai converence gitu dan ternyata itu ga perlu kita sign up lalu log in jadi langsung saja tersambung dengan berbagai orang yang ada di belahan dunia manapun J . ini sangat bermanfaat loh untuk melatih bhs inggris kita juga dan tentunya dapat memiliki kenalan dengan orang-orang luar negeri J hehe,cukup bermanfaat situs ini untuk saling bertukar pikiran informasi. 

Satu lagi dengan menggunakan situs ini,kita juga harus bisa memilih milih teman yg kita ajak chat juga yang benar, kalau tidak tinggal kita disconnected saja,kemudian servernya akan otomatis merandom dan mencari yang lainnya.

berikut contoh gambarnya:

Semoga informasi ini bermanfaat untuk para pembaca J

Nama              :           Arini Partiwi

Kelas               :           2IA01

NPM                :           51410102

Peng. Tek. Internet & New Media 1

Kali ini saya akan membuat paper untuk tugas softskill, pada tingkat dua ini tema yg diberikan untuk matakuliah softskill itu sendiri adalah “Pengenalan Teknologi Internet dan New Media” . Dari namanya saja sudah terlihat jelas bahwa pengembangan teknologi internet dimasa sekarang ini berkembang dengat cepat seiringnya waktu.

Dengan adanya perkembangan kemajuan teknologi internet tentunya semakin banyak benda-benda atau gadjet gadjet yang menggunakan teknologi internet itu sendiri. Sudah terbukti dengan adanya kemajuan teknologi internet semua oran gberlomba-lomba untuk memiliki gadjet tersebut, contohnya saja yaitu diera global seperti ini, tentu tidak asing lagi gadjet alat komunikasi handphone seperti blackberry,apple,android, dan semacamnya.

 Dengan adanya kemajuan perkembangan teknologi tersebut, tentu memudahkan seseorang untuk melakukan segala sesuatunya. Ssebagai contoh dengan menggunakan gadjet yang tidak terlalu besar,simple dan mudah untuk dibawa-bawa seperti handphone blackberry salah satunya, dengan menggunakan alat seperti itu dengan mudah kita dapat berkirim email ke semua Negara dengan cepat,tidak lagi membutuhkan waktu yang berlama-lama untuk mengirim suatu pesan dari Negara satu ke Negara lain, dengan adanya pemanfaatan teknologi internet tersebut membuat kita cepat dalam menerima segala sesuatu yang kita inginkan.

Contoh lainnya yaitu google, dengan ini kita dapat mencari berbagai informasi yang ingin kita cari, betapa mudahnya kita mendapatkan informasi dengan ini, tentunya hemat dan efisien waktu, kita tidak perlu lagi mencari buku-buku dan membelinya, dengan adanya perkembangan tekologi internet ini mmbuat kita semakin terlena dibuatnya. Coba bayangkan bagaimana kita tidak terlena dengan adanya kemajuan teknologi internet ini banyak orang yang berlomba-lomba untuk membuat suatu gadjet yang didalamnya menggunakan teknologi internet ini, tentunya kita yang sebagai pemakai ingin memilikinya,dan sebagai manusia,tentunya memiliki rasa yang tidak pernah puas akan suatu hal,dan dengan adanya gadjet seperti ini,apalagi yg makin lama makin canggih tentunya setiap manusia tegiur olehnya, ini memungkin manusia menjadi memiliki sifat konsumtif.

Tetapi tidak dapat dipungkuri,bahwasannya teknologi internet itu semakin lama semakin diminati dan di gandrungi oleh masyarakat, tidak terkecuali untuk orang ‘kecil’. Dan tidak bisa dibohongi juga bahwa dengan adanya teknologi internet ini memudahkan dalam segala hal,dan ini yang mendorong masyarakat untuk memanfaatkan teknologi internet  ini. Dan dengan adanya teknologi internet ini mendorong juga untuk terjadinya suatu media.

Contoh dari penggunaan teknologi internet adalah sebagai berikut :

Ù E-Commerce

Dari namanya, kita sudah bisa menebak kalau ini berkaitan dengan kegiatan yang bersifat komersial. Tidak salah memang, karena istilah e-commerce yang akan kita bahas ini memang mengacu pada kegiatan komersial di internet. Contoh paling umum dari kegiatan e-commerce tentu saja adalah aktifitas transaksi perdagangan melalui sarana Internet. Dengan memanfaatkan e-commerce, para penjual (merchant) dapat menjajakan produknya secara lintas negara karena memang sifat internet sendiri yang tidak mengenal batasan geografis. Transaksi dapat berlangsung secara real time dari sudut mana saja didunia asalkan terhubung dalam jaringan internet.

Ù E-Banking

Electronic Banking, atau e-banking bisa diartikan sebagai aktifitas perbankan di internet.Layanan ini memungkinkan nasabah sebuah bank dapat melakukan hampir semua jenis transaksi perbankan melalui sarana internet, khususnya via web. Mirip dengan penggunaan mesin ATM, lewat sarana internet seorang nasabah dapat melakukan aktifitas pengecekan rekening, transfer dana antar rekening, hingga pembayaran tagihantagihan rutin bulanan (listrik, telepon, dsb.) melalui rekening banknya. Jelas banyak keuntungan yang bisa didapatkan nasabah dengan memanfaatkan layanan ini, terutama bila dilihat dari waktu dan tenaga yang dapat dihemat karena transaksi e-banking jelas bebas antrian dan dapat dilakukan dari mana saja sepanjang nasabah dapat terhubung dengan jaringan internet.

Ù e-Learning

Istilah e-Learning dapat didefinisikan sebagai sebuah bentuk penerapan teknologi informasi di bidang pendidikan dalam bentuk sekolah maya. Definisi e-Learning sendiri sebenarnya sangat luas, bahkan sebuah portal informasi tentang suatu topik (seperti halnya situs ini) juga dapat tercakup dalam e-Learning ini. Namun istilah e-Learning lebih tepat ditujukan sebagai usaha untuk membuat sebuah transformasi proses belajarmengajar di sekolah dalam bentuk digital yang dijembatani oleh teknologi Internet. Dalam teknologi e-Learning, semua proses belajar-mengajar yang biasa ditemui dalam sebuah ruang kelas, dilakukan secara live namun virtual, artinya dalam saat yang sama, seorang guru mengajar di depan sebuah komputer yang ada di suatu tempat, sedangkan para siswa mengikuti pelajaran tersebut dari komputer lain di tempat yang berbeda.Dalam hal ini, secara langsung guru dan siswa tidak saling berkomunikasi, namun secara tidak langsung mereka saling berinteraksi pada waktu yang sama.

Demikian lah paper tentang Peng. Tek. Internet & New Media yang saya buat seoga bermanfaat untuk semuanya J

Nama              :           Arini Partiwi

Kelas               :          2IA01

Npm                :           51410102

  

harapan dan cita-cita yang akan datang

Ditahun 2011

Harapan Saya adalah :
- Bisa menguasai setidaknya satu bahasa pemrograman.

- Nilai IPK disemester dua lebih tinggi dari semester dua setidaknya lebih besar dr 3.63

Ditahun 2012

Harapan Saya adalah :
- Bisa masuk sarmag. 

- Mulai memahami dan menguasai lebih dari satu bahasa pemrograman.

- Nilai IPK semakin meningkat dari semester dua nanti aminnn.

Ditahun 2013

Harapan Saya adalah :
- Lancar PI nyaaaa.

- IPK terus meningkat.
- Mulai memahani dan menguasai banyak bahasa pemrograman.

Ditahun 2014

Harapan Saya adalah :
-Lulus Sarjana ditahun ini.
-Cepet dapet pekerjaan yang tetap

Ditahun 2015

Harapan Saya adalah : 
-Nerusin S2 amiiiiin.
 -Menikah

Ditahun 2016-2018

Harapan Saya adalah :
-Lulus S2 ditahun ini.

Ditahun 2018-seterusnya

Harapan Saya adalah :
-Meniti Karier sampai menjadi orang sukses (pengusaha). dan juga mengurus        keluarga. amiiiiiiiiiiiin

                          

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:

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