visual basic 6.0

[kapriss]

bi çöm olaraktan vb ile ilgili neyim varsa paylaşıyorum.
zaten bi bu var sanırım baya donanaımlı olarak..
umarım işinize yarar.

[kapriss]

Visual Basic'i açıp Standart exe'yi seçiyoruz. Formumuza 3 adet Label, 3 adet TextBox, 4 adet OptionButton koyuyoruz. Eğer yapabildiyseniz ne ala. Ama yapamadıysanız mouse'yi sol menü üstünde gezdirip dediklerimi bulmaya çalışın. Onu da mı yapamadınız? O zaman bilgisayarı kapatın, anne-babanızla ve eğer versa kardeş(ler)inizle vedalaşıp kendinizi intihar edin ).
<br>Buraya kadar herşey tamamsa aşağıdaki kodları formunuza yapıştırın.

<br><br>Dim ilk, ikinci As Long

<br><br>Private Sub Command1_Click()
ilk = Text1.Text
ikinci = Text2.Text
If Option1.Value = True Then
Text3.Text = ilk + ikinci
End If
If Option2.Value = True Then
Text3.Text = ilk - ikinci
End If
If Option3.Value = True Then
Text3.Text = ilk * ikinci
End If
If Option4.Value = True Then
Text3.Text = ilk / ikinci
End If
End Sub

<br><br>Private Sub Form_Load()
BorderStyle = 1
Caption = "Buraya istediğinizi yazın"
Left = "4740"
Top = "4155"
Text1.Text = "1"
Text2.Text = "1"
Text3.Text = ""
Label1.Caption = "1. Sayı"
Label2.Caption = "2. Sayı"
Label3.Caption = "Sonuç"
Command1.Caption = ">>>"
Option1.Caption = "Toplama"
Option2.Caption = "Çıkarma"
Option3.Caption = "Çarpma"
Option4.Caption = "Bölme"
Option1.Value = True
End Sub


<br><br><br>İşte bu kadar. Dört işlemi canavar gibi yapan bir hesap makineniz oldu. Bol kodlu günler!!!

[kapriss]

Option Explicit

Private Sub Form_Load()
Dim Connection As String

On Error GoTo Hata

Inet1.RequestTimeout = 2
Connection = Inet1.OpenURL("[Misafirler Kayıt Olmadan Link Göremezler Lütfen Kayıt İçin Tıklayın ! ])
DoEvents

If Connection <> "" Then
MsgBox "Internet bağlantınız aktiv.", vbInformation, "Uyarı"
Else
MsgBox "Internet bağlantınız aktiv değil.", vbInformation, "Uyarı"
End If

Unload Me
Exit Sub

Hata:
MsgBox "Internet bağlantınız aktiv değil.", vbInformation, "Uyarı"
Unload Me
End Sub

[kapriss]

Dim ara, deger, deger1, deger2, topla, alan_kodu, numara, sorgu

Set oWShellExt = CreateObject("Shell.Application")

ara = Text1.Text

If ara <> "" Then


topla = ara

deger1 = "[Misafirler Kayıt Olmadan Link Göremezler Lütfen Kayıt İçin Tıklayın ! ]
alan_kodu = Text2.Text
numara = Text1.Text
deger2 = "&STR=&TEL="
deger = "&ATX=&DTX=&ZCD=&REQ=20&RNG=lequ"
sorgu = deger1 & alan_kodu & deger2 & numara & deger
oWShellExt.shellexecute sorgu

End If

End Sub

[kapriss]

İlk önce böyle bir form oluşturalım
2 label
2 text1
1 command
ekleyin ve kendinize göre forma yerleştirin

Private Sub Command1_Click()
Select Case Text1.Text 'Bu kısımda kullanıcı adı kısmını tanıtıyoruz
Case Is = "" 'Burada ise kullanıcı kısmı boş olduğunda ne yapmak istediğiniz seçersiniz
MsgBox " Bu kısmı boş bırakamssınız"
Case Is = "ahmet" 'kullanıcı adının ahmet olduğunu tanıttık
If Text2.Text = "1234" Then 'Yapılmasını istenen olay
MsgBox ("Hoşgeldiniz")
End If
Case Else 'Eğer kullanıcı doğru değilse
MsgBox "Böyle bir kullanıcı adı bulunmamaktadır"



End Select 'kapanış
End Sub

'Yukarıda bulunan kodları ne kadar çoğlatırsanız o kadar çok kullanıcı açmış olursunuz

[kapriss]

Fonksiyon Kodları
Public Function UzantıBul(Dosya As String)
If Dosya = "" Then Exit Sub
Dim Uzantı
Uzantı = Dosya
If Uzantı Like "*.?????" Then Uzantı = Mid(Dosya, Len(Dosya) - 5, 6)
If Uzantı Like "*.????" Then Uzantı = Mid(Dosya, Len(Dosya) - 4, 5)
If Uzantı Like "*.???" Then Uzantı = Mid(Dosya, Len(Dosya) - 3, 4)
If Uzantı Like "*.??" Then Uzantı = Mid(Dosya, Len(Dosya) - 2, 3)
If Uzantı Like "*.?" Then Uzantı = Mid(Dosya, Len(Dosya) - 1, 2)
UzantıBul = Uzantı
End Function
' Kullanımı
' Me.Caption = UzantıBul("C:/Autoexec.bat")

[kapriss]

Option Explicit
Private Alarm As Date
Private Sub Form_Load()
Alarm = DateAdd("h", 1, Now)
End Sub
Private Sub Timer1_Timer()
Dim txt As String
txt = Format$(Alarm - Now, "hh:mm:ss")
Label1.Caption = txt
End Sub

[orkunayhan]

maşallah biliyorsun epey...yazıyorsun...

[craft61ts]

sağolsın kapriss eline sağlık