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

Comments

Cara servis hasil print tidak lurus

Pada kesempatan ini Mas Mukhlas akan mem-Post-ing cara service printer. Kerusakannya pada hasil cetakan yang tidak lurus, atau hasil cetakannya ada bayang-bayangnya, biasanya dibuat untuk cetak garis atau tabel akan menghasilkan garis double. Pernah mengalami hal demikian, mari simak cara mengatasinya. Bongkar printer (untuk cara bongkar printer epson seri C58,C90,T11,T20,T20E bi dilihat DiSini ) Amati encodernya. Encoder adalah pita sensor yg terbuat dari plastik dengan motif / kode baris di permukaannya. Letaknya dibelakang Head Carriage / rumah catridge. Berikut gambarnya : Penampakan Encoder Printer Klik gambar untuk memperbesar Encoder masih berada di printer (Canon) Klik gambar untuk memperbesar Encoder masih berada di printer (Epson) Klik gambar untuk memperbesar neh gan encodernya rusak kena cipratan tinta Klik gambar untuk memperbesar Kalau kasus ini : encoder kena cipratan tinta, sehingga menutupi baris kode yg ...

Cara Reset Printer Canon IP 2770

Teman bloger ssaya mau sedikit berbagi ilmu. Kali saya mau kasih sedikit ilmu tentang cara mereset canon IP 2770. Printer canon IP 2770 atau sebagainya biasanya memerlukan resetter sendiri untuk meresetnya. Reseter ini gunanya unntuk mengembalikan pengaturan printer ke awal lagi sperti kita merest HP. Merk Canon memang dibuat seperti ini karena untuk menghindari rusak nya catridge. Bagi orang yang belum tahu dan orang awam istilahnya memang ini sangat menggangu dan dikiranya rusak berat. Padahal kalau sudah tau dan bisa mempraktekannya ini sangatlah mudah. Untuk melakukan proses resetter ini sobat semua pastinya juga memerlukan softwarenya. Anda bisa download softwarenya Download software

Tugas 2 Sistem Operasi

Manajemen Proses Proses adalah program dalam eksekusi. Suatu proses adalah lebih dari kode program, dimana kadang kala dikenal sebagai bagian tulisan. Proses juga termasuk aktivitas yang sedang terjadi, sebagaimana digambarkan oleh nilai pada program counter dan isi dari daftar prosesor/ processor’s register. Suatu proses umumnya juga termasuk process stack, yang berisikan data temporer (seperti parameter metoda, address yang kembali, dan variabel lokal) dan sebuah data section, yang berisikan variabel global. suatu program adalah satu entitas pasif, seperti isi dari sebuah berkas yang disimpan didalam disket, sebagaimana sebuah proses dalam suatu entitas aktif, dengan sebuah program counter yang mengkhususkan pada instruksi selanjutnya untuk dijalankan dan seperangkat sumber daya/ resource yang berkenaan dengannya. rocess Control Block(PCB) Masing-masing proses direpresentasikan oleh Sistem Operasi dengan menggunakan Processs Control Block(PCB). 1. Status Proses. New, Ready, r...

Teknik informatika

Search This Blog