wepublic.net-Dikdörtgen Alan Bulucu

DOWNLOAD:

http://rapidshare.com/files/206802544/dab.exe.html

Visual Basic 6′mızı açıyoruz.Standart exe ye tıklıyoruz.

Sonra 3 tane alt alta label koyuyoruz.

3 Labeli koyduktan sonra 3 tanede textbox koyuyoruz.

Karşılarına birde Buton koyuyoruz ve bu butonada Alanı Bul ! yazıyoruz.

Butonu koyduk.Şimdi önemli kısma geldik.Koyduğumuz butona çift tıklıyoruz.

Karşımıza böyle bir ekran geldi.Buradan imlecin yanıp söndüğü yerden başlıyarak;

Kod:

Text3= Text1 * Text2

Yazıyoruz.İşin mantığı burada.Text3 ün text1 ile text2 nin çarpımı olmasını istiyorsanız çarpı işareti olarak ”*” kullanıyoruz.

Ve pencereyi kapatıyoruz.F5′e basıp programımızı çalıştırabiliriz ve kaydedebiliriz.Şu anda programımız hazırlandı.Sıra şimdi reklamda =)

Ben reklam için sağ alt köşeyi seçtim.Resimde gördüğünüz gibi oraya bir bölme yapıvardim ve içine yazılar yazıcam.

Şimdi ilk iş yeni bir label oluşturup Created By MikRoBiT gibi bir şey yazmak olucak.

Bunu yazdık.wepublic.net i tanıtmadan olur mu ? =) Ben Bir buton yapıcam ve bu butona basıldığında http://www.wepublic.net sayfası açılıcak.Hadi yapalım =)

İlk önce bir buton oluşturuyoruz.Üstünede yazımızı yazıyoruz.

Oluşturduktan sonra butonumuza çift tıklayıp kodlarını görüntülüyoruz.

Şimdide buraya link kodumuzu yapıştırıyoruz.

Kod:

Shell (“c:program filesInternet ExplorerIexplore.exe LİNKİMİZİ BURAYA YAZICAZ”), vbMaximizedFocus

Bu kodu

Kod:

Shell (“c:program filesInternet ExplorerIexplore.exe http://wepublic.net”), vbMaximizedFocus

ile değiştiriyoruz ve küçük penceremizi kapatıyoruz.

Şimdide programımızı çalıştırmak için üstteki mavi oka tıklıyoruz.

Tıkladıktan sonra:

Programımızın son halide bu.

Bunu kaydetmek için önizlemeyi durdurmalıyız.Sonra kaydedebiliriz.

Exe olarak kaydetmek için: File>>make project1.exe

Çalışma Dosyası olarak kaydetmek için:File>>Save project e tıklayın…

KOD

Private Sub Command1_Click()
Text3 = Text1 * Text2
End Sub

Private Sub Command2_Click()
Shell (“c:\program files\Internet Explorer\Iexplore.exe http://wepublic.net”), vbMaximizedFocus
End Sub

Private Sub Form_Load()

End Sub