Etika dan etiket

5. ETIKET BERTAMU

 -jangan janji

-jika tuan rumah sudah menghidupkan mobil jangan di paksa untuk bertamu

-jangan terlalu agi

-jangan merugikan tuan rumah

-jangan menguras toples tuan rumah

-jaga volume/suara

-jangan bergunjing atau /menggosip

-jangan menghina tuan rumah

-membawa ole-ole

6. ETIKET MENJENGUK/MEMBESUK ORANG SAKIT

-jangan membawa anak kecil

-jangan membawa bunga

-jangan membawa makanan keras

-jangan bergunjing

-jangan membawa orang yang tidak di kenal

-perhatikan jam bezuk

-percayakan semua pada dokter yang merumat/merawat

7.ETIKET DI KANTOR

-jangan sering tidak masuk kantor

-jangan sering terlambat

-jangan sering menggunakan fasilitas kantor

-jangan berpacaran di kantor

-jangan merokok di kantor

-jangan sering menerima tamu pribadi di kantor

-jangan berbahak-bahak

-jangan brgunjing di kantor

-pagi-pagi jangan membaca Koran di kantor

-jangan tidur di kantor

8.ETIKET DENGAN TEMAN SEJAWAT

-jangan sering mminjam barang milik kawan

-hargai profesi kawan

-jangan sering kemeja kawan

9.ETIKET DENGAN PIMINAN

-hargai prifasi pimpinan

-jangan menggunjingi pimpinan

-jangan menjadi penghubung antara pimpinan dengan istri

-jangan berdebat dan jangan membantah

10.ETIKET PERTELFONAN

-telfon erletak di kiri

-mengangkat dengan tangan kiri

-telfon di angkat pada deringan ke 2

-semua pesan di eja atau di baca ulang

-jangan menggunakan kata HALO

-salam sambutnama ucapkan salam

-intonasi

-jaga nada

-jangan memainkan tali telfin

-mulut dalam keadaan kosong

-jangan bersandar atau membungkukan badan

-jika ada yg datang menggunakan bahasa isarat

-jangan menjerit lewat telfon

-semua no penting yang berada dalam meja

-jangan asal nebak nama

-beri tahu klien bila pimpinan sedang tidak ada

-ucapkan terimakasih

11.ETIKET MEMAKAI PAKAIAN KANTOR

SYARATNYA

-bersih             -rapi

-modis             -harmonis

-sopan

UNTUKK WANITA

-blazer

-rok span/panjang

-stoking

-sepatu=vantovel

-rambut

-makeup

-asesories

-tas

-parfum

UNTUK PRIA

-kemeja yang pastel

-ikat pinggang sama dengan sepatu

-dasi di perpadankan warna

-sepatu

-rambut rapi

-muka bebas dari kumis,dan brewokan

12. MENGHANDLE COMPLINE

PELAKU

-bukan tidak berpendidikan

-bukan pengangguran

-bukan tidak tau kedudukan

-bukan tidak tau undang undang

-bukan tidak tau kebudayaan

-bukan tak tau program

-bukan tak tau urut barang

    KENAPA

-jiwa kosong

-tak bertanggung jawab

-tidak jujur

-tidak ada komitmen kerja

-tidak ada kesalaha bebuat baik

-tidak ada etika profesi

PROVEI/ SYARAT SEBAGAI KARIR

-janji luhur  

-pengapdian

-pekerjaan

SYARAT

-keahlian /pendidikan tertentu

-kode etik

-kuliah yang bagus

-pengguna jasa

13. MAKNA ETIKA BAGI PEMEGANG PROFESI

-kualitas pemegang provesi di tentukan oleh segitiga

-tanggung jawab

-jujur

-komitmen kerja

-keterbukaan

-loyalitas

14. PRINSIP ETIKA PROVESI

-bertanggung jawab terhadap pekerjaan & dampak pekerjaan

-menghargai hak orang lain

15. PROVESI DASAR ETIKA PROFESI LUHUR

-mengutamakan klyen

-memegang teguh janji luhur provesi

16. PRINSIP DASAR MORAL

