Dersizle Forumlarý

ÖZÜR DÝLERÝM YANLIÞ BÖLÜME AÇMIÞIM KONUYU SÝLEMÝYORUM. KUSURA BAKMAYIN LÜTFEN

Programý çalýþtýrýldýðýnda saatin yanýnda görünen ve sizin belirlediðiniz zamanda ortaya çýkýp bilgileri gösteren biþey ben bunu edebiyat için kullanýyorum edebiyatla ilgili yazýlarý koydum bellirli bir zamanda çýkýp "oku bunlarý" filan diyen bir programcýk iþte.Pek uðraþamadým bununla idare ediyorum sonra bir ara devam ederim belki geliþtirmeye Sýnava çalýþmak dururken bunla uðraþmýyayým dedim . Belki lazým olur

3 Tane Command button isimleri deðiþtirilmeden
5 tane textbox isimleri: ad, text99, text12, text1, text14
4 tane timer isim deðiþtirmeden
CTRL+E Tuþuna basarak Menu oluþturuyoruz.Menünün ismi:muaymenu
muay menüye iki tane seçenek ekliyoruz isimleri: MenuGoster, Menukapat
Sanýrým bu kadar

KÝM BUNLARI KOPYALAYIP YAPIÞTIRACAK DERSENÝZ. PROJE HALÝNDE BUYRUN. EDEBÝYAT NOTLARIDA ÝÇÝNDE
Ýndiir


kodlar aþaðýda
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim nid As NOTIFYICONDATA
'RASGELE DEÐER ATAMAAAAAAAAAAAAAAAAAAAAAAAAA BAÞLIYOR
Public Function Rand(ByVal low As Integer, ByVal high As Integer) As Integer
Rand = Int((high - low + 1) * Rnd) + low
End Function

Private Sub Timer2_Timer()
Randomize

a = Rand(0, 121) + 1 ' 122 Deðer atýyor +1 var

Text12.Text = Str(a)

Text12.Text = Str(a)
End Sub
'RASGELE DEÐER BÝTÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝ


'ÝSÝMÝ HAFIZADA TUTMA KODU DÝÐER ÇALIÞTIRMALARDA AYNI ÝSÝM KALMASI ÝÇÝN
Private Sub Command1_Click()

Open "deneme.dat" For Output As #1
Write #1, ad.Text

Close #1
End Sub


'SAATÝN YANINA ÝNDÝRMEK ÝÇÝN
Private Sub Command2_Click()
Timer2.Enabled = True
nid.cbSize = Len(nid)
nid.hWnd = Form1.hWnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Form1.Icon
nid.szTip = "Görev çubugunda görünür" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
Me.Visible = False
muaymenu.Visible = False
Command1.Picture = Me.Icon
'Command1 Buttonumuza ICONumuzu atiyoruz.
Text1.Text = "0"
End Sub



'SÖYLEMEYE BÝLE GEREK YOK
Private Sub Command3_Click()
End
End Sub




[b]
'SAATÝN YANINA ÝNDÝRMEK ÝÇÝN DEVAMMMMM
Private Sub Form_Terminate()
Shell_NotifyIcon NIM_DELETE, nid
' Her türlü hataya karsi burda da önlem almamiz gerekiyor..
End Sub




'SAATÝN YANINA ÝNDÝRMEK ÝÇÝN DEVAMMMMMMMMMMMM
Private Sub Form_Load()
nid.cbSize = Len(nid)
nid.hWnd = Form1.hWnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Form1.Icon
nid.szTip = "Görev çubugunda görünür" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
Me.Visible = False
muaymenu.Visible = False
Command1.Picture = Me.Icon
'Command1 Buttonumuza ICONumuzu atiyoruz.


Text1.Text = "0"
Text1.Enabled = False
Text1.Locked = True
Timer3.Interval = "1000"
Timer4.Interval = "1000"
Open "deneme.dat" For Binary As #1
Close #1
Open "deneme.dat" For Input As #1
If LOF(1) = 0 Then GoTo sona
Input #1, a

sona:
Close #1

ad.Text = a

End Sub






'RASGELE SAYI ATANDIÐINDA " 2" YAZISINA DÝKKAT EDERSEK 2 NÝN ÖNÜNDE BÝR BOÞLUK KALIYOR BU BOÞLUÐU GÝDEREMEDÝM BENDE BOÞLUKLA BÝRLÝKTE SAYIYA DEÐER VERDÝM NE YAPALIM ACEMÝLÝK ÝÞTE

