PROFIL YOGI FINANDA

PROFIL YOGI FINANDA

Yogi Finanda lahir di Jakarta, 22 Desember 1979, umur 38 tahun.

Awal karir Yogi Finanda bermula ketika ia memeran Ergi dalam film Eiffel I’m in Love (2003).

Dilanjut lagi dengan beberapa film yang ia bintangi, diantaranya Planet Mars (2008), Punk in Love (2009), dan yang terakhir bersama Fitri Tropica dalam film Berlian si Etty (2013).

FTV

• Pacar ke 17 ( bersama Ida Ayu Kadek Devi)
• Cinta Keju Rasa Mocca ( bersama Ida Ayu Kadek Devi)
• Pura-pura Pacaran ( bersama Bunga Zainal)
• Calo Cantik Idaman Hati ( bersama Revalina S Temat)
•  Pacarku Bukan James Bond ( bersama Prisia Nasution)
• Hansip Penjaga Cinta ( bersama Ida Ayu Kadek Devi)

Contoh program logika matematika menggunaka vb 6.0

keterangan :
command1(tombol konjungsi)
command2(tombol reset)
command3(tombol disjungsi)
command4(tombol implikasi)
command5(tombol biimplikasi)
command6(tombol keluar)


Source code

Private Sub Command1_Click()
If Text1.Text = "b" And Text2.Text = "b" Then
Text3.Text = "b"
Else
If Text1.Text = "b" And Text2.Text = "s" Then
Text3.Text = "s"
Else
If Text1.Text = "s" And Text2.Text = "s" Then
Text3.Text = "s"
Else
If Text1.Text = "s" And Text2.Text = "b" Then
Text3.Text = "s"
End If
End If
End If
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Private Sub Command3_Click()
If Text1.Text = "b" And Text2.Text = "b" Then
Text3.Text = "b"
Else
If Text1.Text = "b" And Text2.Text = "s" Then
Text3.Text = "b"
Else
If Text1.Text = "s" And Text2.Text = "s" Then
Text3.Text = "s"
Else
If Text1.Text = "s" And Text2.Text = "b" Then
Text3.Text = "b"
End If
End If
End If
End If
End Sub

Private Sub Command4_Click()
If Text1.Text = "b" And Text2.Text = "b" Then
Text3.Text = "b"
Else
If Text1.Text = "b" And Text2.Text = "s" Then
Text3.Text = "s"
Else
If Text1.Text = "s" And Text2.Text = "s" Then
Text3.Text = "b"
Else
If Text1.Text = "s" And Text2.Text = "b" Then
Text3.Text = "b"
End If
End If
End If
End If

End Sub

Private Sub Command5_Click()
If Text1.Text = "b" And Text2.Text = "b" Then
Text3.Text = "b"
Else
If Text1.Text = "b" And Text2.Text = "s" Then
Text3.Text = "s"
Else
If Text1.Text = "s" And Text2.Text = "b" Then
Text3.Text = "s"
Else
If Text1.Text = "s" And Text2.Text = "s" Then
Text3.Text = "b"
End If
End If
End If
End If
End Sub

Private Sub Command6_Click()
End
End Sub

Lirik lagu Hossana in the highest - Brenda

lirik lagu hossana in the highest

I see the king of glory
Coming down the clouds with fire
The whole earth shakes, the whole earth shakes
I see his love and mercy
Washing over all our sin
The people sing, the people sing

Chorus
Hosanna, hosanna
Hosanna in the highest


I see a generation
Rising up to take the place
With selfless faith, with selfless faith
I see a new revival
Staring as we pray and seek
We're on our knees, we're on our knees

Bridge
Heal my heart and make it clean
Open up my eyes to the things unseen
Show me how to love like you have loved me
Break my heart for what is yours
Everything I am for your kingdom's cause
As I walk from earth into eternity

Lirik lagu How great is our God

Lirik lagu how great is our God

The splendor of a King, clothed in majesty
Let all the earth rejoice
All the earth rejoice

He wraps himself in Light, and darkness tries to hide
And trembles at His voice
Trembles at His voice

How great is our God, sing with me
How great is our God, and all will see
How great, how great is our God

Age to age He stands
And time is in His hands
Beginning and the end
Beginning and the end

The Godhead Three in One
Father Spirit Son
The Lion and the Lamb
The Lion and the Lamb

Name above all names
Worthy of our praise
My heart will sing

How great is our God

How great is our God, sing with me
How great is our God, and all will see
How great, how great is our God

Contoh Program VB Database Mahasiswa

NIM	Nama	UTS	UAS	RATA

Menghubungkan Database dan Tabel di atas kedalam program visual basic dan program penyimpanan data, dimana NIM tidak boleh ada yang sama.

1.       Yang pertama aktifkan database dengan aplikasi Ms. Acsses, sehingga tampil gambar seperti berikut :

a.       Pilih blank database

b.      Lalu simpan di D à folder Ujian àinventory.mdb

c.       Lalu create à klik kanan  à design view à ganti nama table

d.      Dan isi sesuai yang telah di tentukan, dan lihat tampilan berikut

Software Pengaman Data

Folder Guard versi 8.4

http://irsyad-computer.blogspot.com/2013/06/download-folder-guard-pro-84-full.html

Check it out,Guys....



by Teknik Informatika sem V...

Contoh Visual Basic

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "I"
Text3.Text = 100000
Text4.Text = 50000
Text5.Text = 1000000
Case "II"