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

Zıplanacak içerik

• Forumlar
  • Forum Ana Sayfa
  • Liderler
  • Kullanım Kuralları
  • Yönetim
  • Çevrimiçi Kullanıcılar
  • Seçtiklerimiz
  • Daha Fazla
• Güncel Videolar
  • Güncel Videolar Ana Sayfa
  • Video Dizinleri
  • Tüm Videolar
  • En Son Yorumlar
  • Video Ekle
  • Daha Fazla
• Fotoğraf Galerisi
  • Galeri Ana Sayfa
  • Fotoğraf Dizinleri
  • Fotoğraf Ekle
  • Daha Fazla
• Bloglar
  • Bloglar Ana Sayfa
  • Daha Fazla
• Etkinlikler
  • Etkinlik Takvimi
  • Daha Fazla
• Kulüpler
  • Kulüpler
  • Daha Fazla
• Eylemler
  • Bütün Eylemler
  • Seçtiklerimiz
  • Daha Fazla
• Daha Fazla
  • Daha Fazla

• Web Haberleri ve Programlama Dilleri

• Bütün Eylemler

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

Visual basic : Örnek Kodlar,e-book ,Source code

Gönderen: wherthus 20 Mart , 2005 - Web Haberleri ve Programlama Dilleri

Paylaş Daha Fazla Paylaşım Siteleri Takipçiler 0

• Bu başlığa cevap yaz

Önerilen İletiler

Φ wherthus

Gönderi tarihi: 20 Mart , 2005

wherthus

• 
• Φ Üyeler
• • 707
• Cinsiyet:Erkek
• Yer:Tr'den

• • Paylaş

Gönderi tarihi: 20 Mart , 2005

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ı

Yoruma sekme

Diğer sitelerde paylaş

Daha Fazla Paylaşım Siteleri

Φ wherthus

Gönderi tarihi: 20 Mart , 2005

wherthus

• 
• Φ Üyeler
• • 707
• Cinsiyet:Erkek
• Yer:Tr'den

• Yazar

• • Paylaş

Gönderi tarihi: 20 Mart , 2005

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ı

Yoruma sekme

Diğer sitelerde paylaş

Daha Fazla Paylaşım Siteleri

Φ wherthus

Gönderi tarihi: 20 Mart , 2005

wherthus

• 
• Φ Üyeler
• • 707
• Cinsiyet:Erkek
• Yer:Tr'den

• Yazar

• • Paylaş

Gönderi tarihi: 20 Mart , 2005

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ı

Yoruma sekme

Diğer sitelerde paylaş

Daha Fazla Paylaşım Siteleri

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

Şu anda misafir olarak gönderiyorsunuz. Eğer ÜYE iseniz, ileti gönderebilmek için HEMEN GİRİŞ YAPIN. 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

× Zengin metin olarak yapıştırıldı.. Onun yerine sade metin olarak yapıştır

Only 75 emoji are allowed.

× Your link has been automatically embedded. Display as a link instead

× Önceki içeriğiniz geri getirildi.. Editörü temizle

× You cannot paste images directly. Upload or insert images from URL.

• Sekmeden resim ekle

×

• Desktop
• Tablet
• Telefon

• Cevap Gönder

Paylaş Daha Fazla Paylaşım Siteleri Takipçiler 0 Başlık Listesine Dön

• RSS Beslemesi

• Bütün Eylemler

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

×

• Üyemisiniz ? Giriş Yap
• Üye Ol

• Forumlar

  • Geri
  • Forum Ana Sayfa
  • Liderler
  • Kullanım Kuralları
  • Yönetim
  • Çevrimiçi Kullanıcılar
  • Seçtiklerimiz

• Güncel Videolar

  • Geri
  • Güncel Videolar Ana Sayfa
  • Video Dizinleri
  • Tüm Videolar
  • En Son Yorumlar
  • Video Ekle

• Fotoğraf Galerisi

  • Geri
  • Galeri Ana Sayfa
  • Fotoğraf Dizinleri
  • Fotoğraf Ekle

• Bloglar

  • Geri
  • Bloglar Ana Sayfa

• Etkinlikler

  • Geri
  • Etkinlik Takvimi

• Kulüpler

  • Geri
  • Kulüpler

• Eylemler

  • Geri
  • Bütün Eylemler
  • Seçtiklerimiz

×

• Yeni Oluştur...

Önemli Bilgiler

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

Kabul Ediyorum