Küçük temel hazır kodlar. Konuyla ilgili Bilişim ve BİT dersi: "Small Basic programlama ortamı ile tanışma". Görev çubuğunu gizle

Eclipse, yaşam döngüsü boyunca yazılım oluşturmak, kullanmak ve yönetmek için çalışma zamanlarına ve uygulama platformlarına sahip genişletilebilir bir geliştirme platformudur. Birçok kişi Eclipse'i Java IDE olarak bilir, ancak Eclipse aslında 60'tan fazla farklı açık kaynak projesinden oluşur, bkz.

Ücretsiz Açık Kaynak Mac Windows Linux

NetBeans

Yazılım geliştiriciler için ücretsiz açık kaynak IDE. Java, C / C ++ ve hatta PHP, JavaScript, Groovy ve Ruby gibi dinamik dillerde profesyonel masaüstü, kurumsal, web ve mobil uygulamalar oluşturmak için ihtiyacınız olan tüm araçlara sahip olursunuz.

Ücretsiz Açık Kaynak Mac Windows Linux BSD

Aptana stüdyosu

Aptana Studio, sizin ve ekibinizin daha fazlasını yapmanıza yardımcı olmak için güçlü geliştirme araçlarını bir dizi çevrimiçi barındırma ve işbirliği hizmetleriyle birleştiren eksiksiz bir web geliştirme ortamıdır. PHP, CSS, FTP ve daha fazlası için destek içerir.

Ücretsiz Açık Kaynak Mac Windows Linux

Komodo Düzenle

Komodo Edit hızlı, akıllı ve ücretsiz bir açık kaynak düzenleyicidir. Komodo Edit'i (veya ağabeyi Komodo IDE) kullanmayı deneyin - buna değer.

Ücretsiz Açık Kaynak Mac Windows Linux

Xcode

Apple'ın Xcode'u, Mac OS X için önde gelen geliştirme ortamıdır. Satın alınan her Mac OS X ile birlikte diskte paket olarak sunulmasının yanı sıra, en son sürüm ADC (uygulama geliştiricileri için bir sosyal ağ) üyeleri için her zaman ücretsiz olarak indirilebilir. Apple platformları) ve oluşturduğunuz uygulamaları oluşturmak, ince ayar yapmak ve optimize etmek için ihtiyacınız olan tüm araçları içerir.

Ücretsiz Mac

MonoDevelop

MonoDevelop, öncelikle C# ve diğer .NET dilleri için tasarlanmış çapraz platformlu bir IDE'dir. MonoDevelop, geliştiricilerin Linux, Windows ve Mac OSX için hızlı bir şekilde masaüstü ve ASP.NET web uygulamaları oluşturmasına olanak tanır. MonoDevelop, geliştiricilerin Visual Studio'da yerleşik .NET uygulamalarını tüm platformlar için tek bir kod tabanını korurken Linux ve Mac OSX'e kolayca taşımasına olanak tanır.

Ücretsiz Açık Kaynak Mac Windows Linux .NET Framework Xamarin Studio

Lazarus

Free Pascal, Linux, Win32, OS/2, 68K ve daha fazlası üzerinde çalışan bir GPL derleyicisidir. Free Pascal, Delphi sözdizimini anlamak ve derlemek için tasarlanmıştır. Lazarus, yukarıdaki tüm platformlar için Delphi benzeri programlar geliştirmenize izin verecek eksik bir bulmacanın parçasıdır. Yukarıdaki tüm platformlarda aynı derleyici mevcut olduğundan, bu, farklı platformlar için aynı ürünleri oluşturmak için yeniden kodlama yapmanız gerekmediği anlamına gelir.

Ücretsiz Açık Kaynak Mac Windows Linux BSD OpenSolaris

WebFırtınası

JetBrains WebStorm, JetBrains IntelliJ IDEA çerçevesi üzerine inşa edilmiş ticari bir JavaScript, CSS ve HTML IDE'dir.
WebStorm, kod tamamlama, anında kod analizi, yeniden düzenleme desteği ve VCS entegrasyonu sağlar.

Paralı Mac Windows Linux

SharpDevelop

#develop (SharpDevelop'un kısaltması), Microsoft platformunda C#, VB.NET ve Boo projeleri için ücretsiz bir geliştirme ortamıdır. Açık kaynaklı bir ortamdır. Hem kaynak kodu hem de yürütülebilir dosyaları indirebilirsiniz.

Programlamanın temelleri.

Programlama dili Küçük Temel

DERS 1: Programlama ortamına aşinalık Küçük Temel .

Hedef: Tanıtmak Small Basic programlama dili ile.

Görevler:

Bir programlama dili öğrenmeye başlayın Küçük Temel. OOP (Nesneye Yönelik Programlama) kavramını verin

Bu programlama ortamında nasıl çalışılacağını öğretmek. NS ortamın "metin nesnesi" ile tanışın Küçük Temel.

Bir programlama ortamında program oluşturma konusunda ilk fikri vermek.