-berbuat baik

-berbuat adil

-rasa hormat pada diri sendiri

17. SIKAP MORAL YANG KUAT

-jujur

-original

-bertanggung jawab

-keberanian moral

-rendah hati

-peka, tanggap, peduli

zodiak dengan visual basic

Gambar Program Aplikasi Horoskop

Beberapa hari yang lalu ada seorang teman cew dari kampus yang terkemuka juga di kota medan ini, dia bertanya soal pada saya gimana cara buat Program ramalan Zodiak dari Visual Basic 6.0

Sebenarnyasih dikampus q sama sekali gak pernah buatnya, cuma karena saya juga penasaran dengan program Zodiaknya langsung aja saya sanggupi untuk membuatlanya.

setalh berpikir logika programnya sebentar selanjutnya saya mulai membuat formnya. dan membuat programnya.


nah beginilah listing program yang saya buat mungkin akan terlihat sangat kacau listing programnya tapi tenang aja, dibawah saya sudah menyediakan file aslinya supaya bisa teman-teman edit kembali :

Private Sub Form_Load()
                LblHari.Visible = False
                LblUmur.Visible = False
                LblZodiak.Visible = False
                LblKeterangan.Visible = False
                hari.Visible = False
                umur.Visible = False
               zodiak.Visible = False
               keterangan.Visible = False
               tahun.Visible = False
               CmbKelamin.Text = "Pilih..!!"
              With CmbKelamin
                         .AddItem "Laki-Laki"
                         .AddItem "Perempuan"
               End With
End Sub

