Sejarah Terciptanya Blackberry

Sejarah Terciptanya Blackberry | Blackberry dikembangkan oleh sebuah perusahaan canada yang hingga saat inipun, tidak banyak orang yang mengetahui namanya. Sangat berbeda denga Nokia dan Motorola ataupun microsoft yang namanya dikenal luas, pembuat blackberry adalah perusahaan yang bernama Research in Motion.

Didirikan oleh seorang imigran yunani di kota waterloo, kanada. Pendiri Research in Motion, Mike Lazaridis dilahirkan di Turki, membangun sebuah pemutar rekaman dsi Lego pada umur 4 (empat) tahun, sebuah radio pada umur 5 (lima) tahun, dan berkuliah di Universitas Waterloo.

Dia memilihg drop out SETELAH memenangkan kontrak senilai 560 ribu US Dollar. Para pesimis mengasumsukan bahwa pesaing besar akan menenggelamkan produk blckberry dengan membanjiri pasar dengan produk yang serupa. Namun hingga saat ini, tidak ada satupun perusahaan seperti Nokia, motorola atau bahkan microsoft yang sanggup membuat pesaing blackberry.

Keunggulan blackbery adalah mempunyai penampilan yang sangat bersabahat dan bisa selalu terhubung, jadi dimanapun anda, anda bisa selalu mengakses email (saat ini Facebook, Blogging, dll dll). Sejak peluncurannya pada tahun 1999, blackberry telah meraup lebih dari 8 juta pelanggan di seluruh dunia.

Sejalan dengan peningkatan kemampuan layanan komunikasi seluler, blackberry pun ikut terangkat. Dan dengan makin turunnya biaya komunikasi, pada akhirnya BlackBery menjad sebuah fenomena (saat ini kayaknya di Indonesia juga lagi demam Blackberry, anak – anak muda mulai pakai alat ini yah buat nge-blog dan Facebook-an).

AWALNYA, BlackBerry ingin dinamakan POCKET LINK sebuah nama yang fungsional tapi membosankan, kemudian juga HAMPIR dinamakan STRAWBERRY, karena mirip dengan buah strawberry, tapi terkesan terlalu jinak. Sehingga dinamakan BLACKBERRY, nmaa yang akrab tapi cerdas.

BlackBerry masuk ke pasar pertama kali dengan memfokuskan diri pada layanan e-mail gegas. Pada awalnya, perangkat BlackBerry hanya memiliki layar monokrom, tetapi sekarang semua modelnya sudah memiliki tampilan layar berwarna.

Saat ini, RIM juga menawarkan layanan email BlackBerry untuk perangkat-perangkat non-BlackBerry seperti Palm Treo dan Nokia E61, melalui peranti lunak BlackBerry Connect.

Mengapa banyak orang yang kepincut BlackBerry? Salah satunya adalah keunggulannya mengirim dan menerima surat elektronik: secepat mengirim dan menerima SMS.

BB pun menjadi gadget yang wajib dimilki oleh remaja-remaja yang inign diakui ke-eksist-annya. Setelah serial Gossip Girl secara fenomenal mempromosikan BB. Serial tentang kehiduppan anak-anak muda upper Class Manhattan, Ney York-USA itu melabeli Blackberry sebagai lambang status kelas atas.

http://kotakhitamdunia.blogspot.com/2011/06/sejarah-terciptanya-blackberry.html

Read more »

Mantan-Mantan Presiden Indonesia yang Tidak Dicatat Sejarah

syarifudin prawiranegara

Dalam sejarahnya, Negara Indonesia pernah mengalami pergantian sistem pemerintahan. Dari kesatuan berubah menjadi serikat dan berubah kembali menjadi kesatuan hingga kini.Demikian juga dengan pemimpinnya atau presidennya. Selama 63 tahun berdiri sebagai Negara, telah terjadi berkali-kali pergantian pemimpin di Indonesia. Mulai dari ir. Soekarno hingga Susilo Bambang Yudhoyono sekarang.

Read more »

Modul koneksi

Imports System.Data
Imports System.Data.Sql
Module koneksidatabase
Public Database As New OleDb.OleDbConnection
Public Tampil As New OleDb.OleDbCommand
Public Tampil2 As New OleDb.OleDbCommand
Public Tampilkan As OleDb.OleDbDataReader
Public hasiljur, jur, hasilcek As String

Public Sub Koneksi()
Try
Database.Close()
'server'
'Database.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;"User ID=sasa;Initial Catalog=PTJayaKarta;Data Source=192.168.10.4

'lokal
Database.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TI4P;Data Source=."
Database.Open()
'Tampil.Connection = Database
MsgBox(" Koneksi Berhasil ")
Catch ex As Exception
MsgBox(ex.ToString)
End Try

Read more »

Sintax Koneksi

Imports System.Data
Imports System.Data.Sql

Module koneksi

Public yongki As New OleDb.OleDbConnection
Public tampil As New OleDb.OleDbCommand
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasiljur, jur As String

Public Sub koneksi()
Try
yongki.Close()
'server
'yongki.Connectionstring = "Provider=SQLOLEDE.1;Password=sasa;Persist Security
'info=True;User ID=sa;Initial Catalog=TI4AK;Data Source=192.168.10.44"
'lokal
yongki.ConnectionString = "Provider=SQLOLEDB.1;Integrated security=SSPI;persist security=Info=false;Initial Catalog=johan;data source=.;"
yongki.Open()
'Tampil.Connection = yongki
MsgBox("koneksiberhasil")
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
End Module

Read more »

Puzzle pada Pemrograman Visual(.Net)

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text
End If
End If
cek()
End Sub

setelah itu kita lanjutkan ke button2 sampai button 9, sintak'a seperti ini...

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text
End If
cek()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text
End If
End If
cek()
End Sub

Read more »

Penggunaan di ListView pada PemrogramanVisual(.Net)

Contoh Form Penggunaan di ListView pada PemrogramanVisual(.Net)

Public Class Form1
'membuat variabel array
Dim listtxt(3) As String
Dim listitem As ListViewItem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'memasukan nilai ke variabel array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

'untuk memasukan ke listview dari variabel array
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub
'Setting kolom listview
Sub setlistview()

ListView1.View = View.Details

'untuk menentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
'mengambil nilai dari listview
TextBox4.Text = e.Item.Text
End Sub

End Class

Setelah selesai sintaksnya lalu kita running atau tekan F5

Read more »

Penggunaan di ListBox pada PemrogramanVisual(.Net)

Contoh Form Penggunaan di ListBox pada PemrogramanVisual(.Net)

Public Class latihanForm1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call isicombo()
Call isibersih()
End Sub

Sub isicombo()
ComboBox1.Items.Add("06 Teknik Informatika")
ComboBox1.Items.Add("07 Sistem Informasi")
ComboBox1.Items.Add("26 Manajemen Informatika")
ComboBox1.Items.Add("67 Komputer Akuntansi")
ComboBox1.Items.Add("05 Teknik Komputer")

End Sub
Sub isibersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 Teknik Informatika"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Read more »