tugas vb

 

 

 

 

 

 

Private Sub aplikasipenghitungangaji_Click()

upenghitungangaji.Show

End Sub

 

Private Sub gaji2_Click()

ugaji2.Show

End Sub

 

Private Sub hurufmutu_Click()

uhurufmutu.Show

End Sub

 

Private Sub keluar_Click()

STMIKPringsewu = MsgBox(“apakah anda mau keluar dari progam ini?”, vbYesNo, “warning”)

If STMIKPringsewu = 6 Then

End

Else

file.Show

End If

End Sub

 

Private Sub penjualantiketkeretaapi_Click()

utiketkereta.Show

End Sub

 

Private Sub ptpulangpetang_Click()

uptpulangpetang.Show

End Sub

 

PRAKTIKUM 1

 

 

 

 

 

 

 

Private Sub Combo1_Click()

Dim GL As String

Dim GP, TJ, PJ, TT As Currency

GL = Combo1.Text

If GL = “I” Then

GP = 15000000

TJ = 150000

ElseIf GL = “II” Then

GP = 2000000

TJ = 200000

ElseIf GL = “III” Then

GP = 2500000

TJ = 250000

Else

GP = 3000000

TJ = 300000

End If

PJ = (GP + TJ) / 10

TT = GP + TJ – PJ

Text4.Text = GP

Text5.Text = TJ

Text6.Text = PJ

Text7.Text = TT

End Sub

 

Private Sub Command1_Click()

Text1.Text = “”

Text2.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Combo1.Text = “”

Text1.SetFocus

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Combo1.Text = “”

Text1.SetFocus

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

Combo1.AddItem “IV”

End Sub

 

PRAKTIKUM 2

 

 

 

 

 

 

Private Sub Command1_Click()

Dim GP, TJ, POT, GK, PJ, GD As Currency

GP = Val(Text1.Text)

TJ = Val(Text2.Text)

POT = Val(Text3.Text)

GK = GP + TJ – POT

PJ = (GK * 10) / 100

GD = GK – PJ

Text4.Text = GK

Text5.Text = PJ

Text6.Text = GD

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text1.SetFocus

 

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Pratikum 3

 

 

 

 

 

Private Sub Combo1_Click()

Dim NPM, NM, JR As String

NPM = Combo1.Text

If NPM = “11100012” Then

NM = “BINTANG ANDROMEDA”

JR = “SISTEM INFORMASI_S1”

ElseIf NPM = “11100076” Then

NM = “FITRA DWI MARTHIN”

JR = “SISTEM INFORMASI_S1”

ElseIf NPM = “11100010” Then

NM = “MAULANI”

JR = “SISTEM INFORMASI_S1”

End If

Text2.Text = NM

Text3.Text = JR

End Sub

 

 

Private Sub Command1_Click()

Dim NQ, NT, UTS, UAS, NA As Integer

Dim HM As String

NQ = Val(Text4.Text)

NT = Val(Text5.Text)

UTS = Val(Text6.Text)

UAS = Val(Text7.Text)

NA = (NQ + NT + UTS + UAS) / 4

If NA < 50 Then

HM = “E”

ElseIf NA < 60 Then

HM = “D”

ElseIf NA < 70 Then

HM = “C”

ElseIf NA < 80 Then

HM = “B”

Else

HM = “A”

End If

Text8.Text = NA

Text9.Text = HM

End Sub

 

Private Sub Command2_Click()

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Combo1.Text = “”

Combo1.SetFocus

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “11100010”

Combo1.AddItem “11100012”

Combo1.AddItem “11100016”

 

End Sub

 

 

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

 

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

 

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

 

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub

 

PRAKTIKUM 4

 

 

 

 

 

 

 

Praktikum 5

 

 

 

 

 

 

Private Sub CMDPROSES_Click()

Dim s As String

s = Mid(txtnik.Text, 9, 1)

If s = “A” Then

txtgolongan.Text = “A”

txtjabatan.Text = “MANAGER”

txtgapok.Text = “3000000”

txttunjangan.Text = “875000”

 

ElseIf s = “B” Then

txtgolongan.Text = “B”

txtjabatan.Text = “KA SEKSI”

txtstatus.Text = “2500000”

txttunjangan.Text = “525000”

 

ElseIf s = “C” Then

txtgolongan.Text = “C”

txtjabatan.Text = “staff”

txtgapok.Text = “2000000”

txttunjangan.Text = “325000”

 

End If

 

s = Left(txtnik.Text, 3)

If s = “KEU” Then

txtjabatan.Text = “ACCOUNTING”

ElseIf s = “ADM” Then