Private Sub Timer1_Timer()
Dim Bub As String
Dim isim As String
If Text12.Text = " 1" Then isim = "01" 'Ben 122 Tane Yaptým ne gereði varsa Siz Kaçtane yapmak isterseniz silersiniz.
If Text12.Text = " 2" Then isim = "02"
If Text12.Text = " 3" Then isim = "03"
If Text12.Text = " 4" Then isim = "04"
If Text12.Text = " 5" Then isim = "05"
If Text12.Text = " 6" Then isim = "06"
If Text12.Text = " 7" Then isim = "07"
If Text12.Text = " 8" Then isim = "08"
If Text12.Text = " 9" Then isim = "09"
If Text12.Text = " 10" Then isim = "10"
If Text12.Text = " 11" Then isim = "11"
If Text12.Text = " 12" Then isim = "12"
If Text12.Text = " 13" Then isim = "13"
If Text12.Text = " 14" Then isim = "14"
If Text12.Text = " 15" Then isim = "15"
If Text12.Text = " 16" Then isim = "16"
If Text12.Text = " 17" Then isim = "17"
If Text12.Text = " 18" Then isim = "18"
If Text12.Text = " 19" Then isim = "19"
If Text12.Text = " 20" Then isim = "20"
If Text12.Text = " 21" Then isim = "21"
If Text12.Text = " 22" Then isim = "22"
If Text12.Text = " 23" Then isim = "23"
If Text12.Text = " 24" Then isim = "24"
If Text12.Text = " 25" Then isim = "25"
If Text12.Text = " 26" Then isim = "26"
If Text12.Text = " 27" Then isim = "27"
If Text12.Text = " 28" Then isim = "28"
If Text12.Text = " 29" Then isim = "29"
If Text12.Text = " 30" Then isim = "30"
If Text12.Text = " 31" Then isim = "31"
If Text12.Text = " 32" Then isim = "32"
If Text12.Text = " 33" Then isim = "33"
If Text12.Text = " 34" Then isim = "34"
If Text12.Text = " 35" Then isim = "35"
If Text12.Text = " 36" Then isim = "36"
If Text12.Text = " 37" Then isim = "37"
If Text12.Text = " 38" Then isim = "38"
If Text12.Text = " 39" Then isim = "39"
If Text12.Text = " 40" Then isim = "40"
If Text12.Text = " 41" Then isim = "41"
If Text12.Text = " 42" Then isim = "42"
If Text12.Text = " 43" Then isim = "43"
If Text12.Text = " 44" Then isim = "44"
If Text12.Text = " 45" Then isim = "45"
If Text12.Text = " 46" Then isim = "46"
If Text12.Text = " 47" Then isim = "47"
If Text12.Text = " 48" Then isim = "48"
If Text12.Text = " 49" Then isim = "49"
If Text12.Text = " 50" Then isim = "50"
If Text12.Text = " 51" Then isim = "51"
If Text12.Text = " 52" Then isim = "52"
If Text12.Text = " 53" Then isim = "53"
If Text12.Text = " 54" Then isim = "54"
If Text12.Text = " 55" Then isim = "55"
If Text12.Text = " 56" Then isim = "56"
If Text12.Text = " 57" Then isim = "57"
If Text12.Text = " 58" Then isim = "58"
If Text12.Text = " 59" Then isim = "59"
If Text12.Text = " 60" Then isim = "60"





