Recent post
Archive for 2012
Nah pada postingan
kali ini kita akan mencoba mebuat sebuah kalkulator Cinta dengan Visual Basic
2008. Oh iya kalkulator ini fungsinya untuk menghitung kira-kira seberapa
besarkah cinta si dia padamu lho!!!. He he he …jangan ditanggapi serius ya.
Program ini hanya untuk iseng-iseng aja, tapi lumayan lah untuk sekedar
main-main ….. Nah berikut ini tampilannya kalau sudah jadi :
Berikut ini
langkah-langkah membuat kalkulator cinta dengan Visual Basic 2008 :
1. Pastikan PC anda telah
terinstal Microsoft Visual Basic 2008
2. Lalu buka
Start-Progam-Microsoft Visual Basic 2008
Express Edition
3. Akan ada Tampilan utama, klik Project pada
Create: Project, pilih Windows Form Application, ketik nama project dengan nama
Kalkulator cinta, klik OK untuk memulai.
4. Setelah klik open,akan tampak tampilan
form1 untuk memulai aplikasi.
5. Buatlah 2 Label, 2
Tabel, 3 Command Button (Button), dan 2 Picture Box, seperti gambar dibawah ini
:
6. Aturlah masing -
masing tollbar seperti dibawah ini :
Properties :
1. Form :
Caption (Text) : Kalkulator Cinta
Size
:
420, 300
BackgroundImage : (Sesuai yang anda inginkan)
BackgroundImageLayout : Stretch
Icon : (Sesuai yang anda inginkan)
2. Text Box1 :
Caption (Text) :
Size : 287, 26
Location : 12, 61
3. Text Box2 :
Caption (text) :
Size : 345, 29
Location : 12, 156
4. Label1 :
Caption (Text) : Nama Cowok
Size : 287, 25
Location : 7, 9
FontColor : (Sesuai yang anda inginkan)
5. Label2 :
Caption (Text) : Nama Cewek
Size : 287, 25
Location : 7, 104
FontColor : (Sesuai yang anda inginkan)
6. Command Button1 (Button) :
Caption (Text) : Hitung
Size : 73, 43
Location : 12, 192
BackColor : (Sesuai yang anda inginkan)
7. Command Button2 (Button) :
Caption (Text) : Hapus
Size : 73, 43
Location : 118, 192
BackColor : (Sesuai yang anda inginkan)
8. Command Button3 (Button) :
Caption (Text) : Keluar
Size : 73, 43
Location : 221, 192
BackColor : (Sesuai yang anda inginkan)
9. Picture Box1 :
Size : 80, 80
Location : 318, 36
BackgroundImage : (Sesuai yang anda inginkan)
10. Picture Box2 :
Size : 80, 80
Location : 318, 134
BackgroundImage : (Sesuai yang anda
inginkan)Properties :
1. Form :
Caption (Text) : Kalkulator Cinta
Size : 420, 300
BackgroundImage : (Sesuai yang anda inginkan)
BackgroundImageLayout : Stretch
Icon : (Sesuai yang anda inginkan)
2. Text Box1 :
Caption (Text) :
Size : 287, 26
Location : 12, 61
3. Text Box2 :
Caption (text) :
Size : 345, 29
Location : 12, 156
4. Label1 :
Caption (Text) : Nama Cowok
Size : 287, 25
Location : 7, 9
FontColor : (Sesuai yang anda inginkan)
5. Label2 :
Caption (Text) : Nama Cewek
Size : 287, 25
Location : 7, 104
FontColor : (Sesuai yang anda inginkan)
6. Command Button1 (Button) :
Caption (Text) : Hitung
Size : 73, 43
Location : 12, 192
BackColor : (Sesuai yang anda inginkan)
7. Command Button2 (Button) :
Caption (Text) : Hapus
Size : 73, 43
Location : 118, 192
BackColor : (Sesuai yang anda inginkan)
8. Command Button3 (Button) :
Caption (Text) : Keluar
Size : 73, 43
Location : 221, 192
BackColor : (Sesuai yang anda inginkan)
9. Picture Box1 :
Size : 80, 80
Location : 318, 36
BackgroundImage : (Sesuai yang anda inginkan)
10. Picture Box2 :
Size : 80, 80
Location : 318, 134
BackgroundImage : (Sesuai yang anda
inginkan)Properties :
1. Form :
Caption (Text) : Kalkulator Cinta
Size : 420, 300
BackgroundImage : (Sesuai yang anda inginkan)
BackgroundImageLayout : Stretch
Icon : (Sesuai yang anda inginkan)
2. Text Box1 :
Caption (Text) :
Size : 287, 26
Location : 12, 61
3. Text Box2 :
Caption (text) :
Size : 345, 29
Location : 12, 156
4. Label1 :
Caption (Text) : Nama Cowok
Size : 287, 25
Location : 7, 9
FontColor : (Sesuai yang anda inginkan)
5. Label2 :
Caption (Text) : Nama Cewek
Size : 287, 25
Location : 7, 104
FontColor : (Sesuai yang anda inginkan)
6. Command Button1 (Button) :
Caption (Text) : Hitung
Size : 73, 43
Location : 12, 192
BackColor : (Sesuai yang anda inginkan)
7. Command Button2 (Button) :
Caption (Text) : Hapus
Size : 73, 43
Location : 118, 192
BackColor : (Sesuai yang anda inginkan)
8. Command Button3 (Button) :
Caption (Text) : Keluar
Size : 73, 43
Location : 221, 192
BackColor
: (Sesuai yang anda
inginkan)
9. Picture Box1 :
Size : 80, 80
Location : 318, 36
BackgroundImage : (Sesuai yang anda inginkan)
10. Picture Box2 :
Size : 80, 80
Location
: 318, 134
BackgroundImage : (Sesuai yang anda
inginkan)Properties :
1. Form :
Caption (Text) : Kalkulator Cinta
Size : 420, 300
BackgroundImage : (Sesuai yang anda inginkan)
BackgroundImageLayout : Stretch
Icon : (Sesuai yang anda inginkan)
2. Text Box1 :
Caption (Text) :
Size : 287, 26
Location : 12, 61
3. Text Box2 :
Caption (text) :
Size : 345, 29
Location : 12, 156
4. Label1 :
Caption (Text) : Nama Cowok
Size : 287, 25
Location : 7, 9
FontColor : (Sesuai yang anda inginkan)
5. Label2 :
Caption
(Text) : Nama Cewek
Size : 287, 25
Location : 7, 104
FontColor : (Sesuai yang anda inginkan)
6. Command Button1 (Button) :
Caption (Text) : Hitung
Size : 73, 43
Location : 12, 192
BackColor : (Sesuai yang anda inginkan)
7. Command Button2 (Button) :
Caption (Text) : Hapus
Size : 73, 43
Location : 118, 192
BackColor : (Sesuai yang anda inginkan)
8. Command Button3 (Button) :
Caption (Text) : Keluar
Size : 73, 43
Location : 221, 192
BackColor : (Sesuai yang anda inginkan)
9. Picture Box1 :
Size : 80, 80
Location : 318, 36
BackgroundImage : (Sesuai yang anda inginkan)
10. Picture Box2 :
Size : 80, 80
Location : 318, 134
BackgroundImage : (Sesuai yang anda
inginkan)Properties :
1. Form :
Caption (Text) : Kalkulator Cinta
Size : 420, 300
BackgroundImage : (Sesuai yang anda inginkan)
BackgroundImageLayout : Stretch
Icon : (Sesuai yang anda inginkan)
2. Text Box1 :
Caption (Text) :
Size : 287, 26
Location : 12, 61
3. Text Box2 :
Caption (text) :
Size : 345, 29
Location : 12, 156
4. Label1 :
Caption (Text) : Nama Cowok
Size : 287, 25
Location : 7, 9
FontColor : (Sesuai yang anda inginkan)
5. Label2 :
Caption (Text) : Nama Cewek
Size : 287, 25
Location : 7, 104
FontColor : (Sesuai yang anda inginkan)
6. Command Button1 (Button) :
Caption (Text) : Hitung
Size : 73, 43
Location : 12, 192
BackColor : (Sesuai yang anda inginkan)
7. Command Button2 (Button) :
Caption (Text) : Hapus
Size : 73, 43
Location : 118, 192
BackColor : (Sesuai yang anda inginkan)
8. Command Button3 (Button) :
Caption (Text) : Keluar
Size : 73, 43
Location : 221, 192
BackColor : (Sesuai yang anda inginkan)
9. Picture Box1 :
Size : 80, 80
Location : 318, 36
BackgroundImage : (Sesuai yang anda inginkan)
10. Picture Box2 :
Size : 80, 80
Location : 318, 134
BackgroundImage : (Sesuai yang anda inginkan)
7. Setelah diatur
maka akan menjadi seperti gambar dibawah ini :
8. Berikutnya
masukkan script code dibawah ini dengan cara berikut ini :
1. Klik kanan pada Label1, lalu klik View
Code.
2. Maka akan muncul form1.vb* seperti gambar
berikut ini :
3. Setelah itu hapus semua script code yang
ada di form1.vb*.
4. Selanjutnya copy script code dibawah ini
lalu paste ke dalam Form1.vb*, seperti gambar berikut ini.
Option Strict Off
Option Explicit On
Imports VB =
Microsoft.VisualBasic
Friend Class Form1
Inherits System.Windows.Forms.Form
'www.rudymaturbongs.blogspot.com
Private Sub Command1_Click(ByVal eventSender
As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Dim sBuffer As String
Dim sBuffer2 As String
Dim nCowokLen As Short
Dim nCewekLen As Short
Dim nCtr As Short
Dim nCtr2 As Short
Dim nTotalLen As Short
Dim nJumlah As Short
Dim c As String
Dim c1 As String
Dim BoolExit As Boolean
Dim nKomentar As String
If Len(Text1.Text) <= 0 Then
MsgBox("Silahkan masukkan nama cowoknya", MsgBoxStyle.Information) :
Text1.Focus() : Exit Sub
If Len(Text2.Text) <= 0 Then
MsgBox("Silahkan masukkan nama ceweknya", MsgBoxStyle.Information) :
Text2.Focus() : Exit Sub
Text1.Text = Trim(Text1.Text)
Text2.Text = Trim(Text2.Text)
nCowokLen = Len(Text1.Text)
nCewekLen = Len(Text2.Text)
sBuffer = UCase(Text1.Text) & "LOVES"
& UCase(Text2.Text)
nTotalLen = Len(sBuffer)
For nCtr = 1 To nTotalLen
nJumlah = 1
If nCtr = nTotalLen And Mid(sBuffer, nCtr,
1) = Chr(255) Then BoolExit = True
For nCtr2 = nCtr + 1 To nTotalLen
If Mid(sBuffer, nCtr, 1) = Chr(255) Then
BoolExit = True : Exit For
If Mid(sBuffer, nCtr, 1) = Mid(sBuffer,
nCtr2, 1) Then
Mid(sBuffer, nCtr2, 1) = Chr(255)
nJumlah = nJumlah + 1
End If
Next nCtr2
If nJumlah = 0 Then nJumlah = 1
If BoolExit = True Then
BoolExit = False
Else
sBuffer2 = sBuffer2 & nJumlah
Mid(sBuffer, nCtr, 1) = Chr(255)
End If
System.Windows.Forms.Application.DoEvents()
Next nCtr
Do
sBuffer = sBuffer2
sBuffer2 = ""
nTotalLen = Len(sBuffer)
If nTotalLen <= 2 Then Exit Do
Do
c = CStr(CShort(VB.Left(sBuffer, 1)))
c1 = CStr(CShort(VB.Right(sBuffer, 1)))
sBuffer2 = sBuffer2 & CShort(c) +
CShort(c1)
sBuffer = Mid(sBuffer, 2, nTotalLen - 2)
nTotalLen = Len(sBuffer)
Loop While Not Len(sBuffer) <= 1
If Len(sBuffer) = 1 Then sBuffer2 = sBuffer2
& sBuffer
Loop While Not Len(sBuffer2) <= 1
If CShort(sBuffer) < 25 Then
nKomentar = "Coba cewek yang
lain."
End If
If Diantara(CShort(sBuffer), 25, 50) Then
nKomentar = "Cukup."
End If
If Diantara(CShort(sBuffer), 50, 75) Then
nKomentar = "Ini baik."
End If
If Diantara(CShort(sBuffer), 75, 100) Then
nKomentar = "Luar biasa!!."
End If
MsgBox(Text1.Text & " mencintai
" & Text2.Text & " sebesar " & sBuffer & "
%", MsgBoxStyle.Information, nKomentar)
End Sub
Private Function Diantara(ByRef nNomor As
Short, ByRef nPertama As Short, ByRef nKedua As Short, Optional ByRef
BoundIncluded As Boolean = False) As Boolean
If BoundIncluded = True Then
If nNomor >= nPertama And nNomor <=
nKedua Then
Diantara = True
Else
Diantara = False
End If
Else
If nNomor > nPertama And nNomor <
nKedua Then
Diantara = True
Else
Diantara = False
End If
End If
End Function
Private Sub Command2_Click(ByVal eventSender
As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
End
End Sub
Private Sub Command3_Click(ByVal eventSender
As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
Text1.Text = ""
Text2.Text = ""
End Sub
End Class
5. Setelah di paste maka akan menjadi seperti
gambar dibawah ini :
6.
Sekarang sudah selasai. Untuk mencobanya klik Start Debugging pada toolbar,
seperti gambar berikut ini :
7. Maka akan muncul
aplication kalkulator Cinta yang telah anda buat, seperti gambar berikut ini :
8. Untuk Mencobanya, ketik Nama Cowok
(Misalnya : Anto)pada text box1, lalu ketik Nama Cewek (Misalnya : Rima) pada
text box2, kemudian klik hitung untuk mengetahui berapa cinta kalian.
9. Untuk menyimpan
Kalkulator anda klik Save All pada toolbar.
10. A.
Simpan file dengan properties :
Name: Kalkulator Cinta
Location : D:\
Solution
Name: Kalkulator Cinta
B. Lalu klik Save.
11. Sekarang buka file yang sudah disimpan
(D:\Kalkulator Cinta\Kalkulator Cinta\bin\Debug).
12. Maka akan muncul Kalkulator yang sudah
anda buat.
13. Cobalah ketik Nama Cowok (Misalnya :
Anto)pada text box1, lalu ketik Nama Cewek (Misalnya : Rima) pada text box2,
kemudian klik hitung untuk mengetahui berapa cinta kalian.
14. Sekarang Kalkulator Cinta yang anda buat
sudah selesai.
Terima Kasih.
Anda dapat
Mendownload Kalkulator Cinta dengan mengklik link dibawah ini :
http://www.mediafire.com/?842vghv8yev8sx1
Password : kalkulator
cinta
Anda juga dapat
Mendownload Kalkulator dengan mengklik link dibawah ini :
http://www.mediafire.com/?zj41vvw02n2s8w3
Password : kalkulator
Lihat Facebook saya :
http://www.facebook.com/diposamar1
Lihat Twitter saya :
https://twitter.com/diposamar1
Alamat E-Mail saya :
1.
Justinus.dipo.nugroho@gmail.com
2.
diposamar1@rocketmail.com
3.
diposamar1@hotmail.com