txtbagian.Text = “ADMINISTRATION”

ElseIf s = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf s = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf s = “SPM” Then

txtbagian.Text = “SECURITY”

End If

 

s = Right(txtnik.Text, 1)

If s = “S” Then

txtkodestatus.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

txtkodestatus.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf s = “D” Then

txtkodestatus.Text = “D”

txtstatus.Text = “DUDA”

ElseIf s = “J” Then

txtkodestatus.Text = “J”

txtstatus.Text = “JANDA”

End If

 

s = Mid(txtnik.Text, 5, 4)

txttahun.Text = s

txttotalgaji.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

 

 

 

 

End Sub

 

Private Sub Command2_Click()

txtnama.Text = “”

txtnama.SetFocus

txtnik = “”

txtgolongan = “”

txtkodestatus = “”

txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotalgaji.Text = “”

txtstatus.Text = “”

End Sub

 

Private Sub Command3_Click()

txtnama.Text = “”

txtnama.SetFocus

txtnik = “”

txtgolongan = “”

txtkodestatus = “”

txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotalgaji.Text = “”

txtstatus = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

tugas VB (IBNU FIKRI)

 

Private Sub aplikasipenghitungangaji_Click()

upenghitungangaji.Show

End Sub

 

Private Sub gaji2_Click()

ugaji2.Show

End Sub

 

Private Sub hurufmutu_Click()

uhurufmutu.Show

End Sub

 

Private Sub keluar_Click()

STMIKPringsewu = MsgBox(“apakah anda mau keluar dari progam ini?”, vbYesNo, “warning”)

If STMIKPringsewu = 6 Then

End

Else

file.Show

End If

End Sub

 

Private Sub penjualantiketkeretaapi_Click()

utiketkereta.Show

End Sub

 

Private Sub ptpulangpetang_Click()

uptpulangpetang.Show

End Sub

 

PRAKTIKUM 1

 

 

Private Sub Combo1_Click()

Dim GL As String

Dim GP, TJ, PJ, TT As Currency

GL = Combo1.Text

    If GL = “I” Then

    GP = 15000000

    TJ = 150000

    ElseIf GL = “II” Then

    GP = 2000000

    TJ = 200000

    ElseIf GL = “III” Then

    GP = 2500000

    TJ = 250000

    Else

    GP = 3000000

    TJ = 300000

    End If

PJ = (GP + TJ) / 10

TT = GP + TJ – PJ

Text4.Text = GP

Text5.Text = TJ

Text6.Text = PJ

Text7.Text = TT

End Sub

 

Private Sub Command1_Click()

Text1.Text = “”

Text2.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Combo1.Text = “”

Text1.SetFocus

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Combo1.Text = “”

Text1.SetFocus

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

Combo1.AddItem “IV”

End Sub

 

 

 

 

PRAKTIKUM 2

 

Private Sub Command1_Click()

Dim GP, TJ, POT, GK, PJ, GD As Currency

GP = Val(Text1.Text)

TJ = Val(Text2.Text)

POT = Val(Text3.Text)

GK = GP + TJ – POT

PJ = (GK * 10) / 100

GD = GK – PJ

Text4.Text = GK

Text5.Text = PJ

Text6.Text = GD

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text1.SetFocus

 

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

 

 

Pratikum 3

 

 

Private Sub Combo1_Click()

Dim NPM, NM, JR As String

NPM = Combo1.Text

    If NPM = “11100012” Then

    NM = “BINTANG ANDROMEDA”

    JR = “SISTEM INFORMASI_S1”

    ElseIf NPM = “11100076” Then

    NM = “FITRA DWI MARTHIN”

    JR = “SISTEM INFORMASI_S1”

    ElseIf NPM = “11100010” Then

    NM = “MAULANI”

    JR = “SISTEM INFORMASI_S1”

    End If

Text2.Text = NM

Text3.Text = JR

End Sub

 

 

Private Sub Command1_Click()

Dim NQ, NT, UTS, UAS, NA As Integer

Dim HM As String

NQ = Val(Text4.Text)

NT = Val(Text5.Text)

UTS = Val(Text6.Text)

UAS = Val(Text7.Text)

NA = (NQ + NT + UTS + UAS) / 4

    If NA < 50 Then

    HM = “E”

    ElseIf NA < 60 Then

    HM = “D”

    ElseIf NA < 70 Then

    HM = “C”

    ElseIf NA < 80 Then

    HM = “B”

    Else

    HM = “A”

    End If

Text8.Text = NA

Text9.Text = HM

End Sub

 

Private Sub Command2_Click()

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Combo1.Text = “”

Combo1.SetFocus

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “11100010”