If Text12.Text = " 61" Then isim = "61"
If Text12.Text = " 62" Then isim = "62"
If Text12.Text = " 63" Then isim = "63"
If Text12.Text = " 64" Then isim = "64"
If Text12.Text = " 14" Then isim = "14"
If Text12.Text = " 65" Then isim = "65"
If Text12.Text = " 66" Then isim = "66"
If Text12.Text = " 67" Then isim = "67"
If Text12.Text = " 68" Then isim = "68"
If Text12.Text = " 69" Then isim = "69"
If Text12.Text = " 70" Then isim = "70"
If Text12.Text = " 71" Then isim = "71"
If Text12.Text = " 72" Then isim = "72"
If Text12.Text = " 73" Then isim = "73"
If Text12.Text = " 74" Then isim = "74"
If Text12.Text = " 75" Then isim = "75"
If Text12.Text = " 76" Then isim = "76"
If Text12.Text = " 77" Then isim = "77"
If Text12.Text = " 78" Then isim = "78"
If Text12.Text = " 79" Then isim = "79"
If Text12.Text = " 80" Then isim = "80"
If Text12.Text = " 81" Then isim = "81"
If Text12.Text = " 82" Then isim = "82"
If Text12.Text = " 83" Then isim = "83"
If Text12.Text = " 84" Then isim = "84"
If Text12.Text = " 85" Then isim = "85"
If Text12.Text = " 86" Then isim = "86"
If Text12.Text = " 87" Then isim = "87"
If Text12.Text = " 88" Then isim = "88"
If Text12.Text = " 89" Then isim = "89"
If Text12.Text = " 90" Then isim = "90"
If Text12.Text = " 91" Then isim = "91"
If Text12.Text = " 92" Then isim = "92"
If Text12.Text = " 93" Then isim = "93"
If Text12.Text = " 94" Then isim = "94"
If Text12.Text = " 95" Then isim = "95"
If Text12.Text = " 96" Then isim = "96"
If Text12.Text = " 97" Then isim = "97"
If Text12.Text = " 98" Then isim = "98"
If Text12.Text = " 99" Then isim = "99"
If Text12.Text = " 100" Then isim = "100"
If Text12.Text = " 101" Then isim = "101"
If Text12.Text = " 102" Then isim = "102"
If Text12.Text = " 103" Then isim = "103"
If Text12.Text = " 104" Then isim = "104"
If Text12.Text = " 105" Then isim = "105"
If Text12.Text = " 106" Then isim = "106"
If Text12.Text = " 107" Then isim = "107"
If Text12.Text = " 108" Then isim = "108"
If Text12.Text = " 109" Then isim = "109"
If Text12.Text = " 110" Then isim = "110"
If Text12.Text = " 111" Then isim = "111"
If Text12.Text = " 112" Then isim = "112"
If Text12.Text = " 113" Then isim = "113"

If Text12.Text = " 114" Then isim = "114"
If Text12.Text = " 115" Then isim = "115"
If Text12.Text = " 116" Then isim = "116"
If Text12.Text = " 117" Then isim = "117"

If Text12.Text = " 118" Then isim = "118"
If Text12.Text = " 119" Then isim = "119"
If Text12.Text = " 120" Then isim = "120"
If Text12.Text = " 121" Then isim = "121"
If Text12.Text = " 122" Then isim = "122"
Open App.Path & "\" & isim & ".txt" For Binary As #1
Bub = String(LOF(1), Chr(0)) ' Dosyanýn boyutu kadar karakteri bub 'akrardýk.
Get #1, 1, Bub ' Tüm dosyayý okuduk
Text14.Text = Bub 'text1 kutusuna aktardýk.
Close #1
End Sub



Private Sub Timer3_Timer()
Text1.Text = Text1.Text + 1
If Text1.Text = Text99.Text Then
Form1.Show

Timer2.Enabled = False
Me.Visible = True
Shell_NotifyIcon NIM_DELETE, nid
MsgBox ad.Text + " Oku bunlarý canýmmm " 'MESAJIMIZ BURASI ad.text YAPMAMIN NEDENÝ ad Text box'ýnda BULUNAN ÝSMÝ MSG BOX AKTARMA
End If
End Sub




'SAATÝN YANINA ÝNDÝRMEK ÝÇÝN DEVAAAAAAAAAMMMMMMMMMM

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK 'sol tus çift klik
MenuGoster_Click
Case WM_RBUTTONDOWN 'sag tus basili
PopupMenu muaymenu, MenuGoster
Case WM_RBUTTONUP 'sag tus basilip birakildi
Case WM_RBUTTONDBLCLK 'sag tus çift klik
End Select
End Sub




Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
'Formumuz kapandiginda Iconumuzu kaldiriyoruz...
End
End Sub

Private Sub MenuGoster_Click()
'Koydugumuz Menunun Iconken sol ok ile ortaya çikmasini
'sagliyoruz...
Me.Visible = True
Shell_NotifyIcon NIM_DELETE, nid
End Sub
Private Sub MenuKapat_Click()
'Burda da yine sol okla çikan menudeki Kapatbuttonu...
Unload Me
End Sub




[/b]

forum kurallarýný okuyalým!

ben hiç programlama bilmiyorum nasýl yapabilirim bunu açýklarmýsýn

Hiç mi bilmiyorsun Bunu anlatmak çok uzun sürer amaaa
Bu kodlarý program haline getirebilmek için visual basic programlama dilini bilmek gerek. Onuda burada anlatmak imkansiz. Linkte Exe halinda var zaten istersen ordan kullanabilirsin programý.