Teknik informatika

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

CHECK FOR FILE Public Function FileExist(asPath as string) as Boolean If UCase(Dir(asPath))=Ucase(trimPath(asPath)) then FileExist=true Else FileExist=False End If End Function Public Function TrimPath(ByVal asPath as string) as string if Len(asPath)=0 then Exit Function Dim x as integer Do x=Instr(asPath,”\”) if x=0 then Exit Do asPath=Right(asPath,Len(asPath)-x) Loop TrimPath=asPath End Function Private sub command1_Click() if fileExist(Text1.text) then Label1=”YES” else Label1=”NO” End if End Sub Private sub form_Load() End sub

INDAH MENGENALMU ku tunjuk satu rasa padamu ku dapati seribu bahasa darimu dalam perputaran waktuku akhirnya ku bisa mengenalmu mengenalmu saat ini adalah keindahan yang ku dapati lagi setelah sekian lama ku sendiri kini ku dapati walau belum pasti kau mampu buatku merindu akan kehadiranmu selalu hingga kini sungguh ku mau kau tetap di sisiku aku ingin keindahan ini pasti hingga membuatku jatuh cinta lagi ku menunggu cintamu di sini bersama keindahan yang nyata ini

#include #include //function & procedure void loading () { for (int o= 0;o<100;o+=1) { cout<<"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ "< cout<<"+ ____________________________________________________ + + "< cout<<"+ | | + + "< cout<<"+ | | + + "< cout<<"+ | | + + "< cout<<"+ | | + + "< cout<<"+ | | + + "< cout<<"+ | | +

aku dilahirkan di kota kecil yaitu yogyakarta.. Ibu dan ayahku dulu adalah seorang guru. Mereka adalah guru di Bantul. Telah sekian lama berjalan,,karena ada suatu kecelakaan,yang mengakibatkan... Ayahku harus terkana musibah kecelakaan di gunung kidul. akhirnya sampai sekarang aku hanya bisa mengenangnya. ibuku guru smp sewon.Dia juga terkena sedkit masalah yang mengakibatkan harus di pecat. akhirnya kehiupan ku hari demi hari semakkin tak enak di dengar. Kemudian ibu ku memutuskan untuk pergi.Dia merantau ke malaysia. sampai sekarang aku masih hidup sendiri tanpa kebahagian seorang ayah,,,,' aku sangat iri dengan orang lain....

Bahasa c++ merupakan pengembangan dari bahsa C.Selain penambahan banyak komponen yang tidak ada dalam bahasa C,C++ juga memperkenalkan konsep pemrogaman berorientasi objek,yang akan di bahas dalam bab selnjutnya. Walaupun demikian,C++ masih mewarisi konsep-konsep yang terdapat dalam bahasa c,seperti; variabel,tipe data,pointer,array,dan sebagainya. Beberapa hal yang penting untuk pembahasan struktur data akan dibahas berikut ini; variabel Variabel adalah suatu lokasi di memori yang disiapkan oleh progamer dan di beri nama yang khas untuk menampung suatu nilai dan atau mengambil kembali nilai tersebut. bentuk umum: tipeData1 namavariabel[1];