Visual Basic : Örnek Kodlar,e-book ,Source Code - Turkish-Media.Com

Zıplanacak içerik View in the app

A better way to browse. Learn more.

Learn more ×Dismiss Close Tartışma ve Paylaşımların Merkezi - Türkçe Forum - Turkish Forum / Board / Blog

Ana ekranınızda anlık bildirimler, rozetler ve daha fazlasıyla tam ekran uygulama.

To install this app on iOS and iPadOS

1. Tap the Share icon in Safari
2. Scroll the menu and tap Add to Home Screen.
3. Tap Add in the top-right corner.

To install this app on Android

1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
2. Tap Add to Home screen or Install app.
3. Confirm by tapping Install.

Tartışma ve Paylaşımların Merkezi - Türkçe Forum - Turkish Forum / Board / Blog

• Giriş Yap

1. Ana Sayfa
2. Bilim ve Teknoloji
3. Bilgisayar ve Bilişim Dünyası
4. Bilgisayar - İnternet - Web - Donanım
5. Web Haberleri ve Programlama Dilleri
6. Visual basic : Örnek Kodlar,e-book ,Source code

• Bütün Eylemler

• Başlık Aç
• Bu başlığa cevap yaz

wherthus

Φ Üyeler

• 707 ileti
• 7 Rozetler
• 7 İtibar

• Cinsiyet:Erkek
• Yer:Tr'den

wherthus Φ Üyeler

Gönderi tarihi: 20 Mart , 2005 20 yıl

Gönderi tarihi: 20 Mart , 2005 20 yıl

vb code

 

'Web-Formlarini otomatik doldurma

'Gerekli araclar

'Control CommandButton: cmdFill

'Control CommandButton: cmdSend

'Control TextBox: txtTime

'Control TextBox: txtDate

'Control TextBox: txtName

'Control WebBrowser: wbrWebBrowser

'

'Yazar: Ulas Isci

 

 

Option Explicit

 

Private Sub cmdFill_Click()

'sayfada daha cok formlar varsa bunlar document.forms(1) ve (2) diye devam belirtilir.

 

 

With wbrWebBrowser

.Document.Forms(0).field1.Value = txtName.Text

.Document.Forms(0).field2.Value = txtTime.Text

.Document.Forms(0).field3.Value = txtDate.Text

.Document.Forms(0).textfeld.Value = lblText.Caption

End With

End Sub

 

Private Sub cmdSend_Click()

'formdaki klick funksiyonu

wbrWebBrowser.Document.Forms(0).submit.Click

End Sub

 

Private Sub Form_Load()

wbrWebBrowser.Navigate App.Path & "\form.htm"

txtName.Text = "Anonymus"

txtTime.Text = Time

txtDate.Text = Date

 

lblText.Caption = "test test test"

End Sub

Alıntı

wherthus

Φ Üyeler

• 707 ileti
• 7 Rozetler
• 7 İtibar

• Cinsiyet:Erkek
• Yer:Tr'den

wherthus Φ Üyeler

Gönderi tarihi: 20 Mart , 2005 20 yıl

• Yazar

Gönderi tarihi: 20 Mart , 2005 20 yıl

• Yazar

vb code

30 gün deneme süresi

 

Private Sub form_load()

 

Dim enddate As Date

enddate = GetSetting("Demo", "Demo", "EndDate", "01.01.89")

'EndDate = "01.01.89" ise enddate belirleniyor.

If enddate = "01.01.89" Then

enddate = Date

enddate = enddate + 30 '30 Gün toplaniyor

SaveSetting "Demo", "Demo", "EndDate", enddate 'EndDate kayitlaniyor

End If

 

If Date > enddate Then MsgBox "Demo Süresi bitmistir."

End Sub

Alıntı

wherthus

Φ Üyeler

• 707 ileti
• 7 Rozetler
• 7 İtibar

• Cinsiyet:Erkek
• Yer:Tr'den

wherthus Φ Üyeler

Gönderi tarihi: 20 Mart , 2005 20 yıl

• Yazar

Gönderi tarihi: 20 Mart , 2005 20 yıl

• Yazar

c'de basit bir animasyon

 

Bu kodları "animasyn.cpp" olarak kaydedin. Daha sonra egavga.bgi dosyasını C programının kurulu olduğu klasörde arattırıp bulun ve "animasyn.cpp" dosyasının bulunduğu klasörün içine kopyalayın. "animasyn.cpp" dosyasını C'de derleyin. C'de programı debug yapmadan önce Options\Linker\Libraries yoluyla Çıkan Pencerede Graphics Library seçeneğini aktif hale getirin. Sonra Programı Çalıştırabilirsiniz.

 

 

#include <graphics.h>

#include <stdlib.h>

#include <stdio.h>

