Private Sub Timer4_Timer()
Static Atas As Boolean
Label2.Top = Label2.Top + IIf(Atas, -50, 50)
If Label2.Top < 0 Then
Atas = False
ElseIf Label2.Top > Me.Height – Label2.Height – 300 Then
Atas = True
End If
End Sub
VB 6 UpDown Text
VB 6 Connecting To Web Blog
VERSION 5.00
Begin VB.Form Form1
Caption = “Form1″
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = “Form1″
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 ‘Windows Default
Begin VB.CommandButton Command1
Caption = “Command1″
Height = 375
Left = 360
TabIndex = 0
Top = 480
Width = 495
End
End
Attribute VB_Name = “Form1″
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Call ShellExecute(Me.hWnd, “Open”, “http://dkr0913.blogspot.com”, vbNullString, vbNullString, vbNormal)
End Sub
kitab Kamasutra
Dalam kitab Kamasutra diajarkan teknik dan bentuk ciuman beserta sensasi nikmat yang ditimbulkannya. Ciuman merupakan bahasa cinta yang klasik,ia mampu mengekpresikan berbagai bentuk rasa cinta dan sayang seseorangterhadap pasangannya. Dengan ciuman permainan cinta dapat menimbulkan sensasi yang luar biasa. Sebab dalam mulut terletak berjutajuta sel syaraf pengerak nafsu seks. Mulut memiliki sensor yang sangat Baca entri selengkapnya »
Dampak Seks Bebas Di Kalangan Sekolah Menengah
Sudah menjadi maklum, remaja memang sosok yang sangat menarik untuk diperbincangkan. Kenapa?. Remaja masa pencarian jati diri yang mendorongnya mempunyai rasa keingintahuan yang tinggi, ingin tampil menonjol, dan diakui eksistensinya. Namun disisi lain remaja mengalami ketidakstabilan emosi sehingga mudah dipengaruhi teman dan mengutamakan solidaritas kelompok. Diusia remaja, akibat pengaruh hormonal, juga mengalami perubahan fisik yang cepat dan Baca entri selengkapnya »
Nimbrung Bareng di JOTI1308
Nimbrung
achmad zazuri: uda tp bingung mau lezx
achmad zazuri: cz aq jga cari bahan bwat bkin proda
Dekace Lumajang: apa itu proda ?
achmad zazuri: prodak
achmad zazuri: aq td ditugasi sbg perwakilan dr kl rpl utk bwt program
Dekace Lumajang: ok
achmad zazuri: citra gerakan pramuka
achmad zazuri: aq tadi da bkin ulasan
achmad zazuri: pacaran di dlam 1 organisasi
achmad zazuri: pacaran sesama anggota dkr gtu
Dekace Lumajang: km mau ngerjain tugas tha ?
achmad zazuri: ya
achmad zazuri: aq kr ge cari bahannya buat bikin program ocx, ddl n file2 yang periperal
Dekace Lumajang: ok
Dekace Lumajang: nanti dlanjut aja
achmad zazuri: tp aq tadi da oL ma tmn2 mlai jam2 ampe jam 16.30
achmad zazuri: mg citra gerakan pramuka yang ge mna yang ge di bahas skr
Dekace Lumajang: citr agerakan pramuka
Dekace Lumajang: mengembalikan kepercayaan masyarakat kepada gerakan pramuka
achmad zazuri: citra gerakan pramuka dari segiapa
Dekace Lumajang: segi segala hal
achmad zazuri: begini kak, di sanggar itu mksudnya tmn2 dkr pasirian memang rame tp angtax banyak yang pacaran
Dekace Lumajang: itu kebijakan dewan kerja yang bersangkutan ,
achmad zazuri: caranya
Dekace Lumajang: ya kalo bisa jgan di waktunya aktivitas pramuka lo pacaran
achmad zazuri: tp yg bkin rame iti tmn2 yg pux pasangan di organiss
Dekace Lumajang: kita satuan terpisah , harus saling ngerti batasan2nya ,
achmad zazuri: sebenarnya aq jga pengennya gtu, tp skr masih aku biarkan ja biar mereka merasa senang dan nyaman ikut dkr, cz mereka masih belum dilantik menjadi anggota yang sah
achmad zazuri: dlu yg di lantik cma pengurus intinya ja
Dekace Lumajang: ok, terus bekerja keras untuk hal itu , usahakan unsur pimpinan memberi contoh yang baik untuk anggota yang lain
achmad zazuri: kin planing kita ke depan, kita perangkap mereka, kita diklat mereka truz kita lantik mereka, lw ntar agt dkr pasirian mw ngadain pelantikan anggota, nk dkc mw hadir g lw di undang
Dekace Lumajang: kita tunggu undangannya , ok
achmad zazuri: kin 1 blan ld
Dekace Lumajang: ok kita tunggi
achmad zazuri: oya, denger2 tgal 1 nov mn da acr bivak / survval/ safari camp di sumber wuluh, pa bnar
Dekace Lumajang: sapa yang ngadain
achmad zazuri: gtw, 2 msh kbarx ce n ktanya se jatim
Dekace Lumajang is typing a message.
Dekace Lumajang: itu , gerak jalan , lintas juang , pemuda panca marga se jawa timur
achmad zazuri: jd benar ya
Joti1308
The World Scout Jamboree On The Internet (JOTI) is an international Scout Meeting on the Internet which takes places every year on the third weekend of october. This is an official event of the World Organization of the Scout Movement.
Sebagai anggota DKR Pasirian diharapkan untuk berpartisipasi di dalamnya. Caranya daftar ke joti1308@yahoo.com
Sms Spesial Lebaran Untuk Pacar
Semua yang kulakukan adalah untuk kebahagianmu.
Segalanya adalah untukmu.
Hanya saja aku bukan lelaki yang sempurna
selalu saja ada kata dan kesalahan
yang mungkin bisa menyakiti hatimu.
Selamat berpuasa sayang, terimalah maafku.
Bersama 1000 cinta, Aa.
Mungkin baru 90 hari kita berpacaran
namun tidak lebih banyak aku bisa
membuat kamu ceria dan bahagia.
Beri aku lebih banyak hari, bulan, bahkan tahun,
untuk dapat lebih membahagiakanmu.
Bersama bulan suci ini, kita rajut kembali
benang-benang pengertian diantara kita.
Aa, lahir dan bathin.
Maaf kalo selama ini aku suka bikin kamu kesal.
Jujur juga, memang aku gak gampang ngertiin kamu.
Tapi aku 100% cinta kamu.
Met Puasa, maafkan aku lahir dan batin ya.
I Love U.
Software Java FX Full Version Free
Java FX adalah bahasa scripting yang baru ditelurkan SUN. Masalahnya bukan bisa nggak, tetapi JavaFX memang didesain untuk mempermudah membuat tampilan. Ceritanya supaya kita mudah bikin tampilan bagus tanpa menjadi hebat dengan Swing. JavaFX dalam penggunaannya nanti digunakan bersama dengan Model yang ditulis dengan J2SE.
Keuntungannya adalah scriptingnya mirip CSS atau HTML. Jadi yang biasa bikin HTML insya Allah gak masalah.
Referensi awal:
[url]https://openjfx.dev.java.net/Getting_Started_With_JavaFX.html[/url]
[url]https://openjfx.dev.java.net/Learning_More_About_JavaFX.html[/url]
Contoh program:
[url]http://www.deitel.com/ResourceCenters/Programming/JavaFX/JavaFXDownloadsandSourceCode/tabid/2183/Default.aspx[/url]
Free Code:
http://www.deitel.com/ResourceCenters/Programming/JavaFX/JavaFXDownloadsandSourceCode/tabid/2183/Default.aspx
Free Download Software Java FX Full Version
http://javafx.com/downloads/windows.jsp
Membuat Tulisan Berjalan Dari Atas Ke Bawah
Tutrial Delphi
Cukup menarik bukan? Jika di sebuah form ada sebuah tulisan yang bias berjalan ke bawah / turun ke bawah. Pada tutorial ini akan di bahas bagai mana cara membuatnya.
Pembuatanya sangatlah sederhana sekali yakni kita membutuhkan sebuah label(tab standard) dan satu timer(tab system).
Misalkan pada gambar di bawah ini:
Ada sebuah label dengan caption tulisan berjalan – jalan.
Sebuah timer dengan code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Top:=Label1.Top+9;
end;
end.
Keterangan:
ü Label1 : merupakan text yang di beri kode
ü Top : merupakan objek inspektor yang membuat textnya berjalan dari atas ke bawah.
ü 9 : merupakan kecepatan text tersebut untuk berjalan ke atas
a
Jika sudah beres, kita mengujinya / menjalankannya dengan cara menekan tombol F9 di keyboard. Kalau berhasil akan muncul seperti yang tampak di bawah ini.
Mudah bukan??? Iya donk. Iya Kan???
Untuk hasilnya tiap PC tidak sama , tergantung space drive masing-masing komputer. Anda bisa memovikasi sendiri warna, kecepatan, dan tulisanya
