İKİ DAKİKA GÜNCEL HABER MERKEZİ

Acı Hayat

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Sevdiği kadını ölümün eline bırakmaya niyeti yoktur. Hemşireden durumu öğrenen Filiz telaşla olay yerine ulaşmaya çalışmaktadır. Bu arada kavga sırasında yaralanan Ender kendine gelir.

haberin devamı »

Bu yazı toplamda 49, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

İnternet Programı

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Private Declare Function CreateEllipticRgn Lib “gdi32″ _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib “user32″ _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Private Sub Command1_Click()
r = InputBox(”SİTENİN SADECE ADINI GİRİNİZ :”)
Shell “explorer.exe http://www.” + r + “.8m.net”, vbMaximizedFocus
Label1.Caption = “http://www.” + r + “.8m.net”
End Sub haberin devamı »

Bu yazı toplamda 48, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

String Fonksiyonlari

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

String Fonksiyonları ile ilgili bilgiler.

1)ASC FONKSIYONU:
2)CHR$ FONKSIYONU:
3)SPACE$ FONKSIYONU:
4)STRING$ FONKSIYONU:
5)RIGHT$ FONKSIYONU:
6)LEFT$ FONKSIYONU:
7)MID$ FONKSIYONU:
8)INSTR FONKSIYONU:
9)LEN FONKSIYONU:
10)LCASE$ FONKSIYONU:
11)UCASE FONKSIYONU:
12)STRCOMP FONKSIYONU:
13)LIKE OPERATÖRÜ:
14)TRIM$ FONKSIYONU:
15)LTRIM$ FONKSIYONU:
16)RTRIM$ FONKSIYONU:
17)DATE FONKSIYONU:
18)TIME FONKSIYONU:
19)DATEVALUE(String) FONKSIYONU:

Visual Basic’te string türü veriler üzerinde işlem yapan fonksiyonlardır.Aşağıda bu fonksiyonlar verilmiştir.
haberin devamı »

Bu yazı toplamda 79, bugün ise 2 kez görüntülenmiş

Bu Yazıyı Paylaşın

Adam Asmaca Oyunu

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

‘Nesneler:
‘Command3 un adını buton olarak değiştirin ve index ini 0 yapın
‘Label1
‘Command1
‘Command2
‘List1
‘9 adet Line
‘Shape1

Dim kelime(100), gorunen(100), kelime2, adam

Private Sub buton_Click(Index As Integer)
Dim say, k, sonuc, a
sonuc = 0

‘butondaki harf varmı?

For say = 0 To Len(kelime2) - 1
If kelime(say) = buton(Index).Caption Then
gorunen(say) = ” ” & buton(Index).Caption & ” ”
sonuc = 1
‘varsa onayla
End If
Next

For say = 0 To Len(kelime2) - 1
k = k & gorunen(say)
’sonucu kullanıcıya göster
Next
Label1 = k

If sonuc = 0 Then
adam = Val(adam) + 1
adamiciz (adam)
‘kullanıcı yanlış harfe tıkladıysa adamı çiz
Else
haberin devamı »

Bu yazı toplamda 113, bugün ise 2 kez görüntülenmiş

Bu Yazıyı Paylaşın

Tek Tusla Windows Kapama

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Önce formunuza command1 butonu ekleyiniz ve daha sonra aşağıdaki kodları yazınız..

Private Sub Command1_Click()
Shell (”C:\Windows\rundll32.exe user,exitwindows”)
End Sub

Private Sub Form_Load()
Command1.Caption = “Kapat”
End Sub

Bu yazı toplamda 50, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Renk Geçişi

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

‘form üstüne 2 adet commandbutton ve 2 adet PictureBox eklemeniz yeterli…

Bir Modül içerisine

Enum GeşiçŞek
dikey = 0
yatay = 1
ÇaprazSol = 2
ÇaprazSağ = 3
End Enum

‘Buradan itibaren for içerisine kopyalayın…
‘Prepare by Shama