Projenin ana eğitim görevleri:

Kişisel niteliklerin eğitimi: özveri, dikkat, doğruluk, benlik saygısında nesnellik, sorumluluk, bilişsel ilgi.

Projenin ana gelişim görevleri:

Başarılı sosyal adaptasyona katkıda bulunan öğrencilerin temel yetkinliklerini oluşturun;

Bilişsel aktivite yoluyla kendini geliştirme ve kişisel gelişim arzusunu geliştirmek.

Bilmek: Temel kavramlar: nesne, değişkenler, atama, veri türleri, girdi-çıktı.Small Basic programlama ortamının kurucu öğelerini bilir.

Yapabilmek: Smal Basic programını indirin. Belirli bir programlama ortamında en basit projeleri oluşturun. Smal Basic dilinde matematiksel fonksiyonlar girebilir ve matematiksel ifadeler yazabilir. Basit doğrusal programlar oluşturun.

Ekipman ve malzeme: destekleyici ders notları (bkz.Ek 1 ), görev kartları, PC, Small Basic uygulaması, beyaz tahta, multimedya projektörü, ekran.

Dersler sırasında:

zaman düzenleme

1. ders hazırlığı

   Bilgi güncellemesi

Yeni malzemenin açıklaması

İncelenen materyalin konsolidasyonu

1. Konuyla ilgili sorular

Özetleme

1. derecelendirme

   Ödev

zaman düzenleme

1. Derse hazırlık (ders için hazır olup olmadığını kontrol edin, devamsızlığı işaretleyin)

   Bilgi güncellemesi

Programlama ne için?

Biyolojide bir özet yazmak istiyorsunuz. Büyük olasılıkla, bilgisayarınızda bir metin düzenleyicide yazacaksınız. Metin editörü nereden geldi? Tabii ki, programcılar yazdı. Yine programcılar tarafından yazılmış bir tarayıcı kullanarak İnternette bilgi arayacaksınız. Özetinizi yazdıktan sonra rahatlamak ve yine programcılar tarafından yazılmış bir bilgisayar oyunu oynamak isteyeceksiniz. Genel olarak, programcılar tarafından yazılmış programları kullanmadan bir bilgisayarda çalışmak imkansızdır. Bu, programlama olmasaydı, program olmazdı ve bir bilgisayar bir sürü pahalı donanım olurdu, çünkü programsız bir bilgisayar kullanarak bir şeyler yapmak imkansız.

Problem çözmenin aşamaları.

Temel konseptler

Programlama - yazma programları.

programı - bir bilgisayarın anlayabileceği bir programlama dilinde yazılmış bir algoritma.

algoritma - hedefe ulaşmayı amaçlayan net bir eylemler dizisi.

Nesne yönelimli programlamada bir nesne kavramı tanıtıldı, aşağıdakilere izin veren hesaplama mekanizmaları uygulandı:

Bir nesnenin yapısını tanımlayın

Nesnelerle eylemleri tanımlayın

Nesne devralma için özel kurallar kullanın (Kalıtım, mevcut olanlardan yeni nesneler oluşturmak anlamına gelir)

Nesnenin bileşenlerinin koruma derecesini ayarlayın

teori

İlk buluşma

Microsoft Küçük Temel - şirket tarafından geliştirilen bir programlama dili. Yazılım geliştirmenin temellerini kavramak isteyen yeni başlayan geliştiriciler için tasarlanmıştır.

Ana avantajlar:

Çok basit bir geliştirme ortamı - çok işlevli bir araç ipucu ve metin düzenlemek ve programları başlatmak için yalnızca birkaç düğme içeren bir metin düzenleyici.

Sadece 20 anahtar kelime ile basit bir dil

Geliştirme ortamında yerleşik tüm dil öğeleri için bağlamsal belgeler

Small Basic bileşenlerini ek işlevsellik içerecek şekilde genişletme yeteneği. (Örneğin, teslimat zaten hizmetlerle çalışma fırsatlarını içeriyor)

BASIC'in özel bir avantajı, programların hata ayıklama sürecini büyük ölçüde basitleştiren yorumlama modunda çalışma yeteneği olarak düşünülmelidir: hemen hemen her komutun yürütülmesi, yazıldıktan hemen sonra kontrol edilebilir.

Çıkış operatörü

WriteLine ("Merhaba!")

(Metin veya sayı )

Merhaba!

Sonucu almak için - "Merhaba!" metnini çıktılayın. ekrana - bir program yazmanız gerekiyor:

TextWindow.WriteLine ("Merhaba!")

Program pencereye girilirKüçükTemelve düğme ile başlatılırKoşma veya anahtarla F 5

Programın sonucu şu metnin çıktısıdır: "Merhaba!" vMetin kutusu programlar.

Satır, "Devam etmek için herhangi bir tuşa basın ..." anlamına gelir.

TextWindow, metnin görüntülenebildiği bir metin penceresi nesnesidir.

nesnenin sahip olduğu özellikler ve yöntemler.

