-|- BeKaBe: April 2011

Friday, 29 April 2011

Form Login - Visual Basic

Membuat Form (formulir, GUI of software) Login dalam sebuah program Administrasi itu memang penting,
karena hak akses untuk mengelola data (administrasi) tersebut harus terjaga keasliannya.
Ada banyak logika cara untuk membuat Form Login, sesuai tingkat kemahiran seseorang tersebut dalam programing.
Nah, disini saya beri contoh untuk teknik dasar dalam membuatnya, yaitu dengan mencocokkan TextBox satu dengan
TextBox lain dalam Visual Basic 6.0 Programming.
Untuk yang lebih sih bisa dengan membuat file tertentu, menempel di Registry, bahkan menempel pada program
itu sendiri, begitu sih menurut teknik yang pernah saya terapkan selama mempelajari Visual Basic 6.0 a.k.a
(as know as) VB ini.
Are u wanna try more? Just do it now!

'From Login
'Palangka Raya, 28/4/2011, 1:40 PM (WIB)
'Riyan Hidayat Samosir @ BeKaBe.BlogSpot.Com - Belajar Visual Basic _ Form Login
'Tambahkan: 2 buah Label, 3 buah TextBox, 1 buah CommandButton

Dim SalahPassWord_ke_i_kali As Integer

Private Sub Form_Load()
SalahPassWord_ke_i_kali = 0
Me.Caption = "Form login"
Me.Text3.Visible = False
End Sub

Private Sub Command1_Click()
If Me.Text2.Text = Me.Text3.Text Then
MsgBox "Selamat datang!"
Me.Caption = "Sukses login"
Else
SalahPassWord_ke_i_kali = SalahPassWord_ke_i_kali + 1
MsgBox "Anda salah memasukkan PassWord " & SalahPassWord_ke_i_kali & " kali"
Me.Caption = "Form login"
If SalahPassWord_ke_i_kali = 2 Then
MsgBox "Kesempatan Anda 1 kali lagi"
End If
If SalahPassWord_ke_i_kali = 3 Then
Me.Caption = "Gagal login"
MsgBox "Anda sudah salah memasukkan PassWord 3 kali, maka proses ini akan ditutup!"
End
End If
End If
End Sub

Contoh file dapat di download di : http://ryanbekabe.byethost14.com/files/Form_Login.zip
Atau di : http://www.ziddu.com/download/14788716/Form_Login.zip.html

Sunday, 17 April 2011

Fungsi IF - Belajar C++

Iseng aja nih update tugas kuliah, biar bisa dipelajari bareng.
Bagi yang udah mahir C++, maaf ini artikel pemula, harap maklum.
Bagi yang pemula, Let's Rock!, Let's Learn!

//Article by http://bekabe.blogspot.com
//Riyan Hidayat Samosir in Belajar Borland C++
//Palangka Raya, 17-01-2011, 09:30 AM

#include
#include
void main()
{
clrscr();
char menikah;
cout<<"Apakah Anda sudah menikah? (Ya=Y, Tidak=T) : ";cin>>menikah;
if (menikah=='T' || menikah=='t')
cout<<"Tunjangan = 100000"< else if (menikah=='Y' || menikah=='y')
cout<<"Tunjangan = 500000"< else
cout<<"Tunjangan = 0"< cout<<"Terima kasih";
}

Visual Basic - Membuat Fungsi Terbilang

Seperti yang pernah rekan pembaca lakukan pada pembelian atau pembayaran atau menabung di bank, ada 'angka' yang menunjukkan banyaknya uang yang mau disetor tersebut, ada pula 'kalimat' yang menunjukkan banyaknya uang yang mau disetor tersebut, yang biasanya bertuliskan 'terbilang'.
Contoh:
100.000
Terbilang: Seratus ribu.

Untuk mahasiswa yang sedang ada tugas Visual Basic 6.0 yang berkaitan dengan kasus tersebut, silakan pelajari Script atau Source Code Visual Basic ini:

'Belajar Visual Basic 6.0
'Tambahkan: 1 TextBox, 1 CommandButton, 1 Label
'Riyan Hidayat Samosir in BeKaBe.BlogSpot.Com

Function SayNumber(nNumber As Variant, _
Optional SayKoma As Boolean = False) As String
Dim i As Long
Dim s As String
Dim s2 As Double
Dim x As String
Dim minus As Boolean
Dim nBulat As Double

If TypeName(nNumber) = "String" Then
If Trim(Mid$(nNumber, 1, 1) = "-") Then
minus = True
nNumber = Mid(nNumber, 2)
End If
x = Trim(CDbl(nNumber))

