Samsung Galaxy A9 Bakal Meluncur 1 Desember 2015

Samsung Galaxy A9 sejak pertama kali kemunculan rumornya pada bulan Maret lalu, hingga saat ini selalu menjadi sorotan. Hingga saat ini pun, handset yang akan menyasar segmen menengah ini selalu menjadi bahan berita. Rumor yang telah beredar sebelumnya membahas tentang spesifikasi yang diusung, hasil skor yang mampu dicetak, hingga balutan body bermaterial metal.

Seperti yang diwartakan GSM Arena, Kamis (26/11/2015), kini telah muncul sebuah konfirmasi resmi mengenai handset ini. Ya, konfirmasi tersebut datang dalam bentuk daftar resmi yang dimuat dalam situs resmi Samsung di Iran. Menurut daftar spesifikasi pada situs tersebut, berita yang selama ini beredar ternyata memang benar adanya.

Samsung Galaxy A9 akan ditenagai oleh chipset terbaru dari Qualcomm, yakni Snapdragon 620 yang dikhususkan untuk handset segmen menengah. Chip tersebut memiliki prosesor dual cluster, yakni empat inti Cortex-A72, dan empat inti Cortex-A53 serta pengolah grafis yang baru, yakni Adreno 510. Berbekal chip tersebut, bahkan skor benchmark Galaxy A9 hampir mengalahkan smartphone yang mengusung chipset Snapdragon 810.

Sedangkan untuk kapasitas memorinya, smartphone ini dibekali dengan RAM sebesar 3GB serta penyimpanan internal sebesar 32GB yang masih dapat diperluas menggunakan micro SD hingga 128GB. Untuk sektor display, handset ini mengusung layar seluas 5,5 inci berjenis AMOLED dan membawa resolusi FHD 1080×1920 dengan keraptan 401ppi.

Tak kalah gahar dari smartphone flagship, Galaxy A9 juga telah dibekali dengan kamera beresolusi 16MP dilengkapi dengan berbagai fitur serta kamera depan 5MP untuk keperluan selfie atau video call. Smartphone yang sudah mendukung 4G ini juga telah dibekali dengan fitur konektivitas standar seperti WiFi, Bluetooth, NFC dan GPS.

Samsung Galaxy A9 akan menjalankan sistem operasi Android 5.1 Lollipop, namun sayangnya informasi kapasitas baterai tidak ditampilkan dalam daftar tersebut.

Untuk ketersediaanya, halaman situs Samsung Iran itu mengisyaratkan bahwa handset bakal meluncur tanggal 1 Desember 2015 mendatang. Kita tunggu saja hingga peluncurannya benar-benar terlaksana, dengan demikian kita dapat mengetahui berapa harga yang dipatok untuk handset tersebut.

Smartphone Terbaru

Semenjak beberapa bulan yang lalu, banyak render bocoran smartphone Nokia yang akan menjalankan sistem operasi Android murni. Nokia C1 diyakini sebagai smartphone pertama yang akan menyandang logo Nokia untuk pertama kalinya setelah divisi mobile telah dijual kepada Microsoft beberapa tahun yang lalu. CEO pun telah mengonfirmasi bahwa pada tahun 2016 mendatang akan ada perangkat mobile Nokia baru.

Render terbaru Nokia C1 (Kredit: GSM Arena)

Sebelumnya telah banyak bocoran render wujud Nokia C1, namun dari semua itu menampilkan foto dengan wujud smartphone yang berbeda-beda. Kali ini muncul lagi interpretasi lainnya yang menegaskan bahwa render tersebut merupakan C1.

Seperti yang dilaporkan GSM Arena, Kamis (26/11/2015), Ini adalah empat kalinya render yang diklaim sebagai C1 yang muncul kepermukaan. Dari keempat klaim tersebut, semua menampilkan wujud yang berbeda-beda. Tentu saja, salah satu dari keempatnya harus menjadi kenyataan dan ketiga lainnya merupakan teaser pengheboh saja. Dan kita berasumsi bahwa render yang terakhir muncul dianggap sebagai Nokia C1 yang sesungguhnya.