nesne yöntemi nesnenin yapabileceği bir şey, yanioperasyonlar (operatörler )

Parametre işlem parantez içine alınır WriteLine()

aynı nesne Metin kutusu sahip özellikler (bunlar nesnenin özellikleridir) , Örneğin

BackgroundColor özelliği - metnin arka plan rengini ayarlar,Ön plan rengi- metin rengi

Renkler:

kırmızı

sarı

Yeşil

Mavi

siyah

Beyaz

kırmızı

sarı

Yeşil

Mavi

siyah

Beyaz

Değişken

Değişkenler genellikle program oluşturmak için kullanılır.

değişken vardırisim - latin harf (a)

Bir değişkene sayısal bir değer gibi bir değer atanabilir.

a= 5, "işareti" = " - bu atama operatörü

Dize değeri

bir = bir + 5

a değişkeninin değerini alın

buna 5 ekle

Bir öncekini silerek a değişkeninin yeni değerini koyun

İki tür değişken vardır: sayı ve hat

10, -5, 3.14 "bilişim"

katla +

Çarpmak *

Bölmek /

Matematiksel eylemler:

Sinüs, logaritma, kök

Zamk

Parçalara ayırın

Arama sembolleri

Karakterleri değiştir

ÖRNEK operatör "+"

ifade

sonuç

ifade

sonuç

"İvan" + "ova"

"İvanova"

"Sınıf" + 10

"Sınıf10"

Programlama

Örnek 1: program sonucu

Örnek 2: program sonucu

Örnek 3: Program iki değişkenin toplamını hesaplar ve görüntülera ve B

Math.Abs ​​​​(isim)

modül

Matematik.Cos ( isim)

kosinüs

Math.Ceiling (isim)

bir tamsayıya yuvarlar

Math.GetDegrees ( isim)

bir sayıyı radyandan dereceye çevirme

Math.GetRandomNumber ( maxnamber)

1 ile 1 arasında rastgele bir sayımaxnamber

NaturalLog (isim)

Doğal logaritma

Matematik.Pi

Pi

Matematik Gücü ( basenamber, üs)

V ÖbaseNamber'ı üsle çarpma

Matematik. Maks (namber1, ad2)

En fazla iki sayı

Matematik. Kalan (temettü, bölen)

Bölümün geri kalanı

Matematik .Sin (isim)

Sinüs

Matematik. bronzluk(isim)

Kosinüs

Matematik .ScuareRoot (isim)

Kök

Matematik. Yuvarlak(isim)

Normal yuvarlama

Matematik .ArcSin (isim)

arksinüs

Matematik. Zemin(isim)

En yakın en küçük tam sayıya yuvarlar

x = TextWindow.ReadNumber ()

y = Matematik.Abs (x)

TextWindow.WriteLine ("y eşittir "+y)

Matematik.Pi

Malzemenin sabitlenmesi

1. PC'de bağımsız pratik çalışma

Kendi kendine çalışma ödevleri

1. Egzersiz:

Atama Operatörlerinin Nihai Sonuçlarını Belirleyin

X = 3

Y = 2

X = X + 2

Y = X * 2

X = Y

bir = 15

B = A

A = B / 5 + 2

B = A * 3

bir = 0

ödev 2 : 3 değişkenin çarpımını hesaplamak için bir program oluşturun:a , B ve C .

ödev 3 : Şu ifadeyi hesaplamak için bir program yapın:z=5* x+ y/ 2 (sağlanan x = 10,y=100)

Ödev 4: X değerlerinin çıktısını almak için bir program oluşturun veY, görev 1'e göre.

Ödev 5: Diskriminantı bulmak için bir program oluşturun

Ödev 6 : ifadeleri değerlendir

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

çünkü 2 (Pi/4)+ Günah 2 (Pi/2) (1 )

( 1)

Y = 2x 2 ( NS x = 5, y = 50)

x 1,2 = (a = 2 için, B=6, C=4 , x 1=-1, x 2=-2)

Z= ln (y)-3 ( NS y = 3, z = -1.901 ...)

С = (için a=4, B=9, C=13)

Y = cos (x) + günah (x) (x = 180 0 , y = -1)

sorular

Program nedir?

Programlama dilleri ne içindir?

Nesne yönelimli programlamanın temel öğeleri nelerdir?

"Metin kutusunda" hangi işlemler yapılabilir?

Atama operatörü ne anlama geliyor:

Ne tür veriler kullanılır Küçük Temel?

G/Ç ifadeleri nasıl yazılır?

Özetleme

1. derecelendirme

   Ödev

Çalışmak destekleyici notlarla

bir mesaj hazırlamak konuyla ilgili: "Çeşitli programlama dilleri"

program yap Heron formülünü kullanarak bir üçgenin alanını hesaplamak

Başvuru

OK 1: Dilde programlamanın temelleri Küçük Temel .

Programlama - yazma programları.

ALGORİTMA + PROGRAMLAMA DİLİ= PROGRAM