#include <conio.h>

#include <dos.h>

 

int main(void)

{

/* request auto detection*/

int gdriver=DETECT, gmode, errorcode;

int midx, midy, i, a, s, c, k;

 

/*initialize graphics and local variables*/

initgraph(&gdriver, &gmode, "");

 

/* read result of initialization*/

errorcode = graphresult();

if (errorcode != grOk) /* an error occurred*/

{

printf("Graphics error: %s\n", grapherrormsg(errorcode));

printf("Press any key to halt:");

getch();

exit(1); /* terminate with an error code*/

}

 

midx = getmaxx()-640;

midy = getmaxy()-480;

 

for(k=0;k<=640;k=k+10)

{

for(s=0;s<=640;s=s+10)

{

for(i=0;i<=10;i++)

{

for(a=0;a<=10;a++)

{

/*printf("%d,%d,%d",midx+a+k,midy+s+i,c);*/

putpixel(midx+a+k,midy+s+i,c);

}

}

c++;

}

}

for(k=0;k<=640;k=k+10)

{

for(s=0;s<=640;s=s+10)

{

for(i=0;i<=10;i++)

{

for(a=0;a<=10;a++)

{

putpixel(midx+a+k,midy+s+i,0);

}

}

c++;

}

}

/* clean up */

getch();

closegraph();

return 0;

}

Alıntı

Katılın Görüşlerinizi Paylaşın

Şu anda misafir olarak gönderiyorsunuz. Hesabınız varsa, hesabınızla gönderi paylaşmak için ŞİMDİ OTURUM AÇIN. Eğer üye değilseniz hemen KAYIT OLUN. Not: İletiniz gönderilmeden önce bir Moderatör kontrolünden geçirilecektir.

Maalesef göndermek istediğiniz içerik izin vermediğimiz terimler içeriyor. Aşağıda belirginleştirdiğimiz terimleri lütfen tekrar düzenleyerek gönderiniz. Bu başlığa cevap yaz

• Cevap Gönder

Paylaş https://www.turkish-media.com/forum/topic/1220-visual-basic-ornek-kodlare-book-source-code/ Daha Fazla Paylaşım Siteleri Takipçiler Başlık Listesine Dön

1. Ana Sayfa
2. Bilim ve Teknoloji
3. Bilgisayar ve Bilişim Dünyası
4. Bilgisayar - İnternet - Web - Donanım
5. Web Haberleri ve Programlama Dilleri
6. Visual basic : Örnek Kodlar,e-book ,Source code

• Bütün Eylemler

Önemli Bilgiler

Bu siteyi kullanmaya başladığınız anda kuralları kabul ediyorsunuz Kullanım Koşulu.

Kabul Ediyorum

• Giriş Yap
• TIKLA ve Üye Ol
• Menu

Close panel

• Üyemisiniz ? Giriş Yap
• TIKLA ve Üye Ol

Close panel

• Forumlar
  • Forumlar
  • Liderler
  • Kullanım Kuralları
  • Yönetim
  • Çevrimiçi Kullanıcılar
  • Seçtiklerimiz
• Güncel Videolar
• Bloglar
• Fotoğraf Galerisi
• Kulüpler
• Etkinlikler
• Eylemler

1. Ana Sayfa
2. Bilim ve Teknoloji
3. Bilgisayar ve Bilişim Dünyası
4. Bilgisayar - İnternet - Web - Donanım
5. Web Haberleri ve Programlama Dilleri
6. Visual basic : Örnek Kodlar,e-book ,Source code

Close

Tarayıcı push bildirimlerini yapılandırın

close Chrome Safari Edge Firefox

Chrome (Android)

1. Tap the lock icon next to the address bar.
2. Tap Permissions → Notifications.
3. Adjust your preference.

Chrome (Desktop)

1. Click the padlock icon in the address bar.
2. Select Site settings.
3. Find Notifications and adjust your preference.

Safari (iOS 16.4+)

1. Ensure the site is installed via Add to Home Screen.
2. Open Settings App → Notifications.
3. Find your app name and adjust your preference.

Safari (macOS)

1. Go to Safari → Preferences.
2. Click the Websites tab.
3. Select Notifications in the sidebar.
4. Find this website and adjust your preference.

Edge (Android)

1. Tap the lock icon next to the address bar.
2. Tap Permissions.
3. Find Notifications and adjust your preference.

Edge (Desktop)

1. Click the padlock icon in the address bar.
2. Click Permissions for this site.
3. Find Notifications and adjust your preference.

Firefox (Android)

1. Go to Settings → Site permissions.
2. Tap Notifications.
3. Find this site in the list and adjust your preference.

Firefox (Desktop)

1. Open Firefox Settings.
2. Search for Notifications.
3. Find this site in the list and adjust your preference.