MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > VisualBasic > Kodlar

3 Boyutlu Çizim Yapmak

3 boyutlu kare ve çizgiler çizmenizi sağlayan program örneği

Kategori : VisualBasic
Gönderen : LonG
Telif :
Tarih : 30 Mayıs 2005
Örnek Dosya : İndir
Okunma Sayısı : 40348
Puan
: 8,5 / 10 (78 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
Option Explicit
Dim X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, LineOffSet As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    LineOffSet = 20
    X1 = X
    Y1 = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        DrawMode = 6
        If Option1(0) Then
            Line (X1, Y1)-(X2, Y2)
        Else
            Line (X1, Y1)-(X2, Y2), , B
        End If
        If Check1 Then
            If Option1(0) Then
                Line (X1 - LineOffSet, Y1 - LineOffSet)-(X2 - LineOffSet, Y2 - LineOffSet)
                Line (X1 - LineOffSet, Y1 - LineOffSet)-(X - LineOffSet, Y - LineOffSet)
            Else
                Line (X1 - LineOffSet, Y1 - LineOffSet)-(X2 - LineOffSet, Y2 - LineOffSet), , B
                Line (X1 - LineOffSet, Y1 - LineOffSet)-(X - LineOffSet, Y - LineOffSet), , B
            End If
        End If
        If Option1(0) Then
            Line (X1, Y1)-(X, Y)
        Else
            Line (X1, Y1)-(X, Y), , B
        End If
   End If
   X2 = X
   Y2 = Y
   Caption = "X - " & X & "   Y - " & Y
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawMode = 13
    If Option1(0) Then
        Line (X1, Y1)-(X2, Y2)
        If Check1 Then Line (X1 - LineOffSet, Y1 - LineOffSet)-(X - LineOffSet, Y - LineOffSet), &HC0C0C0
    Else
        Line (X1, Y1)-(X2, Y2), , B
        If Check1 Then Line (X1 - LineOffSet, Y1 - LineOffSet)-(X - LineOffSet, Y - LineOffSet), &HC0C0C0, B
    End If
End Sub

Private Sub mnuFileSub_Click(Index As Integer)
    Dim FileName As String
    Select Case Index
        'Print
        Case 0
            Printer.PaintPicture Board.Image, 0, 0
            Printer.EndDoc
        'Save
        Case 1
            FileName = InputBox("Name of file to save to", "Save Graphic", App.Path)
            If FileName = App.Path Then
                MsgBox "Bad File Name!", 48
                Exit Sub
            Else
                SavePicture Board.Image, FileName
            End If
        'Exit
        Case 2
            End
    End Select
End Sub
 
 

3 Boyutlu Çizim Yapmak için yazılan yorumlar

KUTAYFLİGHT   { 04 Mart 2010 }
benim sitem www.kutayflight.tr.gg ona oyun yapmak istiyorum. b ukodları neree eklicem cevap yazan bi vatandaş olcak mı?

dost   { 23 Aralık 2009 }
kusura bakma hiç işe yaramadı

Ahmet AKAN   { 21 Aralık 2009 }
Kardeş forma bişe eklemicezmi ?

direk bu kodları yazıp çalıştırınca Mouse_Move hata verio :S

fatma   { 19 Aralık 2009 }
cok güzel olmuş .eline saglık.

UMUT   { 22 Aralık 2008 }
sagol abi bu program çok işime yaradı...
sagolll byyyy kendine iyi bak hayatta başarılar...

ahmet   { 10 Eylül 2008 }
Çok Thanks You MyDesing İçin GüZeL bİr pAyLaŞIm

Tevfik   { 27 Mart 2008 }
teşekürler kardeşim de ben biraz yeniyim konuyu anlatsaydın kısaca çok sevinirdim ne ekliyceğimi bilmiyorum eğer bi açıklama yaparsan çok sevinirim.
Teşekkürler

erdem   { 07 Kasım 2007 }
iyi sayılır beğendim

Yorum ekleyin

Anasayfa > VisualBasic > Kodlar > 3 Boyutlu Çizim Yapmak
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.205.9.146 | 0,11 Saniye
© Copyright 2004-2017 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.