Visual Basic / Kayit Programi - Hazır Kod

toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler Hoşgeldiniz, bugün 22 December 2025 aktif üye 8,903 Yeni Üyelik Üye Girişi Şifremi Unuttum

• ANASAYFA
• YENİ ÜYELİK
• ÜYE GİRİŞİ
• SEN DE YAZ
• İLETİŞİM

SEN DE YAZ HazırKod ziyaretçilerinin katkıları bizim için çok önemli! Sizde hazırkod üyesi olun, ekleyeceğiniz kodlar yapacağınız yorumlarla hazirkod.com'a katkıda bulunun. ETİKETLER toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler makinesi active-x güzel dosya girilen kontrol karakterlerin kayan kayit program veya textbox dosyayi titreyen hesap formu basit zaman ekran açip kendi text windows access sayi açma saat karakter visual metin kutusunda rakam kutusuna küçük yaziya araba form mouse basic kutusunu yuvarlak yazi yeni rakamlari nasil paralel eliptik satir resim tarih Lütfen bekleyiniz.. İşleminiz gerçekleştiriliyor... Geçen süre:

Konu:

Yorum:

<HK>buraya kod</HK>

Ekle Vazgeç

Programalama > VISUAL BASIC VISUAL BASIC / Kayit Programi Kayit Programi Etiketler: kayit, programi Ort. 0 Puan ver: hazirkod 03 July 19:34 0 0 kişiden 0 puan aldı 19494 modüle bölümü Type kayitbilgisi adı As String * 20 soyadı As String * 20 sicil As String * 20 cins As String * 20 dep As String * 20 adres As String * 20 tel As String * 20 End Type Global alanlar As kayitbilgisi form bölümü Dim kayitno As Integer Private Sub Command1_Click() a = MsgBox("KAYDEDİLSİN Mİ?", 4) If a = 6 Then Text1.Text = kayitno alanlar.adı = Text2.Text alanlar.soyadı = Text3.Text alanlar.sicil = Text4.Text alanlar.adres = Text5.Text alanlar.tel = Text6.Text If Option1.Value = True Then Else Option2.Value = Option2.Caption End If alanlar.dep = Combo1.Text Put #1, kayitno, alanlar kayitno = kayitno + 1 Text1.Text = kayitno Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Combo1.Text = "" Option1.Value = False Option2.Value = False Text2.SetFocus End If End Sub Private Sub Command2_Click() Text1.Text = kayitno Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Combo1.Text = "" Option1.Value = False Option2.Value = False Text2.SetFocus End Sub Private Sub Command3_Click() Close #1 Unload Me End Sub Private Sub Form_Activate() Text2.SetFocus End Sub Private Sub Form_Load() Open "kenan.dat" For Random As #1 Len = Len(alanlar) kayitno = LOF(1) / Len(alanlar) kayitno = kayitno + 1 End Sub Yorumlar Yorum Yaz Bu hazır kod'a ilk yorumu siz yapın! KATEGORİLER ADO.NET - ADO - 8ASP - 240ASP.NET - 24C# - 75C++ - 174CGI - 8COMPONENT - 5DATABASE - 8DELPHI - 247FLASH - 49HTML - 536JAVA - JSP - 43JAVA SCRIPT - 494PASCAL - 246PERL - 11PHP - 160VISUAL BASIC - 337VISUAL BASIC.NET - 39WML - 9XML - 2Tüm Kategoriler GİZLİLİK İLKELERİ | BİZE ULAŞIN Copyright © 2002 - 2025 Hazır Kod - Tüm Hakları Saklıdır. Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz. hazirkod.com bir İSOBİL projesidir.