asd
Read More...
Visual Programming Task
Make a form to like this more or less
fill in the program syntax as below:
Private Sub CKeluarForm_Click()
Form1.Hide
End Sub
Private Sub CKeluarProgram_Click()
End
End Sub
Private Sub CProsesBesar_Click()
If Val(Text1.Text) > Val(Text2.Text) And Val(Text1.Text) > Val(Text3.Text) Then
Tangkabesar.Text = Text1.Text
ElseIf Val(Text2.Text) > Val(Text1.Text) And Val(Text2.Text) > Val(Text3.Text) Then
Tangkabesar.Text = Text2.Text
ElseIf Val(Text3.Text) > Val(Text2.Text) And Val(Text3.Text) > Val(Text1.Text) Then
Tangkabesar.Text = Text3.Text
End If
End Sub
Private Sub CProsesKecil_Click()
If Val(Text1.Text) < Val(Text2.Text) And Val(Text1.Text) < Val(Text3.Text) Then
Tangkakecil.Text = Text1.Text
ElseIf Val(Text2.Text) < Val(Text1.Text) And Val(Text2.Text) < Val(Text3.Text) Then
Tangkakecil.Text = Text2.Text
ElseIf Val(Text3.Text) < Val(Text2.Text) And Val(Text3.Text) < Val(Text1.Text) Then
Tangkakecil.Text = Text3.Text
End If
End Sub
Private Sub CProsesUrut_Click()
If Val(Text1.Text) > Val(Text2.Text) And Val(Text2.Text) > Val(Text3.Text) Then
tangkaurut.Text = "Angka Terurut Turun"
ElseIf Val(Text3.Text) > Val(Text2.Text) And Val(Text3.Text) > Val(Text1.Text) Then
tangkaurut.Text = "Angka Terurut Naik"
ElseIf Val(Text2.Text) > Val(Text1.Text) Or Val(Text2.Text) < Val(Text1.Text) And Val(Text2) > Val(Text3) Or Val(Text2.Text) < Val(Text3.Text) Then
tangkaurut.Text = "Angka Tidak Terurut"
End If
End Sub
Private Sub CUlangi_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Tangkabesar.Text = ""
Tangkakecil.Text = ""
tangkaurut.Text = ""
End Sub
Read More...
fill in the program syntax as below:
Private Sub CKeluarForm_Click()
Form1.Hide
End Sub
Private Sub CKeluarProgram_Click()
End
End Sub
Private Sub CProsesBesar_Click()
If Val(Text1.Text) > Val(Text2.Text) And Val(Text1.Text) > Val(Text3.Text) Then
Tangkabesar.Text = Text1.Text
ElseIf Val(Text2.Text) > Val(Text1.Text) And Val(Text2.Text) > Val(Text3.Text) Then
Tangkabesar.Text = Text2.Text
ElseIf Val(Text3.Text) > Val(Text2.Text) And Val(Text3.Text) > Val(Text1.Text) Then
Tangkabesar.Text = Text3.Text
End If
End Sub
Private Sub CProsesKecil_Click()
If Val(Text1.Text) < Val(Text2.Text) And Val(Text1.Text) < Val(Text3.Text) Then
Tangkakecil.Text = Text1.Text
ElseIf Val(Text2.Text) < Val(Text1.Text) And Val(Text2.Text) < Val(Text3.Text) Then
Tangkakecil.Text = Text2.Text
ElseIf Val(Text3.Text) < Val(Text2.Text) And Val(Text3.Text) < Val(Text1.Text) Then
Tangkakecil.Text = Text3.Text
End If
End Sub
Private Sub CProsesUrut_Click()
If Val(Text1.Text) > Val(Text2.Text) And Val(Text2.Text) > Val(Text3.Text) Then
tangkaurut.Text = "Angka Terurut Turun"
ElseIf Val(Text3.Text) > Val(Text2.Text) And Val(Text3.Text) > Val(Text1.Text) Then
tangkaurut.Text = "Angka Terurut Naik"
ElseIf Val(Text2.Text) > Val(Text1.Text) Or Val(Text2.Text) < Val(Text1.Text) And Val(Text2) > Val(Text3) Or Val(Text2.Text) < Val(Text3.Text) Then
tangkaurut.Text = "Angka Tidak Terurut"
End If
End Sub
Private Sub CUlangi_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Tangkabesar.Text = ""
Tangkakecil.Text = ""
tangkaurut.Text = ""
End Sub
Label:
informatics engineering coursework
Selasa, 14 Desember 2010
Module Mata Kuliah Bahasa C
Untuk download modul Bahasa C dasar silahkan klik disini
Read More...
Label:
informatics engineering module
Selasa, 16 November 2010
Texas Hold'em Calculator On Facebook
whether you like playing poker on facebook? And often timeswonder if your card is good or not? Now there who have created a calculator for Texas Hold'em. This is a calculator for texashold'em poker on Facebook, which is not necessarily accurate,but at least help really.
By using Excel count system.
To download the program click here
Read More...
By using Excel count system.
To download the program click here
Astonshell with Crack
Aston adalah pengganti shell asli untuk Windows, kamu dapat menggunakannya untuk memodifikasi keseluruhan dan setiap elemen desktop seperti yang kamu suka.Astonshell ini canggih dan sederhana dapat menggantikan desktop Windows standar dan membuatnya lebih bermanfaat, indah dan disesuaikan. Hal ini juga memungkinkan kamu dapat mengakses mudah ke file, folder dan aplikasi pada pilihan Anda. Aston menawarkan pendekatan yang sama sekali unik dengan fitur yang belum terlihat dan tema dengan wallpaper animasi hidup dan 3D.Setiap unsur Aston: menu utama, desktop, panel - bisa tweak dan disesuaikan, sehingga menciptakan wilayah kerja yang paling nyaman. Aston sangan mudah untuk dijalankan dan di konfigurasi.Aston juga merupakan aplikasi yang sangat ringan dan tidak memberatkan ke windows.
Contoh Astonshell
Untuk mendownload Astonshell dengan cracknya silahkan klik disini
Untuk download themes-themes bisa searching di google dengan keywords "astonshell themes"
Read More...
Contoh Astonshell
Untuk mendownload Astonshell dengan cracknya silahkan klik disini
Untuk download themes-themes bisa searching di google dengan keywords "astonshell themes"
Simak
Baca secara fonetik
Video Gallery
Music Gallery
Mini Games
Manajemen Proyek
-
Hacking Facebook User
Fake Facebook Login Script -
Converting Binary
Cara Cepat merubah bilangan biner ke bentuk desimal, hexadesimal -
Portable Visual Basic 6.0
Program Portable Visual basic -
Smadav 8.3 Pro Serial
Download Smadav Pro 8.3 Serial -
Not Available
Under Construction