Net Anlatım .Net Geliştirme

Private Sub Form_Activate()
Show
For a = 0 To 900
b = b + 2
z = z + 0.5
Line (a, 1000 - a)-(a, a), RGB(b, b, b) ’sol yan
Line (2000 - a, a)-(2000 - a, 1000 - a), RGB(b, b, b) ‘ sağ yan
Line (a, a)-(2000 - a, a), RGB(b, b, b) ‘üst taraf
Line (a, 1000 - a)-(2000 - a, 1000 - a), RGB(b, b, b) ‘alt taraf
Next
Continue Reading »

No Comments »

Text1′e yazılan bir ismi kaydet butonuna basınca kaydeder. Text2′ye bir sayı yazıldıktan sonra sorgula butonuna basınca text3′te girdiğiniz sayının karşılığı olan kayıt gelir. tümünü göster butonuna basınca bütün kayıtları gösteriri. bu basit bir programdır. işlemler menüsünde kaydet, sorgula ,tümünü göster bölümlerinden ilk ğnce kaydetme butonu seçme şartıyla daha sonra istediği bölümü seçer. menüden işlem girmen gerekiyo çünkü başta text ve command kutuları gözükmüyor… bu 1000 kişilik bir kayıt sistemidir

Dim i As Integer
Dim veri(1000) As String

Private Sub Command1_Click()
veri(i) = Text1.Text
Text1.Text = “”
i = i + 1
End Sub
Continue Reading »

No Comments »