2

 

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurus.Text = “”
txtpro.Text = “”
txttahun.Text = “”
txtno.Text = “”
txtdaftar.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurus.Text = “”
txtpro.Text = “”
txttahun.Text = “”
txtno.Text = “”
txtdaftar.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttotal.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b As String

a = Left(txtnpm.Text, 1)
If a = “E” Or a = “e” Then
txtkelas.Text = “Eksekutif”
txtbangun.Text = “1250000″
ElseIf a = “R” Or a = “r” Then
txtkelas.Text = “Reguler”
txtbangun.Text = “1000000″
End If

txtpropti.Text = “600000″

a = Mid(txtnpm.Text, 5, 1)
If a = “1″ Then
txtjurus.Text = “Sistem Informasi”
ElseIf a = “2″ Then
txtjurus.Text = “Manajemen Informatika”
ElseIf a = “3″ Then
txtjurus.Text = “Manajemen dan Komp.Akutansi”
End If

a = Mid(txtnpm.Text, 6, 2)
If a = “01″ Then
txtpro.Text = “Strata Satu”
txtdaftar.Text = “200000″
ElseIf a = “02″ Then
txtpro.Text = “Diploma Tiga”
txtdaftar.Text = “150000″
ElseIf a = “03″ Then
txtpro.Text = “Diploma Satu”
txtdaftar.Text = “150000″
End If
txtno.Text = Right(txtnpm.Text, 3)

txttahun.Text = “20″ & Mid(txtnpm.Text, 3, 2)

If txtkelas.Text = “Eksekutif” And txtpro.Text = “Strata Satu” Then
txtbiaya.Text = “1900000″
ElseIf txtkelas.Text = “Eksekutif” And txtpro.Text = “Diploma Tiga” Then
txtbiaya.Text = “1650000″
ElseIf txtkelas.Text = “Eksekutif” And txtpro.Text = “Diploma Satu” Then
txtbiaya.Text = “1350000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Strata Satu” Then
txtbiaya.Text = “1500000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Diploma Tiga” Then
txtbiaya.Text = “1250000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Diploma Satu” Then
txtbiaya.Text = “1250000″
End If

txttotal.Text = Val(txtdaftar.Text) + Val(txtbiaya.Text) + Val(txtbangun.Text) + Val(txtpropti.Text)

End Sub

Private Sub Form_Activate()
txtnama.SetFocus
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

 

PT.PULANG PETANG SETIAP HARI

 

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdproses_Click()

Select Case a = Mid(txtnik.Text, 5, 1)
Case a = “A”
txtgol = “A”
txtjabatan.Text = “MANAGER”
txtgapok.Text = “4000000″
txttunjangan.Text = “1025000″
Case a = “B”
txtgol.Text = “B”
txtjabatan.Text = “Ka.SEKSI”
txtgapok.Text = “3500000″
txttunjangan.Text = “975000″
Case a = “C”
txtgol.Text = “C”
txtjabatan.Text = “STAFF”
txtgapok.Text = “3000000″
txttunjangan.Text = “925000″
End Select

a = Right(txtnik.Text, 3)
If a = “KEU” Then
txtbagian.Text = “ACCOUNTING”
ElseIf a = “ADM” Then
txtbagian.Text = “ADMINISTRASI”
ElseIf a = “SDM” Then
txtbagian.Text = “GENERAL AFFAIR”
ElseIf a = “EDP” Then
txtbagian.Text = “IT UNIT”
ElseIf a = “SPM” Then
txtbagian.Text = “SECURITY”
End If

Select Case a = Mid(txtnik.Text, 7, 1)
Case a = “S”
kode = “S”
Status = “SINGEL”
Case a = “M”
kode = “M”
Status = “MENIKAH”
Case a = “J”
kode = “J”
Status = “JANDA”
Case a = “D”
kode = “D”
Status = “DUDA”
End Select
txtkode.Text = kode
txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotal.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)
End Sub

Private Sub Form_Activate()
txtnama.SetFocus
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

Private Sub cbokode_Click()
txtjj.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim penjualan, discount, kode, merk, bayar, a, b As String
Dim harga As Variant