Değişken

değişken vardırisim - Latin harfi (Örneğin,a , V , x1 , C9 )

Bir değişkene bir değer atanabilir

Örnek: a = 5 işareti nerede " = " - bu atama operatörü

İki tür değişken vardır: sayı ve hat (karakter dizisi)

10, -5, 3.14 "bilişim"

katla +

Çarpmak *

Bölmek /

Matematiksel eylemler:

Sinüs, logaritma, kök

Zamk

Parçalara ayırın

Arama sembolleri

Karakterleri değiştir

Programlama

Metin Penceresi- bu metin penceresi nesnesi metni görüntüleyebileceğiniz yer.

çalışma parametresi parantez içinde - WriteLine()

Bir obje Metin kutusu sahip özellikler , Örneğin

Mülk Arka plan rengi - metnin arka plan rengini ayarlar,Ön plan rengi - metin rengi

Kullanılan renkler:

kırmızı

sarı

Yeşil

Mavi

siyah

Beyaz

kırmızı

sarı

Yeşil

Mavi

siyah

Beyaz

Küçük Temel Operatörler

operatör "+"

Temel Operatörler

İfadede matematik fonksiyonlarını kullanma

Karmaşık matematiksel ifadeler yazma Matematik.Pi TextWindow.WriteLine ("x değişkeni için bir değer girin")

x = TextWindow.ReadNumber ()

y = Matematik.Abs (x)

TextWindow.WriteLine ("y eşittir "+y)

TextWindow.WriteLine (Math.Abs ​​​​(-10))

İki değişkenin toplamını hesaplayan programa ve B

TextWindow.WriteLine ("a değişkeninin değerini girin")

a = TextWindow.ReadNumber ()

TextWindow.WriteLine ("b için bir değer girin")

b = TextWindow.ReadNumber ()

s = a + b

TextWindow.WriteLine (" sayıların toplamı "+ s)

Program pencereye girilirKüçükTemelve düğme ile başlatılırKoşma veya anahtarla F 5.

Hat basmak herhangi anahtar devam et ... anlamına geliyor " Devam etmek için herhangi bir tuşa basın

Herkese merhaba, bu yazımda size bazı kullanışlı küçük program kodlarını göstermek istiyorum. Kendi daha ciddi programlarınızı yazmak için kullanabileceğiniz, ya da tam olarak burada açıklanan bu işlevleri arıyordunuz.

Programlama ortamında tüm kodlar kullanılmıştır. Microsoft Visual Basic v6.0.

Onay ile çık

İlk tür program veya işlev, bir çıkış onay mesajı içeren bir çıkıştır. Genel olarak, Visual Basic programlama ortamını açın, standart bir proje oluşturun, ardından forma bir düğme yerleştirin, düğmeye tıklayın ve bir kod düzenleme penceresi göreceksiniz ve oraya aşağıdaki kodu eklemeniz gerekiyor:

Bip Kısık mesaj As String Kısık düğmeler ve simgeler As Tamsayı Kısık başlık As String Kısık yanıt As String mesajı = "Çıkmak ister misiniz?" başlık = "(! LANG: Çıkış" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Programı başlatmak için şifre

Dim Password, Parola Parola = "12345" Pword = InputBox If Pword<>Parola Sonra MsgBox "Parola doğru değil" End End If

Nerede, 12345 programı başlatmak için şifredir. Ancak bu kod istediğiniz yerde kullanılabilir.

mesaj görüntüleme

Bir şey için sadece bir mesaj görüntülemek istiyorsanız, şunu ekleyin:

Bip Kısık mesaj As String Kısık düğmeler ve simgeler As Tamsayı Kısık başlık As String mesaj = "Mesaj" başlık = "(! LANG: Mesaj" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Bir form üzerinde çizim

Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Tek) Buton = 1 ise Satır (Form1.CurrentX, Form1.CurrentY) - (X, Y), QBColor (0) End If End Sub

QBColor (0) parametresini kullanarak rengi değiştirebilirsiniz, yani. 0'ı başka bir rakamla değiştirin.

Bilgisayarını yeniden başlat

Bilgisayarınızı yeniden başlatmak için: düğmeyi yerleştirin ve aşağıdaki kodu yapıştırın:

Dim strComputer As String strComputer = "." set objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = kimliğe bürünme, (Kapatma))! \\" _ & strComputer & "\ root \ cimv2") set colOperatingSystems = objWMIService.ExeperacQuery ("Her ObjOperatingSystem için Win32_O'dan * Seçin" colOperatingSystems ObjOperatingSystem.Reboot'ta "Sonraki'ni yeniden başlatmak için

Programı tek bir kopyada çalıştırma

Aşağıdaki örnek, programı yalnızca bir kez çalıştırmanıza yardımcı olacaktır, yani. yeniden başlatma durumunda, ilgili bir mesaj gösterecektir. Form koduna ekleyin:

Private Sub Form_Load () App.PrevInstance = True ise MsgBox "Proje zaten çalışıyor!" Bitiş Eğer

bilgisayar kapatma

Bilgisayarı kapatmak için aşağıdaki kodu kullanabilirsiniz:

Dim strComputer As String strComputer = "." set objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = kimliğe bürünme, (Kapatma))! \\" _ & strComputer & "\ root \ cimv2") set colOperatingSystems = objWMIService.ExeperacQuery ("Her ObjOperatingSystem için Win32_O'dan * Seçin" colOperatingSystems'de ObjOperatingSystem.ShutDown "Sonraki'ni kapatmak için

Herhangi bir işlemin tamamlanması

İşlemi tamamlamak için aşağıdaki kodu kullanabilirsiniz:

Kabuk "Cmd / x / c taskkill / f / im ICQlite.exe", vbvhite

ICQlite.exe yerine herhangi bir işlem olabilir.

bilgisayar ne kadar çalışır

Aşağıda, bilgisayarınızın çalışma süresini nasıl belirleyebileceğinize dair bir örnek verilmiştir. Bu yöntem kernel32 kitaplığını kullanmaya dayanır, bu nedenle bu DLL dosyasını form kodunun en başına ekleyin.

Özel Bildirme İşlevi GetTickCount Lib "kernel32" () Uzun "Ve düğme kodunda: Dim a_hour, a_minute, a_second a = Format (GetTickCount () / 1000," 0 ")" sadece saniye a_days = Int (a / 86400) a = a - a_days * 86400 a_hour = Int (a / 3600) a = a - a_hour * 3600 a_minute = Int (a / 60) a_second = a - a_minute * 60 MsgBox "Bilgisayarınız çalışıyor" & Str (a_days) & " "& Str (a_hour) _ &" saat "& Str (a_dakika) &" dakika "& Str (a_saniye) &" saniye "

Hemen hemen her yerde kullanılabilecek basit işlevleri ele aldık. Şimdi daha ciddi örneklere bakalım ve büyük projelerinizi yazmanıza büyük ölçüde yardımcı olabilirler.

Klasörlerle çalışma örnekleri

Dizini sil

Özel Bildirme İşlevi RemoveDirectory & Lib _ "kernel32" Alias ​​​​"RemoveDirectoryA" (ByVal lpPathName As String) "Dizeyi sil (boş!) PathName $ =" D: \ t "code & = RemoveDirectory (YolAdı) If code & = 0 Sonra" Dizin silinirken hata oluştu Else "Dizin silindi

Dizin oluştur

