CARA MELIHAT EMAIL FACEBOOK YANG TERSEMBUNYI

Ok bro seperti judulnya
saya akan share cara lihat email facebook yang gak bisa di lihat di info facebook
Cara mengetahuinya banyak ko sobb tapi gw akan share dua aza ,,
Di antaranya yang pertama dengan login ke account email yahoo sobat-sobat dulu lalu pilih mail trus klik tab contact

Ok kita bahas satu persatu bro..
Cara pertama :
Karena gw share cara import pake yahoo maka loginlah ke yahoo.
Setelah masuk pilih tab contact
lihat gambar di bawah :

melihat email facebook

Setelah itu akan dibawa kesini :

email yahoo

Pilih facebook bila ingin semua contact/ email teman di facebook masuk ke daftar contact email sobat-sobat.
Trus akan ada tab browser baru seperti ini :
Pilih Oke

yahoo

Screenshoot di atas akan ada bila sobat-sobat sudah masuk ke account facebook sobat bila belum masuk akan ada halaman login facebook dulu
di sarankan masuk dulu biar gampang.
Setelah di pilih ok
Akan ada pemberitahuan bahwa contact telah ter import
lihat gambar :

yahoo email

Klik Done .
Setelah di klik akan kembali ke contact dan hasilnya ????
Bisa di lihat :

membuat daftar contact di email yahoo

Contact / email beserta id email semua teman facebook sobat telah berjejer di contact email sobat-sobat..

Langkah terakhir :
Pilih semua contact lalu pilih tab actions / Assign to Lists

menyusun contact di email yahoo

Beri nama lah daftar contact sobat sobat..

beri nama contact yahoo

Read more »

Cara Membuat Program KALKULATOR menggunakan VB 6.0

1.   Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

  2.    Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1(1). Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1(2). Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.

  3.    Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut.

 

    Atur properti kontrol TextBox dan CommandButton baru seperti berikut.  

Kontrol	Properti
Text1	Text
Command2	Name Caption	cmdKoma .
Command3	Name Caption	cmdC C
Command4	Name Caption	cmdTambah +
Command5	Name Caption	cmdKurang -
Command6	Name Caption	cmdTanda +/-
Command7	Name Caption	cmdBagi /
Command8	Name Caption	cmdKali X
Command9	Name Caption	cmdcmdakar sqr
Command10	Name Caption	Cmdsamadengan =
Command11	Name Caption	Pangkat ^

 Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :

Kode program

Private pilihan As String

Private x As Double

Private y As Double

Private Sub cmd1_Click(Index As Integer)

Text1.Text = Text1.Text & cmd1(Index).Caption

x = Text1.Text

cmdtanda.Enabled = True

End Sub

Private Sub cmdakar_Click()

If x < 0 Then

Text1.Text = "Angka Tidak Boleh Negatif Coy"

Else

Text1.Text = Sqr(x)

End If

End Sub

Private Sub cmdbagi_Click()

Text1.Text = ""

pilihan = "bagi"

y = x

x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdc_Click()

Text1.Text = ""

y = x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdkali_Click()

Text1.Text = ""

pilihan = "kali"

y = x

x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdkurang_Click()

Text1.Text = ""

pilihan = "kurang"

y = x

x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdpangkat_Click()

If x = 0 Then

x = Val(Text1.Text)

Else

x = x ^ Val(Text1.Text)

End If

Operator = "^"

Text1.Text = 0

End Sub

Private Sub cmdsamadengan_Click()

If pilihan = "tambah" Then

x = y + x

Text1.Text = x

ElseIf pilihan = "kurang" Then

x = y - x

Text1.Text = x

ElseIf pilihan = "kali" Then

x = y * x

Text1.Text = x

ElseIf pilihan = "bagi" And x <> 0 Then

x = y / x

Text1.Text = x

Else

Text1.Text = "Tidak Terdefinisi"

End If

End Sub

Private Sub cmdtambah_Click()

Text1.Text = ""

pilihan = "tambah"

y = x

x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdtanda_Click()

If x < 0 Then

Text1.Text = -x

x = -x

Else

Text1.Text = "-" & Text1.Text

x = -x

End If

End Sub

Private Sub cmdtitik_Click()

If Text1.Text = "" Then

Text1.Text = "0."

Else

Text1.Text = Text1.Text & "."

End If

End Sub

Private Sub Form_Load()

cmdtanda.Enabled = False

End Sub

Read more »