Pada bocoran render kali ini untuk pertama kalinya memberikan sedikit penjelasan tentang C1. Menariknya, pada render kali ini, Nokia C1 menampilkan dua tampilan antarmuka yang berbeda. Pada gambar yang berada paling depan, C1 menampilkan Antarmuka khas Android, sedangkan yang berada di belakangnya menampilkan tampilan Windows 10 Mobile. Hal ini mengindikasikan bahwa smartphone akan tersedia dalam dua varian OS yang berbeda.

Namun sejauh ini, belum ada petinggi Nokia yang mengatakan bahwa perusahaan akan membuat smartphone yang menggunakan OS Windows juga. Jadi ini hanya masih sebatas rumor yang belum bisa dipastikan kebenarannya. Selama ini, rumor tentang smartphone baru dari kebangkitan Nokia hanya akan menjalankan sistem operasi Android. Kita tunggu saja kabar selanjutnya dari Nokia.

Kunjungi juga : Cara Membuat Aplikasi Kalkulator Mengguanakn VB.Net

Cara Membuat Lampu Lalu Lintas, Kalkulator dan Menghitung Luas Di VB.Net

Langkah awal yang harus anda lakukan untuk memulai, yaitu ikuti langkah-langkah berikut:

1.   Buka aplikasi Visual Studio, maka akan muncul tampilan seperti berikut.

 

2.   Klik pada menu New Project.

3.   Maka akan muncul tampilan seperti berikut, ikuti langkah-langkah pada
      image berikut.

4.  Muncul sebuah jendela loading, tunggu proses loading selesai hingga
     VB.Net siap digunakan.

5.   Jika sudah tampil tampilan berikut ini, maka VB.Net anda siap digunakan.

Nah ....
Friends, berikut ini adalah beberapa study kasus yang pernah saya temui. Tujuan saya post ini adalah sebagai bahan pelajaran saja, sekaligus untuk membatu teman-teman untuk belajar VB.Net. Langsung saja yahhh ...
Soal yang pertama, yaitu kita akan membuat program untuk Lampu Lalu Lintas, pastinya teman-teman semua tahukan apa itu lampu lalu Lintas ?

1.   Membuat Lampu Lalu Lintas

Coding :
Public Class Form1
    Dim time, waktu1, waktu2, waktu3, waktu4 As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        time = 0
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        time = time + Timer1.Interval
        Select Case time
            Case 1000
                hij1.BackColor = Color.FromArgb(0, 255, 0)
                mer3.BackColor = Color.Red
                mer2.BackColor = Color.Red
                mer4.BackColor = Color.Red
                kun2.BackColor = Color.FromArgb(64, 64, 0)
                kun1.BackColor = Color.FromArgb(64, 64, 0)
                lblT1.Text = "Jalur 1 silahkan Jalan"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 11000
                hij1.BackColor = Color.FromArgb(0, 64, 0)
                kun1.BackColor = Color.Yellow
                kun3.BackColor = Color.Yellow
                mer3.BackColor = Color.FromArgb(64, 0, 0)
                mer2.BackColor = Color.Red
                mer4.BackColor = Color.Red
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 silahkan Jalan"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 12000
                hij3.BackColor = Color.FromArgb(0, 255, 0)
                mer1.BackColor = Color.Red
                mer2.BackColor = Color.Red
                mer4.BackColor = Color.Red
                kun1.BackColor = Color.FromArgb(64, 64, 0)
                kun3.BackColor = Color.FromArgb(64, 64, 0)
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 silahkan Jalan"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 21000
                hij3.BackColor = Color.FromArgb(0, 64, 0)
                mer1.BackColor = Color.Red
                mer2.BackColor = Color.FromArgb(64, 0, 0)
                mer4.BackColor = Color.Red
                kun3.BackColor = Color.Yellow
                kun2.BackColor = Color.Yellow
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 silahkan Jalan"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 22000
                hij2.BackColor = Color.FromArgb(0, 255, 0)
                mer1.BackColor = Color.Red
                mer3.BackColor = Color.Red
                mer4.BackColor = Color.Red
                kun3.BackColor = Color.FromArgb(64, 64, 0)
                kun2.BackColor = Color.FromArgb(64, 64, 0)
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "jalur 2 silahkan Jalan"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 31000
                hij2.BackColor = Color.FromArgb(0, 64, 0)
                mer1.BackColor = Color.Red
                mer3.BackColor = Color.Red
                mer4.BackColor = Color.FromArgb(64, 0, 0)
                kun2.BackColor = Color.Yellow
                kun4.BackColor = Color.Yellow
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 silahkan Jalan"
            Case 32000
                hij4.BackColor = Color.FromArgb(0, 255, 0)
                mer2.BackColor = Color.Red
                kun2.BackColor = Color.FromArgb(64, 64, 0)
                kun4.BackColor = Color.FromArgb(64, 64, 0)
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 silahkan Jalan"
            Case 41000
                hij4.BackColor = Color.FromArgb(0, 64, 0)
                mer1.BackColor = Color.FromArgb(64, 0, 0)
                mer4.BackColor = Color.FromArgb(64, 0, 0)
                kun1.BackColor = Color.Yellow
                kun4.BackColor = Color.Yellow
                lblT1.Text = "Jalur 1 silahkan Jalan"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 42000
                kun4.BackColor = Color.FromArgb(64, 64, 0)
                time = 0
        End Select
    End Sub
