Evet arkadaşlar kendi kodlamış olduğum visual basic 6 programlarımı kodlarıyla birlikte sizlere bu konu altında paylaşacağım.
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

---

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