Saturday, September 24, 2016

Peluncuran Smartphone terbaru Huawey P9, Seperti apa Spesifikasinya ?

Peluncuran Smartphone terbaru Huawey P9, Seperti apa Spesifikasinya ?

Huawei P9 (Liputan6.com/ Andina Librianty)
Sumber : Huawei P9 (Liputan6.com/ Andina Librianty)
Huaiwei Akhirnya menluncurkan Smartphone terbaru mereka Huawey P9 lite. Smartphone tersebut adalah versi lite dari Huawey P9  yang memiliki spesifikasi layar 5,2 inci dan didukung Procecor Kirin 955 octa core dan RAM sebesar 3GB,
       
Selain itu sistem operasi yang di benamkan ke dalam Smartphone ini memakai Android Marshmallow dengan interface EMUI 4.1. pada sektor kamera Huawey P9 mengandalkan teknologi kamera dari perusahaan  kenamaan asal Jerman, Leica.

Handphone Samsung dengan Procecor Mediatek ?

Ponsel Samsung Diotaki Chipset MediaTek?
Sumber : Foto: Ubergizmo


Samsung di kabarkan akan bekerja sama dengan Mediatek untuk menyuplai Procecor pada Smartphone android terbaru untuk segmen Low end .
         
Kabar ini di awali dengan bantahan Chairman MediaTek Tsai Ming Kai, yang menolak untuk menjawab mengenai rumor pemasok procecor untuk  Samsung Galaxi Note 7, karena Samsung adalah salah satu client Mediatek.

Kabar mengenai kerjasama antara Samsung dan Mediatek di perkuat dengan adanya kabar kalau Samsung memiliki 10% kontrak chipset low-end dari MediaTek.

Smartphone Terbaru Xiaomi Mi5s, Seperti apa Spesifikasinya ?

Smartphone Terbaru Xiaomi Mi5s, Seperti apa Speknya ?

Ilustrasi Xiaomi Mi 5s (Sumber: Weibo)
Sumber : Ilustrasi Xiaomi Mi 5s (Sumber: Weibo)


Mengutip dari laman Phone Arena, Sabtu (24/6/2016), akun media sosial perusahaan asal Tiongkok itu menyebut tak ada nama Mi5s dalam produk yang akan rilis dalam waktu dekat tersebut.

Xiaomi terbaru yang rencananya akan di luncurkan pada tanggal 27 September 2016 , memiliki spesifikasi yang di rencanakan menggunakan chipset Snapdragon 821 dan RAM mencapai 6GB, selain itu Smartphone yang di bekali dengan  layar 5,15 inci ini akan hadir dua atau tiga varian. Ponsel ini juga dibekali kamera utama 16MP yang mengadopsi 4-axisOIS yang pastinya akan memiliki kualitas gambar dan resolusi yang cukup untuk merekam format vidio dengan resolusi yang tinggi.





Friday, September 23, 2016

Membuat Nomer Otomatis di Visual Basic



MEMBUAT NOMER  OTOMATIS
DI VISUAL BASIC

Contoh  : Pembuatan Desain Form Nomer Otomatis


Rubahlah Propertisnya :
Object
Propertis
Keterangan
Form1
Caption
No Otomatis
Command1
Caption
Proses
Text1
Name
Text1
Caption
Nomer
Label1
Caption
Membuat Nomer Otomatis

Setelah itu buatlah database dengan ms.acces dan buatlah table anggota  :
Rubahlah Propertisnya :
Fields
type
Keterangan
No_trans
Text
No Otomatis

Lalu simpan  dan beri nama tabelnya menjadi anggota 
Buatlah Modul koneksi ke Database :

SETELAH SELESAI BUKA FORM1 NOMER OTOMASTIS , DAN SALIN KODE DI BAWAH INI :

Dim adodata As ADODB.Recordset
Dim nomer, sql As String
Private Sub Form_Load()
    Call koneksi
    tampilkan
End Sub
Sub tampilkan()
    Set adodata = New ADODB.Recordset
    '-----A-0001----------------------
    sql = "Select * from anggota order by no_trans desc"
    adodata.Open sql, dbkon
    If adodata.EOF Then
        Text1.Text = ""
    Else
        Text1.Text = adodata!no_trans
    End If
End Sub
Private Sub Command1_Click()
    Set adodata = New ADODB.Recordset
    sql = "Select * from anggota order by no_trans desc"
    adodata.Open sql, dbkon

    If adodata.EOF Then
        Text1.Text = "A-0001"
    Else
        nomer = Val(Right(adodata!no_trans, 4))
        nomer = Val(nomer) + 1
        If Len(nomer) = 1 Then
            Text1.Text = "A-" & "000" & nomer
        ElseIf Len(nomer) = 2 Then
            Text1.Text = "A-" & "00" & nomer
        ElseIf Len(nomer) = 3 Then
            Text1.Text = "A-" & "0" & nomer
        ElseIf Len(nomer) = 4 Then
            Text1.Text = "A-" & nomer
        End If
    End If
    '---------- masukkan ke database -------------------------
        sql = "insert into anggota" _
            & " (no_trans)values" _
            & " ('" & Text1.Text & "')"
        dbkon.Execute sql
        tampilkan
End Sub


Jika sukses  maka akan muncul seperti gambar di bawah ini :