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

İçeriğe atla 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

Author stats 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

Author stats 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

Author stats 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/

• Pinterest'te Paylaş

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

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

• 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
  • Bütün 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. Adres çubuğunun yanındaki kilit simgesine dokunun.
2. İzinler → Bildirimler seçeneğine dokunun.
3. Tercihinizi ayarlayın.

Chrome (Desktop)

1. Adres çubuğundaki kilit simgesine tıklayın.
2. Site ayarları seçeneğini seçin.
3. Bildirimler seçeneğini bulun ve tercihinizi ayarlayın.

Safari (iOS 16.4+)

1. Sitenin Ana Ekrana Ekle seçeneğiyle yüklendiğinden emin olun.
2. Ayarlar Uygulaması → Bildirimler bölümünü açın.
3. Uygulama adınızı bulun ve tercihinizi ayarlayın.

Safari (macOS)

1. Safari → Tercihler
bölümüne gidin.
2. Web Siteleri sekmesine tıklayın.
3. Kenar çubuğunda Bildirimler seçeneğini seçin.
4. Bu web sitesini bulun ve tercihlerinizi ayarlayın.

Edge (Android)

1. Adres çubuğunun yanındaki kilit simgesine dokunun.
2. İzinler seçeneğine dokunun.
3. Bildirimler seçeneğini bulun ve tercihinizi ayarlayın.

Edge (Desktop)

1. Adres çubuğundaki kilit simgesine tıklayın.
2. Bu site için izinler seçeneğine tıklayın.
3. Bildirimler seçeneğini bulun ve tercihlerinizi ayarlayın.

Firefox (Android)

1. Ayarlar → Site izinleri
bölümüne gidin.
2. Bildirimler seçeneğine dokunun.
3. Listede bu siteyi bulun ve tercihinizi ayarlayın.

Firefox (Desktop)

1. Firefox Ayarlarını açın.
2. Bildirimler seçeneğini arayın.
3. Listede bu siteyi bulun ve tercihlerinizi ayarlayın.