Başlangıç > Kodlar > Visual Basic 6 ile motor kayıt programı

Visual Basic 6 ile motor kayıt programı

arkadaşlar ben daha yeni üyeyim 2 yıl önce proğram yapardım kodları unutmuşumm bir sitede buldum oda bu siteydi istediğim döküman ve yavaş yavaş hatırlıyorum kodları ben bu siteye daha bir çok kod getirecem sırada SLAM ın visual basic hali olacak herkeze bol şans kodları ii okun ona göre nesne yerleştirin kolaygelsin


Private Type moto1
sasi As String
motor As String
km As String
renk As String
ad As String
adres As String
tel As String
no As String
teslim As String
al As String
End Type
Dim moto As moto1

Private Sub Command1_Click()
Open "c:\program1\kayıt1.txt" For Random As #1
If Text1.Text = moto.sasi Then
MsgBox "DAHA ÖNCE BÖYLE BİR NUMARA İLE KAYIT YAPTINIZ. LÜTFEN BAŞKA BİR KAYIT NUMARASI BELİRLEYİN"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

GoTo 100
End If

moto.sasi = Text1.Text
moto.motor = Text2.Text
moto.km = Text3.Text
moto.renk = Text4.Text
moto.ad = Text5.Text
moto.adres = Text6.Text
moto.tel = Text7.Text
moto.no = Text8.Text
noto.teslim = Text9.Text
moto.al = Text10.Text

Put #1, moto.sasi, moto

100:

Close #1:
Exit Sub
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

End Sub

Private Sub Command2_Click()

Open "c:\program1\kayıt1.txt" For Random As #1
ara = Val(InputBox("Aradığınız Ürün Numarasını Giriniz", "ARA"))
Get #1, ara, moto
If isci.sasi <> ara Then MsgBox " Böyle bir kayıt yapmadınız daha önce"
Text1.Text = moto.sasi
Text2.Text = moto.motor
Text3.Text = moto.km
Text4.Text = moto.renk
Text5.Text = moto.ad
Text6.Text = moto.adres
Text7.Text = moto.tel
Text8.Text = moto.no
Text9.Text = moto.teslim
Text10.Text = moto.al

Close #1
Exit Sub
End Sub

Private Sub Command4_Click()
Form1.Show
End Sub

Private Sub Form_Load()

End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: