Tes Uploding

Bagi yang pengen dapet software gratisan silahkan dipilih disini :

ini baru percobaan uploding jadi untuk lebih banyak aplikasi, program, tutorial serta apapun yang anda butuhkan nanti insyaallah akan penulis perbanyak demi kepuasan anda semua.

untuk sementara ini daftar program percobaan penulis :

1. Font

    Jenis Tulisan ini biasanya berguna bagi anda yang suka menggunakan program Corel, adobe, juga office  dimana dengan jenis tulisan yang beragam akan membuat hasil kerja anda lebih bagus. bagi yang berminat silahkan anda download disini.

2.  Flas Flayer
     Untuk pelengkap dari browser anda agar semua laman web yang anda lihat dapat tampil dan berfungsi semua maka anda perlu flas player dan anda dapat Download disini.
3.  Internet Download Manager
     Bagi anda yang suka mendownload data dari internet tentunya anda ingin proses Download yang cepat dan akurat dalam pengunduhan data. untuk itu anda memerlukan sofware ini dan silahkan Download
4. Cara menginstal Xp Download
5. Adobe Rider bagi yang butuh silahkan Download 
6. Qur'an In word bagus loch minimal bagi yang masih sekolah untuk bikin tugas bisa di Download kok
7. Aplikasi Adzan komputer silahkan Download
8. Smadav 7.5 Antivirus Kebanggan Indonesia Download 
9. Untuk player semua video kecuali dat doang bagus friend download aj 


mpc download

Read more »

Posted in: Upload

Animasi Dengan VB

Dim FrameCount As Long
Private Sub Command1_Click()
  Timer1.Enabled = False
  If LoadGif(Text1, Image1) Then
     FrameCount = 0
     Timer1.Interval = CLng(Image1(0).Tag)
     Timer1.Enabled = True
  End If
End Sub
Private Sub Command2_Click()
   Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
   Timer1.Enabled = True
End Sub
Private Sub Form_Load()
  Text1.Text = App.Path & IIf(Right(App.Path, 1) = “\”, “”, “\”) & “clip.gif”
  Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
    If FrameCount < TotalFrames Then
        Image1(FrameCount).Visible = False
        FrameCount = FrameCount + 1
        Image1(FrameCount).Visible = True
        Timer1.Interval = CLng(Image1(FrameCount).Tag)
    Else
        FrameCount = 0
        For i = 1 To Image1.Count - 1
            Image1(i).Visible = False
        Next i
        Image1(FrameCount).Visible = True
        Timer1.Interval = CLng(Image1(FrameCount).Tag)
    End If
End Sub

Read more »

Posted in: Turotial VB6

Source Untuk Loud Picture dengan Vb 6.0

Private Sub Command1_Click()
With Me.CommonDialog1
.DialogTitle = “Ambil Gambar”
.Filter = “JPEG|*.jpg”
.ShowOpen
If .FileName <> “” Then
Set Me.Picture1.Picture = Nothing
Me.Picture1.Picture = LoadPicture(.FileName)
End If
End With
End Sub
‘Private Sub Form_Load()
‘Me.Picture1.Picture = LoadPicture(“D:\gbr_motor\bikes_honda_01.jpg”)
‘End Sub

Read more »

Posted in: Turotial VB6