Програмирање со Visual Basic

Da napravam nekoja programa.Pocetnik sum sakam da napravam nekoja igra,nekoja programa.Ako mozete da mi poognete da mi gi ispratite kodovite.eve go i mojot msn macedonia-eu@hotmail.com Odnpred blagodaram Kiko

Изменето од agent_007 - 21.Март.2009 во 22:02

ene ti
eden program so sum go pravel pred mnogu godini
za zaljubenici vo palindromni recenici

kako kucas
taka ti pisuje obratno

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

End Sub

Private Sub Command4_Click()

End Sub

Private Sub Form_Load()
For i = 1 To 920 Step 20
Form1.Line (i, 0)-(i, 800), &H4000&
Form1.Line (0, i)-(800, i), &H4000&
Next



End Sub

Private Sub Image1_Click()
Beep
End
End Sub

Private Sub Image2_Click()
Beep
End
End Sub

Private Sub Image3_Click()
Beep
a$ = Text1.Text
B$ = Text2.Text

For i = 1 To 100

u$ = Mid$(a$, i, 1)

If u$ = " " Or u$ = "?" Or u$ = ":" Or u$ = "," Or u$ = ";" Or u$ = "." Or u$ = "!" Then GoTo 7
c$ = c$ & u$
7
Next

Label4.Caption = c$
For i = 1 To 100

uu$ = Mid$(B$, i, 1)
If uu$ = " " Or uu$ = "?" Or uu$ = ":" Or uu$ = "," Or uu$ = ";" Or uu$ = "." Or uu$ = "!" Then GoTo 8
D$ = D$ & uu$
8
Next

Label5.Caption = D$




a$ = Label4.Caption
B$ = Label5.Caption
alu = 0
For i = 1 To 100

u$ = Mid$(a$, i, 1)
uu$ = Mid$(B$, i, 1)
If u$ = uu$ Then GoTo 71
Label6.Caption = "NO": Beep: alu = 1
71 If u$ = "" Then alo = i: GoTo 72
Next
72 S1.Left = 35 + i * 5.7
If alu = 1 Then GoTo 70
Label6.Caption = "OK"
70








End Sub

Private Sub Image4_Click()
Beep
z1$ = Text1.Text
z2$ = Text2.Text
Text1.Text = z2$
Text2.Text = z1$
End Sub

Private Sub Image5_Click()
Beep
Text1.Text = ""
Label4.Caption = ""
Label5.Caption = ""

End Sub

Private Sub Image6_Click()
Beep
 CommonDialog1.CancelError = True
 CommonDialog1.DialogTitle = "Fontovi za palindrom"
    On Error GoTo 8
    ' Set the Flags property
    CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
    ' Display the Font dialog box
    CommonDialog1.ShowFont
    Text1.Font.Name = CommonDialog1.FontName
    Text1.Font.Size = CommonDialog1.FontSize
    Text1.Font.Bold = CommonDialog1.FontBold
    Text1.Font.Italic = CommonDialog1.FontItalic
Text1.ForeColor = CommonDialog1.Color

   
Text2.Font.Name = CommonDialog1.FontName
    Text2.Font.Size = CommonDialog1.FontSize
    Text2.Font.Bold = CommonDialog1.FontBold
    Text2.Font.Italic = CommonDialog1.FontItalic
    Text2.ForeColor = CommonDialog1.Color

   

8
End Sub

Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
If Button = 1 Then
Text1.Font.Size = Text1.Font.Size + 2

Text2.Font.Size = Text2.Font.Size + 2
Exit Sub
End If
If Button = 2 Then
Text1.Font.Size = Text1.Font.Size - 2

Text2.Font.Size = Text2.Font.Size - 2
End If
End Sub

Private Sub Image8_Click()
Beep
On Error GoTo 8
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "Otvaranje na palindrom"
        ' If index = 2, the user chose Save As.
        ' Set filters.
        CommonDialog1.Filter = "Palindrom (*.pal)|*.pal|"
        ' Specify default filter.
        CommonDialog1.FilterIndex = 1
        ' Display the Save As dialog box.
        CommonDialog1.ShowOpen
        FileName = CommonDialog1.FileName
       
       
 imen$ = FileName
Open imen$ For Random As #1 Len = 600
 
Get #1, 1, texte$

Close
       
   Text1.Text = texte$
       
       
       



8
End Sub

Private Sub Image9_Click()
Beep
On Error GoTo 8
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "Memoriranje na palindrom"
        ' If index = 2, the user chose Save As.
        ' Set filters.
        CommonDialog1.Filter = "Palindrom (*.pal)|*.pal|"
        ' Specify default filter.
        CommonDialog1.FilterIndex = 1
        ' Display the Save As dialog box.
        CommonDialog1.ShowSave
        FileName = CommonDialog1.FileName
       
       
 imen$ = FileName
Open imen$ For Random As #1 Len = 600
 
Put #1, 1, Text1.Text

Close
       
       
       
       
       



8
End Sub

Private Sub Text1_Change()
a$ = Text1.Text


For i = 100 To 1 Step -1
u$ = Mid$(a$, i, 1)



B$ = B$ & u$
4
Next

Text2.Text = B$



End Sub

agent_007 напиша: Da ve prasam nesto na internet dali go ima jazikot(kodovite)na Visual Basic.Blagodaram sto mi napisavte Kiko

Па ете бе дете види во линкот што ти го пратив се имаш на интернет .

Kako moze da se napravi kviz so poveke prasanja na Visual Basic.Ve molam objasnete mi.

Изменето од agent_007 - 22.Март.2009 во 17:27

agent_007 напиша: Kako moze da se napravi kviz so poveke prasanja na Visual Basic.Ve molam objasnete mi.

Ако имам време ќе ти напишам за утре една кратка програма за квиз. Сега сум на Linux.
ПС
Ако не заминам на терен.

Ne go dobiv kvizot ako sakas prati uste ednas.Pozdrav Kiko

ene kako se otvara memerirana datoteka

preku Common dialog


Private Sub Command4_Click()
On Error GoTo 45

CommonDialog1.DialogTitle = "Otvaranje na PROFILI"
       
       
 
       CommonDialog1.Filter = "Memo Firmi (*.PRF)|*.PRF|Memo profil" & _
    "(*.PRF)|*.PRF|Memo profil (*.PRF)|*.PRF"


       
        CommonDialog1.FilterIndex = 2
      
        CommonDialog1.ShowOpen
      
        filen = CommonDialog1.FileName
       
 a$ = filen

Open a$ For Random As #1 Len = 100

Get #1, 1, RA1

Get #1, 2, RA2
Get #1, 3, KR1
Get #1, 4, KR2
Get #1, 5, KR3
Get #1, 6, VR1
Get #1, 7, VR2
Get #1, 8, VR3
Get #1, 9, TP1
Get #1, 10, TP2
Get #1, 11, AD1
Get #1, 12, AD2
Get #1, 13, AD3


Close

Text1.Text = RA1
Text2.Text = RA2

Text4.Text = KR1
Text3.Text = KR2
Text5.Text = KR3

Text7.Text = VR1
Text8.Text = VR2
Text6.Text = VR3

Text10.Text = TP1
Text11.Text = TP2

Text12.Text = AD1
Text13.Text = AD2
Text14.Text = AD3
                                           




   




GoTo 555
45 MsgBox "GRESKA", 0
555
End Sub