BİLİŞİM TEKNOLOJİLERİ 12/E
XxXMENUXxX
  VİSUAL BASİC KODLARI
_______________________________________

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

 
 

HESAP MAKİNASI İÇİN

RESMİ




  
  BUGUN 2 ziyaretçi  
 





Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol