ANGKA KEHIDUPAN, BENARKAH ?

Oktober 28, 2008

TANGGAL LAHIR : 15.1.1929

PENJUMLAHAN FADIKNYA : 1+5+1+1+9+2+9=28, 2+8=10, 1+0=1

Angka kehidupan 1 – Sang Pemimpin

Arah : belajar percaya pada diri sendiri

Kesempatan : memimpin dan memulai suatu proyek

Kata kunci : pemimpin, inisiator, pionir, populer, egois, dominasi, tirani.

Angka kehidupan 2 – Suka kerja sama

Arah : belajar cara bekerja sama

Kesempatan : bekerja sama dengan baik sebagai rekan bisnis atau dalam kelompok

Kata kunci : kerja sama, sahabat, diplomat, penuh inspirasi, musical, peragu, pemalu,

takut-takut, suka mengasihani diri sendiri

Angka kehidupan 3 – Sang Penghibur

Arah : belajar menciptakan kebahagiaan

Kesempatan : menggunakan kreatifitas dan imajinasi

Kata kunci : ekspresi diri, supel, kreatif, beruntung, cinta kehidupan, sombong,

Selalu gelisah, pembosan, pencemburu

Angka kehidupan 4 – Sang Pembangun

Arah : membangun kehidupan di atas fondasi yang kuat

Kesempatan : menerapkan disiplin secara konstruktif

Kata kunci : praktis, realitis, ortodoks, pekerja keras, setia, jujur, berpandangan

Sempit, dogmatis, membosankan

Angka kehidupan 5 – Sang Pembicara

Arah : belajar mencari kebebasan

Kesempatan : berbicara dan menciptakan perubahan

Kata kunci : pembicara, pencari kebebasan, serba bias, mudah menyesuaikan diri,

Sensual, cepat berpikir, analitis, progresif, suka menunda-nunda dan

foya-foya, sering berubah-ubah

Angka kehidupan 6 – Sang Guru

Arah : belajar bertanggung jawab

Kesempatan : menjadi kreatif dan menciptakan harmoni

Kata kunci : hermonisasi, kreatif, seimbang tanggung jawab, adil, penasihat, wajar,

Usil, pencemas

Angka kehidupan 7 – Individualis

Arah : belajar dari pengalaman orang lain

Kesempatan : menggunakan pengetahuan dan kebijaksanaan

Kata kunci : individual, intuisional, pemikir berat, analitis, misterius, spiritual,

Perfeksionis, suka menunda-nunda, sulit menerima nasihat orang lain

Angka kehidupan 8 – Sang Pencanang tujuan

Arah : belajar menetapkan tujuan

Kesempatan : menjadi orang mandiri

Kata kunci : ambisius, berkuasa, terencana, dermawan, bisa diandalkan, mandiri,

materialistis, serakah, kejam

Angka kehidupan 9 – Sang Humanis

Arah : belajar menunjukkan welas asih

Kesempatan : mengembangkan idealisme dan kreatifitas

Kata kunci : welas asih, humanis, idealis, romantis, dramatis, kreatif, penuh daya

tarik, terpecah-pecah, temperamental

Iklan

VB script tuk LJK PG

September 18, 2008

Kepada :

Siapapun yang memerlukannya

Contoh program VB untuk PG, soal dilihat dengan menggunakan notepad atau yang sejenisnya. No. Soal diacak agar tidak berurutan sama, satu dengan yang lainnya.

Jumlah soal dapat disesuaikan. Pokoknya selanjutnya, terserah anda. Tolong sambil dikoreksi atau dipercantik.

Salam hangat

Form yang digunakan :

Source programnya :

Rem SMAN 43 JAKARTA TIK XII IA/IS Try Out SM2 0708

Private Type datasoal

soal As String

jawaban As String

End Type

Option Base 1

Dim jawabananda As String

Dim benar, nosoal, jmlsoal, arnd, jml, cek As Integer

Dim no(60) As Integer

Dim jawaban(60) As String

Dim data(60) As datasoal

Sub daftarsoal()

data(1).jawaban = “b”

data(2).jawaban = “d”

data(3).jawaban = “b”

data(4).jawaban = “b”

data(5).jawaban = “d”

data(6).jawaban = “c”

data(7).jawaban = “c”

data(8).jawaban = “c”

data(9).jawaban = “b”

data(10).jawaban = “d”

data(11).jawaban = “c”

data(12).jawaban = “a”

data(13).jawaban = “c”

data(14).jawaban = “e”

data(15).jawaban = “d”

data(16).jawaban = “c”

data(17).jawaban = “a”

data(18).jawaban = “b”

data(19).jawaban = “d”

data(20).jawaban = “d”

data(21).jawaban = “b”

data(22).jawaban = “c”

data(23).jawaban = “d”

data(24).jawaban = “b”

data(25).jawaban = “d”

data(26).jawaban = “d”

data(27).jawaban = “b”

data(28).jawaban = “b”

data(29).jawaban = “b”

data(30).jawaban = “b”

data(31).jawaban = “c”

data(32).jawaban = “b”

data(33).jawaban = “d”

data(34).jawaban = “a”

data(35).jawaban = “a”

data(36).jawaban = “d”

data(37).jawaban = “d”

data(38).jawaban = “a”

data(39).jawaban = “c”

data(40).jawaban = “b”

data(41).jawaban = “c”

data(42).jawaban = “c”

data(43).jawaban = “c”

data(44).jawaban = “d”

data(45).jawaban = “b”

data(46).jawaban = “c”

data(47).jawaban = “a”

data(48).jawaban = “c”

data(49).jawaban = “d”

data(50).jawaban = “d”

data(51).jawaban = “b”

data(52).jawaban = “e”

data(53).jawaban = “d”

data(54).jawaban = “e”

data(55).jawaban = “b”

data(56).jawaban = “b”

data(57).jawaban = “b”

data(58).jawaban = “c”

data(59).jawaban = “a”

data(60).jawaban = “d”

End Sub

Sub tampilanform()

Label2.Caption = no(nosoal)

Label4.Caption = nosoal

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Option5.Value = False

End Sub

Sub cetakjawaban()

For cek = 1 To jmlsoal

Print data(cek).jawaban, jawaban(cek)

Next cek

End Sub

Sub tampilannilai()

MsgBox “nilai anda :” & benar / jmlsoal * 100, , “nilai tik dicapai”

End Sub

Sub tampilannilaiakhir()

MsgBox “Laporkan nilai akhir anda ini :” & benar / jmlsoal * 100, , “Pelaporan nilai TIK SMAN 43 JAKARTA”

End Sub

Private Sub command1_click()

jawaban(no(nosoal)) = jawabananda

If data(no(nosoal)).jawaban = jawabananda Then

benar = benar + 1

End If

Rem tampilannilai

If nosoal = jmlsoal Then

tampilannilaiakhir

Rem cetakjawaban

tampilannilaiakhir

End

Else

nosoal = nosoal + 1

jawabananda = “”

tampilanform

End If

End Sub

Private Sub form_load()

daftarsoal

Rem *** Perhatikan jumlah soalnya !!!

jmlsoal = 40

Rem *** Berapa ????

Randomize Timer

For jml = 1 To jmlsoal

acak:

arnd = Int(Rnd * 100)

If arnd > jmlsoal Or arnd = 0 Then GoTo acak

For cek = 1 To jml – 1

If no(cek) = arnd Then GoTo acak

Next cek

no(jml) = arnd

Next jml

nosoal = 1

tampilanform

End Sub

Private Sub option1_click()

jawabananda = “a”

End Sub

Private Sub option2_click()

jawabananda = “b”

End Sub

Private Sub option3_click()

jawabananda = “c”

End Sub

Private Sub option4_click()

jawabananda = “d”

End Sub

Private Sub option5_click()

jawabananda = “e”

End Sub

Cobalah tetap semangat

Agustus 25, 2008

Anda adalah seorang yang Luar biasa, makanya berindaklah juga luar biasa. Selalu belajar menjadi pribadi yang lebih baik seiring berjalannya waktu. Mencoba adalah sebagai suatu hobi, mengkaji materi agar lebih memahami adalah suatu kesenangan tersendiri, maka mulailah melakukannya sekarang juga, berhenti hanya untuk istirahat sejenak, dan selanjutnya kembali bekerja.

Milikilah sahabat sebanyak-banyaknya, Hindari musuh sejauh-jauhnya.

Lindungi diri melalui doa dengan satu kemantapan yang luar biasa. Bangunkan pandangan yang mantap, teguh dan berlandasan kuat, sehingga akan membentuk sikap yang luar biasa indahnya.

Salam hangat kepada siapapun yang membaca ulasan ini.