Private Sub Geçişiki(İlkRenk As Long, İkinciRenk As Long, GeçişŞekli As GeşiçŞek, PictureBox As PictureBox)
Dim k1, k2, y1, y2, m1, m2, kinc, yinc, minc, renk, wid, oran1, oran2, şekl
haberin devamı »

Bu yazı toplamda 71, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Titreyen Form

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

öncelikle form’a bir adet Timer ve bir adet HscrollBar koyuyoruz.

Sonra timer nesnesinin properties kısmında interval değerini 10 yapıyoruz.

Timer nesnesiyle işimiz bittikten sonra scrollbar’ın properties kısmında max değerine kafamıza göre bir sayı atıyoruz (çok uçmamak lazım ben 500 yaptım). Min değerini ise 0 yapın.

code kısmına gelince…

Dim tt As Boolean
Dim sY As Integer

Private Sub Form_Load()
sY = 100
End Sub
haberin devamı »

Bu yazı toplamda 48, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Otomatik Tamamlama

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Projenize bu modülü ekleyerek kullandığınız textboxlara otomatik tamamlama özelliği katablirsiniz.

öncelikle projemize bir class modüle ekliyoruz ve adını “clsAutoComplete” olarak değiştiriyoruz.

Option Explicit

Const StringL As Long = 20 ‘Tamamlanacak max karakter uzunluğu

Private WithEvents TB As TextBox
Private NumberOfItems As Long, sItems As String, LastFill As String

Public OnlyAllowList As Boolean

Property Set AutoCompleteTextbox(T As TextBox)
Set TB = T
LastFill = “”
TB_GotFocus
End Property

Private Property Get Item(ByVal Index As Long) As String
Item = Mid$(sItems, Index * StringL + 1, StringL)
End Property
haberin devamı »

Bu yazı toplamda 79, bugün ise 2 kez görüntülenmiş

Bu Yazıyı Paylaşın

Bilgisayarı Konuşturma

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

‘ project>reference bölümünden microsoft speech lib. ekleyin
Dim konus As New SpeechLib.SpVoice
Private Sub Form_Load()
Text1.Text = “buraya istediğini yaz”
End Sub

Private Sub command1_Click()
konus.Speak Text1.Text
End Sub

Bu yazı toplamda 52, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Dll Kullanımı

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

DLL içindeki bir yordamın tanımlanması
Windows API dışındaki DLL dosyaları içinden yordam kullanmak veya win32api.txt dosyası içinde yapılmış olan tanımları kendi gereksinimlerimize göre değiştirmek için DLL içindeki bir yordamın nasıl tanımlanabileceğini öğrenmek gerekir.
Bir DLL yordamını tanımlamak için Declare deyimi kullanılır. Eğer yordam bir değer döndürüyorsa Function, döndürmüyorsa Sub olarak tanımlanır. Declare deyiminin kullanışı aşağıdaki biçimdedir.
Declare Function publicname Lib “libname” [Alias “alias”]
[([[ByVal] variable [As type] [,[ByVal] variable [As type]]…])] As Type
Declare Sub publicname Lib “libname” [Alias “alias”]
[([[ByVal] variable [As type] [,[ByVal] variable [As type]]…])]
Kütühane İsmi (libname)
Windows kütüphaneleri için (User32, Kernel32 veya GDI32) dosyanın tam adını ve yolunu belirtmeye gerek yoktur. Örneğin;
Declare Function GetTickCount Lib “kernel32″ Alias _
“GetTickCount” () As Long
Diğer DLL dosyaları kullanılırken tam yol ve dosya adı verilmek zorundadır
Declare Function Topla Lib “c:\hesap.dll” _
(ByVal sayi1 As Integer, ByVal sayi2 As Integer) As Long
DLL dosyasının yolu verilmezse bu dosya için;
Programın .EXE dosyasının bulunduğu yere,
Aktif dizine,
Windows’un System dizinine,
Windows dizinine,
PATH değişkeninde tanımlı dizinlere
bakar. haberin devamı »

Bu yazı toplamda 124, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın