Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Bu Programda Yardım Edecek Olan Var Mı Bu Programda Yardım Edecek Olan Var Mı
-
Merhaba oncelikle şimdiden tşk ediyorum yapmak istedigim şu bende bir yazı var mesela 286-1 yazınca o yazının anlamını verecek yani bende kodlara gore hata acıklamaları var ben 286-1 yazınca benim vermiş oıldugum kodlrdan 286-1 olanını vermesini istiyoreum boyle birşey mum kun mu mumkunse kodları nı bana bir zahmet yazın iyi günler
-
Dediinden pek bise anlamadim biraz detaylı aciklarsan yardimci olmaya calisirim..
Sen ne anlatmak istedin yani
361 yazdiin yere msgbox "361.error da su bu olmustur"
bunumu istedin hacı function yap..
ii acikla tam kod vermeye calisayim
-
Ben yeniyim kardeş kusura bakma yani acıklamak istedigim 368-1 yazdıgımda bana acıklamasını verecek
yani 381-1 neymiş düşük yag basıncı benim demek istedigim 381-1 yazdıgımda bana düşük yag basıncı desin tabi bunlar bende sayfa haalinde var ama program haline getirmek istiyorum
-
'hmm anladiim kadariyla bi textbox yani text1, bi command1 eklediini farz edersek
'case ile hepsini ayarla tek tek :)
Private Sub Command1_Click()
Select Case text1.Text
Case "286-1"
MsgBox "Bilmemne bilmemne"
Case "560-9"
MsgBox "ıvır zıvır"
Case Else
MsgBox "Bulunamadi,lutfen atmasyon yapmayin :P"
End Select
End Sub
'al iste bunun gibi dewam et biseler yaparsin hepsine karsilik bir mesaj kutusu cikar..
Edit:Düzelttim..
-
Kardeş Oyle yaptım olmadı compile error dedi basştaki Private Sub Command1_Click() yazısı sarı oldu
birde End case yazınca da hata verdi lutfen yardım et
-
'ay pardon dalgınlıma gelmis düzelttim :)
Private Sub Command1_Click()
Select Case text1.Text
Case "286-1"
MsgBox "Bilmemne bilmemne"
Case "560-9"
MsgBox "ıvır zıvır"
Case Else
MsgBox "Bulunamadi,lutfen atmasyon yapmayin :P"
End Select
End Sub
'herseyi sil bu kodlari kopyala sonra devam ettir , basarilar ;)
-
Oke dostum sağol ircede gel orda konuşuruz
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla