Örnek Kodlar.... Source Codes....

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
'



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;
}




ŞİMDİLİK BU Kadar