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

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

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

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

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

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

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

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

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

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

agent_007 напиша: Imam eden problem moze li nekoj od vas da mi gi isprati kodovite na Visual Basic ili da mi ja kaze web stranata kaj da gi najdam.Odnapred blagodaram Kiko

Што когови бе дете искажи се убаво , имаш некоја задача не ти е јасна сакаш да ти ја решиме?