Photo

 

Photo ini uda lama x dinda buat, uda lama pngen dinda upload ksni tp ru sempat skarang.

Sorry lo photo ini g ganggu kanda, mau kanda apain photo ini terserah kanda mau kanda hpus pun dinda g marah, yang penting hati dinda uda dkit lega karna photo ini uda terpasang disini.siang mlm dinda kpikiran karna dinda pernah janji dlm hati mau pasang photo ni ksni.

Lo rasa kanda photo ini bwat semak dsni mau kanda hpus pun gpp, dinda g ad hak mau larang, rang inikan blog kanda bukan blog dinda......

Masih ingatkn ini kata2 siapa?

ASKUM..DINDA

    dinda kanda minta maaf bgt yach atas kejadian malam minggu
gak tau kenapa kanda jadi berubah kayak gitu.. mungkin karna
takut ditiggal lg m dinda? jujur kanda sayang bgt m dinda
dinda jangan penah slelingkuhi kanda ya.....
karna kanda g pernah gantikan posisi dinda buat jadi pacar kanda

    jujur sedih kali hati ini jauh lg dari dinda,
lama lg lah kanda dapat melihat senyum dinda nya kanda
yang paling cantik dan paling sabar mengahadapi kanda
yang super brensek,, baru kali ini kanda mempunyai pacar/calon istri
yang sabar,cantik,manis,manjah,tomboi? apa lg setiap dinda bilang
kata2 sms kanda yang bunyi nya kayak gini "po paen". rasa2nya
dinda ada di samping kanda....... dinda kanda minta maaf kali ya?
kanda uda mengambil hal yang paling dinda jaga, yaitu perawan dinda.
kanda ngabil itu karna? biar dinda tidak dapat pisah dari kanda
dasar kanda melakukan itu karna kanda sayang kali m po kecil yang membaca
tulisan dari kanda ini....

    pho kecil,, ingat kanda y sebelum tidur..... kanda ingin kalau
kanda kemedan nanti dinda pakaian serba warna pink yach.. alnya kanda
suka kali liat dinda pakai itu.. cemana ya gadis tomboi pakain kayak gitu
jadi.....gitu lah? ya kn po? dinda maaf cuma tulisan ini yang bisa mewakili
kanda sebagai ungkapan cinta kanda terhadap pacar kanda ini?

    detik jam pun berlalu.. g bisa kanda tidur atas kepergian dinda
kemedan lagi,, sedih kali rasanya? sampai jam 5 pagi ini kanda g tidur
cuma berteman 1 unit komputer, photo dinda, dan tetesan air mata kanda,,
dinda kanda janji kado wisuda dinda kanda usahakan dinda kanda lamar,
apa pun yang terjadi kanda ingin dinda lah yang mendampingi hidup kanda
ini sampai mati... dinda mau kan?

    oya,, ngomong2 dinda cayang lg apa nihhh? lo kanda lg dengeri musik
komputer musik ni mpek pagi,,kasihan juga photo dinda dan komputer ini nemani
kanda begadang samapai pagi...maaf y dinda kanda begadang? karna kanda kepikiran
terus tentang dinda pho ni? dinda apa sich yang dinda suka dari kanda jujur
napa dinda ma kanda? sampai kapan dinda buat rasa penasaran ini? payah kali lah
dinda kanda ini.........

    dinda uda dulu ya,, alnya bentar lg kanda mau antar dinda pulang kemedan
ni, jadi kanda mau mandi? walau pun ngantok,seperti kata dinda
"MANA UPIN AWAK"..... dada dinda cyg i love like forever dinda cayang..

WASKUM DINDA




Kata-kata ini yang membuat dinda bertahan disini, karna kata-kata ini dinda selalu berharap ingin cepet-cepet lulus S1 biar bsa cepet-cepet sama2 ma kanda, Karna kata-kata ini dinda semangat kuliah dan selalu setia nunggu kanda disini, dan karna kata-kata ini juga dinda juga berharap sama dgn apa yang kanda harapkan melalui tulisan itu.

Tapi itu hanya menjadi sebuah  kata-kata, manusia mempunyai banyak rencana Tapi Allah lah yang menentukan semua nya.

Makasih untuk semuanya....
By : Pho

program penjumlahan vb 2008

Akhirnya saya bisa memberikan artikel pemrograman visual basic 2008 pertama saya. Kita belajar dari yang paling dasar dulu ya teman-teman. Kali ini saya ingin memberikan materi mengenai cara membuat program penjumlahan dalam vb 2008. Nah, setelah kalian berada dihalaman kerja vb 2008, maka yang harus kalian lakukan adalah membuat form seperti dibawah ini.

