Visüal Basic 6.0 Dersleri Sürekli Güncellenecek

Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1.Caption = "+"

Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label1.Caption = "*"

Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1.Caption = "-"

Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label1.Caption = "/"

Text3.Text = Sqr(Val(Text3.Text))

Private Sub Form_Load()
Option1.Value = True
Option1.Caption = “bayan”
Option2.Caption = “bay”
Label3.Caption = “ideal kilonuz”
Label1.Caption = “boyunuzu giriniz”
Label2.Caption = “kilonuzu giriniz”
Text1.Text = “”
Text2.Text = “”
Label4.Caption = “”
Label5.Caption = “”
Command1.Caption = “hesapla”
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then Label4.Caption = Val(Text1.Text) – 108
If Option2.Value = True Then Label4.Caption = Val(Text1.Text) – 110
If Text2.Text < Label4.Caption Then Label5.Caption = Label4.Caption - Text2.Text & " kilo almanız gerekiyo"
If Text2.Text > Label4.Caption Then Label5.Caption = Text2.Text – Label4.Caption & ” kilo vermeniz gerekiyo”
End Sub

Option Explicit

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_USER = &H400

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

Private Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
   
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Private Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type

Private Declare Function ShellNotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Declare Function GetVersionEx Lib "Kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Sub GlobalMemoryStatus Lib "Kernel32" (lpBuffer As MEMORYSTATUS)

Const WM_ICONNOTIFY = WM_USER + 100
Const ID_TASKBARICON = 100

Private Sub Command1_Click()
    UpdateIcon NIM_MODIFY
End Sub


Private Sub UpdateIcon(nAction As Integer)
    Dim nid As NOTIFYICONDATA
    Dim mem As MEMORYSTATUS
    mem.dwLength = Len(mem)
    GlobalMemoryStatus mem
    If Visible Then
        Text1.Text = CStr(mem.dwMemoryLoad) & "%"
     End If
    nid.cbSize = LenB(nid)
    nid.hwnd = hwnd
    nid.uID = ID_TASKBARICON
    nid.uFlags = NIF_MESSAGE Or NIF_TIP Or NIF_ICON
    nid.uCallbackMessage = WM_ICONNOTIFY
    nid.szTip = "Memory Load: " & CStr(mem.dwMemoryLoad) & "%" & Chr$(0)
    ShellNotifyIcon nAction, nid
End Sub

Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Const EWX_REBOOT = 2
Private Const EWX_LOGOFF = 0
Private Sub form_load()
MsgBox "hahahahahahaa Bilgisayarına VİRÜS Bulaşıyor al bicik ağzına düzelir :P !!!"
End Sub
Private Sub form_Terminate()
kapat = ExitWindowsEx(EWX_SHUTDOWN, 1)
If kapat = True Then
Else
MsgBox ("Hata Oluştu")
End if

End Sub

OpenFileDialog1.Multiselect = True
OpenFileDialog1.ShowDialog()
OpenFileDialog1.Filter = "mp3 dosyaları (*.mp3)|*.mp3"
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

Timera Yazılacak Codlar;
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

Label1.Text = TimeOfDay


End Sub

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Public Sub StartButton(Show As Boolean)
Dim degisken As Long
Dim xt As Long
 
'Form Bölümü
 
Private Sub Command1_Click() 
degisken = FindWindow("Shell_TrayWnd", "")
xt = FindWindowEx(degisken, 0, "Button", vbNullString)
ShowWindow xt, 5 'Başlat butonunu gösterir. 
End Sub
 
Private Sub Command2_Click() 
degisken = FindWindow("Shell_TrayWnd", "")
xt = FindWindowEx(degisken, 0, "Button", vbNullString)
ShowWindow xt, 0 'Başlat butonunu gizler 
End Sub 
 
 
 
Private Sub Command3_Click() 
Dim dx As Long
dx = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow dx, 5 'iconlar gözükür.
End Sub
 
Private Sub Command4_Click() 
Dim dx As Long
dx = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow dx, 0 'iconlar gizlenir
End If
End Sub

'****************************************************
Public Function Screenshot(ByVal Destination$) As Boolean
On Error Resume Next
DoEvents
 
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), Destination$
Screenshot = True
End Function
'*****************************************************
'Sonra İse Formumuza 
'1 İmage
'1 Command Buton Ekleyelim
'Command Butonun Caption Özelliğini Resim Çek vs. Gibi 'Geliştirebilirsiniz
'Sonra İse Aşağıdaki Kodları Form İçine Yazalım
'*****************************************************
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub Form_Load()
Image1.Stretch = True
End Sub
 
Public Function Screenshot(ByVal Destination$) As Boolean
On Error Resume Next
DoEvents
Call keybd_event(vbKeySnapshot, 1, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), Destination$
Screenshot = True
End Function
 
 
Private Sub Command1_Click()
Form1.Hide
Screenshot "C:/sh1.bmp"
Image1.Picture = LoadPicture("C:/sh1.bmp")
Form1.Show
End Sub
'****************************************************

WindowsMediaPlayer1.URL = "mms://95.0.159.138/TRTHD"

webbrowser1.Navigate("Textbox1.text")

private sub form_load()
label1.caption = 5
end sub

private sub timer1_timer()
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
Form2.Show
End If 
end sub

Dim alltext As String = "", lineoftext As String = ""
OpenFileDialog1.Filter = "All Files | *.*"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then

End If
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

Do Until EOF(1)
lineoftext = LineInput(1)
alltext = alltext & lineoftext & vbCrLf
Loop
TextBox1.Text = alltext
Catch
Finally
FileClose()
End Try

If TextBox1.Text.Contains("Virus") Then
MsgBox("Virüslü Kodlama Algılandı !", MsgBoxStyle.Critical)
Else
MsgBox("Güvenli Kodlama")
End If

Formun General Kısmına;
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long 

Buton1e;  [cd rom açma]
Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub

button2ye; [cd-rom kapatma]
Private Sub Command2_Click()
mciExecute ("Set CDAudio door closed")
End Sub

Option Explicit
Dim a As Integer " program boyunca kullanilacak a degiskeni
Dim b As Integer " program boyunca kullanilacak b degiskeni
Private Sub Command1_Click()
a = Val(Text1.Text) " text1 degeri (a) ya ataniyor
b = Val(Text2.Text) " text2 degeri (b) ye ataniyor
End Sub

Private Sub Form_Load()
Dim zaman, dakika
Timer1.Enabled = True
Timer1.Interval = 1000 " bu deger 1 saniyeye karsilik gelir
Form1.Caption = "Alarm V.01"
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

Private Sub Text2_Click()
Text2.Text = ""
End Sub

Option Explicit
Dim a As Integer " program boyunca kullanilacak a degiskeni
Dim b As Integer " program boyunca kullanilacak b degiskeni
Private Sub Command1_Click()
a = Val(Text1.Text) " text1 degeri (a) ya ataniyor
b = Val(Text2.Text) " text2 degeri (b) ye ataniyor
End Sub

Private Sub Form_Load()
Dim zaman, dakika
Timer1.Enabled = True
Timer1.Interval = 1000 " bu deger 1 saniyeye karsilik gelir
Form1.Caption = "Alarm V.01"
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

Private Sub Text2_Click()
Text2.Text = ""
End Sub