Membuat TextBox Hanya Menerima Input Huruf/Angka di Visual Basic 6.0 (VB)

 __________________Huruf_________________ Public Sub Huruf(ByRef KeyAscii As Integer)    If Not (KeyAscii >= Asc("1") & Chr(13) And KeyAscii <= Asc("a") & Chr(13) Or (KeyAscii >= Asc("Z") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack...

Read More

Cara membuat Text/Label kedap kedip visual basic 6.0 (VB)

    Masukan component yang gambar jam beker dulu , lalu langsung masukan kode berikut ini untuk membuat teks/label kedap kedip Private Sub Timer1_Timer() If Label1.Visible = True Then 'Label1 ganti dengan nama text/label yang ingin di kedap kedip kan Label1.Visible = False Else Label1.Visible...

Read More

Membuat Pemandangan Bawah Laut Dengan 3ds Max

3D Pemandangan  Bawah Laut      Dalam tutorial ini kita akan membuat sebuah adegan bawah air dalam 3ds Max. Kita akan membuat laut biru dengan sinar cahaya dan gelembung. Menciptakan adegan bawah air meyakinkan adalah...

Read More