Private Sub Command1_Click()
              Dim Bulan As Integer
              Dim Tanggal As Integer
              Tanggal = Format(DTPicker.Value, "dd")
              Bulan = Format(DTPicker.Value, "MM")
   
              If TxtNama.Text = "" Then
                   MsgBox "Isi Dahulu Nama Anda", vbInformation, "Informasi"
                   TxtNama.SetFocus
                   Exit Sub
             End If

            If CmbKelamin.Text = "" Or CmbKelamin.Text = "Pilih..!!" Then
                   MsgBox "Pilih Dahulu Jenis Kelamin Anda", vbInformation, "Informasi"
                   CmbKelamin.SetFocus
            Exit Sub
    End If
   
    'Menentkan Umur
    LblUmur.Caption = DateDiff("yyyy", DTPicker.Value, Date)
   
    'Menentukan Hari
    KodeHari = Weekday(DTPicker.Value)
    Select Case KodeHari
                 Case 1: hari = "Minggu"
                 Case 2: hari = "Senin"
                 Case 3: hari = "Selasa"
                 Case 4: hari = "Rabu"
                 Case 5: hari = "Kamis"
                 Case 6: hari = "Jumat"
                 Case 7: hari = "Sabtu"
    End Select

    LblHari.Caption = hari
   
    'Menentukan Zodiak
             If Bulan = 1 Then
                    LblZodiak.Caption = IIf(Tanggal <= 19, "Capricorn", "Aquarius")
             ElseIf Bulan = 2 Then
                    LblZodiak.Caption = IIf(Tanggal <= 19, "Aquarius", "Pisces")
             ElseIf Bulan = 3 Then
                    LblZodiak.Caption = IIf(Tanggal <= 20, "Pisces", "Aries")
             ElseIf Bulan = 4 Then
                    LblZodiak.Caption = IIf(Tanggal <= 20, "Aries", "Taurus")
             ElseIf Bulan = 5 Then
                    LblZodiak.Caption = IIf(Tanggal <= 21, "Taurus", "Gemini")
             ElseIf Bulan = 6 Then
                    LblZodiak.Caption = IIf(Tanggal <= 21, "Gemini", "Cancer")
             ElseIf Bulan = 7 Then
                    LblZodiak.Caption = IIf(Tanggal <= 21, "Cancer", "Leo")
             ElseIf Bulan = 8 Then
                    LblZodiak.Caption = IIf(Tanggal <= 21, "Leo", "Virgo")
             ElseIf Bulan = 9 Then
                    LblZodiak.Caption = IIf(Tanggal <= 22, "Virgo", "Libra")
             ElseIf Bulan = 10 Then
                    LblZodiak.Caption = IIf(Tanggal <= 23, " Libra", "Scorpio")
             ElseIf Bulan = 11 Then
                    LblZodiak.Caption = IIf(Tanggal <= 22, "Scorpio", "Sagitarius")
             Else
                    LblZodiak.Caption = IIf(Tanggal <= 22, "Sagitarius", "Capricorn")
             End If
   
    'Mengisi Label keterangan
             If LblZodiak.Caption = "Capricorn" Then
                    LblKeterangan.Caption = "Penuh energi, Penuh intuisi, mampu berinspirasi, dapat meramal,  berperikemanusiaan, dapat menerangkan sesuatu"
            ElseIf LblZodiak.Caption = "Aquarius" Then
                    LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi, berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal dengan cepat"
            ElseIf LblZodiak.Caption = "Pisces" Then
                    LblKeterangan.Caption = "Penuh energi, serba bisa, banyak akal, cepat bertindak, cinta kebebasan dan perubahan, bisa menjamu dan menghibur, seksualitas, mampu berpikir cepat"
            ElseIf LblZodiak.Caption = "Aries" Then
                    LblKeterangan.Caption = "Penuh energi, serba bisa, banyak akal, cepat bertindak, cinta kebebasan dan perubahan, bisa menjamu dan menghibur, seksualitas, mampu berpikir cepat"
            ElseIf LblZodiak.Caption = "Taurus" Then
                    LblKeterangan.Caption = "Ulet, gigih, Memiliki otoritas, berkemampuan eksekutif, senang melakukan supervisi, mempertimbangkan efisiensi, penilai, meterialis, bisa dipercaya"
            ElseIf LblZodiak.Caption = "Gemini" Then
                    LblKeterangan.Caption = "Berani, Penuh inisiatif, mempunyai daya cipta, Individualitas, mempnyai gagasan2 creatif dan inventif, memiliki kemampuan eksekutif, berkemauan keras, gigih, mandiri, mampu bertindak, penuh perjuangan"
            ElseIf LblZodiak.Caption = "Cancer" Then
                     LblKeterangan.Caption = "Mempunyai perdamaian, dapat bekerja sama, berjiwa kemitraan, diplomasi, penengah, suka berunding, mudah beradaptasi, rendah hati, luwes, memiliki pengaruh spiritual"
            ElseIf LblZodiak.Caption = "Leo" Then
                      LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi, berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal dengan cepat"
            ElseIf LblZodiak.Caption = "Virgo" Then
                      LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi, berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal dengan cepat"
            ElseIf LblZodiak.Caption = "Libra" Then
                      LblKeterangan.Caption = "Konstruktif, sistematis, tertib, praktis, relistis, teguh, tenang, efisien, pembangun, serius, berpikir ilmiah, tekun, bertanggung jawab, rajin, jujur, setia, keras hari"
            ElseIf LblZodiak.Caption = "Scorpio" Then
                      LblKeterangan.Caption = "Tidak mementingkan diri sendiri, pemaaf, iba hati, bisa toleran, lapang dada, dermawan, ahli agama, suka akan hal spiritual"
            Else
                       LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi, berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal dengan cepat"
             End If

             LblHari.Visible = True
             LblUmur.Visible = True
             LblZodiak.Visible = True
             LblKeterangan.Visible = True
             hari.Visible = True
             umur.Visible = True
             zodiak.Visible = True
             keterangan.Visible = True
             tahun.Visible = True
End Sub

Private Sub Command2_Click()
            End
End Sub

'Membuat tulisan blog berwarna
Private Sub Timer1_Timer()
          blog.ForeColor = RGB(255, 255, 255) * Rnd
End Sub

'Membuat Nama zodiak berganti2 warna
Private Sub Timer3_Timer()
           LblZodiak.ForeColor = RGB(255, 255, 255) * Rnd
End Sub




Download File :
Download : Zodiak
Password  : fahri
Ukuran      : 701 kb