Derslerimiz Görsel ve Metin şeklinde devam edecektir.
Proje 1 : TheWayEnd Kilo Kontrol
Private Sub Command1_Click()
On Error Resume Next
a = Text1.Text
b = Text2.Text
If Text1.Text = "" Then
MsgBox "BOYUNUZU GİRİNİZ!.."
End If
If Text2.Text = "" Then
MsgBox "KİLONUZU GİRİNİZ!.."
End If
c = (a - 150) / 4 + 100
d = a - c
e = b - d
Text4.Text = d
Text3.Text = " Kilogram Olmanız Gerekli."
Text6.Text = e
Text5.Text = " Kilo Farkı Kapatınız."
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label5_Click()
Shell ("explorer.exe https://accesstr.net")
End Sub
Kod:
Program İçin Gerekli Eklentiler
1- 2 Ad. Buton
2- 6 Ad. TextBox
Proje 2 : TheWayEnd Günlük Döviz
Private Sub Command1_Click()
Dim strkur As String
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html")
lblDovizUsd = Trim(Mid(strkur, InStr(strkur, "USD") + 39, 10))
lblDovizUsdsatis = Trim(Mid(strkur, InStr(strkur, "USD") + 55, 10))
lblDovizEftUsd = Trim(Mid(strkur, InStr(strkur, "USD") + 70, 10))
lblDovizEftUsdSatis = Trim(Mid(strkur, InStr(strkur, "USD") + 83, 7))
lblDovizEUR = Trim(Mid(strkur, InStr(strkur, "EUR") + 39, 10))
lblDovizeursatis = Trim(Mid(strkur, InStr(strkur, "EUR") + 55, 10))
lblDovizEurEft = Trim(Mid(strkur, InStr(strkur, "EUR") + 70, 10))
lblDovizEurEftSatis = Trim(Mid(strkur, InStr(strkur, "EUR") + 83, 7))
Text1.Text = lblDovizUsd
Text2.Text = lblDovizUsdsatis
Text3.Text = lblDovizEftUsd
Text4.Text = lblDovizEftUsdSatis
Text5.Text = lblDovizEUR
Text6.Text = lblDovizeursatis
Text7.Text = lblDovizEurEft
Text8.Text = lblDovizEurEftSatis
End Sub
Private Sub Label10_Click()
Shell ("explorer.exe https://accesstr.net")
End Sub
Kod:
Program İçin Gerekli Eklentiler
1- 1 Ad. Buton
2- 8 Ad. TextBox
3- msınet