Combo1.AddItem “11100012”

Combo1.AddItem “11100016”

 

End Sub

 

 

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

 

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

 

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

 

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub

 

PRAKTIKUM 4

 

 

 

 

 

 

 

 

 

 

 

 

 

Praktikum 5

 

 

Private Sub CMDPROSES_Click()

Dim s As String

s = Mid(txtnik.Text, 9, 1)

If s = “A” Then

txtgolongan.Text = “A”

txtjabatan.Text = “MANAGER”

txtgapok.Text = “3000000”

txttunjangan.Text = “875000”

 

ElseIf s = “B” Then

txtgolongan.Text = “B”

txtjabatan.Text = “KA SEKSI”

txtstatus.Text = “2500000”

txttunjangan.Text = “525000”

 

ElseIf s = “C” Then

txtgolongan.Text = “C”

txtjabatan.Text = “staff”

txtgapok.Text = “2000000”

txttunjangan.Text = “325000”

 

End If

 

s = Left(txtnik.Text, 3)

If s = “KEU” Then

txtjabatan.Text = “ACCOUNTING”

ElseIf s = “ADM” Then

txtbagian.Text = “ADMINISTRATION”

ElseIf s = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf s = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf s = “SPM” Then

txtbagian.Text = “SECURITY”

End If

 

s = Right(txtnik.Text, 1)

If s = “S” Then

txtkodestatus.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

txtkodestatus.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf s = “D” Then

txtkodestatus.Text = “D”

txtstatus.Text = “DUDA”

ElseIf s = “J” Then

txtkodestatus.Text = “J”

txtstatus.Text = “JANDA”

End If

 

s = Mid(txtnik.Text, 5, 4)

txttahun.Text = s

txttotalgaji.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

 

 

 

 

End Sub

 

Private Sub Command2_Click()

txtnama.Text = “”

txtnama.SetFocus

txtnik = “”

txtgolongan = “”

txtkodestatus = “”

txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotalgaji.Text = “”

txtstatus.Text = “”

End Sub

 

Private Sub Command3_Click()

txtnama.Text = “”

txtnama.SetFocus

txtnik = “”

txtgolongan = “”

txtkodestatus = “”

txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotalgaji.Text = “”

txtstatus = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

Setelah XXX, Kini Sex dan Porn Diajukan Jadi Domain

Setelah XXX, Kini Sex dan Porn Diajukan Jadi Domain

Yoga Hastyadi Widiartanto – Okezone
Selasa, 12 Juni 2012 05:30 wib
detail berita
ilustrasi (foto: Turner.com)

NEW YORK – Nama domain “.xxx” sudah begitu kontroversialnya sampai jadi perdebatan organisasi keagamaan dan industri pornografi. Kini, perusahaan di balik domain internet bertema “dewasa” ingin meluncurkan nama domain “.sex”, “.porn” dan “.adult”.

Diwartakan CNN, Selasa (12/6/2012), ICM Registry yang memperkenalkan domain “.xxx” ke seluruh dunia ingin menggolkan tiga sufiks tersebut. Hal ini dilakukan dalam rangka ekspansi generic top-level domain (gTLDs) internet atau “.com”.

CEO ICM, Stuart Lawley tidak menginginkan siapapun mencuri idenya mengenai konten dewasa sebuah situs. Jika ada pengajuan lain untuk domain “.sex”, dia bersiap memperlambatnya.

“Kami telah bertindak sangat hati-hati ketika memperlakukan “.xxx” dan kami tidak ingin ada orang yang mengambil  alih tindakan ini. Kami mencoba menghasilkan konten yang teridentifikasi jelas sehingga tidak membingungkan pengguna,” ujar Lawley.

Dia khawatir jika ada perusahaan lain yang mencaplok TLDs seperti “.sex” sehingga bisa mengikis citra “.xxx” dan metode keamanan yang diupayakan ICM menjadi standar industri. Jadi, ICM berniat membeli domain “.sex”, “.porn” dan “.adult” sehingga bisa  menyatukannya dengan “.xxx”. (yhw)

Mengintip Sejarah Perjalanan Telekomunikasi di Indonesia

Mengintip Sejarah Perjalanan Telekomunikasi di Indonesia

Amril Amarullah – Okezone
Senin, 11 Juni 2012 05:21 wib
detail berita
ilustrasi handphone (Foto: Okezone)

JAKARTA – Indonesia Cellular Show dan Festival Komputer Indonesia 2012 baru saja berakhir, Minggu, (10/6/2012) kemarin. Mungkin ada yang terlewatkan dari rangkaian kunjungan Anda di festival yang digelar di Jakarta Convention Center itu, yakni  mendatangi booth Museum Telekomunikasi di Assembly Hall JCC.

Dikelilingi oleh stand operator seperti Axis, Indosat, Smartfren, Telkomsel, dan XL Axiata, Museum Telekomunikasi merupakan tempat yang menyediakan informasi perjalananan industri telekomunikasi di Indonesia, sejak tahun 1984 sampai dengan saat ini, dimana perangkat mobile sudah menjadi bagian kehidupan sehari-hari.

Perjalanan telekomunikasi di Indonesia dimulai dengan hadirnya NMT (Nordic Mobile Phone) dengan sistem analog yang dikembangkan oleh The Telecommunication Administration of Sweden, Norwegia, Finlandia, dan Denmark.

Setahun berselang, teknologi bergeser ke NMT Modifikasi dengan sistem AMPS (Advance Mobile Phone System), dimana ada 4 operator di Indonesia yang menggunakan sistem ini, yaitu PT Rajasa Hazanah Perkasa, PT Elektrindo Nusantara, PT Centralindo Telekomindo, dan PT Panca Sakti.

Tahun 1993, industri GSM (Global System for Mobile Communication) mulai berkembang di Indonesia, ditandai dengan proyek percontohan seluler digital PT Telkom di pulau Batam dan Bintan.

Dekade ini, seiring dengan semakin maraknya operator GSM beroperasi di Indonesia, mulai dari PT Satelit Palapa Indonesia (Satelindo) sebagai operator GSM pertama di Indonesia yang menggunakan SIM Card (1994), disusul oleh Telkomsel yang didirikan oleh Telkom (1995), dan PT Excelcomindo Pratama (1996).

Hingga akhir tahun 1999, terdapat 2,5 juta pelanggan seluler di Indonesia dan sebagian besar adalah pengguna produk ketiga operator tersebut.

Tahun 2000, layanan SMS (Short Message Service) mulai marak dan Nokia mejadi brand yang sangat populer. Tahun 2002, penyedia jaringan telekomunikasi Ericsson dan Alcatel mulai masuk ke Indonesia.

Tahun 2003, era CDMA dimulai dengan hadirnya Esia dan Flexi milik Telkom. Kehadiran CDMA diakui cukup berdampak pada jumlah pengguna seluler meningkat tajam karena semakin murahnya tarif layanan dan handset.

Tahun 2006 Hutchinson masuk ke Indonesia dengan merek 3, disusul Axis tahun 2008. Perkembangan telekomunikasi pun semakin pesat di era ini dengan hadirnya berbagai merek smartphone yang memudahkan akses internet dari telepon.

Dan sampai akhir tahun 2011, menurut data ATSI (Asosiasi Telepon Seluler Indonesia), pengguna layanan seluler Indonesia telah mencapai 240 juta lebih.

“Melalui museum telekomunikasi, masyarakat yang sebagian besar sudah menggunakan teknologi mobile dalam kehidupan sehari-hari, akan memperoleh wawasan mengenai sejarah dan perkembangan teknologi di tanah air,” kata Dwi Putri Winahyu, IT Division Manager Dyandra Promosindo, kepada Okezone.

Intel Pertanyakan Efisiensi Prosesor Android

Intel Pertanyakan Efisiensi Prosesor Android

Yoga Hastyadi Widiartanto – Okezone
Selasa, 12 Juni 2012 09:15 wib
detail berita
Ilustrasi (foto: TweakTown.com)

CALIFORNIA – Intel mengklaim bahwa vendor system-on-chip (SoC) belum melakukan cukup upaya dalam mengoptimalkan Android untuk prosesor multi-core. Pasalnya, meski memiliki banyak inti, akan percuma bila tidak ada piranti lunak yang memanfaatkannya dengan optimal.

Diwartakan The Inquirer, Selasa (12/6/2012), menurut General Manager Intel Mobile and Communications Group, Mike Bell, thread scheduler di Android belum siap untuk prosesor multi-core. “Jika Anda tidak sedang berada dalam tempat yang tidak membatasi tenaga, multiple-core cukup masuk akal karena bisa sepenuhnya menjalankan aplikasi berat,” ujarnya.

Sedangkan situs Mashable menyebutkan, kritik paling sering dilontarkan pada Android mengenai prosesor multi-core adalah pertanyaan: mengapa Anda perlu kekuatan pemrosesan yang begitu besar dalam sebuah smartphone?

Thread scheduler pada Android tidak hanya sekedar bertugas menghadirkan performa terbaik dari sebuah quad-core yang ada sekarang. Terlebih karena pembuat komponen tersebutlah satu-satunya yang sanggup mengeluarkan kinerja terhebat sebuah prosesor.

