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

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

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;

}