kode = Mid(cbokode.Text, 7, 5)
If kode = “MC965″ Then
merk = “Apple MacBook Air MC965″
harga = “12800000″
ElseIf kode = “MC966″ Then
merk = “Apple MacBook Air MC966″
harga = “15800000″
ElseIf kode = “MC968″ Then
merk = “Apple MacBook Air MC968″
harga = “9900000″
ElseIf kode = “MC969″ Then
merk = “Apple MacBook Air MC969″
harga = “11900000″
ElseIf kode = “MC700″ Then
merk = “Apple MacBook Air MC700″
harga = “10800000″
ElseIf kode = “MC721″ Then
merk = “Apple MacBook Air MC721″
harga = “15900000″
ElseIf kode = “MC723″ Then
merk = “Apple MacBook Air MC723″
harga = “19300000″
ElseIf kode = “MC724″ Then
merk = “Apple MacBook Air MC724″
harga = “13700000″
ElseIf kode = “MC311″ Then
merk = “Apple MacBook Air MC311″
harga = “24200000″
ElseIf kode = “MC313″ Then
merk = “Apple MacBook Air MC313″
harga = “11900000″
ElseIf kode = “MC314″ Then
merk = “Apple MacBook Air MC314″
harga = “14700000″
ElseIf kode = “MC318″ Then
merk = “Apple MacBook Air MC318″
harga = “17600000″
ElseIf kode = “MC322″ Then
merk = “Apple MacBook Air MC322″
harga = “21300000″
ElseIf kode = “MC965″ Then
merk = “Apple MacBook Air MC965″
harga = “12800000″
ElseIf kode = “MC966″ Then
merk = “Apple MacBook Air MC966″
harga = “15800000″
End If
txtmerk.Text = merk
txths.Text = harga

a = Val(txtjj.Text)
b = Val(txths.Text)
penjualan = a * b
txthp.Text = penjualan

Select Case txthp.Text
Case Is > 140000000
discount = 0.15 * penjualan
Case Is > 135000000
discount = 0.1 * penjualan
Case Is > 130000000
discount = 0.05 * penjualan
Case Is > 125000000
discount = 0.02 * penjualan
End Select
penjualan = Val(txthp.Text)
txtdis.Text = discount

txttb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txtdis.Text = “”
txttb.Text = “”
txthp.Text = “”

End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
cbokode.AddItem “Apple MC965 MasBook Air”
cbokode.AddItem “Apple MC966 MasBook Air”
cbokode.AddItem “Apple MC968 MasBook Air”
cbokode.AddItem “Apple MC969 MasBook Air”
cbokode.AddItem “Apple MC700 MasBook Pro”
cbokode.AddItem “Apple MC721 MasBook Pro”
cbokode.AddItem “Apple MC723 MasBook Pro”
cbokode.AddItem “Apple MC724 MasBook Pro”
cbokode.AddItem “Apple MC311 MasBook Pro”
cbokode.AddItem “Apple MC313 MasBook Pro”
cbokode.AddItem “Apple MC314 MasBook Pro”
cbokode.AddItem “Apple MC318 MasBook Pro”
cbokode.AddItem “Apple MC322 MasBook Pro”
cbokode.AddItem “Apple MC965 MasBook Air”
cbokode.AddItem “Apple MC966 MasBook Air”
End Sub

TUGAS 4

Private Sub cmdproses_Click()

 

kodetiket = Left(txtkt.Text, 3)

 

If kodetiket = “bim” Then

jeniskereta = “bima”

hatgatiket = “50000”

jamberangkat = “16.00”

ElseIf kodetiket = “eko” Then

jeniskereta = “ekonomi”

hargatiket = “35000”

jamberangkat = “19.00”

ElseIf kodetiket = “mut” Then

jeniskereta = “mutiara”

hargatiket = “23000”

jamberangkat = “17.00”

ElseIf kodetiket = “sen” Then

jeniskereta = “senja”

hargatiket = “15000”

jamberangkat = “20000”

 

End If

txtkt.Text = kodetiket

txtjk.Text = jeniskereta

txtht.Text = hargatiket

txtjb.Text = jamberangkat

 

txtjt.SetFocus

 

End Sub

 

Private Sub Form_Activate()

txtkt.SetFocus

End Sub

 

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)

End If

End Sub

 

Private Sub txtkt_Change()

 

End Sub

 

Perhitungan harga setelah diskon 10%

Private Sub cmdbersih_Click()

txtbil1.Text = “”

txtbil2.Text = “”

txthasil.Text = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)

End Sub

HURUF MUTU MAHASISWA

CARA MEMBUAT HURUF MUTU MAHASISWA STMIK

 