Else
If nNumber < 0 Then nNumber = Abs(nNumber) minus = True End If x = FormatNumber(nNumber, 2) End If s = SayN(Int(nNumber)) If minus Then SayNumber = "Minus " & s Else SayNumber = s End Function Function SayN(nNumber As Double) As String Dim z, s, a, c, x Dim ulang As Double Dim i As Byte Dim tampung(5) As String Dim n As String n = LTrim(RTrim(nNumber)) ulang = (Len(n) - 1) \ 3 + 1 For i = 1 To ulang If Len(n) > 3 Then
c = Mid$(n, Len(n) - 2, 3)
n = Mid$(n, 1, Len(n) - 3)
tampung(i) = c
Else
tampung(i) = n
End If
Next i

z = ""
If n = "0" Then
z = "Nol "
Else
i = ulang
Do
a = ""
x = ""
s = tampung(i)
While Len(s) < 3 s = "0" + s Wend 'digit ratusan If Mid$(s, 1, 1) <> "0" Then
If Mid$(s, 1, 1) = "1" Then
a = a + "Seratus "
Else
a = a + Nama(Mid$(s, 1, 1)) + "Ratus "
End If
End If

'digit 11-19
If Mid$(s, 2, 1) = "1" Then
If (Mid$(s, 3, 1) <> "1") And (Mid$(s, 3, 1) <> "0") Then
a = a + Nama(Mid$(s, 3, 1)) + "Belas "
End If
If Mid$(s, 3, 1) = "1" Then a = a + "Sebelas "
If Mid$(s, 3, 1) = "0" Then a = a + "Sepuluh "
End If

'digit puluhan
If (Mid$(s, 2, 1) <> "1") And _
(s <> "000") And (Mid$(s, 2, 1) <> "0") Then
a = a + Nama(Mid$(s, 2, 1)) + "Puluh "
End If

If (Mid$(s, 3, 1) <> "0") And (Mid$(s, 2, 1) <> "1") Then
a = a + Nama(Mid$(s, 3, 1))
End If

'perkecualian untuk seribu
If (i = 2) Then
If s = "001" Then a = "Se"
End If

If s <> "000" Then
If i = 1 Then x = ""
If i = 2 Then x = "Ribu "
If i = 3 Then x = "Juta "
If i = 4 Then x = "Miliar "
If i = 5 Then x = "Triliun "
End If
If a = "Se" Then x = LCase(x)
z = z + a + x
i = i - 1
Loop Until i = 0
End If
SayN = z
End Function

Private Function Nama(a As String) As String
Select Case a
Case "1": Nama = "Satu "
Case "2": Nama = "Dua "
Case "3": Nama = "Tiga "
Case "4": Nama = "Empat "
Case "5": Nama = "Lima "
Case "6": Nama = "Enam "
Case "7": Nama = "Tujuh "
Case "8": Nama = "Delapan "
Case "9": Nama = "Sembilan "
Case "0": Nama = ""
End Select
End Function

Private Sub Command1_Click()
Label1.Caption = SayNumber(Text1.Text)
End Sub

Atau, silakan download sample projectnya di :
http://www.ziddu.com/download/14628683/Terbilang.zip.html

Cadangan jika link di atas tidak bisa di:
http://ryanbekabe.byethost14.com/files/Terbilang.zip

MANModAV 2.5 - Penambahan Tombol 'Fix' untuk Pembersihan Infeksi Virus pada HTML, etc, oleh Virus Tongji, etc. (etcetera dan sebagainya, dan lain-lain.)

Download MANModAV 2.5 di : http://www.ziddu.com/download/14563556/MANModAV2.5.zip.html

Masih versi beta sebenarnya, bug-nya masih belum sempat di-fix (diperbaiki).
Untuk ReadMe silakan baca ReadMe pada versi sebelumnya, versi 1.x (x adalah nilai variabel, nilai yang bisa berubah).

Pada versi 2.5 ini, MANModAV menambahkan beberapa database virus baru seperti virus Ramnit, dan virus yang belum diketahui yang dinamakan virus 'X' (Mr. X), istilah untuk virus yang belum sempat dianalisa, yang lolos dari database AntiVirus yang ada, daripada saya susah-susah mencari namanya, saya jadikan 'X' deh. Ihihihihi....

Seperti kebanyakan FreeWare (program gratis) lainnya, risk @ ur own!

Salam bebas virus,
Ryan BeKaBe

Kumpulan Link Download

-|- BeKaBe