Sub MakeDir (dirname As String) Dim i As Long, path As String Do i = InStr (i + 1, dizinname & "\", "\") path = Left $ (diziname, i - 1) If Right $ (path , 1)<>":" Ve Dir $ (yol, vbDirectory) = "" Sonra MkDir yolu If Döngüyü Sonlandır i> = Len (dirname) Sub Private Sub Command1_Click () Sonlandır MakeDir ("C: \ Soft \ 1 \ 2 \ 3 \ ") Bitiş Alt

Alt klasörleri olan tüm klasörlerin listesi

Forma 2 metin alanı ve bir düğme ekleyin, ilk metin alanının adı: StartText, ikinci metin alanının adı OutText. Çok satırlı özellik = true, düğme adı = CmdStart

Statik çalışma As Boolean Dim AllDirs As Yeni Koleksiyon Dim next_dir As Integer Dim dir_name As String Dim sub_dir As String Dim i As Integer Dim txt As String Eğer çalışıyorsa Sonra çalışıyorsa = False CmdStart.Enabled = False CmdStart.Caption = "Duruyor" Başka çalışıyor = True MousePointer = vbHourglass CmdStart.Caption = "Dur" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text next_dir Sırasında Yap<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" UCase $ (sub_dir) ise<>"PAGEFILE.SYS" Ve sub_dir<>"." Ve sub_dir<>".." Sonra sub_dir = dir_name & "\" & sub_dir Hatada Devam Ediyor If GetAttr (sub_dir) Ve vbDirectory Sonra Devam Ediyor Sonra AllDirs.Add sub_dir End If sub_dir = Dir $ (, vbDirectory) Döngüsü Çalışmıyorsa DoEvents Sonra Çık Do Loop txt = "" For i = 1 To AllDirs.Count txt = txt & AllDirs (i) & vbCrLf Sonraki i OutText.Text = txt MousePointer = vbDefault unning = False End If

Şimdi programı çalıştırıyoruz, StartText write: C:\windows metin kutusuna tıklayın ve butonuna tıklayın.

Katalog boyutu

Const MAX_PATH = 260 Özel Tip FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Özel Tip WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME ftLastWriteTime As FILETHIME FILE FILE As TypeFileFileFile As Type FILETime Fonksiyonu Özel WIN32_FIND_DATA ​​"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Fonksiyonu FindNextFile Lib _ "kernel32" Alias ​​​​"FindNextFileA" (AsFile Long hFind Dec WIN32_FIND_Closelarb Olarak AsFile) (ByVal hFindFile As Long) As Long Public Function SizeOf (ByVal DirPath As String) As Double Dim hFind As Long Dim fdata As WIN32_FIND_DATA Dim dblSize As Double Dim sName As String Dim x As Long Error Resume Next x = GetAttr If (DirPath) Hata Sonra SizeOf = 0: Çıkış Fonksiyonu If (x Ve vbDirectory) = vbDirectory Sonra dblSize = 0 Err.Clear sName = Dir $ (EndSlash (DirPath) & "*. *", VbSystem Veya vbHidden Veya vbDirectory) Err.Number = 0 ise hFind = FindFirstFile (EndSlash (DirPath) & "*. *", Fdata) hFind = 0 ise İşlevden Çık Do If (fdata.dwFileAttributes And vbDirectory) = vbDirectory sName = Left $ (fdata.cFileName, InStr (fdata.cFileName, vbNullChar) - 1) sName ise<>"." ve adı<>".." Sonra dblSize = dblSize + SizeOf (EndSlash (DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Döngüsü FindNextFile (hFind, fFind,<>0 hFind = FindClose (hFind) Else If Else On Hata Devam Et Sonraki dblSize = FileLen (DirPath) End If SizeOf = dblSize End Function Özel Fonksiyon EndSlash (ByVal PathIn As String) As String If Right $ (PathIn, 1) = "\" Sonra EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load () MsgBox SizeOf (" D: \ soft ") boyutunu bilmek istediğiniz dizini "D: \ soft " ile değiştirin / 1000000 Bitiş Alt

Dosyalarla çalışma örnekleri

kopyala

Diyelim ki C:\1\klasöründe 1.txt isimli bir dosyamız var ve onu C:\2\ içine kopyalamamız gerekiyor bunun için aşağıdaki kodu yazıyoruz:

Dosya kopyası "C: \ 1 \ 1.txt", "C: \ 2 \ 1.txt"

Not! Dizin 2'de zaten 1.txt adında bir dosya varsa, dizin 1'den 1.txt ile değiştirilecektir.

Özel Bildirme Fonksiyonu CopyFile Lib _ "kernel32.dll" Alias ​​​​"CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Uzun) Özel Sub Command1_Click () "Dosyayı Kopyala: \ 1.txt D : \ 1.txt'ye Dim retval As Long "dönüş değeri" Dosyayı kopyala retval = CopyFile ("C: \ 1.txt", "D: \ 1.txt", 1) Eğer retval = 0 ise Sonra "Eğer MsgBox error" "Else" kopyalanamıyor Her şey yolundaysa MsgBox "Dosya kopyalandı." End If End Sub

Siliniyor

Örneğin 1.txt dosyasını C:\ sürücüsünün kökünden silmek istiyoruz.

Öldür ("C: \ 1.txt")

API yolu

Özel Bildirme İşlevi DeleteFile Lib _ "kernel32.dll" Alias ​​​​"DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click () "C dosyasını sil: \ Samples \ anyfile.txt Dim retval As Long" Dönüş değeri retval = DeleteFile ("C: \ 1.txt") Eğer retval = 1 ise MsgBox "Dosya başarıyla silindi." Alt Alt

Hareketli

Örneğin, bunu şu şekilde taşıyabilirsiniz:

Dosya kopyası "C: \ 1.txt", "C: \ 2 \ 1.txt" Öldür ("C: \ 1.txt")

Ancak böylesi daha iyi (API aracılığıyla):

Özel Bildirme İşlevi MoveFile Lib _ "kernel32.dll" Alias ​​​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click () Dim retval As Long "Dönüş değeri retval = MoveFile (" C: \ 1 .txt "," C: \ 2 \ 1.txt ") Eğer retval = 1 ise MsgBox" Başarıyla taşındı "Else MsgBox" Hatası "End If End Sub

yeniden adlandırma

C:\'de bulunan 1.txt dosyasını 2.txt olarak yeniden adlandırmak için aşağıdaki kodu kullanabilirsiniz:

Dosya kopyası "C: \ 1.txt", "C: \ 2.txt" Öldür ("C: \ 1.txt")

API yolu

Özel Bildirme İşlevi MoveFile Lib _ "kernel32.dll" Alias ​​​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click () Dim retval As Long "dönüş değeri retval = MoveFile (" C: \ 1 .txt "," C: \ 2.txt ") Eğer retval = 1 ise MsgBox" Başarı "Else MsgBox" Hatası "End If End Sub

Dosya boyutunu belirle

Dosya boyutu iki şekilde belirlenebilir:

Dosya OPEN işleviyle açılabilirse, LOF işlevini kullanabilirsiniz.

FileFree'yi Tamsayı Olarak Kısın FileSize As Long FileFree = FreeFile'ı Kısın FileFree Olarak Girmek İçin "C: \ WIN \ GENERAL.TXT"'yi açın FileSize = LOF (FileFree) FileFree'yi Kapatın

Veya FileLen işlevini kullanın

Dim lFileSize As Long FileSize = FileLen ("C: \ WIN \ GENERAL.TXT")

Saati programlı olarak gizle

2 düğme ekleyin ve kodu yapıştırın:

Seçenek Açık Özel Bildir İşlev FindWindow Lib _ "user32" Takma Ad "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Deklare İşlev FindWindowEx Lib _ "user32" Diğer Ad "FindWindowExA" hW1 _ (Val lpClassName As String) Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As Dize) As Long Private Declare Function ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim hnd As Long Private Sub Command1_Click () ShowW hnd, 0 End Sub Private Sub Command2_Click () ShowWindow hnd, 1 End Sub Private Sub Form_Load () hnd = FindWindow ("Shell_TrayWnd", vbNullString) hnd = FindWindowEx (hnd, 0, "TrayNotifyWnd", vbNullString) hnd = FindWindowEx ( hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Saati gizle" Command2.Caption = "Saati göster" End Sub

Tepsiye simge ekle

Bir modül ekleyin, kodu içine yerleştirin:

Bildiri İşlev Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIF_MESSAGE_ ICONDATA Türü Olarak Uzun NOTICONt NOT hWnd uFlag Olduğu Kadar Uzun uCallbackMessage uCallbackMessage Kadar Uzun hIcon szTip As Dize * 64 End Type Public Function SetTrayIcon (Mod Kadar Uzun, hWnd Kadar Uzun, Simge Kadar Uzun, Tip Kadar Ucu) Uzun Dim nidTemp As NOTIFYICONDATA nidTemp. cbSize = Len (nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0 & nidTemp.uFlags = NIF_ICON Veya NIF_TIP nidTemp.uCallbackMessemp = 0 & nidTraycon = Shell_Notify EndIconA (Mode, nidTemp)

Kullanmak için form koduna yapıştırın:

Private Sub Form_Load () SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Private Sub Command1_Click () SetTrayIcon NIM_DELETE, Me.hWnd, 0 &," "End Sub

Başlat düğmesini engelleme

Özel Bildirme İşlevi FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Özel Bildirme Fonksiyonu FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" _ (ByVal hV1 As) hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As Dize) As Long Private Declare Function EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) Public Sub EnableStartButton (Opsiyonel Enable As Boolean = True) Dim lHwnd As Long " find hWnd lHwnd & = FindWindowEx (FindWindow ("Shell_TrayWnd", ""), 0 &, "Button", vbNullString) EnableWindow'u çağırın (lHwnd &, CLng (Etkin)) End Sub Private Sub Command1_Click () EnableStartButton Yanlış "START düğmesi kilitli End Sub Private Sub Command2_Click () EnableStartButton True "START düğmesi kilitli değil End Sub

INI dosyasından parametreleri okuma

Program FTP'ye bağlanır ve parametreler ini dosyasına yazılır - sunucu, oturum açma, bağlantı noktası, parola.

Baştan itibaren bir INI dosyası oluşturuyoruz:

Servname = server usern = Oturum açma pwd = şifre bağlantı noktası = bağlantı noktası

Program klasörüne yerleştirin. Ardından, modüle ekliyoruz:

Özel Beyan Fonksiyonu WritePrivateProfileString Lib _ "kernel32" Alias ​​​​"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As String) As Long kernelPrivateProfileName GetPrivateProfile" ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As String) As Long Public Function ReadIni (Razdel As String, ReadI) (Razdel As String, ReadI) Param, App.Path & "\ test.ini", "0") End Function Private Function GetValue (ByVal Section As String, _ ByVal Key As String, ByVal fFileName As String, Opsiyonel ByVal DefaultValue As String = vbNullString) As String Dim Data As String Data = String $ (1000, Chr $ (0)) GetPrivateProfileString (Section, Key, DefaultValue, Data, 1000, fFileName)> 0 ise GetValue = Left $ (Data, InStr (Data $, Chr $ (0) )) - 1 ) Else GetValue = DefaultValue End If Exit Function End Function