Intel berpendapat, perusahaan di balik prosesor ini mesti berkontribusi pada peningkatan vital source tree Android, namun mereka tidak melakukan itu. Dalam pasar prosesor Android, Intel sendiri merupakan pemain baru yang mengeluarkan prosesor Atom Medfield berinti tunggal. (yhw)

Aplikasi Foto Panorama ‘Photosynth’ Hadir di Windows Phone

Aplikasi Foto Panorama ‘Photosynth’ Hadir di Windows Phone
Aditya Panji | Wicaksono Surya Hidayat | Selasa, 12 Juni 2012 | 10:50 WIB
 
Share:
Microsoft
Aplikasi foto panorama Photosynth

KOMPAS.com – Aplikasi foto panorama Photosynth besutan Microsoft akhirnya tersedia untuk smartphone berbasis Windows Phone, dan bisa diunduh gratis di toko aplikasi Marketplace sejak akhir Mei 2012.

Photosynth memungkinkan pengguna membuat foto panorama 360 derajat yang ciamik.

Pengguna cukup mengambil gambar dengan menggerakan kamera secara berputar. Setiap frame akan terisi oleh foto tunggal. Setelah melakukan roll kamera 360 derajat, maka aplikasi ini secara otomatis menjahit foto-foto tersebut dan menghasilkan panorama 360 derajat.

Arah foto panorama yang dihasilkan Photosynth bisa vertikal maupun horizontal, tidak seperti fitur panorama bawaan di smartphone maupun kamera saku digital, yang kebanyakan hanya bisa horizontal.

Screenshot Photosynth (1)

Pengguna dapat membagikan foto panorama di situs Photosynth, lalu situs jejaring sosial macam Facebook dan Twitter, serta layanan pemetaan Bing Maps dari Microsoft.

Jika Anda penasaran seperti apa foto panorama hasil karya pengguna Photosynth, dapat mengunjungi situs resminya. Unduh plug-in Silverlight sebesar 6MB, agar Anda bisa menikmati foto-foto panorama Photosynth.

Photosynth pertama kali diluncurkan setahun lalu untuk perangkat berbasis iOS. Photosynth menjadi aplikasi foto urutan 23 terbaik di toko aplikasi Apple App Store dengan rating 4,5 bintang, dan telah diunduh sebanyak 6 juta kali.

Aplikasi ini merupakan hasil penelitian Microsoft Labs Live dan University of Washington.

Screenshot Photosynth (2)

Apple Berusaha Halangi Penjualan Galaxy S III

Macet di Jalan, Komunikasi ‘Online’ jadi Pilihan
Oik Yusuf | Reza Wahyudi | selasat, 12 Juni 2012 | 06:44 WIB
 
Share:

JAKARTA, KOMPAS.com – Dalam acara Startup Asia Jakarta 2012 hari selasa (12/6/2012) kemarin, Regional Director Tencent Mobile Global
Suyang Zhang mengungkapkan bahwa masyarakat Indonesia memiliki karakter mobilitas yang mirip dengan China.

“Sama dengan di China, orang Indonesia juga bekerja di kota-kota besar seperti Jakarta. Akibatnya, jalanan di kota-kota tersebut menjadi macet dan menghalangi kita dalam bekerja,” ucapnya.

Menurut Zhang, waktu yang terbuang percuma di jalan membuat semakin banyak orang mengandalkan media komunikasi online dalam menjalin dan menjaga relasi sehingga memunculkan peluang bagi pengusaha yang bergerak di bidang tersebut.

“Inilah sebabnya mengapa Tencent bisa berkembang pesat di China,” ungkap Zhang.

Tencent adalah perusahaan yang bergerak di bidang produk online yang membuat beragam produk, di antaranya instant messenger, browser, game, dan portal.

Salah satu produknya yang paling terkenal adalah software instant messenger QQ yang merupakan aplikasi chatting paling populer di China dan menduduki peringkat ketiga terpopuler di seluruh dunia dengan 750 juta pengguna.  

Satu hal lain yang menjadi resep sukses Tencent adalah ketersediaan di berbagai platform, mencakup semua jenis perangkat, sehingga semua orang bisa bebas berkomunikasi tanpa terbatas pada satu jenis perangkat tertentu.      

Startup Asia Jakarta 2012 merupakan ajang konferensi untuk startup digelar oleh TechinAsia di Jakarta, pada 7 dan 8 Juni 2012 bertempat di Annex Building komplek Wisma Nusantara, seputar Bundaran Hotel Indonesia .