TRIK MEMBUAT TEKS TIGA DIMENSI KEREN

Trik membuat teks 3D keren Visual Basic

Assalamualaikum wr, wb...

Apa kabar semuanya... Mudah-mudahan anda semua selalu dalam keadaan sehat dan diberkahi oleh Allah SWT, amiin..

Hari ini kita akan bahas bagaimana cara membuat tulusan tiga dimensi dengan program Visual Basic.

Coba lihat contoh gambar dibawah ini, keren kan ?

Baiklah basa-basinya dicukupkan saja, dan sekarang kita langsung masuk ke TKP OK..

Langkah-langkah membuat teks 3D

1. Sepertia biasa buka program Visual Basic anda dan buat form baru (atur lebar form sesuai dengan

    panjang teks yang akan anda tuliskan).

2. Tambahkan satu komponen tombol ganti Caption menjadi "Tampilkan"

3. Double klik pada CommandButton1 dan masukan kode berikut pada prosedur Command1_Click()

Private Sub Command1_Click()
ForeColor = 0: X = 1485: Y = 855
For I = 1 To 100
        X = X + 1: Y = Y + 1: CurrentX = X: CurrentY = Y
        FontSize = 30
        Print "SELAMAT DATANG DI" ' Tuliskan teks disini
Next
CurrentX = X: CurrentY = Y
FontSize = 30
ForeColor = &HFFFF& 'Ganti warna teks
        Print "SELAMAT DATANG DI" ' Tuliskan teks disini
       
ForeColor = 0: X = 1485: Y = 1500 'ganti posisi X atau Y untuk teks selanjutnya
For I = 1 To 100
        X = X + 1: Y = Y + 1: CurrentX = X: CurrentY = Y
        FontSize = 30
        Print "BERCODE.BLOGSPOT.COM" ' Tuliskan teks disini
Next
CurrentX = X: CurrentY = Y
FontSize = 30
ForeColor = &HFF0000          'Ganti warna teks
        Print "BERCODE.BLOGSPOT.COM" ' Tuliskan teks disini
       
End Sub

4. Jalankan program anda dengan menekan tombol F5 pada keyboard. Selamat anda telah berhasil membuat tulisan tiga dimensi yang keren abis..

Wassalam.. n smoga bermanfaat...