Pocket PC Programlama
Yazarımız Azmi Nalbantoğlu yazı dizisinin ikinci bölümüyle karşımızda. Günlük hayatımıza giren Pocket PC’ler hakkında detaylı bilgiler bulabileceğiniz bu yazı dizisinin ikinci bölümünde Pocket PC programlamayla tanışacaksınız.
Bu ay oyle bir program yazacagiz ki sizde cok sasiracaksiniz. Yazacagimiz programa direncimizin renklerini giricez o bize degerini verecek. Biz deger verecez o renk verecek. Al gulum ver gulum.Yani bu ay gokkusaginin altinda hep beraber dans edecegiz.
Onceki ay sadece Pocket PC programlaya giris yapmistik. Sayet aranizda Visual Basic bilmeyenler varsa Antrak’in eksi sayilarinda nasil bir sey oldugu anlatiliyor. Biz bildiklermizi en kaba haliyle kullanarak ise yarar birseyler yapmaya calisacagiz. Aslinda bu cumlem bana amator kelimesini hatirlatti. Tebessumlerinizi gorur gibiyim.
Vaktinizi calmadan bu ayki uygulamamiza baslayalim.
1- Yine onceki calismamizda oldugu gibi MobileVB programini aciyoruz ve ‘New Project’ olusturuyoruz.
2- Baslangicta hemen ‘Save’ ederek buyuk bir dertten kurtuluyoruz.
3- Ve son olarak asagidaki resmini verdigim formun aynisini siz Formunuza hazirliyorsunuz.
Burada dikkat edilecek husus su; hangi elemanin nerde oldugu onemlidir. Mesela AFComboBox1 in bulunmasi gereken yere AFComboBox2 yi koyarsaniz programiniz calisir ama sizin kafaniz karisir. Cunku biz denemeleri asagidaki sablona gore yapacagiz.
Programimizin son halide bu:
Burada da goruldugu uzere ilk haliyle son hali arasinda biraz degisiklik var. Yapmaniz gereken sadece AFTextBox1 elemanini sag ust bosluga almaniz. Ben ugrasirken denemek amaciyla birde resim yerlestirdim. Hatta bu yerlesim degisikligine sebep olanda budur. Siz nasil rahat ediyorsaniz Formunuzu oyle dizayn edin, banane.
Yaptigimiz projenin neye benzedigi hakkinda bir fikir sahibi olmaniz icin buraya DivX formatindaki vidyosunu ve derlenmis, Pocket PC ye yuklenmeye hazir dosyayi birakiyorum.
antrak.jpg: 
resistor.avi: resistor
MobileVBProject1.ARM: mobilevbproject1-arm
KAYNAK KOD:
Option Explicit
Dim a As Integer
Dim i As IntegerPrivate Sub AFButton1_Click()
If AFComboBox1.ListIndex < 10 Then
AFListBox1.ListIndex = AFComboBox1.ListIndex
Else
AFListBox1.Visible = False
End IfIf AFComboBox2.ListIndex < 10 Then
AFListBox2.ListIndex = AFComboBox2.ListIndex
Else
AFListBox2.Visible = False
End IfIf AFComboBox3.ListIndex < 10 Then
AFListBox3.ListIndex = AFComboBox3.ListIndex
Else
AFListBox3.Visible = False
End IfIf AFListBox3.ListIndex > -1 Then
AFListBox4.ListIndex = 0
End IfIf AFListBox3.ListIndex > 1 Then
AFListBox4.ListIndex = 1
End IfIf AFListBox3.ListIndex > 4 Then
AFListBox4.ListIndex = 2
End IfIf ((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex) >= 1000000 Then
AFTextBox1.Text = (((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex) / 1000000)
ElseIf ((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex) >= 1000 Then
AFTextBox1.Text = (((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex) / 1000)
Else
AFTextBox1.Text = ((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex)
End IfEnd Sub
Private Sub AFButton2_Click()
AFComboBox1.ListIndex = AFListBox1.ListIndex
AFComboBox2.ListIndex = AFListBox2.ListIndex
AFComboBox3.ListIndex = AFListBox3.ListIndexIf AFListBox3.ListIndex > -1 Then
AFListBox4.ListIndex = 0
End IfIf AFListBox3.ListIndex > 1 Then
AFListBox4.ListIndex = 1
End IfIf AFListBox3.ListIndex > 4 Then
AFListBox4.ListIndex = 2
End IfIf ((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex) >= 1000000 Then
AFTextBox1.Text = ((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex) / 1000000
ElseIf ((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex) >= 1000 Then
AFTextBox1.Text = ((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex) / 1000
Else
AFTextBox1.Text = ((AFComboBox1.ListIndex * 10) + AFComboBox2.ListIndex) * (10 ^ AFComboBox3.ListIndex)
End IfEnd Sub
Private Sub AFButton3_Click()
Unload Me
End SubPrivate Sub AFButton4_Click()
AFTextBox1.Text = “”a = 1
AFComboBox1.ListIndex = 0
AFComboBox2.ListIndex = 0
AFComboBox3.ListIndex = 0AFListBox1.ListIndex = 0
AFListBox2.ListIndex = 0
AFListBox3.ListIndex = 0
AFListBox4.ListIndex = 0AFListBox1.Visible = True
AFListBox2.Visible = True
AFListBox3.Visible = TrueEnd Sub
Private Sub Form_Load()
AFListBox1.AddItem “0”
AFListBox1.AddItem “1”
AFListBox1.AddItem “2”
AFListBox1.AddItem “3”
AFListBox1.AddItem “4”
AFListBox1.AddItem “5”
AFListBox1.AddItem “6”
AFListBox1.AddItem “7”
AFListBox1.AddItem “8”
AFListBox1.AddItem “9”AFListBox2.AddItem “0”
AFListBox2.AddItem “1”
AFListBox2.AddItem “2”
AFListBox2.AddItem “3”
AFListBox2.AddItem “4”
AFListBox2.AddItem “5”
AFListBox2.AddItem “6”
AFListBox2.AddItem “7”
AFListBox2.AddItem “8”
AFListBox2.AddItem “9”AFListBox3.AddItem “0”
AFListBox3.AddItem “1”
AFListBox3.AddItem “2”
AFListBox3.AddItem “3”
AFListBox3.AddItem “4”
AFListBox3.AddItem “5”
AFListBox3.AddItem “6”
AFListBox3.AddItem “7”
AFListBox3.AddItem “8”
AFListBox3.AddItem “9”AFListBox4.AddItem “R”
AFListBox4.AddItem “K”
AFListBox4.AddItem “M”AFComboBox1.AddItem “Siyah”
AFComboBox1.AddItem “Kahverengi”
AFComboBox1.AddItem “KIRMIZI”
AFComboBox1.AddItem “Turuncu”
AFComboBox1.AddItem “SARI”
AFComboBox1.AddItem “Yeshil”
AFComboBox1.AddItem “Mavi”
AFComboBox1.AddItem “Mor”
AFComboBox1.AddItem “Gri”
AFComboBox1.AddItem “Beyaz”
AFComboBox1.AddItem “Bosh”AFComboBox2.AddItem “Siyah”
AFComboBox2.AddItem “Kahverengi”
AFComboBox2.AddItem “KIRMIZI”
AFComboBox2.AddItem “Turuncu”
AFComboBox2.AddItem “SARI”
AFComboBox2.AddItem “Yeshil”
AFComboBox2.AddItem “Mavi”
AFComboBox2.AddItem “Mor”
AFComboBox2.AddItem “Gri”
AFComboBox2.AddItem “Beyaz”
AFComboBox2.AddItem “Bosh”AFC
omboBox3.AddItem “Siyah”
AFComboBox3.AddItem “Kahverengi”
AFComboBox3.AddItem “KIRMIZI”
AFComboBox3.AddItem “Turuncu”
AFComboBox3.AddItem “SARI”
AFComboBox3.AddItem “Yeshil”
AFComboBox3.AddItem “Mavi”
AFComboBox3.AddItem “Mor”
AFComboBox3.AddItem “Gri”
AFComboBox3.AddItem “Beyaz”
AFComboBox3.AddItem “Bosh”AFComboBox1.ListIndex = 0
AFComboBox2.ListIndex = 0
AFComboBox3.ListIndex = 0AFListBox1.ListIndex = 0
AFListBox2.ListIndex = 0
AFListBox3.ListIndex = 0End Sub
Azmi NALBANTOĞLU
zidged@ttnet.net.tr
