Skip to main content

AccessTr.neT


Etiketler
Yazar: gitarc - Cevaplar: 3 - İzleme: 3894
Kur Takip Programı Yazalım
[Resim: http://i51.tinypic.com/nv73hf.jpg]

Gerekli Malzemeler:
1 Adet Timer
2 Adet Textbox
1 Adet Label
1 Adet Command Button

[vb]Private Sub Command1_Click()
Dim strkur
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html") 'TCMB Sitesine bağlanır.
Text1.Text = Mid(strkur, InStr(strkur, "USD") + 70, 7) 'Alış Fiyatını texte yazdırır
Text2.Text = Mid(strkur, InStr(strkur, "USD") + 81, 9) 'Satış Fiyatını texte yazdırır
Label4.Caption = "30"
End Sub

Private Sub Form
Yazar: fikretyn - Cevaplar: 1 - İzleme: 960
Php Dizilerden Array_map Kullanılarak Oluşturulmuş Bir Hesap Makinesi Örneği Yazalım
[php]<!DOCTYPE html>
<html>
<head>
    <title>PHP Hesap Makinesi</title>
</head>
<body>

<!-- Html formu kullanıcıdan iki dizi ve bir işlem türü almak için -->
<form method="post">
    Dizi 1: <input type="text" name="array1" placeholder="Örnek: 10,20,30,40"><br>
    Dizi 2: <input type="text" name="array2" placeholder="Örnek: 2,4,6,8"><br>
    İşlem:
    <select name="operation">
        <option value="add">Toplama</option>
        <option value="subtract">Çıkarma</option>
     
Task