Güncel ve Genel Bilgi Desteği

Grup Hepsi – Hepsi 1

Yazar yucin | 12.02.2008 | Kategori Eğlence

Yoshy hep yolda
Erense uzayda
Gülçin şıpsevdi(hıh)
Cemre çok zorlu biri

Bi çatı altında
Hepsi bir arada

Zor demeden
Düşmanlık bilmeden
Pes etmeyip
Vazgeçme sevmekten
Söz verelim
Hedefe gidelim
Aşk gelirse
Bi mola verelim

Gerçek aşk yolda
Aslında kapında
Çat kapı gelmiş
Kimmiş neyin nesiymiş?

Bi çatı altında
Hepsi bir arada

Zor demeden
Düşmanlık bilmeden
Pes etmeyip
Vazgeçme sevmekten
Söz verelim
Hedefe gidelim
Aşk gelirse
Bi mola verelim
Hepsi bir

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

Tarih Fonksiyonları

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Formunuza 11 adet CommandButton 2 adet Label ve 2 adet TextBox ekleyiniz ve aşağıdaki kodu olduğu gibi kopyala yapıştır yapınız.

Private Sub Command1_Click()
Label1 = DateDiff(“d”, Text1, Text2)
End Sub

Private Sub Command10_Click()
deger = InputBox(“Eklenecek gün sayısını giriniz..”)
If deger = “” Then Exit Sub
Label1 = DateAdd(“d”, deger, Date)

End Sub

Private Sub Command11_Click()
gun = Array(“Pazar”, “Pazartesi”, “Salı”, “Çarşamba”, “Perşembe”, “Cuma”, “Cumartesi”)
tarih = InputBox(“Bir tarih giriniz..”, “”, Date)
If tarih = “” Then Exit Sub
Label1 = gun(Weekday(tarih) – 1)

End Sub
devamı »

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

Norm – Eksik Etek

Yazar yucin | 12.02.2008 | Kategori Eğlence

sana sarkı yapıcam demiştim
bak ben sözümü tuttum
sen ve senin gibiler için

yaw yaw

bir kısa mesajla bitti sanırsın
rap vakti canım dinle yanarsın
bu şarkıyı o piçe dinletirsin
sen bir şişe biraya göt verirsin

sitelere gir hadi profil oluştur
para edermi ruhun kaç kuruştur
basmalı herkes , hasmala döngel
rapciden az sikilmiş ikinci el

derdi yoktur ama hep gözü yaşlı
sözüde traştır , oynar başlı
utanmadan yanıma gelir birde
selam verir sanki çok sikimde

aşkını söyle bana fiyatı ne kadar
bendeki yürek ulan allahına kadar
eksik etek bunu herkes duysun
babana da söyle sana koca bulsun

palavra anlat bundan bana ne !!
sen mektup yaz Haydar Dümen’e
seni seviyorum aşkım hadi siktir
ruhundaki patlak zarı diktir

tekrar tekrar dinle bak bir söz daha yerinde bile duramazsın
SEN BENİM SEVDİĞİM KIZ DEĞİL..
SİKTİĞİM OROSPU BİLE OLAMAZSIN

boşver kanka bir üçlü saralım
kol gibi girsin bizde yol alalım
SİZDE DİNLEYİN SÖZLERİ JAZZDIR
EKSİK ETEK HADİ BENİ AZDIR !!!

sert olursan elbet kırılırsın
sen saf denince hep darılırsın
lüks mekanlara da çok bayılırsın
hesabı bir kere öde ayılırsın..

çok sinirlisin REGLY mi oldun ???
kötü nefesinlede hep beni boğdun
sınıf ayrımı yapanıda bize gönder
KICINA DUBEL ÇAKSIN ERMAN ENDER

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

Menü Editör Örneği

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Private Sub cikis_Click()
End
End Sub

Private Sub daire_Click()
mx = Rnd * Form1.ScaleWidth
my = Rnd * Form1.ScaleHeight
For i = 1 To 10
Circle (mx, my), i * 100, , B
Next
End Sub
devamı »

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

PicturuBox Örneği

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Private Sub Command1_Click()
Clipboard.Clear ‘panoyu sil
Clipboard.SetData Picture1.Picture ‘resmi panoya kopyala
End Sub

Private Sub Command2_Click()
Picture1.Picture = Clipboard.GetData ‘panodan resim al
End Sub

Private Sub Command3_Click()
‘dosya adı sor ve o dosyaya kaydet
SavePicture Picture1.Picture, InputBox(“dosya adı”)
End Sub
devamı »

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

Timer Uygulaması

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Option Explicit
Dim ad
Dim yazi As String
Private Sub Command1_Click()
Text1.ForeColor = ad
yazi = String(30, ” “) + “serdar daloğlu”
Timer1.Enabled = True
End Sub

Private Sub Option1_Click()
ad = vbRed
Command1_Click
End Sub

Private Sub Option2_Click()
ad = vbBlue
Command1_Click
End Sub

Private Sub Option3_Click()
ad = vbBlack
Command1_Click
End Sub
devamı »

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

Sürücü Bilgi Formu

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Imports System.IO

Public Class Form1
Private surucu_bilgi As DirectoryInfo
Private toplam_alan As Long
Private bos_alan As Long
Private kullanilan_alan As Long
Private tara As Single
Private alan_bilgi As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.surucu_durum.Text = “”
devamı »

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

Ülkeler arası saat

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Dim a, b, c, d As Integer
Private Sub Form_Load()
Combo1.ListIndex = 0
Label3.ForeColor = vbRed
Label5.ForeColor = vbRed
a = Hour(Time)
b = Minute(Time)
c = Second(Time)
Label2.Caption = Hour(Time)
Label4.Caption = Minute(Time)
Label6.Caption = Second(Time)
End Sub
Private Sub Timer1_Timer()
Label3.ForeColor = vbGreen
Label5.ForeColor = vbGreen
Label2.Caption = Hour(Time)
If Combo1.ListIndex = 0 Then
Label1.Caption = ” TÜRKİYE”
Label2.ForeColor = vbBlue
Label4.ForeColor = vbBlue
Label6.ForeColor = vbBlue
Label4.Caption = Minute(Time)
Label6.Caption = Second(Time)
End If devamı »

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

Değişken Sorma

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Programın çalışması için 2 adet TextBox, 4 adet Command buton 1 adet Label gerekmektedir.

Dim s(25) As String
Dim cnt As Byte
Dim x As Integer
Dim cont As Boolean

Sub bul(a As String)
Dim f, d As String
cont = False
For x = 0 To cnt
f = Mid$(s(x), 1, Len(a))
If f = a Then
d = Right$(s(x), Len(s(x)) – Len(a))
cont = True
End If
Next
Label1.Caption = d
If cont = True And d = “” Then Label1.Caption = “”

End Sub
devamı »

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

GAZİ

Yazar aSh | 12.02.2008 | Kategori Eğlence

İyi Seyirler…
Gazi 5. Bölüm 1. Kısım

devamı »

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