| XxXMENUXxX |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
HESAP MAKİNASI İÇİN
RESMİ
 |
_______________________________________
OKUL KASA KANTİN KASA ÖRNEĞİ
______________________________________
BÜYÜKTEN KÜCÜGE SIRALAMA ÖRNEĞİ
POZİTİF NEGATİF ÖRNEĞİ
WEB BROWSER
Programın Kodları
Private Sub geri_click()
WebBrowser1.GoBack
End Sub
Private Sub ileri_click()
WebBrowser1.GoForward
End Sub
Private Sub dur_click()
WebBrowser1.stop
End Sub
Private Sub ana sayfa_click()
WebBrowser1.GoHome
End Sub
Private Sub geri_click()
WebBrowser1.navigate text1.text
End Sub
‘NOT: Araç kutusuna sağ tıklanır.Components seçilir.Karşımıza gelen pencereden
Microsoft Internet controls seçilir.
SELECT AND CASE ÖRNEĞİ
Dim satmiktar, ucret As Integer
_______________________________________
Private Sub Hesapla_Click()
satmiktar = InputBox("günlük satıs miktarı(milyon):")
Select Case satmiktar
Case 0 To 100
ucret = satmiktar * (1 / 10)
MsgBox "100 milyondan az satıslar icin oran "
MsgBox "ücretiniz" & ucret & "milyon lira"
Case 100 To 250
ucret = satmiktar * (1 / 5)
MsgBox "100-250 milyon arasındaki satislar icin oran "
MsgBox "ücretiniz" & ucret & " milyon lira"
Case Is > 250
ucret = satmiktar * (1 / 4)
MsgBox "250 milyondan fazla satislar icin oran %"
MsgBox "ücretiniz" & ucret & "milyon lira"
Case Else
MsgBox "gecersiz veri"
End Select
End Sub
_______________________________________
ÜRETİLEN SAYININ BÜYÜK KÜCÜK ESİTTİR ÖRNEĞİ
_______________________________________
Dim üretilen As Integer
____________________________________________________________________
Private Sub Command1_Click()
'0-100 SULUNAN SAYI
Randomize Timer
uretilen = Fix(Rnd * 100)
Text1.Text = Val(uretilen)
End Sub
_______________________________________
Private Sub Command2_Click()
sayi = 45
If Text1.Text > Text2.Text Then
MsgBox "girdiğiniz sayi üretilen sayıdan küçüktür"
Else
If Text1.Text < Text2.Text Then
MsgBox "girdiğiniz sayi üretilen sayıdan büyüktür"
Else
If Text1.Text = Text2.Text Then
MsgBox "bravo bildiniz"
End If
End If
End If
End Sub
_________VİSUAL BASİCDE KAYAN YAZI KODU__________
Private sub timer1.timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