Ardından form koduna yapıştırıyoruz:

Özel Beyan İşlevi InternetOpen Lib _ "wininet.dll" Alias ​​​​"InternetOpenA" (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, ByVal nFlags As Long PrivateConnect) Lib _ "wininet.dll" Alias ​​​​"InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, ByVal nService As Long, , ByVal dwVFlags As Long, ByVal dwVFlags As Long, ByVal Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Alias ​​​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocal, String As ByVal lpszLocal, File_File _ "wininet.dll" ByVal dwFlags As Long, ByVal dw) AsContext Asole Uzun Fonksiyon FtpGetFile Lib _ "wininet.dll" Alias ​​​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByFial AsVlag AsVils, _ ByFial AsValfFaalzNew _ ByFial lpsd , Uzun Nitelikler _ ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Uzun) As Integer Dim rc & Dim rs &

Ve düğme kodunda:

rc & = InternetOpen ("", 0, vbNullString, vbNullString, 0) rs & = InternetConnect (rc &, ReadIni ("Genel", "sunucu adı"), "0", _ ReadIni ("Genel", "kullanıcı") , ReadIni ("Genel", "pwd"), 1, 0, 0) If FtpGetFile (rs &, "Your file.txt", "pathwhere", False, 0, 1, 0) = False Sonra Çağrıyı Bitir InternetCloseHandle (rs &) InternetCloseHandle'ı çağırın (rc &)