Private Sub cbonpm_Click()

Select Case cbonpm.Text

Case “12100031”

nama = “AGUS”

jurusan = “Sistem Informasi”

Case “12100024”

nama = “ViTA NOVIYANTI”

jurusan = “Sistem Informasi”

Case “12100026”

nama = “SITI SARI”

jurusan = “Sistem Informasi”

End Select

txtnma.Text = nama

txtjrs.Text = jurusan

txtnq.SetFocus

End Sub

 

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = “”

txtnma.Text = “”

txtjrs.Text = “”

txtnq.Text = “”

txtnt.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

quis = Val(txtnq.Text)

tugas = Val(txtnt.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

NA = (quis + tugas + uts + uas) / 4

txtna.Text = NA

 

Select Case txtna.Text

Case Is > 80

HM = “A”

Select Case txtna.Text

Case Is > 70

HM = “B”

Select Case txtna.Text

Case Is > 60

HM = “C”

Select Case txtna.Text

Case Is > 50

HM = “D”

Select Case txtna.Text

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “12100031”

cbonpm.AddItem “12100024”

cbonpm.AddItem “12100026”

 

End Sub

 

 

 

Private Sub txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnt.SetFocus

End If

End Sub

 

 

Private Sub txtnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuts.SetFocus

End If

End Sub

 

 

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

 

 

Private Sub txttunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

CARA MEMBUAT APLIKASI PERHITUNGAN GAJI

• Aplikasi perhitungan gaji

 

 

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdulang_Click()

txtgapok = “”

txttunjangan = “”

txtpot = “”

txtgator = “”

txtgama = “”

End Sub

 

Private Sub txtgapok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttunjangan.SetFocus

End If

End Sub

tugas3

Private Sub cmdbersih_Click()

txtbil1.Text = “”

txtbil2.Text = “”

txthasil.Text = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

CARA PERKALIAN DUA BILANGAN DENGAN CARA DI ATAS INI

tugas visual basic

TUGAS VISUAL BASIC 2

 

1. NPM :

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

2. Nama Mahasiswa:
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtps.SetFocus
End If
End Sub

3. Program Studi :
Private Sub txtps_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjurusan.SetFocus
End If
End Sub

4. Jurusan :
Private Sub txtjurusan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsemester.SetFocus
End If
End Sub

5. Semester :
Private Sub txtsemester_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub

6. Lagi :
Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub

7. Batal :
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub

8. Keluar :
Private Sub cmdkeluar_Click()
end
End Sub

1. Kode Buah :

Private Sub txtkb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnb.SetFocus

End If

End Sub

2. Nama Buah :

Private Sub txtnb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthb.SetFocus

End If

End Sub

3. Harga Buah :

Private Sub txthb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjb.SetFocus

End If

End Sub

4. Jumlah Beli :

Private Sub txtjb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttb.Text = Val(txthb.Text) * (txtjb.Text)

End If

End Sub

5. Total Bayar :

Private Sub txttb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End If

End Sub

 

6. Lagi :

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = “”

txtnb = “”

txthb = “”

txtjb = “”

txttb = “”

End Sub

 

7. Batal :

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = “”

txtnb = “”

txthb = “”

txtjb = “”

txttb = “”

End Sub

8. Keluar :

Private Sub cmdkeluar_Click()

End

End Sub

j

Translate this page?English
AGUNKz scrEaMO {Agung YuLy Diyantoro} Blog
Blog Universitas Komputer Indonesia

Home
Profil Saya
RSS Feeds
Blog Home
Bookmark and Share

TIPS: Cara atau Posisi Duduk Yang Baik
TIPS: Cara atau Posisi Duduk Yang Baik
Anda mengalami rasa nyeri di punggung, pinggang, dan leher? Bisa jadi hal itu terjadi karena posisi duduk Anda tidak benar. Secara gender, menurut Drew DeMann, spesialis tulang dari New York City, Amerika Serikat, posisi tubuh yang salah lebih sering memberikan gangguan pada kesehatan wanita ketimbang pria.

Kesalahan duduk yang sering dilakukan oleh seseorang adalah terlalu merosot ke bawah, terlalu maju ke depan, lupa berdiri, atau lupa meluruskan kaki, sehingga pada akhirnya pinggang dan punggungnya terasa nyeri. Orang yang bekerja di kantor harus menghadapi hal ini selama sekitar 8 jam.

Berikut ini tip posisi duduk yang benar ala DeMann.

1. Posisi kepala belakang, lipatan dagu, telinga, pinggul, dan bahu harus sejajar.

2. Gunakan headphone dan hindari penggunaan pesawat telepon biasa. Bila diharuskan memakai pesawat telepon biasa, jangan menjepit telepon di antara dagu dan bahu terlalu lama.

3. Lekukan siku sebaiknya membentuk sudut 90 derajat.

4. Dudukan kursi sepenuhnya disesuaikan dengan tinggi pinggang dan harus menyangga tulang belakang sepenuhnya.

5. Jarak pandangan mata sebaiknya disesuaikan dengan layar komputer, yakni antara 18-24 sentimeter, dengan tinggi jarak pandang sepertiga layar komputer.

6. Pinggul dan paha sebaiknya membentuk sudut 90 derajat, dengan telapak kaki menempel lurus di lantai.

source by tempo
Format Lainnya : PDF | Google Docs | English Version
Diposting pada : Senin, 23 April 12 – 20:38 WIB
Dalam Kategori : AGUNKZSCREAMO, HIDUP SEHAT, TIPS CARA POSISI DUDUK YANG BENAR
Dibaca sebanyak : 1255 Kali
Tidak ada komentar pada blog ini…
Anda harus Login terlebih dahulu untuk mengirim komentar
Facebook Feedback
<>

AGUNKz scrEaMO {Agung YuLy Diyantoro} Blog
Ranking: 9

MY HOME PAGE

GUNAKAN KOTAK PENCARIAN DIATAS, JIKA ARTIKEL / FILE YANG KALIAN CARI TIDAK DITEMUKAN

STAY CONNECTED ON YOUR TIMELINE / SOCIAL-NETWORK, JOIN & FOLLOW US

1 1 1 1 1 facebook.com/agunkzisme

VISIT MY HOME PAGE

tinyurl.com/agunkzscreamo

agunkzscreamo.blogspot.com

Name : AGUNG YULY DIYANTORO
Class : Information Systems-06 / Class of 2007
University: Indonesian Computer University

1
My Yahoo Messenger
1

AGUNKz scrEaMO

Kami Menjual & Menyediakan CD DVD Windows 8, Microsoft Office 2013, Linux (Backtrack 5 R3 , Ubuntu 12.10 Final, Linux Mint 13, Linx Fedora 17. dll), dan Software-Software TERBARU Lainnya !!

1
Klik Gambar diatas untuk lebih jelasnya

FREE DOMAIN 1 1

1
ADS & Sponsor

FREE SPACE untuk Banner Iklan DI BLOG INI, Tertarik ? Mention or Send Me Message 🙂 Firefox
Kategori
agunkzscreamo facebook google android hacker twitter windows info tips microsoft blackberry apple windows-8 tips-kesehatan news linux win8 mac droid browser info-kesehatan firefox security sopa indonesia instagram mozilla skype opera info-hacker
Daftar Blog Terbaru AGUNKz scrEaMO Lainnya

Taukah Kamu ? Polusi Udara Bisa Membuat Otak Anda Cepat Pikun
Sabtu, 24 November 12 – 09:37 WIB
Daftar Negara Yang Penduduknya Emosional
Sabtu, 24 November 12 – 09:28 WIB
Menghina Lewat Twitter, Pengacara Farhat Abbas Dilaporkan Ke Polisi
Sabtu, 24 November 12 – 09:18 WIB
Diserang Hacker Indonesia, Israel Akan Balas Dendam
Sabtu, 24 November 12 – 09:02 WIB
Google Map Suatu Saat Akan Bisa Melihat Denah Sebuah Gedung?
Sabtu, 24 November 12 – 08:54 WIB
Mouse dan Keyboard Khusus Windows 8 Dari LogiTech
Senin, 05 November 12 – 20:34 WIB
Canon PowerShot SX50 HS Dengan Fitur 50x Optical Zoom
Senin, 05 November 12 – 20:21 WIB
Hacker Anonymous Menyerang Paypal, Symantec, dan Situs Pemerintah Australia
Senin, 05 November 12 – 20:08 WIB
Hati-Hati Berkicau Di Twitter, Twitter Telah Merubah Kebijakan Privasi
Senin, 05 November 12 – 20:01 WIB
Para Pengguna Game Di Facebook Meningkat Menjadi 35 Juta
Minggu, 28 Oktober 12 – 08:21 WIB

Last Visitors

Jumlah Pengunjung (by UNIQUE IP ADDRESS)
Site Meter

LOKASI Pengunjung Terakhir
Powered by IPLocationTools.com

Daftar Artikel Blog Terakhir Dikunjungi

AGUNKz FLAG COUNTER free counters

POLLING

What Your Favourite Web Browser ?

Mozilla FireFox 4 or Higher
Google Chrome 11 or Higher
Opera 11 or Higher

View Results
Create a Blog Poll

Browser Paling banyak digunakan Pengunjung ke Blog Saya bebj.com – free visitors browsers counter
FACEBOOK COMMENT BOX

1 Silahkan Tinggalkan Pertanyaan & Testimonial Kamu Disini Mengenai Blog Saya, Nanti akan saya Jawab 🙂

Pengenalan
I ♥ PARAMORE \m/▐▐▐

“What is not started today is never finished tomorrow.”

“Life Is Not About Finding YourSelf, It’s about Creating YourSelf”

“In the world there aren’t “good” or “bad” people, there are something reason for people that make their own “good” or “bad” CHOICES..”

FOLLOW ME, AND I WILL FOLLOW YOU BACK 🙂
TWITTER UPDATES !!
profile
UNIKOM Bandung
unikom

unikom blog.unikom.ac.id/v/5ZU/ – Jangan Ragu Ambil Kesempatan! #unikom #kesempatan #mencoba 44 minutes ago · reply · retweet · favorite

unikom blog.unikom.ac.id/v/5ZS/ – Black Hole Mendekati Bumi! #unikom #Black #hole #(lubang #hitam) 13 hours ago · reply · retweet · favorite

unikom blog.unikom.ac.id/v/5ZR/ – LG LUNCURKAN MOUSE YANG BERFUNGSI SEBAGAI SCANNER #unikom #mouse #LG #scanner 16 hours ago · reply · retweet · favorite
Join the conversation
profile
AGUNKz scrEaMO.Inc™
A_BlogWeb

A_BlogWeb Dear PSSI dan KPSI…. pada punya Kaca kan? #SaveTimNas #Indonesia yesterday · reply · retweet · favorite

A_BlogWeb Kami supporter INDONESIA mendukung TimNas yang SATU, bukan PSSI atau KPSI #RevolusiPSSI #Indonesia #SaveTimNas yesterday · reply · retweet · favorite

A_BlogWeb Kami supporter INDONESIA mendukung TimNas yang SATU bukan PSSI atau KPSI #RevolusiPSSI #Indonesia 2 days ago · reply · retweet · favorite

A_BlogWeb @Football_ID Masyarakat INDONESIA yg akan Menghukum PSSI karena dualisme organisasi PSSI dan TimNas Indonesia #RevolusiPSSI #Indonesia #AFF 2 days ago · reply · retweet · favorite

A_BlogWeb Rahasia Perempuan Cantik Dunia agunkzscreamo.blogspot.com/2012/11/rahasi… #Ablogweb 3 days ago · reply · retweet · favorite
Join the conversation
profile
Unikom #UNOFFICIAL
infounikom

infounikom Selamat Menunaikan Ibadah Shalat Dhuha bagi Baraya Muslim Unikom yang menjalankannya #YukDhuha 2 hours ago · reply · retweet · favorite

infounikom Saatnya Adzan Shubuh untuk wilayah Kampus Unikom dan Sekitarnya #AdzanKampus 6 hours ago · reply · retweet · favorite

infounikom Memasuki Waktu Sepertiga Ketiga Malam sampai dengan Masuknya Waktu Shubuh, Yang Masih Terjaga Mari ambil Wudhu untuk 2 Rakaatnya #YukTahajud 8 hours ago · reply · retweet · favorite
Join the conversation
Alexa Rank
Nibbler report for blog.unikom.ac.id

Atas ^
Blog UNIKOM © 2010 Unikom Center All rights reserved
Unikom Website · Fans Page · Repository · Blog Home · Kampus Online · Kuliah Online · Nilai Online · Privacy · Terms · valid XHTML™ · valid CSS
Icon

Online

Random

Recent posts

RT @firdianadwiokta: Simbol Illuminati Ternyata Ada di Kota Jakarta, Indonesia lhooo.. – AGUNKz scrEaMO {Agung YuLy Diyantoro} Blog http://t.co/zdT8u5cm