Maaf kalau desain formnya kurang bagus. Tapi kita coba dulu lah seperti ini. Nah, untuk membuat form seperti ini, caranya drag label yang terdapat pada toolbox kedalam form lalu pada properties box cari tulisan Text, kemudian ganti text label1 dengan A:. Selanjutnya drag Textbox menuju form dan letakkan disamping tulisan A: atau disamping label1. Ikuti langkah diatas untuk membuat B. Kemudian drag Button dan letakkan dibawah textbox2. Pada properties box, ganti Text pada button1 dengan "hitung". Nah, sekarang kalian telah mengetahui bagaimana cara membuat desain program. Selanjutnya, tugas kalian adalah membuat desain form seperti gambar diatas. Anda dapat mendesain program sesuka hati kalian, asalkan rapi dan enak dipandang mata.
Selanjutnya klik dua kali pada button1 atau hitung. Kemudian masukkan kode berikut ini.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub
End Class

Penjelasan: kode berwarna merah diatas adalah kode yang memang terdapat atau langsung ada ketika kita meng klik dua kali pada button1 atau hitung. Sedangkan yang kita tambahkan atau masukkan adalah kode berwarna orange.
Pengertian dari kode berwarna orange adalah, jika button1 di klik maka nilai pada teksbox3 adalah hasil dari penjumlahan nilai teksbox1 dan teksbox2.

Kemudian, klik dua kali pada button2 atau keluar. Selanjutnya tambahkan kode berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Fungsi dari kode End adalah untuk menghentikan program.
Nah, jika sudah tekan F5 untuk meng compile dan menjalankan program. Jika sudah, dan sukses, maka program akan berjalan, kalian bisa mencoba menginputkan beberapa bilangan. Kira-kira hasilnya akan seperti gambar dibawah ini.

Nah, apabila program sudah berjalan dengan baik, Anda dapat meng-compile program yang Anda buat dengan cara mengklik menu Build, kemudian klik Build Desktop Windows dan tunggu proses compile selesai. Kemudian simpanlah program dengan cara mengklik File, Save All.

Sekian yang dapat saya jelaskan mengenai dasar pemrograman visual basic 2008 kali ini. Maaf jika cara penyampaian saya kurang bagus.

vb 2008

1.Denied deletion file, this trick are open the file for simultan so the windows couldn’t delete the file until the aplication end or stopped
private sub form_load()
timer1.interval = 1
end sub
Private sub timer1_timer()
Open PathFilenya For Input As 1
end sub
2.Random Coloured label, this trick will change your label each sec
Private Sub Timer1_Timer()
randomize()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
3.Set the Attributes file without API function
Private Sub Command1_Click()
Setattr pathname,vbhidden+vbsystem+vbreadonly
End Sub
‘To make it normal
Private Sub Command1_Click()
Setattr pathname,vbnormal
End Sub
4. Animated form when unload
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
‘The form go up
Do Until Me.Top <= -5000
DoEvents
Me.Move Me.Left, Me.Top – 10
DoEvents
Loop
Unload Me
End Sub
5.Gradiation Back Color Form
Private Sub Form_Load()
Form1.AutoRedraw = True
For x = 0 To ScaleHeight
Line (1, x)-(ScaleWidth, x), RGB(5, 10, 255 – (x * 255) \ ScaleHeight)
Next x
End Sub
6. Select all content in textbox the easiest way and always used by POS or accounting application just insert these code to event proc
SendKeys “{home}+{end}”
7. UnClosed Form
Private Sub Form_Unload (Cancel as Integer)
Cancel = 1
End Sub
8. ASCII Detector
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.Caption = KeyCode
End Sub
9. Check the existence of Folder or Files
‘Check the Folder
If Dir$(Text1.Text, vbDirectory) = “” Then
msgbox “Folder Not Exist”, vbinformation
ElseIf Dir$(Text1.Text, vbDirectory) <> “” Then
msgbox “Folder Exist”, vbinformation
End If
‘Check The File
If Dir(Text1.Text) = “” Then
msgbox “File Not Exist”, vbinformation
ElseIf Dir(Text1.Text) <> “” Then
msgbox “File Exist”, vbinformation
End If
10. Dragging the Form from around of your form
Private move_x As Integer
Private move_y As Integer
Private move_form As Boolean
Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
move_x = X
move_y = Y
move_form = True
End Sub
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If move_form Then
Me.Move Me.Left + X – move_x, Me.Top + Y – move_y
DoEvents
End If
End Sub
Private Sub form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
move_form = False
End Sub
okey thanks for your attention, critics and suggestion are welcome
speciall thx to all poster at vb-bego.net
moderator and admin…