Çalışan işlemlerin listesi

Liste Kutusu ve 1 düğmesi ekleyin, aşağıdaki kodu girin:

Seçenek Açık Özel Bildirme İşlevi CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib _ "Kernel32" First VSnap" İşlemi PROCESSENTRY32 olduğu sürece) As Long Private Declare Function ProcessNext Lib _ "Kernel32" Alias ​​​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" Private (ByLongVal hPass) Const TH32CS_ AsNAPPRO = 2 & Private Const MAX_PATH As Integer = 260 Özel Tip PROCESSENTRY32 dwSize As Uzun cntUsage As Long th32ProcessID th32DefaultHeapID Kadar Uzun th32ModuleID Kadar Uzun cntThreads Kadar Uzun th32ParentProcessID As LongProcessProcessID As LongProcessCs EndProcessID As LongProcessID Dim r As Long Private Sub Command1_Click () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &) hSnapShot = 0 ise, uProcess.dwSize = Len (uProcess) r = ProcessFirst (hSnapShot, uProcess) Do while Call r List1.AddItem uProcess.sz =ExeFileFise) Alt Uçtan Çıkın Alt Alt

Başlatmada bir program koymak

Programın diğer bazı programlar gibi Windows ile birlikte yüklenmesi için kayıt defterini kullanabilirsiniz:

2 düğme ve aşağıdaki kodu ekleyin:

Private Sub Command1_Click () "Kayıt defteri girişi Set Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Programınızın adı ", _" Programınızın yolu "End Sub Private Sub Command2_Click () "Kayıt defterinden siliniyor Set Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Program adınız "End Sub

Programın güvenli modda bile Windows ile birlikte yüklenmesi için aşağıdaki kodu kullanın:

İlk olarak, daha ciddi bir yol (her ihtimale karşı kayıt defterinin yedek bir kopyasını alın).

Private Sub Command1_Click () Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Programınızın yolu" End Sub Private Sub Command2_Click () " Bu, Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Explorer.exe," End Sub'ı geri yüklemek içindir.

Kolay bir yol.

Özel Alt Komut1_Click () Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C: \\ WINDOWS \\ system32 \\ userinit.exe , Programınızın yolu "End Sub Private Sub Command2_Click ()" Set Reg'i geri yüklemek için = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C : \\ WINDOWS \\ system32 \\ userinit.exe, "End Sub

Görev çubuğunu gizle

2 düğme ekleyin ve kodu yapıştırın:

Özel Bildirme İşlevi SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsert As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Özel Bildiri Uzun İşlev FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 "Özel Alt Komutu Gizler1_Click () hWind Shell_trawindow ("" Shell_trawindow) SetWindowPos'u çağırın (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Private Sub Command2_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") SetWindowPos'u çağırın (hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub

RAR arşivini açın

Bir RAR arşivini açmak için aşağıdaki kodu kullanabilirsiniz:

WinRarApp = "C: \ Program Dosyaları \ WinRAR \ WinRAR.exe x -o +" iPath = "C: \" iArhivName = "Dosya adı.rar" adr = WinRarApp & "" "" & iPath & iArhivName & "" " " "" & iPath & "" "" RetVal = Kabuk (adr, vbHide)

Bilgisayarda ne kadar RAM var

Bir düğme ekleyin ve aşağıdaki kodu yapıştırın:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Özel Tip TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwTotalPageFile As Long dwTotalPageFile As Long dwAtalP Call. " & ms.dwTotalPhys & vbCr & "Ücretsiz:" _ & ms.dwAvailPhys & vbCr & "Kullanılan %:" & ms.dwMemoryLoad End Sub

Masaüstü simgelerini gizle

Bu, aşağıdaki şekilde yapılır. 2 düğme ekleyin ve aşağıdaki kodu yapıştırın:

Özel Bildirme Fonksiyonu ShowWindow & Lib "user32" (ByVal hwnd &, ByVal nCmdShow &) Özel Bildirme Fonksiyonu FindWindow Lib _ "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowIDE As String)_H Uzun Const 0 As Const SW_NORMAL = 1 Private Sub Command1_Click () Dim hHandle As Long hHandle = FindWindow ("progman", vbNullString) Call ShowWindow (hHandle, SW_HIDE) End Sub Private Sub Command2_Click () Dim hHandle As Long hHandle = FindWindow ("proullString", ShowWindow , SW_NORMAL) End Sub

Command1 düğmesi simgeleri gizler, Command2 simgelerin görünmesini sağlar.

Benim için bu kadar, umarım yukarıdaki örnekler işinize yarar, şimdilik!