Jump to content
Forumu Destekleyenlere Katılın ×
Paticik Forumları
2000 lerden beri faal olan, çok şukela bir paylaşım platformuyuz. Hoşgeldiniz.

Visual Basicte sayısal degerleri string olarak işletme ?


Öne çıkan mesajlar

Mesaj tarihi:
Kullanmak için lasım deelki ama öğrenmek için bakıcam
Edit: Yau Bu Ne Kocaman Kullanmam :) kodlar çok karışık işte her saniyede çizginin yönü filan falan bole iyice bi bakmam lasım
Edit 2 : Ayrıyetten Matematik zati zayıf trigonometri yi hatırlamıyom gidip matematik çalışiim bole olmıcak :)[hline]Çöp Olayına Bende Karşıyım ...
Icq=176375932
MailMee


[Bu mesaj Arthur_HellsFire tarafından 22 September 2003 14:51 tarihinde değiştirilmiştir]

[Bu mesaj Arthur_HellsFire tarafından 22 September 2003 14:54 tarihinde değiştirilmiştir]
Mesaj tarihi:
bak abicim orada çok güzel bir hile var...

Normal'de hani ekranı temizlemek için Form1.Cls dersin ya o çok titreşim yapıyor....

Onun yerine sadece pisletiğimiz bölgeyi arka plan rengi ile boyuyoruz bölyelce hiç titreşmiyor :))[hline]"Saçma Olmayan Hiçbir Fikrin Ümidi Yoktur"(A.Einstein)
Criminal2's HomePage
Mesaj tarihi:
İp olayı çok basit ya hehhe. Winsock kontrolü ekliosun forma Ç:D

Onun localip miydi neydi o özelliğini yazdırıosun label'a. O kadar :D

Buldum bak. Microsoft Winsock Control component'ini ekliosun. Sonra solda yeni bir ikon çıkıo onunla form'a ekliosun. Sonrada label1.caption = Winsock1.LocalIP
diosun :D
Clipboard'a kopyalamak içinde
Clipboard.SetText Winsock1.LocalIP
kullanıosun.[hline]This Cat Scratches Free.
Mesaj tarihi:
Aşağıdaki işlemleri yaparsan programının "GUGUK.WAV" dosyasına ihtiyacı kalmaz....Ama yine de çalar...


-----------------------------------------------
Add-Ins--->Add-In Manager
VB6 Resource Editor StartUp/Loaded

Sonra

Tools-->Resource Editor
Add Costom Resource...
GUGUK.WAV'ı seç...

101 diye bir sayı çıkacak...
Kaydet...
-----------------------------------
Gel Projeye...
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_MEMORY = &H4
Private Const SND_SYNC = &H0
Dim ses

Private Sub Form_Load()
b = LoadResData(101, "CUSTOM")
b = StrConv(b, vbUnicode)
End Sub
---------------------------------------------

Nerede Çaldırmak istiyorsan

sndPlaySound ses, SND_SYNC + SND_MEMORY[hline]"Saçma Olmayan Hiçbir Fikrin Ümidi Yoktur"(A.Einstein)
Criminal2's HomePage
Mesaj tarihi:
Private Type eyyy
Dim abc as long
Dim wsx as string
End Type
-----------------------------------

Dim bilgi1 as eyyy
Dim bilgi2 as eyyy
bilgi1.abc=123
bilgi1.wsx="asssasas"
bilgi2.abc=345
bilgi2.wsx="rtyrtys"

yazarken

Open "laylay.txt" for binary access write as #1
put #1,,bilgi1
put #1,,bilgi2
close #1

okurken

Open "laylay.txt" for binary access read as #1
get #1,,bilgi1
get #1,,bilgi2
close #1[hline]"Saçma Olmayan Hiçbir Fikrin Ümidi Yoktur"(A.Einstein)
Criminal2's HomePage
Mesaj tarihi:
1....ya bölye...
MsgBox "CartCurt", vbOKOnly,"Başlık"
2...ya böyle
Dim sonuc as long
sonuc=MsgBox("CartCurt", vbOKCancel,"Başlık")
(Parantezlere Dikkat !!!)
--------------------------------------------------------
Dim Sec(1 to 5)as string
Sec(1)="1.Seçenek"
Sec(2)="1.Seçenek"
Sec(3)="1.Seçenek"
Sec(4)="1.Seçenek"
Sec(5)="1.Seçenek"
Dim sonuc as string
Randomize
Sonuc=Sec(Int((rnd*5)+1))[hline]"Saçma Olmayan Hiçbir Fikrin Ümidi Yoktur"(A.Einstein)
Criminal2's HomePage

[Bu mesaj Criminal2 tarafından 22 September 2003 20:05 tarihinde değiştirilmiştir]
Mesaj tarihi:
said:
Arthur_HellsFire, 22 September 2003 19:22 tarihinde demiş ki:
Saol öncede söleseydin keşke ekse yapmak gerektiğini dur yapiim ben bide bak şunu sorucam msgbox(mesaj, vbokonly, "Car Curt")
Burada mesaj değişkeninden sonra msgbox fonksiyonun kalan kısmı için hata verio buna bi çözüm filan varmı ?[hline]Çöp Olayına Bende Karşıyım ...
Icq=176375932
MailMee

msgbox ("abcderfgklf"), vbokonly, "title cart curt"
yapman lazım.
edit:smiley sux :)
[hline]Feel so good, I feel so fine
Love that little lady always on my mind
She gives me loving every night and day
Never gonna leave her, never going away


[Bu mesaj metboy tarafından 22 September 2003 20:17 tarihinde değiştirilmiştir]
×
×
  • Yeni Oluştur...