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