End Class

2.   Soal yang kedua kita akan menghitung Luas dari atribut Panjang dan Lebar.

Coding :
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label4.Text = TextBox1.Text * TextBox2.Text
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label4.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
        Label1.ForeColor = Color.Red
    End Sub

    Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
        Label1.ForeColor = Color.Black
    End Sub

    Private Sub TextBox2_GotFocus(sender As Object, e As EventArgs) Handles TextBox2.GotFocus
        Label2.ForeColor = Color.Red
    End Sub

    Private Sub TextBox2_LostFocus(sender As Object, e As EventArgs) Handles TextBox2.LostFocus
        Label2.ForeColor = Color.Black
    End Sub
End Class

3.  Yang ketiga kita akan mencoba untuk membuat Kalkulator.

Coding :
Public Class Form2
    Dim aktif As String
    Private Sub txtpertama_GotFocus(sender As Object, e As EventArgs) Handles txtpertama.GotFocus
        aktif = "txtpertama"
    End Sub

    Private Sub txtkedua_GotFocus(sender As Object, e As EventArgs) Handles txtkedua.GotFocus
        aktif = "txtkedua"
    End Sub

    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn1.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn1.Text
        End If
    End Sub

    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn2.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn2.Text
        End If
    End Sub

    Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn3.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn3.Text
        End If
    End Sub

    Private Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn4.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn4.Text
        End If
    End Sub

    Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn5.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn5.Text
        End If
    End Sub

    Private Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn6.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn6.Text
        End If
    End Sub

    Private Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn7.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn7.Text
        End If
    End Sub

    Private Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn8.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn8.Text
        End If
    End Sub

    Private Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn9.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn9.Text
        End If
    End Sub

    Private Sub btn10_Click(sender As Object, e As EventArgs) Handles btn10.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn10.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn10.Text
        End If
    End Sub

    Private Sub btn11_Click(sender As Object, e As EventArgs) Handles btn11.Click
        If txtpertama.Text <> Nothing And txtkedua.Text <> Nothing Then
            lblkedua.Text = CInt(txtpertama.Text) + CInt(txtkedua.Text)
        End If
    End Sub

    Private Sub btn12_Click(sender As Object, e As EventArgs) Handles btn12.Click
        If txtpertama.Text <> Nothing And txtkedua.Text <> Nothing Then
            lblkedua.Text = CInt(txtpertama.Text) - CInt(txtkedua.Text)
        End If
    End Sub

    Private Sub btn13_Click(sender As Object, e As EventArgs) Handles btn13.Click
       If txtpertama.Text <> Nothing And txtkedua.Text <> Nothing Then
            lblkedua.Text = CInt(txtpertama.Text) * CInt(txtkedua.Text)
        End If
    End Sub

    Private Sub btn14_Click(sender As Object, e As EventArgs) Handles btn14.Click
        If txtpertama.Text <> Nothing And txtkedua.Text <> Nothing Then
            lblkedua.Text = CInt(txtpertama.Text) / CInt(txtkedua.Text)
        End If
    End Sub

    Private Sub btn15_Click(sender As Object, e As EventArgs) Handles btn15.Click
        txtpertama.Clear()
        txtkedua.Clear()
        lblkedua.Text = ""
    End Sub
End Class

Ok friends ...
Bagaimana ?
Cukup mengertikah ? atau masih bingung ?
Nantikan postingan saya yang lainnya ya friends, semoga post ini bermanfaat ....
:)